X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Fparmesan-heads.mf;h=a821faa93812e37c0c2d682fc31a46208eedd9fd;hb=843b5cd769205cb24ac30cf179798b487a1173f1;hp=ac4b99d0cd1d3c3ec4c654a185f6bb55cb2b011c;hpb=569f6d76cb725b6d99b4239719d453fdf232b9ab;p=lilypond.git diff --git a/mf/parmesan-heads.mf b/mf/parmesan-heads.mf index ac4b99d0cd..a821faa938 100644 --- a/mf/parmesan-heads.mf +++ b/mf/parmesan-heads.mf @@ -3,7 +3,7 @@ % % source file of LilyPond's pretty-but-neat music font % -% (c) 2001--2003 Juergen Reuter +% (c) 2001--2004 Juergen Reuter % % Neo-mensural heads originally by % Christian Mondrup and Mats Bengtsson @@ -33,6 +33,7 @@ fet_begingroup ("noteheads") % * height: Should match the top edge of the head. Affects vertical % collision handling. % +% TODO: should depth/height include appendages/stems? overdone_heads = 0; noteheight# := staff_space# + (1 + overdone_heads)*stafflinethickness#; @@ -48,7 +49,7 @@ define_pixels(noteheight); % % -def draw_neo_brevis(expr brevwid) = +def draw_neomensural_brevis(expr brevwid) = save beamheight, head_width; save holeheight, stem_width; save serif_size, serif_protrude; @@ -89,8 +90,8 @@ def draw_neo_brevis(expr brevwid) = enddef; -def draw_neo_left_stemmed_head (expr wid) = - draw_neo_brevis(wid); +def draw_neomensural_left_stemmed_head (expr wid) = + draw_neomensural_brevis(wid); x6 = x7 = head_width - stem_width/2; y6 = y5; @@ -99,16 +100,16 @@ def draw_neo_left_stemmed_head (expr wid) = draw z6 .. z7; enddef; -fet_beginchar("Left stemmed notehead", "lneo_mensural", "mensuralleftstemmedhead"); - draw_neo_left_stemmed_head (2 staff_space#); +fet_beginchar("Left stemmed notehead", "lneomensural", "mensuralleftstemmedhead"); + draw_neomensural_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); +def draw_neomensural_longa (expr wid) = + draw_neomensural_brevis(wid); save theta; x7r = head_width; @@ -123,29 +124,34 @@ def draw_neo_longa (expr wid) = penlabels(6,7); enddef; +fet_beginchar("Left stemmed notehead", "lneomensural", "mensuralleftstemmedhead"); + draw_neomensural_left_stemmed_head (2 staff_space#); +fet_endchar; + % % 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_beginchar("Neo-mensural maxima notehead", "-3neomensural", "neomensuralmaximahead"); + draw_neomensural_longa (2.6 staff_space#) fet_endchar; -fet_beginchar("Longa notehead", "-2neo_mensural", "mensurallongahead"); - draw_neo_longa (2 staff_space#) +fet_beginchar("Neo-mensural longa notehead", "-2neomensural", "neomensurallongahead"); + draw_neomensural_longa (2 staff_space#) fet_endchar; -fet_beginchar("Brevis notehead", "-1neo_mensural", "mensuralbrevishead") - draw_neo_brevis(2 staff_space#); +fet_beginchar("Neo-mensural brevis notehead", "-1neomensural", "neomensuralbrevishead") + draw_neomensural_brevis(2 staff_space#); fet_endchar; -def draw_neo_mensural_black_head (expr wid) = +def draw_neomensural_black_head (expr wid, height) = save head_width; head_width# = wid; - set_char_box (0, head_width#, noteheight#/2, noteheight#/2); + set_char_box (0, head_width#, height/2, height/2); + charwx := head_width# / 2; - charwy := noteheight# / 2; + charwy := height / 2; y3 = y1 =0; x2 = x4 = (x1 + x3) /2; @@ -159,15 +165,15 @@ def draw_neo_mensural_black_head (expr wid) = filldraw z1 -- z2 -- z3 -- z4 -- cycle; enddef; -def draw_neo_mensural_open_head (expr wid)= - draw_neo_mensural_black_head (wid); +def draw_neomensural_open_head (expr wid, height)= + draw_neomensural_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; + hole_widthSW + 2.6 linethickness = diamSW; (z7 + z5)/2 = (w/2, 0); (z8 + z6)/2 = (w/2, 0); @@ -179,36 +185,40 @@ def draw_neo_mensural_open_head (expr wid)= unfill z5 -- z6 -- z7 -- z8 --cycle; enddef; -fet_beginchar("Neo-mensural open head","0neo_mensural","neomensuralsemibrevishead") - draw_neo_mensural_open_head (staff_space#); +fet_beginchar("Neo-mensural open head","0neomensural","neomensuralsemibrevishead") + draw_neomensural_open_head (staff_space#, noteheight#); fet_endchar; -fet_beginchar("Harmonic notehead (Neo-mensural open)","0harmonic","harmonichead") - draw_neo_mensural_open_head (staff_space#); +% +% WL says the thin lines should be thinner. +% + +fet_beginchar("Harmonic notehead (Neo-mensural open)", + "0harmonic","harmonichead") + + draw_neomensural_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#); +fet_beginchar("Neo-mensural open head","1neomensural","neomensuralminimahead") + draw_neomensural_open_head (staff_space#, noteheight#); fet_endchar; -fet_beginchar("Neo-mensural black head","2neo_mensural","neomensuralsemiminimahead") - draw_neo_mensural_black_head (staff_space#); +fet_beginchar("Neo-mensural black head","2neomensural","neomensuralsemiminimahead") + draw_neomensural_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); +def draw_mensural_brevis (expr wid) = + % TODO. For the moment, fall back to draw_neomensural_brevis. + draw_neomensural_brevis(wid); enddef; -def draw_left_stemmed_head (expr wid) = - draw_brevis(wid); - save theta; - +def draw_mensural_left_stemmed_head (expr wid) = + draw_mensural_brevis(wid); x6 = x7 = stem_width/2; y6 = y5; y7 = y5 - 2.25staff_space; @@ -216,13 +226,8 @@ def draw_left_stemmed_head (expr wid) = 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); - +def draw_mensural_longa (expr wid) = + draw_mensural_brevis(wid); x6 = x7 = head_width - stem_width/2; y6 = y5; y7 = y5 - 2.25staff_space; @@ -230,33 +235,37 @@ def draw_longa (expr wid) = draw z6 .. z7; enddef; -fet_beginchar("Maxima notehead", "-3mensural", "mensuralmaximahead"); - draw_longa (2.0 staff_space#) +fet_beginchar("Mensural left stemmed notehead", "lmensural", "mensuralleftstemmedhead"); + draw_mensural_left_stemmed_head (staff_space#) fet_endchar; -fet_beginchar("Longa notehead", "-2mensural", "mensurallongahead"); - draw_longa (staff_space#) +fet_beginchar("Mensural maxima notehead", "-3mensural", "mensuralmaximahead"); + draw_mensural_longa (2.0 staff_space#) fet_endchar; -fet_beginchar("Brevis notehead", "-1mensural", "mensuralbrevishead") - draw_brevis(staff_space#); +fet_beginchar("Mensural longa notehead", "-2mensural", "mensurallongahead"); + draw_mensural_longa (staff_space#) +fet_endchar; + +fet_beginchar("Mensural brevis notehead", "-1mensural", "mensuralbrevishead") + draw_mensural_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#; + charwy := head_height# / 2 - linethickness#; + define_pixels(head_width, head_height); pickup pencircle - xscaled (min(blot_diameter, pen_w * head_width)) - yscaled (min(blot_diameter, pen_h * head_width)) + xscaled (max(blot_diameter, pen_w * head_width)) + yscaled (max(blot_diameter, pen_h * head_width)) rotated -angle; %% FIXME: replace "xpart (top z2)" (and, analogously, @@ -361,7 +370,7 @@ def punctum_char (expr verbose_name, internal_name, ly_name, fi define_pixels(convexity, excentricity, yoffs, ht, wd); - pickup pencircle scaled stafflinethickness; + pickup pencircle scaled linethickness; path p; save height, yoffs_bt; @@ -378,9 +387,9 @@ def punctum_char (expr verbose_name, internal_name, ly_name, save box_top, box_bt; if auctum: - z1a = (0.00wd + stafflinethickness/2, yoffs_bt); + z1a = (0.00wd + linethickness/2, yoffs_bt); z2a = (0.21wd, yoffs_bt + 1.0*convexity); - z3a = (0.42wd - stafflinethickness/2, + z3a = (0.42wd - linethickness/2, yoffs_bt + 1.0*excentricity); box_top# = height# + yoffs_bt# + max(0, 1.0*convexity#, 1.0*excentricity#); @@ -389,10 +398,10 @@ def punctum_char (expr verbose_name, internal_name, ly_name, p = z1a .. {right}z2a .. {direction}z3a -- z3b{-direction} .. z2b{left} .. z1b -- cycle; elseif excentric: - z1a = (0.00wd + stafflinethickness/2, + z1a = (0.00wd + linethickness/2, yoffs_bt - 1.0*convexity); z2a = (0.08wd, yoffs_bt + 1.4*convexity); - z3a = (0.42wd - stafflinethickness/2, + z3a = (0.42wd - linethickness/2, yoffs_bt - 1.0*convexity); box_top# = height# + yoffs_bt# + max(-1.0*convexity#, 1.4*convexity#, 0); @@ -401,9 +410,9 @@ def punctum_char (expr verbose_name, internal_name, ly_name, p = z1a{direction} .. z2a{right} .. z3a -- z3b .. {left}z2b .. {-direction}z1b -- cycle; else: - z1a = (0.00wd + stafflinethickness/2, yoffs_bt); + z1a = (0.00wd + linethickness/2, yoffs_bt); z2a = (0.21wd, yoffs_bt + 1.0*convexity); - z3a = (0.42wd - stafflinethickness/2, yoffs_bt); + z3a = (0.42wd - linethickness/2, yoffs_bt); box_top# = height# + yoffs_bt# + max(0, 1.0*convexity#); box_bt# = yoffs_bt# + @@ -418,18 +427,18 @@ def punctum_char (expr verbose_name, internal_name, ly_name, filldraw p; fi; - pickup pencircle scaled 0.6stafflinethickness; + pickup pencircle scaled 0.6linethickness; save stem_bt; if left_stem: - z5=(0.00wd + 0.6stafflinethickness/2, yoffs); - z6=(0.00wd + 0.6stafflinethickness/2, yoffs - 1.1ht); + z5=(0.00wd + 0.6linethickness/2, yoffs); + z6=(0.00wd + 0.6linethickness/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); + z5=(0.42wd - 0.6linethickness/2, yoffs); + z6=(0.42wd - 0.6linethickness/2, yoffs - 1.5ht); draw z5 -- z6; stem_bt# = yoffs# - 1.5ht#; else: @@ -437,12 +446,12 @@ def punctum_char (expr verbose_name, internal_name, ly_name, fi; set_char_box(0.00wd#, 0.42wd#, - max(0, -box_bt#, -stem_bt#) + stafflinethickness#/2, - max(0, box_top#) + stafflinethickness#/2); + max(0, -box_bt#, -stem_bt#) + linethickness#/2, + max(0, box_top#) + linethickness#/2); if linea: save linea_width, linea_height; - linea_width# = 0.6 stafflinethickness#; + linea_width# = 0.6 linethickness#; linea_height# = 0.7 ht#; define_pixels (linea_width, linea_height); draw_block ((-0.10wd - linea_width/2, @@ -492,10 +501,10 @@ def inclinatum_char(expr verbose_name, internal_name, ly_name, fi; if auctum: - pickup pencircle scaled stafflinethickness; + pickup pencircle scaled linethickness; save za, zb, zc; pair za, zb, zc; - za = (0, -0.5 head_height + stafflinethickness); + za = (0, -0.5 head_height + linethickness); zb = 0.6 (za + zc); zc = za + (0.52 head_width, 0); draw za{(0,-1) rotated alpha#} .. {right}zb{right} .. @@ -505,45 +514,45 @@ def inclinatum_char(expr verbose_name, internal_name, ly_name, enddef; % punctum -punctum_char("Ed. Vat. punctum", "vaticana_punctum", "vatpunctumhead", +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", +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", +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", +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", +inclinatum_char("Ed. Vat. inclinatum", "vaticana-inclinatum", "vatinclinatumhead", false, false, false); % pes lower punctum -punctum_char("Ed. Vat. pes lower punctum", "vaticana_lpes", "vatlpeshead", +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", +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", +punctum_char("Ed. Vat. pes upper punctum", "vaticana-upes", "vatupeshead", false, false, false, false, true, false, false, false, false, false, 1.0); @@ -553,18 +562,18 @@ punctum_char("Ed. Vat. pes upper punctum", "vaticana_upes", "vatupeshead", % 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", +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", +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", +punctum_char("Ed. Vat. epiphonus", "vaticana-epiphonus", "vatepiphonushead", false, false, false, false, false, false, true, true, false, false, 1.0); @@ -574,29 +583,29 @@ punctum_char("Ed. Vat. epiphonus", "vaticana_epiphonus", "vatepiphonushead", % 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", +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", +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", +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", +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") +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; @@ -611,7 +620,7 @@ fet_beginchar("Ed. Vat. quilisma", "vaticana_quilisma", "vatquilismahead") black_notehead_width# := wd#; define_pixels(ht, wd); - pickup pencircle xscaled stafflinethickness yscaled 0.44ht; + pickup pencircle xscaled linethickness yscaled 0.44ht; lft x1 = 0.00wd; bot y1 = -0.28ht; x2 = 0.11wd; y2 = -0.14ht; x3 = 0.12wd; y3 = +0.03ht; @@ -623,39 +632,39 @@ fet_beginchar("Ed. Vat. quilisma", "vaticana_quilisma", "vatquilismahead") fet_endchar; % solesmes punctum inclinatum parvum -inclinatum_char("Solesmes punctum inclinatum parvum", "solesmes_incl_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", +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", +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", +inclinatum_char("Solesmes punctum incl. auctum", "solesmes-incl-auctum", "solpunctuminclinatumauctumhead", false, false, true); % solesmes stropha -inclinatum_char("Solesmes stropha", "solesmes_stropha", +inclinatum_char("Solesmes stropha", "solesmes-stropha", "solstrophahead", false, true, false); % solesmes stropha aucta -inclinatum_char("Solesmes stropha aucta", "solesmes_stropha_aucta", +inclinatum_char("Solesmes stropha aucta", "solesmes-stropha-aucta", "solstrophaauctahead", false, true, true); % solesmes oriscus -fet_beginchar("Solesmes oriscus", "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 @@ -693,7 +702,7 @@ fet_endchar; % % inclinatum -fet_beginchar("Ed. Med. inclinatum", "medicaea_inclinatum", +fet_beginchar("Ed. Med. inclinatum", "medicaea-inclinatum", "medinclinatumhead") draw_diamond_head (1.2staff_space#, 0, 0, 35, false); fet_endchar; @@ -718,17 +727,17 @@ def punctum_char (expr verbose_name, internal_name, ly_name, draw z1 .. z2; pickup pencircle - xscaled stafflinethickness + xscaled linethickness yscaled blot_diameter; if left_down_stem: - z4=(0.00wd + stafflinethickness/2, blot_diameter/2); - z5=(0.00wd + stafflinethickness/2, - 1.25ht); + z4=(0.00wd + linethickness/2, blot_diameter/2); + z5=(0.00wd + linethickness/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); + z4=(0.00wd + linethickness/2, blot_diameter/2); + z5=(0.00wd + linethickness/2, + 1.25ht); draw z4 .. z5; set_char_box(0.0, 0.4wd#, 0.25ht#, 1.25ht#); else: @@ -739,15 +748,15 @@ def punctum_char (expr verbose_name, internal_name, ly_name, enddef; % punctum -punctum_char("Ed. Med. punctum", "medicaea_punctum", "medpunctumhead", +punctum_char("Ed. Med. punctum", "medicaea-punctum", "medpunctumhead", false, false); % left up-stemmed punctum -punctum_char("Ed. Med. reverse virga", "medicaea_rvirga", "medrvirgahead", +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", +punctum_char("Ed. Med. virga", "medicaea-virga", "medvirgahead", false, true); %%%%%%%% @@ -783,13 +792,13 @@ def punctum_char (expr verbose_name, internal_name, ly_name, enddef; % punctum -punctum_char("Hufnagel punctum", "hufnagel_punctum", "hufpunctumhead", false) +punctum_char("Hufnagel punctum", "hufnagel-punctum", "hufpunctumhead", false) % virga -punctum_char("Hufnagel virga", "hufnagel_virga", "hufvirgahead", true) +punctum_char("Hufnagel virga", "hufnagel-virga", "hufvirgahead", true) % pes lower punctum -fet_beginchar("Hufnagel pes lower punctum", "hufnagel_lpes", "huflpeshead") +fet_beginchar("Hufnagel pes lower punctum", "hufnagel-lpes", "huflpeshead") save width, height, alpha; width# = 2*staff_space#; height# = 0.7*staff_space#; @@ -797,7 +806,7 @@ fet_beginchar("Hufnagel pes lower punctum", "hufnagel_lpes", "huflpeshead") set_char_box(0, width#, height#/2, height#/2); - pickup pencircle scaled stafflinethickness; + pickup pencircle scaled linethickness; define_pixels(width, height); rt x3 = -lft x1 = width/2;