% -%-Fundamental-%- -*-Metafont-*- % parmesan-heads.mf -- implement ancient note heads % % source file of LilyPond's pretty-but-neat music font % % (c) 2001--2003 Juergen Reuter % % Neo-mensural heads originally by % Christian Mondrup and Mats Bengtsson % save black_notehead_width; numeric black_notehead_width; fet_begingroup ("noteheads") % % character aligment: % % The head is assumed to be vertically centered around (0, 0). % The left-most edge of the head should touch the vertical line % that goes though the point (0, 0). % % set_char_box() conventions: % % * breapth: Ignored (as far as I know). Should be set to 0. % % * width: Should match the head's width. % % * depth: Should match the bottom edge of the head. Affects vertical % collision handling. % % * height: Should match the top edge of the head. Affects vertical % collision handling. % overdone_heads = 0; noteheight# := staff_space# + (1 + overdone_heads)*stafflinethickness#; define_pixels(noteheight); %%%%%%%% % % % % MENSURAL NOTATION % % % def draw_neo_brevis(expr brevwid) = save beamheight, head_width; save holeheight, stem_width; save serif_size, serif_protrude; head_width# = brevwid; holeheight = 3 stafflinethickness; stem_width = 1.4 stafflinethickness; define_pixels(head_width); set_char_box(0, head_width#, noteheight#/2, noteheight#/2); 2 beamheight + holeheight = noteheight; serif_size = (holeheight - stafflinethickness)/2; serif_protrude = 1.5 serif_size; penpos1(stem_width, 0); penpos2(stem_width, 0); penpos3(beamheight, 90); penpos4(beamheight, 90); penpos5(stem_width, 180); z1l = (0, 0); z2l = (0, -stafflinethickness/2); z3r = z2r + serif_size *(1,-1); y4r = y3r; x4r = head_width/2; z5l = z3l + (-serif_size, -serif_protrude); penlabels(1,2,3,4, 5); fill z1r -- z1l -- z5r{down} .. z5l{up} .. z3l{right} -- z4l -- z4r -- z3r{left} .. z2r{up} -- cycle; addto currentpicture also currentpicture yscaled -1; show z4r; show z4l; addto currentpicture also currentpicture shifted (-x4r,0) xscaled -1 shifted (x4l,0); enddef; def draw_neo_left_stemmed_head (expr wid) = draw_neo_brevis(wid); x6 = x7 = head_width - stem_width/2; y6 = y5; y7 = y5 - 2.25 staff_space; pickup pencircle scaled stem_width; draw z6 .. z7; enddef; fet_beginchar("Left stemmed notehead", "lneo_mensural", "mensuralleftstemmedhead"); draw_neo_left_stemmed_head (2 staff_space#); fet_endchar; % % Some sources (eg Musix/OpusTeX think that the appendage should be on % the left, some say right. Right wins democratically. % def draw_neo_longa (expr wid) = draw_neo_brevis(wid); save theta; x7r = head_width; y7 = y5; % z7 = z5; z6 - z7 = (stem_width/2, -staff_space); theta = angle(z6-z7)+ 90; penpos7(stem_width, theta); penpos6(1.2 stem_width, theta); fill z7r .. z6r{z6-z7} .. {z7-z6} z6l -- z7l -- cycle; penlabels(6,7); enddef; % % En wij presenteren U: de opvolgster van Emily % % (ze is wel breed) % fet_beginchar("Maxima notehead", "-3neo_mensural", "mensuralmaximahead"); draw_neo_longa (2.6 staff_space#) fet_endchar; fet_beginchar("Longa notehead", "-2neo_mensural", "mensurallongahead"); draw_neo_longa (2 staff_space#) fet_endchar; fet_beginchar("Brevis notehead", "-1neo_mensural", "mensuralbrevishead") draw_neo_brevis(2 staff_space#); fet_endchar; def draw_neo_mensural_black_head (expr wid, height) = save head_width; head_width# = wid; set_char_box (0, head_width#, height/2, height/2); charwx := head_width# / 2; charwy := height / 2; y3 = y1 =0; x2 = x4 = (x1 + x3) /2; define_pixels (head_width); pickup pencircle scaled blot_diameter; top y2 = h; bot y4 = -d; lft x1 = 0; rt x3 = w; filldraw z1 -- z2 -- z3 -- z4 -- cycle; enddef; def draw_neo_mensural_open_head (expr wid, height)= draw_neo_mensural_black_head (wid, height); save diamNW, diamSW; diamNW = length (z2 - z1) + blot_diameter; diamSW = length (z4 - z1) + blot_diameter; save hole_widthNW, hole_widthSW; hole_widthNW = 0.34 diamNW ; hole_widthSW + 2.6 stafflinethickness = diamSW; (z7 + z5)/2 = (w/2, 0); (z8 + z6)/2 = (w/2, 0); (z6 - z5) = hole_widthNW * unitvector (z2 - z1); (z7 - z6) = hole_widthSW * unitvector (z4 - z1); labels (1,2,3,4,5,6,7,8); unfill z5 -- z6 -- z7 -- z8 --cycle; enddef; fet_beginchar("Neo-mensural open head","0neo_mensural","neomensuralsemibrevishead") draw_neo_mensural_open_head (staff_space#, noteheight#); fet_endchar; % % WL says the thin lines should be thinner. % fet_beginchar("Harmonic notehead (Neo-mensural open)", "0harmonic","harmonichead") draw_neo_mensural_open_head (1.3 staff_space#, 1.3 noteheight#); charwx := head_width#; charwy := 0; fet_endchar; fet_beginchar("Neo-mensural open head","1neo_mensural","neomensuralminimahead") draw_neo_mensural_open_head (staff_space#, noteheight#); fet_endchar; fet_beginchar("Neo-mensural black head","2neo_mensural","neomensuralsemiminimahead") draw_neo_mensural_black_head (staff_space#, noteheight#); fet_endchar; def draw_brevis (expr wid) = % TODO. For the moment, fall back to draw_neo_brevis. draw_neo_brevis(wid); enddef; def draw_left_stemmed_head (expr wid) = draw_brevis(wid); save theta; x6 = x7 = stem_width/2; y6 = y5; y7 = y5 - 2.25staff_space; pickup pencircle scaled stem_width; draw z6 .. z7; enddef; fet_beginchar("Left stemmed notehead", "lmensural", "mensuralleftstemmedhead"); draw_left_stemmed_head (staff_space#) fet_endchar; def draw_longa (expr wid) = draw_brevis(wid); x6 = x7 = head_width - stem_width/2; y6 = y5; y7 = y5 - 2.25staff_space; pickup pencircle scaled stem_width; draw z6 .. z7; enddef; fet_beginchar("Maxima notehead", "-3mensural", "mensuralmaximahead"); draw_longa (2.0 staff_space#) fet_endchar; fet_beginchar("Longa notehead", "-2mensural", "mensurallongahead"); draw_longa (staff_space#) fet_endchar; fet_beginchar("Brevis notehead", "-1mensural", "mensuralbrevishead") draw_brevis(staff_space#); fet_endchar; def draw_diamond_head (expr head_h, pen_w, pen_h, angle, open) = save head_width, head_height; head_height# = head_h; head_width# / head_height# = tand(angle); define_pixels(head_width, head_height); set_char_box (0, head_width#, head_height#/2, head_height#/2); charwx := head_width# / 2; charwy := head_height# / 2 - stafflinethickness#; pickup pencircle xscaled (min(blot_diameter, pen_w * head_width)) yscaled (min(blot_diameter, pen_h * head_width)) rotated -angle; %% FIXME: replace "xpart (top z2)" (and, analogously, %% "ypart (rt z3)") with an expression that really delivers the %% x coordinate of the uppermost pixel that is drawn with respect %% to the pencircle (this requires some elliptical computations). %% MF obviously interprets "xpart (top z2)" as "top (xpart z2)", %% i.e. "top x2", which is not what we want. xpart (top z2) = ypart (rt z3) = 0; top y2 = head_height/2; rt x3 = head_width/2; z2 = - z4; z3 = - z1; if open: draw z1 -- z2 -- z3 -- z4 -- cycle; else: filldraw z1 -- z2 -- z3 -- z4 -- cycle; fi; currentpicture := currentpicture shifted (head_width/2, 0); enddef; fet_beginchar("Mensural open head","0mensural","mensuralsemibrevishead") draw_diamond_head (staff_space#, 0.15, 0.30, 30, true); fet_endchar; fet_beginchar("Mensural open head","1mensural","mensuralminimahead") draw_diamond_head (staff_space#, 0.15, 0.30, 30, true); fet_endchar; fet_beginchar("Mensural black head","2mensural","mensuralsemiminimahead") draw_diamond_head (staff_space#, 0.15, 0.30, 30, false); fet_endchar; %%%%%%%% % % % % EDITIO VATICANA (including solesmes extensions) % % % % parameterized punctum def punctum_char (expr verbose_name, internal_name, ly_name, left_stem, right_stem, linea, cavum, straight, auctum, direction_up, excentric, up_shift, down_shift, mag) = fet_beginchar(verbose_name, internal_name, ly_name) save b_h, a_w; a_b := 1.54; % b_h*a_b/a_w = wd/ht b_h := 0.85; a_w := 1.09; save a, beta, ht, wd; ht# = noteheight# * mag; 2beta# = ht# * b_h; a# = beta# * a_b; wd# = 2a# / a_w; black_notehead_width# := wd#; % direction save direction, direction_sign; pair direction; if direction_up: direction = up; direction_sign# = 1; else: direction = down; direction_sign# = -1; fi; % convexity and excentricity save u_convexity, u_excentricity; if straight: u_convexity# = -0.01ht#; u_excentricity# = 0.0ht#; % dummy elseif auctum: u_convexity# = -0.03ht#; u_excentricity# = +0.25ht#; else: u_convexity# = -0.05ht#; u_excentricity# = 0.0ht#; % dummy fi; save convexity, excentricity; convexity# = direction_sign# * u_convexity#; excentricity# = direction_sign# * u_excentricity#; % y shift offset save yoffs; if up_shift: yoffs# = 0.08ht#; elseif down_shift: yoffs# = -0.11ht#; else: yoffs# = 0.00ht#; fi define_pixels(convexity, excentricity, yoffs, ht, wd); pickup pencircle scaled stafflinethickness; path p; save height, yoffs_bt; define_pixels (height, yoffs_bt); height# = 0.47ht#; yoffs_bt# = yoffs# - 0.5*height# - 0.25*convexity#; xpart z1a = xpart z1b; xpart z2a = xpart z2b; xpart z3a = xpart z3b; ypart z1a + height = ypart z1b; ypart z2a + height = ypart z2b; ypart z3a + height = ypart z3b; save box_top, box_bt; if auctum: z1a = (0.00wd + stafflinethickness/2, yoffs_bt); z2a = (0.21wd, yoffs_bt + 1.0*convexity); z3a = (0.42wd - stafflinethickness/2, yoffs_bt + 1.0*excentricity); box_top# = height# + yoffs_bt# + max(0, 1.0*convexity#, 1.0*excentricity#); box_bt# = yoffs_bt# + min(0, 1.0*convexity#, 1.0*excentricity#); p = z1a .. {right}z2a .. {direction}z3a -- z3b{-direction} .. z2b{left} .. z1b -- cycle; elseif excentric: z1a = (0.00wd + stafflinethickness/2, yoffs_bt - 1.0*convexity); z2a = (0.08wd, yoffs_bt + 1.4*convexity); z3a = (0.42wd - stafflinethickness/2, yoffs_bt - 1.0*convexity); box_top# = height# + yoffs_bt# + max(-1.0*convexity#, 1.4*convexity#, 0); box_bt# = yoffs_bt# + min(-1.0*convexity#, 1.4*convexity#, 0); p = z1a{direction} .. z2a{right} .. z3a -- z3b .. {left}z2b .. {-direction}z1b -- cycle; else: z1a = (0.00wd + stafflinethickness/2, yoffs_bt); z2a = (0.21wd, yoffs_bt + 1.0*convexity); z3a = (0.42wd - stafflinethickness/2, yoffs_bt); box_top# = height# + yoffs_bt# + max(0, 1.0*convexity#); box_bt# = yoffs_bt# + min(0, 1.0*convexity#); p = z1a .. z2a .. z3a -- z3b .. z2b .. z1b -- cycle; fi; if cavum: draw p; else: filldraw p; fi; pickup pencircle scaled 0.6stafflinethickness; save stem_bt; if left_stem: z5=(0.00wd + 0.6stafflinethickness/2, yoffs); z6=(0.00wd + 0.6stafflinethickness/2, yoffs - 1.1ht); draw z5 -- z6; stem_bt# = yoffs# - 1.1ht#; elseif right_stem: z5=(0.42wd - 0.6stafflinethickness/2, yoffs); z6=(0.42wd - 0.6stafflinethickness/2, yoffs - 1.5ht); draw z5 -- z6; stem_bt# = yoffs# - 1.5ht#; else: stem_bt# = 0; fi; set_char_box(0.00wd#, 0.42wd#, max(0, -box_bt#, -stem_bt#) + stafflinethickness#/2, max(0, box_top#) + stafflinethickness#/2); if linea: save linea_width, linea_height; linea_width# = 0.6 stafflinethickness#; linea_height# = 0.7 ht#; define_pixels (linea_width, linea_height); draw_block ((-0.10wd - linea_width/2, -linea_height/2), (-0.10wd + linea_width/2, +linea_height/2)); draw_block ((+0.52wd - linea_width/2, -linea_height/2), (+0.52wd + linea_width/2, +linea_height/2)); set_char_box(0, 0.62wd# + linea_width#, linea_height#/2, linea_height#/2); currentpicture := currentpicture shifted (0.10wd + linea_width/2, 0); fi; fet_endchar; enddef; % parameterized punctum inclinatum def inclinatum_char(expr verbose_name, internal_name, ly_name, small, stropha, auctum) = fet_beginchar(verbose_name, internal_name, ly_name) save ht, alpha; alpha# = 35; if small: ht# = 0.50 noteheight#; else: ht# = 0.80 noteheight#; fi; draw_diamond_head (ht#, 0, 0, alpha#, false); if stropha: pickup pencircle xscaled (0.25*head_height) yscaled (0.55*head_height) rotated alpha#; save za, off_angle; pair za; off_angle := 15; za = (0, -0.25*head_height) rotated -(alpha# + off_angle) shifted (0.48 head_width, -0.02 head_width); undraw za; fi; if auctum: pickup pencircle scaled stafflinethickness; save za, zb, zc; pair za, zb, zc; za = (0, -0.5 head_height + stafflinethickness); zb = 0.6 (za + zc); zc = za + (0.52 head_width, 0); draw za{(0,-1) rotated alpha#} .. {right}zb{right} .. {(0,1) rotated -alpha#}zc; fi; fet_endchar; enddef; % punctum punctum_char("Ed. Vat. punctum", "vaticana_punctum", "vatpunctumhead", false, false, false, false, false, false, false, false, false, false, 1.0); % punctum cavum (for OpusTeX compatibility) punctum_char("Ed. Vat. punctum cavum", "vaticana_punctum_cavum", "vatpunctumcavumhead", false, false, false, true, false, false, false, false, false, false, 1.0); % linea punctum (for OpusTeX compatibility) punctum_char("Ed. Vat. linea punctum", "vaticana_linea_punctum", "vatlineapunctumhead", false, false, true, false, false, false, false, false, false, false, 1.0); % linea punctum cavum (for OpusTeX compatibility) punctum_char("Ed. Vat. linea punctum cavum", "vaticana_linea_punctum_cavum", "vatlineapunctumcavumhead", false, false, true, true, false, false, false, false, false, false, 1.0); % punctum inclinatum inclinatum_char("Ed. Vat. inclinatum", "vaticana_inclinatum", "vatinclinatumhead", false, false, false); % pes lower punctum punctum_char("Ed. Vat. pes lower punctum", "vaticana_lpes", "vatlpeshead", false, false, false, false, true, false, true, false, false, false, 1.0); % pes lower punctum punctum_char("Ed. Vat. pes var lower punctum", "vaticana_vlpes", "vatvlpeshead", false, false, false, false, true, false, true, false, false, true, 1.0); % pes upper punctum punctum_char("Ed. Vat. pes upper punctum", "vaticana_upes", "vatupeshead", false, false, false, false, true, false, false, false, false, false, 1.0); % pes upper punctum (shifted variation) % % This note head is used instead of the regular pes upper punctum to % avoid collision with the lower punctum note of the pes when the upper % punctum sits directly on top of the lower punctum. % punctum_char("Ed. Vat. var pes upper punctum", "vaticana_vupes", "vatvupeshead", false, false, false, false, true, false, false, false, true, false, 1.0); % small punctum as used in epiphonus punctum_char("Ed. Vat. plica", "vaticana_plica", "vatplicahead", false, false, false, false, false, false, false, false, false, false, 0.6); % excentric punctum as used in epiphonus punctum_char("Ed. Vat. epiphonus", "vaticana_epiphonus", "vatepiphonushead", false, false, false, false, false, false, true, true, false, false, 1.0); % excentric punctum as used in epiphonus (shifted variation) % % This note head is used instead of the regular epiphonus punctum to % avoid collision with the plica head when the plica sits directly on % top of the lower head. % punctum_char("Ed. Vat. var epiphonus", "vaticana_vepiphonus", "vatvepiphonushead", false, false, false, false, false, false, true, true, false, true, 1.0); % small punctum as used in cephalicus punctum_char("Ed. Vat. rev. plica", "vaticana_reverse_plica", "vatrplicahead", false, false, false, false, false, false, true, false, false, false, 0.6); % excentric punctum as used in cephalicus; without left stem punctum_char("Ed. Vat. cephalicus", "vaticana_inner_cephalicus", "vatinnercephalicushead", false, false, false, false, false, false, false, true, false, false, 1.0); % excentric punctum as used in cephalicus; with left stem punctum_char("Ed. Vat. cephalicus", "vaticana_cephalicus", "vatcephalicushead", true, false, false, false, false, false, false, true, false, false, 1.0); % quilisma fet_beginchar("Ed. Vat. quilisma", "vaticana_quilisma", "vatquilismahead") save b_h,a_w; a_b:=1.54; % b_h*a_b/a_w = wd/ht b_h:=0.85; a_w:=1.09; save a, beta, ht, wd; ht# = noteheight#; 2beta# = ht#*b_h; a# = beta#*a_b; wd# = 2a# / a_w; set_char_box(0, 0.42wd#, 0.28 ht#, 0.36 ht#); black_notehead_width# := wd#; define_pixels(ht, wd); pickup pencircle xscaled stafflinethickness yscaled 0.44ht; lft x1 = 0.00wd; bot y1 = -0.28ht; x2 = 0.11wd; y2 = -0.14ht; x3 = 0.12wd; y3 = +0.03ht; x4 = 0.25wd; y4 = -0.09ht; x5 = 0.26wd; y5 = +0.08ht; x6 = 0.40wd; y6 = -0.04ht; rt x7 = 0.42wd; top y7 = +0.36ht; draw z1 .. z2 -- z3 .. z4 -- z5 .. z6 -- z7; fet_endchar; % solesmes punctum inclinatum parvum inclinatum_char("Solesmes punctum inclinatum parvum", "solesmes_incl_parvum", "solinclparvumhead", true, false, false); % solesmes punctum auctum ascendens punctum_char("Solesmes punctum auctum ascendens", "solesmes_auct_asc", "solauctaschead", false, false, false, false, false, true, true, false, false, false, 1.0); % solesmes punctum auctum descendens punctum_char("Solesmes punctum auctum descendens", "solesmes_auct_desc", "solauctdeschead", false, false, false, false, false, true, false, false, false, false, 1.0); % solesmes punctum inclinatum auctum inclinatum_char("Solesmes punctum incl. auctum", "solesmes_incl_auctum", "solpunctuminclinatumauctumhead", false, false, true); % solesmes stropha inclinatum_char("Solesmes stropha", "solesmes_stropha", "solstrophahead", false, true, false); % solesmes stropha aucta inclinatum_char("Solesmes stropha aucta", "solesmes_stropha_aucta", "solstrophaauctahead", false, true, true); % solesmes oriscus fet_beginchar("Solesmes oriscus", "solesmes_oriscus", "soloriscushead") save b_h, a_w; a_b := 1.54; % b_h*a_b/a_w = wd/ht b_h := 0.85; a_w := 1.09; save a, beta, ht, wd; ht# = noteheight#; 2beta# = ht# * b_h; a# = beta# * a_b; wd# = 2a# / a_w; black_notehead_width# := wd#; save convexity; convexity# = +0.05ht#; define_pixels(ht, wd, convexity); pickup pencircle xscaled blot_diameter yscaled 0.50ht; lft x1 = 0.00wd; y1 = -convexity; x2 = 0.16wd; y2 = +convexity; x3 = 0.33wd; y3 = -convexity; rt x4 = 0.50wd; y4 = +convexity; draw z1 .. z2 .. z3 .. z4; set_char_box(0.00wd#, 0.50wd#, 0.25ht# + convexity#, 0.25ht# + convexity#); fet_endchar; %%%%%%%% % % % % EDITIO MEDICAEA % % % % inclinatum fet_beginchar("Ed. Med. inclinatum", "medicaea_inclinatum", "medinclinatumhead") draw_diamond_head (1.2staff_space#, 0, 0, 35, false); fet_endchar; % parametrized punctum def punctum_char (expr verbose_name, internal_name, ly_name, left_up_stem, left_down_stem) = fet_beginchar(verbose_name, internal_name, ly_name) save a, beta, ht, wd; ht# = 2 staff_space#; wd# = ht#; black_notehead_width# := wd#; define_pixels(ht, wd); pickup pencircle xscaled blot_diameter yscaled 0.50ht; z1 = (0.00wd + blot_diameter/2, 0); z2 = (0.4wd - blot_diameter/2, 0); draw z1 .. z2; pickup pencircle xscaled stafflinethickness yscaled blot_diameter; if left_down_stem: z4=(0.00wd + stafflinethickness/2, blot_diameter/2); z5=(0.00wd + stafflinethickness/2, - 1.25ht); draw z4 .. z5; set_char_box(0.0, 0.4wd#, 1.25ht#, 0.25ht#); elseif left_up_stem: z4=(0.00wd + stafflinethickness/2, blot_diameter/2); z5=(0.00wd + stafflinethickness/2, + 1.25ht); draw z4 .. z5; set_char_box(0.0, 0.4wd#, 0.25ht#, 1.25ht#); else: set_char_box(0.0, 0.4wd#, 0.25ht#, 0.25ht#); fi; fet_endchar; enddef; % punctum punctum_char("Ed. Med. punctum", "medicaea_punctum", "medpunctumhead", false, false); % left up-stemmed punctum punctum_char("Ed. Med. reverse virga", "medicaea_rvirga", "medrvirgahead", true, false); % virga (i.e. left down-stemmed punctum) punctum_char("Ed. Med. virga", "medicaea_virga", "medvirgahead", false, true); %%%%%%%% % % % % HUFNAGEL % % % % punctum % parametrized punctum def punctum_char (expr verbose_name, internal_name, ly_name, down_stem) = fet_beginchar(verbose_name, internal_name, ly_name) save alpha; alpha# = 55; draw_diamond_head (staff_space#, 0, 0, alpha#, false); if down_stem: pickup pencircle xscaled blot_diameter yscaled (0.7*staff_space) rotated -alpha#; save za, zb; pair za, zb; za = (head_width/2, 0); bot zb = (head_width/2, -1.5staff_space); draw za -- zb; set_char_box (0, head_width#, 1.5staff_space#, head_height#/2); fi; fet_endchar; enddef; % punctum punctum_char("Hufnagel punctum", "hufnagel_punctum", "hufpunctumhead", false) % virga punctum_char("Hufnagel virga", "hufnagel_virga", "hufvirgahead", true) % pes lower punctum fet_beginchar("Hufnagel pes lower punctum", "hufnagel_lpes", "huflpeshead") save width, height, alpha; width# = 2*staff_space#; height# = 0.7*staff_space#; alpha# = 35; set_char_box(0, width#, height#/2, height#/2); pickup pencircle scaled stafflinethickness; define_pixels(width, height); rt x3 = -lft x1 = width/2; y2 = y3 = height/2; y1 = y4 = -height/2; tand(alpha#) * (y2 - y1) = x2 - x1 = x3 - x4; filldraw z1 -- z2 -- z3 -- z4 -- cycle; currentpicture := currentpicture shifted (width/2, 0); fet_endchar; fet_endgroup ("noteheads")