lilypond-1.3.102
authorfred <fred>
Wed, 27 Mar 2002 00:30:51 +0000 (00:30 +0000)
committerfred <fred>
Wed, 27 Mar 2002 00:30:51 +0000 (00:30 +0000)
mf/feta-din4.mf
mf/feta-din5.mf
mf/feta-din6.mf [new file with mode: 0644]
mf/feta-nummer4.mf
mf/feta-nummer5.mf
mf/feta-nummer6.mf [new file with mode: 0644]
ps/lily.ps
scm/element-descriptions.scm
tex/lily-ps-defs.tex

index a8e25a1da606cc6776e75d9c72405ce05552acf3..46eeacfeff2b76113f585864f2ebb228b1f479b2 100644 (file)
@@ -1,7 +1,7 @@
 % feta-din4.mf
 % part of LilyPond's pretty-but-neat music font
 
-design_size:=3.82; % 6.5/1.2/1.2  din5 = 6.5/1.2 :  din7 = 6.5pt
+design_size:=3.82; % 5.5/1.2/1.2  din6 = 5.5pt
 
 input feta-din.mf;
 
index 7b6e1fcadd5905ea08718672ef17d5bfa43ec426..1584dc1ebe0fd3c91c4d653dc454fb9943107320 100644 (file)
@@ -1,7 +1,7 @@
 % feta-din5.mf
 % part of LilyPond's pretty-but-neat music font
 
-design_size:=4.58; % 6.5/1.2 :  din7 = 6.5pt
+design_size:=4.58; % 5.5/1.2 :  din6 = 5.5pt
 
 input feta-din.mf;
 
diff --git a/mf/feta-din6.mf b/mf/feta-din6.mf
new file mode 100644 (file)
index 0000000..efaf13d
--- /dev/null
@@ -0,0 +1,9 @@
+% feta-din6.mf
+% part of LilyPond's pretty-but-neat music font
+
+design_size:=5.5; %  feta11 = 11pt
+
+input feta-din.mf;
+
+end.
+
index bb9a0768be197e0246b6ac8e5f097dabe3bb3507..ebe2cfcdecc52958159d7133be5ad60c057a3133 100644 (file)
@@ -1,7 +1,7 @@
 % feta-nummer4.mf
 % part of LilyPond's pretty-but-neat music font
 
-design_size:=3.82; % 6.5/1.2/1.2  nummer5 = 6.5/1.2 :  nummer7 = 6.5pt
+design_size:=3.82; % 5.5/1.2/1.2  nummer6 = 5.5pt
 
 input feta-nummer.mf;
 
index 596be271b3e5651c41fa1bba4add3ad35c1826db..ad480d15291b993fe6d661bb2ab3c42acd3cace2 100644 (file)
@@ -1,7 +1,7 @@
 % feta-nummer5.mf
 % part of LilyPond's pretty-but-neat music font
 
-design_size:=4.58; % 6.5/1.2 :  nummer7 = 6.5pt
+design_size:=4.58; % 5.5/1.2 :  nummer6 = 5.5pt
 
 input feta-nummer.mf;
 
diff --git a/mf/feta-nummer6.mf b/mf/feta-nummer6.mf
new file mode 100644 (file)
index 0000000..4038deb
--- /dev/null
@@ -0,0 +1,9 @@
+% feta-nummer6.mf
+% part of LilyPond's pretty-but-neat music font
+
+design_size:=5.5; %  feta11 = 11pt
+
+input feta-nummer.mf;
+
+end.
+
index 65b0c0a04f0209f10790290e9acc00e696b9e66c..b4a324105ef6e8a78b029fae5017b2e175395460 100644 (file)
@@ -1,11 +1,10 @@
 %!PS-Adobe-1.0: lily.ps 
-% 
-% 2 setlanguagelevel %  hmm. auto_resize_dicts doesn't help either.  
-% round cappings 
-1 setlinecap 
-% 
-% scm/lily.scm should allow blank lines, now
 %
+%
+
+% round cappings 
+1 setlinecap
+
 /draw_beam % width slope thick 
 { 
         2 div /beam_thick exch def 
         0 beam_thick lineto 
         closepath fill 
 } bind def 
-% 
+
 /draw_decrescendo %  width height cons thick 
 { 
        setlinewidth 
        /cresc_cont exch def 
        /cresc_ht exch def 
        /cresc_wd exch def 
-% 
+
        cresc_wd cresc_cont moveto 
        0 cresc_ht lineto 
        stroke 
        0 cresc_ht neg lineto 
        stroke 
 } bind def 
-% 
+
 /draw_crescendo % width height cons thick 
 { 
        setlinewidth 
        /cresc_cont exch def 
        /cresc_ht exch def 
        /cresc_wd exch def 
-% 
+
        0 cresc_cont moveto 
        cresc_wd cresc_ht lineto 
        stroke 
        cresc_wd cresc_ht neg lineto 
        stroke 
 } bind def 
-% 
+
 /lily_distance  
 { 
        1 copy mul exch 1 copy mul add sqrt 
 } bind def 
