X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Fparmesan-flags.mf;h=2ee63a0e930a3fa0170caa65835f20230d3da2ed;hb=89db5c71c36627cfc7d9bd9754a014b8bc95c6c2;hp=5cd48dc78716a565ae2589932622a999212a3155;hpb=2745cbd907f8216a4cc1fc5f488ae19efdfdbd10;p=lilypond.git diff --git a/mf/parmesan-flags.mf b/mf/parmesan-flags.mf index 5cd48dc787..2ee63a0e93 100644 --- a/mf/parmesan-flags.mf +++ b/mf/parmesan-flags.mf @@ -1,9 +1,9 @@ -% -*-Fundamental-*- +% -%-Fundamental-%- -*-Metafont-*- % parmesan-flags.mf -- implement ancient flags % % source file of LilyPond's pretty-but-neat music font % -% (c) 2001--2003 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;