]> git.donarmstrong.com Git - lilypond.git/commitdiff
lilypond-0.1.35
authorfred <fred>
Thu, 4 Dec 1997 20:01:47 +0000 (20:01 +0000)
committerfred <fred>
Thu, 4 Dec 1997 20:01:47 +0000 (20:01 +0000)
mf/feta-watzieik.mf

index 8bcdf19bc8ee190ee918a5cc509f4f2b313297b5..b87363a983fd65da528132adc185e0d023bd9274 100644 (file)
@@ -11,19 +11,19 @@ define_pixels(beamheight);
 pen beam_pen;
 beam_pen:=penrazor scaled beamheight rotated 90;
 
-ELEM_TAN:=0.05;
-SLOPES:=20;
-LENGTHS:=6;
-ELEM_FACTOR := 2;
-ELEM_INITIAL_LEN:=2;
+elem_tan:=0.05;
+slopes:=20;
+lengths:=6;
+elem_factor := 2;
+elem_initial_len:=2;
 
-for i := -SLOPES upto SLOPES:
-       width:= ELEM_INITIAL_LEN;
-       for j:=1 upto LENGTHS:
-               beginchar(128 + i * LENGTHS + j -1 ,width,0,0);
+for i := -slopes upto slopes:
+       width:= elem_initial_len;
+       for j:=1 upto lengths:
+               beginchar(128 + i * lengths + j -1 ,width,0,0);
                        pickup beam_pen;
-                       draw origin--(lft w,w*i*ELEM_TAN);
+                       draw origin--(lft w,w*i*elem_tan);
                        endchar;
-               width:=ELEM_FACTOR *width;
+               width:=elem_factor *width;
                endfor;
        endfor;