-% 
+
 /draw_tuplet % height gap dx dy thick dir 
 { 
-% urg: the only Level-2 PS, check effect in print 
-%      true setstrokeadjust 
        /dir exch def 
        setlinewidth 
        1 setlinecap 
@@ -67,8 +64,8 @@
        /tuplet_gapx exch def 
        /tuplet_h exch def 
        tuplet_dy tuplet_dx div tuplet_gapx mul /tuplet_gapy exch def 
-% 
-% 
+
+
        0 0 moveto 
        0 tuplet_h dir mul lineto  
        tuplet_dx tuplet_gapx sub 2 div  
@@ -79,7 +76,7 @@
        tuplet_dx tuplet_dy lineto 
        stroke 
 } bind def 
-% 
+
 /draw_volta % h w thick vert_start vert_end 
 { 
        /vert_end exch def 
@@ -87,8 +84,6 @@
        setlinewidth 
        /volta_w exch def 
        /volta_h exch def 
-% urg: the only Level-2 PS, check effect in print 
-%      true setstrokeadjust 
        1 setlinecap 
        1 setlinejoin 
        vert_start 0 eq { 
        } if 
        stroke 
 } bind def 
-% 
+
 % this is for drawing slurs. 
 /draw_bezier_sandwich  % thickness controls 
 { 
        grestore 
        stroke 
 } bind def 
-% 
+
 /draw_dashed_line % dash thickness dx dy
 { 
        1 setlinecap 
        lineto
        stroke 
 } bind def 
-%
-/xdraw_dashed_line % dash thickness dx dy
-{ 
-       1 setlinecap 
-       1 setlinejoin 
-       setdash 
-       dup
-       setlinewidth 
-       2 div
-       dup
-       0 moveto
-       neg add
-       lineto
-       stroke 
-} bind def 
-%
+
 /draw_dashed_slur % dash thickness controls
 { 
        1 setlinecap 
        curveto 
        stroke 
 } bind def 
-% 
-% 
-% 
+
+
+
 /bracket_traject 
 { 
-  /traject_ds exch def 
-  /traject_alpha exch def 
-  traject_ds traject_alpha sin mul add 
-  exch 
-  traject_ds traject_alpha cos mul add 
-  exch 
+       /traject_ds exch def 
+       /traject_alpha exch def 
+       traject_ds traject_alpha sin mul add 
+       exch 
+       traject_ds traject_alpha cos mul add 
+       exch 
 } bind def 
-% 
-% 
-% 
+
+
+
 /half_bracket
 { 
 %6 
        bracket_thick arch_height add half_height arch_thick sub arch_width add 
        arch_angle arch_height -0.15 mul bracket_traject 
 %5b 
-       1 half_height 
+       bracket_thick 0.5 mul half_height 
        0 arch_height 0.5 mul bracket_traject 
 %5c 
        0 half_height 
 %1 
        0 0 
 } bind def 
-% 
+
 /draw_half_bracket { 
        moveto 
        lineto 
        fill 
        grestore 
 } bind def 
-% 
+
 /draw_bracket % arch_angle arch_width arch_height bracket_width bracket_height arch_thick bracket_thick
 { 
        % urg
+
        /bracket_thick exch def
        /arch_thick exch def
        /bracket_height exch def
        /arch_height exch def
        /arch_width exch def
        /arch_angle exch def
-%
+
        bracket_height 2 div bracket_thick add /half_height exch def 
-% urg: the only Level-2 PS, check effect in print 
-%      true setstrokeadjust 
+       bracket_thick 0.5 mul setlinewidth
        1 setlinecap 
        1 setlinejoin 
        half_bracket 
        draw_half_bracket 
        stroke 
        1 -1 scale 
-% ugh, ugh: 
-       0.05 0 translate 
        draw_half_bracket 
        stroke 
 } bind def 
-% 
+
index 0a92527b7f17357e84111c38d67ff26788628f45..9bd688f806ece6398e800e82f27356dfc3ba197f 100644 (file)
                (collapse-height . 1.0)
                (thickness . 1.6)
                (arch-height . 1.5)
-               (arch-angle . 50.0)
+               (arch-angle . 25.0)
                (arch-thick . 0.25)
                (glyph . bar-line)
                (arch-width . 1.5)
                (bracket-thick . 0.25)
-               (bracket-width . 2.0)
+               (bracket-width . 0.4)
                (font-family . braces)
                (font-point-size . 20)
                (Y-extent-callback . #f)
                (thick . 1.0)
                (after-line-breaking-callback . ,Tuplet_spanner::after_line_breaking)
                (molecule-callback . ,Tuplet_spanner::brew_molecule)
+               (font-family . roman)
                (font-shape . italic)
                (font-relative-size . -1)
                (meta .  ,(element-description "TupletBracket" text-interface
index 45a0db23e16d3a4dd5a39a2fe76bfdb8a318016b..bfd4a8e40deaa13ce4381077f76cb4b0313ef877 100644 (file)
@@ -13,7 +13,9 @@
         % by executing a 0 0 moveto
         \def\embeddedps##1{%
                 \special{ps: @beginspecial @setspecial
-        \mudelapaperoutputscale\lilySpace\mudelapaperoutputscale\lilySpace scale ##1 @endspecial}%
+                        \mudelapaperoutputscale\lilySpace
+                        \mudelapaperoutputscale\lilySpace scale 
+                        ##1 @endspecial}%
         }
 }