Re: Drumnotation

[Mats Bengtsson]

> > How do I
> > - Make a drum clef (vetical rectangle)
> 
> It's not implemented at the moment, but is very easy to add.
> I'll take a look tonight. In the music typesetting book I have
> available, the symbols looks like: || 
> I assume that's what you want.

Here's a patch for 1.3.121 which implements the percussion
clef. Unfortunately, I haven't managed to use it with the
RhytmicStaff, it puts the clef on a new separate staff line
instead of the staff line with the notes (yes, I added
the Clef_engraver to the RhytmicStaff context).

I would appreciate some feedback on the layout of the clef
symbol. 

(Note that you have to remove all old generated font files, 
since the font was updated, see the FAQ).

  /Mats

Generated by (address unknown),
>From = lilypond-1.3.121.mb1, To = lilypond-1.3.121.mb2

usage 

    cd lilypond-source-dir; patch -E -p1 < lilypond-1.3.121.mb2.diff

Patches do not contain automatically generated files 
or (urg) empty directories, 
i.e., you should rerun autoconf, configure

diff -urN ../lilypond-1.3.121.mb1/CHANGES ./CHANGES
--- ../lilypond-1.3.121.mb1/CHANGES     Sun Jan  7 14:26:13 2001
+++ ./CHANGES   Tue Jan  9 22:06:17 2001
@@ -1,4 +1,9 @@
-1.3.121.mb2
+1.3.121.mb1
+===========
+
+* Added percussion clef. Note: font updated!
+
+1.3.121.mb1
 ===========
 
 * Bugfix: svenska.ly and norsk.ly
diff -urN ../lilypond-1.3.121.mb1/VERSION ./VERSION
--- ../lilypond-1.3.121.mb1/VERSION     Sun Jan  7 14:25:51 2001
+++ ./VERSION   Tue Jan  9 22:05:21 2001
@@ -2,7 +2,7 @@
 MAJOR_VERSION=1
 MINOR_VERSION=3
 PATCH_LEVEL=121
-MY_PATCH_LEVEL=mb1
+MY_PATCH_LEVEL=mb2
 
 # use the above to send patches: MY_PATCH_LEVEL is always empty for a
 # released version.
diff -urN ../lilypond-1.3.121.mb1/input/test/rhythmic-staff.ly 
./input/test/rhythmic-staff.ly
--- ../lilypond-1.3.121.mb1/input/test/rhythmic-staff.ly        Thu Sep  2 
02:17:49 1999
+++ ./input/test/rhythmic-staff.ly      Tue Jan  9 22:36:39 2001
@@ -1,6 +1,9 @@
+% Tried to get percussion clefs to work with RhytmicStaff, but failed. /MB
+
 \score{
   \context RhythmicStaff {
     \notes\relative c''{ 
+      \clef percussion;
       \time 4/4; 
       r4 r g2 | r4 g r2 | g1:32 | r1 |
     }
diff -urN ../lilypond-1.3.121.mb1/ly/engraver.ly ./ly/engraver.ly
--- ../lilypond-1.3.121.mb1/ly/engraver.ly      Sun Jan  7 01:52:51 2001
+++ ./ly/engraver.ly    Tue Jan  9 22:35:18 2001
@@ -82,9 +82,10 @@
        VoltaBracket \override #'padding =  #5  % urg, in \pt
        StaffSymbol \override #'line-count = #1 
 
+       \consists "Bar_engraver";
 %      \consists "Repeat_engraver";
        \consists "Volta_engraver";
-       \consists "Bar_engraver";
+%      \consists "Clef_engraver"; % Doesn't work!?
        \consists "Time_signature_engraver";
        \consists "Staff_symbol_engraver";
        \consistsend "Axis_group_engraver";
diff -urN ../lilypond-1.3.121.mb1/mf/feta-klef.mf ./mf/feta-klef.mf
--- ../lilypond-1.3.121.mb1/mf/feta-klef.mf     Thu Jan  4 13:04:16 2001
+++ ./mf/feta-klef.mf   Tue Jan  9 22:09:15 2001
@@ -1050,5 +1050,22 @@
        draw_hufnagel_do_fa_clef((0,0), .8);
 fet_endchar;
 
+def draw_percussion_clef(expr reduction) =
+       save reduced_il;
+       reduced_il# = staff_space# * reduction;
+       define_pixels(reduced_il);
+       set_char_box(0,.6reduced_il#,reduced_il#,reduced_il#);
+        pickup pencircle scaled 1.5 stafflinethickness;
+       draw (b,h) -- (b,-d);
+       draw (w,h) -- (w,-d);
+enddef;
+
+fet_beginchar("percussion clef", "percussion", "percussionclef")
+       draw_percussion_clef(1.0);
+fet_endchar;
+
+fet_beginchar("percussion clef", "percussion_change", "cpercussionclef")
+       draw_percussion_clef(.8);
+fet_endchar;
 
 fet_endgroup("clefs");
diff -urN ../lilypond-1.3.121.mb1/scm/clef.scm ./scm/clef.scm
--- ../lilypond-1.3.121.mb1/scm/clef.scm        Sun Jan  7 01:52:51 2001
+++ ./scm/clef.scm      Tue Jan  9 22:23:23 2001
@@ -19,6 +19,7 @@
          ("bass" . ("clefs-F" 2  0))
          ("F" . ( "clefs-F" 2 0))
          ("subbass" . ("clefs-F" 4 0))
+         ("percussion" . ("clefs-percussion" 0 0))
          ("none" . ("" 0 0))
 
          ;; should move mensural stuff to separate file?