X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Fparmesan-flags.mf;h=1202080108dbc23ae014258e2fb3db985621235d;hb=8cd5e0b2e62622daeb49a7b65de809280717555c;hp=d36a59a507878f73f21766ba2a7323a53fe94506;hpb=53229eef3e0e72f9d0028ed0151df8db9a128a40;p=lilypond.git diff --git a/mf/parmesan-flags.mf b/mf/parmesan-flags.mf index d36a59a507..1202080108 100644 --- a/mf/parmesan-flags.mf +++ b/mf/parmesan-flags.mf @@ -3,7 +3,7 @@ % % source file of LilyPond's pretty-but-neat music font % -% (c) 2001--2002 Juergen Reuter +% (c) 2001--2006 Juergen Reuter % fet_begingroup ("flags") @@ -28,10 +28,10 @@ dir_down = -1; % def draw_mensural_outermost_flare (expr staffline_adjustment) = - define_pixels(stafflinethickness, staff_space) + define_pixels(linethickness, staff_space) pickup pencircle - xscaled 1.00 stafflinethickness + xscaled 1.00 linethickness yscaled 0.22 staff_space rotated -35; @@ -59,10 +59,10 @@ def draw_mensural_outermost_flare (expr staffline_adjustment) = enddef; def draw_mensural_inner_flare(expr il_shift) = - define_pixels(stafflinethickness, staff_space) + define_pixels(linethickness, staff_space) pickup pencircle - xscaled 1.00 stafflinethickness + xscaled 1.00 linethickness yscaled 0.22 staff_space rotated -35; @@ -111,122 +111,122 @@ def draw_mensural_flag (expr staffline_adjustment, flares, direction) = enddef; % 8th mensural flag, upwards, between staff lines -fet_beginchar("8th Mensural Flag (up)", "mensuralu03", "menseighthflag") +fet_beginchar("8th Mensural Flag (up)", "mensuralu03") draw_mensural_flag (between_staff_lines, 1, dir_up) fet_endchar; % 8th mensural flag, upwards, on staff line -fet_beginchar("8th Mensural Flag (up)", "mensuralu13", "mens1eighthflag") +fet_beginchar("8th Mensural Flag (up)", "mensuralu13") draw_mensural_flag (on_staff_line, 1, dir_up) fet_endchar; % 8th mensural flag, upwards, anywhere -fet_beginchar("8th Mensural Flag (up)", "mensuralu23", "mens1eighthflag") +fet_beginchar("8th Mensural Flag (up)", "mensuralu23") draw_mensural_flag (anywhere, 1, dir_up) fet_endchar; % 8th mensural flag, downwards, between staff lines -fet_beginchar("8th Mensural Flag (down)", "mensurald03", "mensdeighthflag") +fet_beginchar("8th Mensural Flag (down)", "mensurald03") draw_mensural_flag (between_staff_lines, 1, dir_down) fet_endchar; % 8th mensural flag, downwards, on staff line -fet_beginchar("8th Mensural Flag (down)", "mensurald13", "mensd1eighthflag") +fet_beginchar("8th Mensural Flag (down)", "mensurald13") draw_mensural_flag (on_staff_line, 1, dir_down) fet_endchar; % 8th mensural flag, downwards, anywhere -fet_beginchar("8th Mensural Flag (down)", "mensurald23", "mensd1eighthflag") +fet_beginchar("8th Mensural Flag (down)", "mensurald23") draw_mensural_flag (anywhere, 1, dir_down) fet_endchar; % 16th mensural flag, upwards, between staff lines -fet_beginchar("16th Mensural Flag (up)", "mensuralu04", "menssixteenthflag") +fet_beginchar("16th Mensural Flag (up)", "mensuralu04") draw_mensural_flag (between_staff_lines, 2, dir_up) fet_endchar; % 16th mensural flag, upwards, on staff line -fet_beginchar("16th Mensural Flag (up)", "mensuralu14", "mens1sixteenthflag") +fet_beginchar("16th Mensural Flag (up)", "mensuralu14") draw_mensural_flag (on_staff_line, 2, dir_up) fet_endchar; % 16th mensural flag, upwards, anywhere -fet_beginchar("16th Mensural Flag (up)", "mensuralu24", "mens1sixteenthflag") +fet_beginchar("16th Mensural Flag (up)", "mensuralu24") draw_mensural_flag (anywhere, 2, dir_up) fet_endchar; % 16th mensural flag, downwards, between staff lines -fet_beginchar("16th Mensural Flag (down)", "mensurald04", "mensdsixteenthflag") +fet_beginchar("16th Mensural Flag (down)", "mensurald04") draw_mensural_flag (between_staff_lines, 2, dir_down) fet_endchar; % 16th mensural flag, downwards, on staff line -fet_beginchar("16th Mensural Flag (down)", "mensurald14", "mensd1sixteenthflag") +fet_beginchar("16th Mensural Flag (down)", "mensurald14") draw_mensural_flag (on_staff_line, 2, dir_down) fet_endchar; % 16th mensural flag, downwards, anywhere -fet_beginchar("16th Mensural Flag (down)", "mensurald24", "mensd1sixteenthflag") +fet_beginchar("16th Mensural Flag (down)", "mensurald24") draw_mensural_flag (anywhere, 2, dir_down) fet_endchar; % 32th mensural flag, upwards, between staff lines -fet_beginchar("32th Mensural Flag (up)", "mensuralu05", "mensthirtysecondflag") +fet_beginchar("32th Mensural Flag (up)", "mensuralu05") draw_mensural_flag (between_staff_lines, 3, dir_up) fet_endchar; % 32th mensural flag, upwards, on staff line -fet_beginchar("32th Mensural Flag (up)", "mensuralu15", "mens1thirtysecondflag") +fet_beginchar("32th Mensural Flag (up)", "mensuralu15") draw_mensural_flag (on_staff_line, 3, dir_up) fet_endchar; % 32th mensural flag, upwards, anywhere -fet_beginchar("32th Mensural Flag (up)", "mensuralu25", "mens1thirtysecondflag") +fet_beginchar("32th Mensural Flag (up)", "mensuralu25") draw_mensural_flag (anywhere, 3, dir_up) fet_endchar; % 32th mensural flag, downwards, between staff lines -fet_beginchar("32th Mensural Flag (down)", "mensurald05", "mensdthirtysecondflag") +fet_beginchar("32th Mensural Flag (down)", "mensurald05") draw_mensural_flag (between_staff_lines, 3, dir_down) fet_endchar; % 32th mensural flag, downwards, on staff line -fet_beginchar("32th Mensural Flag (down)", "mensurald15", "mensd1thirtysecondflag") +fet_beginchar("32th Mensural Flag (down)", "mensurald15") draw_mensural_flag (on_staff_line, 3, dir_down) fet_endchar; % 32th mensural flag, downwards, anywhere -fet_beginchar("32th Mensural Flag (down)", "mensurald25", "mensd1thirtysecondflag") +fet_beginchar("32th Mensural Flag (down)", "mensurald25") draw_mensural_flag (anywhere, 3, dir_down) fet_endchar; % 64th mensural flag, upwards, between staff lines -fet_beginchar("64th Mensural Flag (up)", "mensuralu06", "menssixtyfourthflag") +fet_beginchar("64th Mensural Flag (up)", "mensuralu06") draw_mensural_flag (between_staff_lines, 4, dir_up) fet_endchar; % 64th mensural flag, upwards, on staff line -fet_beginchar("64th Mensural Flag (up)", "mensuralu16", "mens1sixtyfourthflag") +fet_beginchar("64th Mensural Flag (up)", "mensuralu16") draw_mensural_flag (on_staff_line, 4, dir_up) fet_endchar; % 64th mensural flag, upwards, anywhere -fet_beginchar("64th Mensural Flag (up)", "mensuralu26", "mens1sixtyfourthflag") +fet_beginchar("64th Mensural Flag (up)", "mensuralu26") draw_mensural_flag (anywhere, 4, dir_up) fet_endchar; % 64th mensural flag, downwards, between staff lines -fet_beginchar("64th Mensural Flag (down)", "mensurald06", "mensdsixtyfourthflag") +fet_beginchar("64th Mensural Flag (down)", "mensurald06") draw_mensural_flag (between_staff_lines, 4, dir_down) fet_endchar; % 64th mensural flag, downwards, on staff line -fet_beginchar("64th Mensural Flag (down)", "mensurald16", "mensd1sixtyfourthflag") +fet_beginchar("64th Mensural Flag (down)", "mensurald16") draw_mensural_flag (on_staff_line, 4, dir_down) fet_endchar; % 64th mensural flag, downwards, anywhere -fet_beginchar("64th Mensural Flag (down)", "mensurald26", "mensd1sixtyfourthflag") +fet_beginchar("64th Mensural Flag (down)", "mensurald26") draw_mensural_flag (anywhere, 4, dir_down) fet_endchar;