]> git.donarmstrong.com Git - lilypond.git/commitdiff
lilypond-1.1.5
authorfred <fred>
Tue, 26 Mar 2002 21:29:18 +0000 (21:29 +0000)
committerfred <fred>
Tue, 26 Mar 2002 21:29:18 +0000 (21:29 +0000)
mf/feta-schrift.mf

index 794208902e39b09f41ca236642ad0d96c3125df3..9d5983726a3146b96b9acff314e53e432f1c9069 100644 (file)
@@ -4,7 +4,7 @@
 % source file of the Feta (defintively not an abbreviation for Font-En-Tja)
 % music font
 % 
-% (c) 1997, 1998 Han-Wen Nienhuys <hanwen@stack.nl>
+% (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
 %      Jan Nieuwenhuizen <janneke@gnu.org>
 % 
 
@@ -69,10 +69,10 @@ fet_beginchar("Thumb", "thumb", "thumb")
         height# = 5/4 width#;
         height# = interline#;
         thin = 1.2 stafflinethickness;
-        thick =  1.4 thin;
+        thick =  2 thin;
         set_char_box(width#/2, width#/2, height#/2, height#/2);
-
-        penpos1(thick, 0);
+        
+       penpos1(thick, 0);
         penpos2(thin, 90);
         z1r = (w, 0);
         z2r = (0, h);
@@ -81,15 +81,12 @@ fet_beginchar("Thumb", "thumb", "thumb")
         addto currentpicture also currentpicture xscaled -1;
         addto currentpicture also currentpicture yscaled -1;
 
-       pickup pencircle scaled thin;
-       save x,y;
-       z3r = (0, -h);
-       z4 = (0, -2h);
+       z3 = (0, -h);
+       z4 = (0, -1.5h);
        penlabels(3,4);
-       draw z3r -- z4;
+       draw_brush(z3,1.4*thin, z4,0.9*thick);
 fet_endchar;
 
-
 %
 % FIXME: rounded endings
 %