% feta-klef.mf -- implement Clefs -*-Fundamental-*-
-%
+%
% part of LilyPond's pretty-but-neat music font
%
% source file of the Feta (not the Font-En-Tja) music font
-%
-% (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>,
-% Jan Nieuwenhuizen <janneke@gnu.org>
+%
+% (c) 1997--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>,
+% Jan Nieuwenhuizen <janneke@gnu.org>,
+% Juergen Reuter <reuter@ipd.uka.de>
-fet_begingroup("clefs");
+fet_begingroup ("clefs");
%
-% [Ross] says that clefs take 1 staff_space space on the left and right
+% [Wanske] says the bulbs should be positioned about 1/4 right of the
+% `arrow'.
+%
+% TODO: The hair-curve at z6r looks a little awkward.
%
-def set_horizontal_spacing =
- save left_space ,right_space;
- left_space# = 0;
- right_space# = 0;
-enddef;
-
-% [Wanske] says the bulbs should be positioned about 1/4 right of the
-% "arrow"
-def draw_c_clef (expr reduction) =
- save hair, norm, reduced_il, right_edge;
- reduced_il#=staff_space#*reduction;
- norm#:=2/3reduced_il#;
- hair#:=1/6norm#;
-
- set_horizontal_spacing;
- right_edge# = 15/4norm#+2hair#;
-
- set_char_box (left_space#, right_edge# + right_space#,
- 2 reduced_il#, 2 reduced_il#);
- define_pixels (hair,norm,reduced_il, right_edge);
-
- draw_block ((0,-d), (3/4norm+1/2hair,h));
- draw_block ((3/4norm+2hair,-d),
- (3/4norm+7/2hair,h));
-
+def draw_c_clef (expr reduction) =
+ save hair, norm, reduced_ss, right_edge;
save xoff;
- xoff=3/4norm+7/2hair;
- penpos1(hair,-90);
- z1l=(xoff+norm+hair,h);
- penpos2(norm-3/2hair,180);
- z2l=(right_edge,h/2);
- penpos3(hair,90);
- z3=(((right_edge -xoff)/2)+xoff,2hair);
-
- penpos4(hair,0);
- z4=(xoff+1/2norm+1/2hair,reduced_il-hair);
-
- penpos5(4hair,0);
- z5=(xoff+5/4hair,0);
-
- penpos6(norm-hair,90);
- z6=(xoff+3/4norm,0);
- penpos7(hair,-90);
- z7r=(x1,-d);
+ reduced_ss# = staff_space# * reduction;
+ norm# := 2/3 reduced_ss#;
+ hair# := 0.06 reduced_ss# + 0.5 linethickness#;
+ right_edge# = 15/4 norm# + 2 hair#;
+ define_pixels (norm, reduced_ss, right_edge);
+ define_whole_vertical_blacker_pixels (hair);
- save t; t=0.833;
- save p; path p;
- p = z5l..z4l{up}..z4r{down}..z3r{right}..tension t..z2r{up}
- ..tension t..z1r{left}..z1l{right}..tension t..z2l{down}
- ..z3l{left}..z6r..z5r{down};
- pickup pencircle scaled 1pt#;
- filldraw p..(reverse p yscaled -1)..cycle;
- penlabels (1,2,3,4,5,6);
+ set_char_box (0, right_edge#, 2 reduced_ss#, 2 reduced_ss#);
- % ugh, should be bulb, not flare?
- draw_flare(z1l,180,90,hair,norm-1/2hair);
- draw_flare(z7r,180,-90,hair,norm-1/2hair);
- enddef;
-
-fet_beginchar ("C clef", "C", "altoclef")
- if test = 1:
- draw_staff (-2,2, 0.0);
+ % make unreduced glyph fit exactly into five staff lines
+ if reduction = 1:
+ h := d := 2 staff_space_rounded;
fi;
- draw_c_clef (1.0);
-fet_endchar;
-fet_beginchar ("C clef", "C_change", "caltoclef")
- if test = 1:
- draw_staff (-2,2, 0.0);
- fi;
- draw_c_clef (.8);
-fet_endchar;
+ % assure that the gap between the left and right stem
+ % has the same number of pixels as the thickness of the right
+ % stem
+ draw_block ((0, -d + feta_shift),
+ (3/4 norm + 1/2 hair, h));
+ draw_block ((3/4 norm + 1/2 hair + hround (3/2 hair), -d + feta_shift),
+ (3/4 norm + 1/2 hair + 2 hround (3/2 hair), h));
-%
-% Inspired by Baerenreiter and Breitkopf
-%
-% FIXME: dims
-% FIXME: right vertical tangent seems to be lower than the F-line
-% FIXME: bulb curve smoothly into "long curve" on the inside
-%
-%
-% [Wanske] says that the extreme x point should be exactly between
-% the dots, but her picture shows that the extreme is ~ 0.2 ss lower
+ % assure symmetry
+ h := h - feta_shift;
-def draw_bass_clef(expr exact_center, reduction) =
- save reduced_il, left_tilt, left_thick, ball_to_right;
- reduced_il# = staff_space# * reduction;
-
- set_horizontal_spacing;
- ball_to_right# = 2.1 reduced_il#;
- set_char_box(left_space# +
- - xpart exact_center,
- right_space# +
- xpart exact_center + ball_to_right# + 7/12 reduced_il#,
- - ypart exact_center + 2.5 reduced_il#,
- ypart exact_center +reduced_il#);
-
- define_pixels(reduced_il, ball_to_right);
- left_tilt = 5;
- left_thick = .25 reduced_il;
-
- x1r - x1l = left_thick;
- z1l = (hround_pixels(xpart exact_center),
- vround_pixels(ypart exact_center));
-
- y2 = reduced_il;
-
- x3l - x1l = ball_to_right;
- x2 = .5 [x1,x3];
- x3l - x3r = .48 reduced_il;
- y3l = -0.05 staff_space;
- x4 = x1l - stafflinethickness;
- y4 = -2.2 reduced_il;
- z5 = (x3l + 1/3 reduced_il, .5 reduced_il);
-
- penpos1(whatever, left_tilt);
- penpos2(1.2 stafflinethickness, -90);
- penpos3(whatever, 185);
- penpos4(stafflinethickness, 135);
-
- draw_bulb(1, z1r, z1l, .45 reduced_il, 1.0);
-
-
- fill z1r{up} .. z2r{right} .. tension 1.0 .. z3r{down} .. {curl 0}
- simple_serif(z4r, z4l, 90) {curl 0}
- .. z3l{up} .. tension 0.9 .. z2l{left}
- .. z1l{dir (-90 + left_tilt)} -- cycle;
- labels(2,4);
- penlabels(1,2,3,4);
-
- save dot_diam;
- 2 dot_diam = reduction* (staff_space - stafflinethickness);
- pickup pencircle scaled dot_diam;
- draw z5;
- draw z5 yscaled -1;
-enddef;
+ pickup feta_fillpen;
+ xoff = 3/4 norm + 1/2 hair + 2 hround (3/2 hair);
+ z5l = (xoff - 3/4 hair, 0);
+ z5r = (x4, 0);
+ penpos1 (hair - pen_top - pen_bot, -90);
+ top z1l = (xoff + norm + hair, h);
-fet_beginchar("F clef ", "F", "bassclef")
- if test = 1:
- draw_staff(-3,1, 0.0);
- fi;
- draw_bass_clef((.5 staff_space#, 0), 1.0);
-fet_endchar;
-fet_beginchar("F clef (reduced)", "F_change", "cbassclef")
- draw_bass_clef((.4 staff_space#, 0),0.8);
-fet_endchar;
+ penpos2 (hround (norm - 3/2 hair) - pen_lft - pen_rt, 180);
+ rt z2l = (w, h / 2);
+ penpos3 (hair - pen_top - pen_bot, 90);
+ bot z3l = ((right_edge - xoff) / 2 + xoff,
+ vround (.5 norm - 1.5 hair));
+ penpos4 (hair - pen_lft - pen_rt, 0);
+ top z4 = (xoff + 1/2 norm + 1/2 hair,
+ vfloor (reduced_ss - linethickness - .2 hair));
-%
-% Inspired by Baerenreiter
-%
-% FIXME bulb should curve (see bass clef)
-% FIXME start (inside) should be little thinner
-% FIXME parametrise.
-%
+ bot z6 = (xoff + 3/4 norm, vround (.5 norm - .5 hair));
-% Beste lezers, kijk,
-%
-% Een bolletje hebben we bij toeval allemaal wel eens getekend, maar begint u
-% toch eenvoudig. Eerst een eenvoudig kruis of herstellingsteken
-% en via de dubbelslag naar een voorzichtig vlaggetje, en heb geduld!
-% Ikzelf heb bijvoorbeeld over mijn eerste gave G-sleutel
-% 35 kilobyte metafont, 12 patchlevels, 0 vriendinnen en 45 dagen gedaan
-%
-% -- vrij naar Van Kooten & De Bie
-%
-
-def draw_gclef (expr exact_center, reduction)=
- save reduced_il, downstroke_dir, downstroke_angle, hair, center;
- save breapth_factor, inner_thick_end, thinness, thickness, thinnib;
- save inner_start_angle, thinness, thinpen;
- reduced_il# = staff_space# * reduction;
- define_pixels(reduced_il);
- pair downstroke_dir, center;
+ save t;
+ t = 0.833;
- center := (hround_pixels(xpart exact_center),
- vround_pixels(ypart exact_center));
+ save pat;
+ path pat;
- hair = .3 stafflinethickness;
- thinness = 1.3 stafflinethickness;
- downstroke_dir = (14, -75);
- breapth_factor = 11/7;
- inner_thick_end = 45;
- inner_start_angle = downstroke_angle - 43;
- thickness = .4 reduced_il - hair;
+ pat = z5l{curl 1}
+ .. z4l{up}
+ .. z4r{down}
+ .. z3r{right}
+ ..tension t.. z2r{up}
+ ..tension t.. flare_path (top z1l, 180, 90,
+ hair, hfloor (norm - 1/2 hair), -1)
+ ..tension t.. z2l{down}
+ .. z3l{left}
+ .. z6
+ .. z5r{down};
- thinnib = thinness - hair;
- thinpen = thinness;
- set_horizontal_spacing;
-
- set_char_box(
- left_space# +
- -xpart exact_center + 1.0 * breapth_factor* reduced_il#,
- right_space# +
- xpart exact_center + .66 breapth_factor* reduced_il#,
- -ypart exact_center + 3 * reduced_il#,
- ypart exact_center + 5 * reduced_il#);
-
- pickup pencircle scaled hair;
- downstroke_angle = angle downstroke_dir;
+ filldraw pat shifted (0, feta_shift)
+ -- reverse pat yscaled -1 shifted (0, -feta_eps)
+ -- cycle;
- z1 = center + whatever * dir (inner_start_angle);
- x1 = xpart center -.28 reduced_il;
-
- top z2r = center + (0,reduced_il + stafflinethickness/2);
-
- x4 = xpart center - .1 reduced_il;
- bot y4r = -(reduced_il + .5 stafflinethickness);
+ penlabels (1, 2, 3, 4, 5, 6);
- z3 = (z4 - center) rotated inner_thick_end + center;
-
- z5r = (- breapth_factor, .37)* reduced_il + center;
- penpos5(thickness, 135);
+ % ugh, should be bulb, not flare?
- z6 = center + whatever * downstroke_dir;
- y6 = ypart center + 2 reduced_il;
+ draw_staff (-2, 2, 0);
+enddef;
- z7l - z6 = whatever *(z5- z6) ;
- y7l = 3.5 reduced_il;
- z8r = .4 [z9r, z7r] + 1.5 stafflinethickness * dir 52;
- x9 = .7 [x10, x7r];
- top y9l = 5 reduced_il;
+fet_beginchar ("C clef", "C");
+ draw_c_clef (1.0);
+fet_endchar;
- y10 = 3. reduced_il;
- y11 = -11/7 reduced_il;
- y12 = ypart center - 18.5/7 reduced_il;
- x12 = x11 - 5 /7 reduced_il;
+fet_beginchar ("C clef", "C_change");
+ draw_c_clef (.8);
+fet_endchar;
- z13 = z12 + .6 reduced_il*(-1,1);
- (z10r - z10l) dotprod (unitvector downstroke_dir rotated 90) =
- thinnib;
+%
+% New bulb routine:
+%
+% Insert a brushed piece of the path, and draw the rest of the bulb
+% separately.
+%
+% The bulb has circular form. Neat merging of the bulb and brushed path
+% is done by playing with tension.
+%
- center - z10= whatever * downstroke_dir;
- center - z11 = whatever * downstroke_dir;
- center - z14 = .8 (center - z11);
- penpos1(thinnib, inner_start_angle);
- penpos2(thickness, 90);
- penpos3(thinnib, -90 + inner_thick_end);
- penpos4(thinnib, -90);
+def new_bulb (expr start_point, start_angle,
+ outer_tangent_point,
+ end_point, end_angle,
+ big_radius, bulb_radius, flare,
+ direction, turning_dir) =
+begingroup;
+ save pat, before, after;
+ save center;
+ save u, v;
+ path pat, before, after;
+ pair center;
+ clearxy;
- penpos7(thickness, 135);
- penpos8(1.5 thinnib, - 70 + angle downstroke_dir);
- penpos9(1.4 thickness, -80); % ugh
- penpos10(whatever, downstroke_angle + 10);
- penpos11(thinnib, downstroke_angle + 90);
- penpos14(thinnib, downstroke_angle + 90);
- penpos12(thinnib, -90);
- penpos13(3 thinnib, 180);
+ center = outer_tangent_point
+ + big_radius * dir (0);
+% + (big_radius - bulb_radius) * dir (-turning_dir * 90)
- filldraw z2l{right} .. z3l.. z4l{left} .. z5l{up} .. z7l{up}
- %.. z8l
- .. tension 1.2
- .. z9l & z9l ..
- {downstroke_dir}z10l --- z11l -- z11r --- z10r{- downstroke_dir}
- .. tension .8
- .. z9r & z9r{dir (downstroke_angle+ 40)} % ugh
- %.. z8r
- .. z7r{down} .. z5r{down} .. z4r{right}
- .. z3r .. z2r{left} ..
- tension .95 ..
- z1r -- z1l
- .. tension 0.85 ..cycle;
+ z1' = center + bulb_radius * dir (turning_dir * 180);
+ z2' = outer_tangent_point + flare * dir (0);
+ z3' = center + bulb_radius * dir (0);
+ z4' = center + bulb_radius * dir (turning_dir * 90);
+ z5' = center - 0.5 [big_radius, bulb_radius] * dir (turning_dir * 90);
- filldraw simple_serif(z1r, z1l, 90) -- cycle;
+ labels (1', 2', 3', 4', 5');
- filldraw z12r{left} .. z13r{up} -- z13l{down} .. z12l{right} .. cycle;
+ before := z3'{dir (turning_dir * 90)}
+ .. z4'{-dir (0)}
+ ..tension 1.1.. z1'{-dir (turning_dir* 90)};
+ after := z2'{dir (turning_dir * 90)}
+ .. end_point{dir (end_angle)};
+ (u, v) = before intersectiontimes after;
- draw_bulb(-1, z13l, lft z13r, 6/14 reduced_il, 1.0);
+ pat := start_point{dir (start_angle)}
+ .. outer_tangent_point{dir (-turning_dir * 90)}
+ ..tension 1.02.. z5'{dir (0)}
+ .. subpath (0, u) of before
+ .. subpath (v, infinity) of after;
- pickup pencircle scaled (thinpen);
- draw z10 --- z14 .. z11 .. tension 0.85 .. z12{left};
+ if direction = 0:
+ pat := reverse pat;
+ fi
- penlabels(range 1 thru 15);
+pat
+endgroup
enddef;
-fet_beginchar("G clef", "G", "trebleclef")
- if test = 1:
- draw_staff(-1,3, 0.0);
- fi;
- draw_gclef((1.7 staff_space#,0), 1.0);
-fet_endchar;
-fet_beginchar("G clef", "G_change", "ctrebleclef")
- draw_gclef((1.3 staff_space#,0), .8);
-fet_endchar;
-
-%%%%%%%%
%
+% There is some variation in the shape of bass clefs.
+%
+% * In some clefs the size of the swoosh tip almost reaches the
+% bottom staff line; in some it crosses the 2nd line from the bottom
+% with a small overshoot.
+%
+% The most popular design is where the X part of the tip is aligned
+% with the left bulb boundary, and the Y part ends on the 2nd
+% staffline exactly. This is what we do.
+%
+% * The diameter of the bulb is the width of the open space.
%
+% * The vertical center of the bulb can be on or slightly above the
+% staff line.
%
-% Editio Vaticana
+% * The vertical position of the dots can be symmetrical around the
+% staffline, centered in the staff space. The Baerenreiter SCS has
+% the bottom dot raised by approximately 0.1 staff space.
%
+% * Uncarefully set music may have overshoots at the top. We have none.
%
+% * It is not exactly clear where the vertical tangent at the right
+% of the swoosh should be.
%
-def draw_vaticana_do_clef(expr exact_center, reduction) =
- save reduced_il;
- reduced_il# = staff_space# * reduction;
-
- set_char_box(0.4reduced_il#, 0.4reduced_il#, 0, reduced_il#);
+def draw_bass_clef (expr exact_center, reduction) =
+ save reduced_ss, swoosh_width;
+ save right_thickness, right_offset, tip_protrude;
+ save dot_diam, bulb_y_offset, bulb_flare;
+ pair tip_protrude;
- define_pixels(reduced_il);
+ reduced_ss# = staff_space# * reduction;
+ 2.2 dot_diam# = reduction * (staff_space# - stafflinethickness#);
+ right_thickness# = 0.37 staff_space# + 1.2 linethickness#;
+ swoosh_width# = 2.1 reduced_ss#;
+ define_pixels (swoosh_width);
+ define_whole_pixels (reduced_ss);
+ define_whole_blacker_pixels (dot_diam, right_thickness);
- pickup pencircle xscaled stafflinethickness yscaled 0.6reduced_il;
+ right_offset = 0.05 staff_space;
+ bulb_y_offset := 0.075 staff_space;
+ bulb_flare := 2.5 linethickness;
+% tip_protrude := (-linethickness, -.2 staff_space);
+ tip_protrude := (0, 0);
- save za, zb, zc, zd, ze, zf;
- pair za, zb, zc, zd, ze, zf;
+ set_char_box (-xpart exact_center,
+ xpart exact_center + swoosh_width# + 7/12 reduced_ss#,
+ -ypart exact_center + 2.5 reduced_ss#,
+ ypart exact_center + reduced_ss#);
- za = exact_center + (-0.0reduced_il, -.45reduced_il);
- zb = exact_center + (-0.2reduced_il, -.50reduced_il);
- zc = exact_center + (-0.4reduced_il, -.25reduced_il);
- zd = exact_center + (-0.4reduced_il, +.25reduced_il);
- ze = exact_center + (-0.2reduced_il, +.50reduced_il);
- zf = exact_center + (-0.0reduced_il, +.45reduced_il);
- draw za .. zb .. zc -- % lower punctum
- zd .. ze .. zf; % upper punctum
-enddef;
+ y1 = bulb_y_offset;
+ x1 = 0;
+ x2 = .5 [x1, x3];
+ x2l = x2r = x2;
-fet_beginchar("Ed. Vat. do clef", "vaticana_do", "vatdoclef")
- if test = 1:
- draw_staff(-1,3, 0.0);
- fi;
- draw_vaticana_do_clef((0,0), 1.0);
-fet_endchar;
-fet_beginchar("Ed. Vat. do clef", "vaticana_do_change", "vatcdoclef")
- draw_vaticana_do_clef((0,0), 1.0); % no reduction
-fet_endchar;
+ y2l := vround_pixels (reduced_ss# + 0.5 linethickness#);
+ y2l - y2r = linethickness;
+ x3l - x1 = swoosh_width;
+ x3l - x3r = right_thickness;
-def draw_vaticana_fa_clef(expr exact_center, reduction) =
+ % optical correction: the top dot seems farther away if y3l = 0.
+ y3l = right_offset;
- save reduced_il, z;
- reduced_il# = staff_space# * reduction;
- define_pixels(reduced_il);
+ z4 = -(0, 2.0 reduced_ss) + tip_protrude;
- save za, zb, zc, zd, ze;
- pair za, zb, zc, zd, ze;
+ penpos3 (whatever, 185);
+ penpos4 (linethickness, 135);
- %stem
- pickup pencircle scaled stafflinethickness;
- xpart za = xpart zb =
- xpart exact_center + 0.4reduced_il;
- ypart za = ypart exact_center = ypart zb + 1.5reduced_il;
- draw za .. zb;
+ fill new_bulb (z2l, 180, z1, z2r, 0,
+ 0.45 reduced_ss, 0.4 reduced_ss,
+ bulb_flare, 1, 1)
+ .. z3r{down}
+ .. {curl 0}simple_serif (z4r, z4l, 90){curl 0}
+ .. z3l{up}
+ ..tension 0.9.. cycle;
- %left-handed punctum
- pickup pencircle xscaled stafflinethickness yscaled 0.5reduced_il;
- zc = exact_center +
- (+0.4reduced_il, -0.05reduced_il);
- zd = exact_center +
- (+0.2reduced_il, +0.05reduced_il);
- ze = exact_center +
- (+0.0reduced_il, +0.00reduced_il);
- draw zc .. zd .. ze;
+ pickup pencircle scaled dot_diam;
- %right-handed puncta as in do clef
- draw_vaticana_do_clef(
- exact_center +
- (+0.8reduced_il + 1.25stafflinethickness, 0),
- reduction);
+ lft x5 = hround (x3l + 1/3 reduced_ss - dot_diam / 2);
+ bot y5 = vfloor (.5 reduced_ss - dot_diam / 2);
+ z6 = z5 yscaled -1;
- set_char_box(0.5reduced_il#, 1.5reduced_il#, 0, reduced_il#);
-enddef;
+ % for symmetry
+ y5 := y5 + feta_shift;
+ drawdot z5;
+ drawdot z6;
-fet_beginchar("Ed. Vat. fa clef", "vaticana_fa", "vatfaclef")
- if test = 1:
- draw_staff(-1,3, 0.0);
- fi;
- draw_vaticana_fa_clef((0,0), 1.0);
-fet_endchar;
-fet_beginchar("Ed. Vat. fa clef", "vaticana_fa_change", "vatcfaclef")
- draw_vaticana_fa_clef((0,0), 1.0); % no reduction
-fet_endchar;
+ penlabels (1, 2, 3, 4, 5, 6);
-%%%%%%%%
-%
-%
-%
-% Editio Medicaea
-%
-%
-%
-def draw_medicaea_do_clef(expr exact_center, reduction) =
- save reduced_il, reduced_slt;
- reduced_il# = staff_space# * reduction;
- reduced_slt# = stafflinethickness# * reduction;
- define_pixels(reduced_il);
- define_pixels(reduced_slt);
-
- save flag_height;
- flag_height# = 0.5 reduced_il#;
- define_pixels(flag_height);
-
- %lower flag
- save za, zb;
- pair za, zb;
- pickup pencircle xscaled reduced_slt yscaled flag_height;
- xpart exact_center
- = xpart za + 0.5 reduced_il
- = xpart zb - 0.5 reduced_il;
- ypart za = ypart exact_center - 0.5 flag_height
- - 0.5 (staff_space - reduced_il);
- ypart zb = ypart za - reduced_il + flag_height;
- draw za .. zb;
-
- %upper flag
- save za, zb;
- pair za, zb;
- pickup pencircle xscaled reduced_slt yscaled flag_height;
- xpart exact_center
- = xpart za + 0.5 reduced_il
- = xpart zb - 0.5 reduced_il;
- ypart za = ypart exact_center - 0.5 flag_height
- - 0.5 (staff_space - reduced_il)
- + staff_space;
- ypart zb = ypart za - reduced_il + flag_height;
- draw za .. zb;
-
- %stem
- save za, zb;
- pair za, zb;
- pickup pencircle scaled reduced_slt;
- xpart za = xpart zb = xpart exact_center - 0.5 reduced_il;
- ypart exact_center
- = ypart za + 1.5 reduced_il
- = ypart zb - 1.5 reduced_il;
- draw za .. zb;
-
- set_char_box(0.5reduced_il#, 1.5reduced_il#,
- 1.5reduced_il#, 1.5reduced_il#);
+ draw_staff (-3, 1, 0);
enddef;
-fet_beginchar("Ed. Med. do clef", "medicaea_do", "meddoclef")
- if test = 1:
- draw_staff(-1,3, 0.0);
- fi;
- draw_medicaea_do_clef((0,0), 1.0);
+fet_beginchar ("F clef ", "F");
+ draw_bass_clef ((0, 0), 1.0);
fet_endchar;
-fet_beginchar("Ed. Med. do clef", "medicaea_do_change", "cmeddoclef")
- draw_medicaea_do_clef((0,0), .8);
-fet_endchar;
-
-
-def draw_medicaea_fa_clef(expr exact_center, reduction) =
- % inspired by Regensburger Edition of Medicaea (1885/86), in:
- % MGG, volume 2, col. 1327 ("Choralreform"), fig. 2.
-
- save reduced_il, reduced_slt;
- reduced_il# = staff_space# * reduction;
- reduced_slt# = stafflinethickness# * reduction;
- define_pixels(reduced_il);
- define_pixels(reduced_slt);
-
- save za, zb, zc, zd, ze;
- pair za, zb, zc, zd, ze;
-
- %stem
- pickup pencircle scaled stafflinethickness;
- xpart za = xpart zb =
- xpart exact_center + 0.4reduced_il;
- ypart za = ypart exact_center = ypart zb + 1.5reduced_il;
- draw za -- zb;
-
- %left-handed punctum
- pickup pencircle xscaled reduced_slt yscaled reduced_il;
- zc = exact_center +
- (+0.4reduced_il, 0);
- zd = exact_center +
- (+0.0reduced_il, 0);
- draw zc -- zd;
-
- %right-handed puncta as in do clef
- draw_medicaea_do_clef(
- exact_center +
- (+1.1reduced_il + 1.25stafflinethickness, 0),
- reduction);
-
- set_char_box(reduced_il#/2, 2.6reduced_il#, 0, reduced_il#);
-enddef;
-fet_beginchar("Ed. Med. fa clef", "medicaea_fa", "medfaclef")
- if test = 1:
- draw_staff(-1,3, 0.0);
- fi;
- draw_medicaea_fa_clef((0,0), 1.0);
-fet_endchar;
-fet_beginchar("Ed. Med. fa clef", "medicaea_fa_change", "cmedfaclef")
- draw_medicaea_fa_clef((0,0), .8);
+fet_beginchar ("F clef (reduced)", "F_change");
+ draw_bass_clef ((0, 0), 0.8);
fet_endchar;
-%%%%%%%%
+
%
+% Inspired by Baerenreiter
%
%
-% Mensural Notation
+% Beste lezers, kijk,
%
+% Een bolletje hebben we bij toeval allemaal wel eens getekend, maar begint u
+% toch eenvoudig. Eerst een eenvoudig kruis of herstellingsteken
+% en via de dubbelslag naar een voorzichtig vlaggetje, en heb geduld!
+% Ikzelf heb bijvoorbeeld over mijn eerste gave G-sleutel
+% 35 kilobyte metafont, 12 patchlevels, 0 vriendinnen en 45 dagen gedaan
%
+% -- vrij naar Van Kooten & De Bie
%
-brevis_wid# := 2 staff_space#;
-
-def draw_brevis(expr exact_center, reduction, small_width, small_height) =
- %
- % inspired by function draw_brevis of
- % feta-bolletjes.mf
- %
- save reduced_slt, reduced_nht;
- save stem_width, head_width;
- save serif_size, serif_protrude;
- save holeheight, beamheight;
-
- reduced_slt# = stafflinethickness# * reduction;
- reduced_nht# = noteheight# * reduction;
- stem_width# = 1.4 reduced_slt#;
- if small_width:
- head_width# = 0.5brevis_wid# * reduction;
- else:
- head_width# = brevis_wid# * reduction;
- fi;
- if small_height:
- serif_size# = 0.64 reduced_slt#;
- serif_protrude# = 0.96 serif_size#;
- holeheight# = 3 reduced_slt#;
- beamheight# = 0.32(reduced_nht# - holeheight#);
- else:
- serif_size# = 1.0 reduced_slt#;
- serif_protrude# = 1.5 serif_size#;
- holeheight# = 3 reduced_slt#;
- beamheight# = 0.5(reduced_nht# - holeheight#);
- fi;
- define_pixels(reduced_slt);
- define_pixels(stem_width);
- define_pixels(head_width);
- define_pixels(serif_size);
- define_pixels(serif_protrude);
- define_pixels(beamheight);
-
- penpos1(stem_width, 0);
- penpos2(stem_width, 0);
- penpos3(beamheight, 90);
- penpos4(beamheight, 90);
- penpos5(stem_width, 180);
-
- z1l = exact_center;
- z2l = z1l + (0, -reduced_slt/2);
- z3r = z2r + serif_size*(1,-1);
- y4r = y3r;
- x4l = x1l + 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;
-enddef;
+def debugfill = fill enddef;
-def draw_mensural_i_c_clef(expr exact_center, reduction) =
- draw_brevis(exact_center, reduction, false, false);
+def draw_gclef (expr reduction) =
+ save reduced_ss, downstroke_dir, downstroke_angle, center;
+ save breapth_factor, inner_thick_end, thinness, thickness, thinnib;
+ save start_angle, inner_start_angle, thinness;
+ save upward_swoosh_angle, bot_angle;
+ save pat;
+ path pat;
+ pair downstroke_dir, center;
- save reduced_il, reduced_slt;
- save stem_width;
+ reduced_ss# = staff_space# * reduction;
+ define_pixels (reduced_ss);
- reduced_il# = staff_space# * reduction;
- reduced_slt# = stafflinethickness# * reduction;
- stem_width# = 1.4 reduced_slt#;
+ thinness = 0.095 staff_space + 0.75 linethickness;
+ downstroke_dir = unitvector (14, -75);
+ downstroke_angle = angle downstroke_dir;
+ bot_angle = -180; % downstroke_angle - 87
- define_pixels(reduced_il);
- define_pixels(reduced_slt);
- define_pixels(stem_width);
+ upward_swoosh_angle = 132;
+ start_angle = -97;
- penpos6(stem_width, 0);
- penpos7(stem_width, 0);
- z6l = exact_center;
- z7l = z6l + (0, -2reduced_il);
- fill z6l -- z7l -- z7r -- z6r -- cycle;
- penpos8(stem_width, 0);
- penpos9(stem_width, 0);
- z8l = z6l + (-3reduced_slt, 0);
- z9l = z8l + (0, -2reduced_il);
- fill z8l -- z9l -- z9r -- z8r -- cycle;
+ breapth_factor = 21/14;
+ inner_thick_end = 45;
+ inner_start_angle = downstroke_angle - 43;
+ thickness = .32 reduced_ss + 1.1 linethickness;
- addto currentpicture also currentpicture
- yscaled -1 shifted (0, 2*(ypart exact_center));
- addto currentpicture also currentpicture
- xscaled -1 shifted (2x4l,0);
+ thinnib = thinness;
- set_char_box(0, 2head_width#,
- 6reduced_slt#*reduction, 6reduced_slt#*reduction);
-enddef;
+ set_char_box (0, 1.71 * breapth_factor * reduced_ss#,
+ 2.6 * reduced_ss#, 5 * reduced_ss#);
+ center := (breapth_factor * reduced_ss, 0);
-fet_beginchar("mensural c clef", "mensural1_c", "mens1cclef")
- if test = 1:
- draw_staff(-1,3, 0.0);
- fi;
- draw_mensural_i_c_clef((0,0), 1.0);
-fet_endchar;
-fet_beginchar("mensural c clef", "mensural1_c_change", "cmens1cclef")
- draw_mensural_i_c_clef((1.3 staff_space#,0), .8);
-fet_endchar;
-
+ z1 = center + whatever * dir (inner_start_angle);
+ x1 = xpart center - .28 reduced_ss;
+ penpos1 (thinnib, inner_start_angle);
-def draw_mensural_ii_c_clef(expr exact_center, reduction) =
- draw_brevis(exact_center, reduction, false, true);
+ x2r = xpart center;
+ y2r = vround_pixels (reduced_ss# + .5 stafflinethickness#);
+ penpos2 (thickness, 90);
- save reduced_il, reduced_slt;
- save stem_width, interline;
+ z3 = (z4 - center) rotated inner_thick_end + center;
+ penpos3 (thinnib, -90 + inner_thick_end);
- reduced_il# = staff_space# * reduction;
- reduced_slt# = stafflinethickness# * reduction;
- stem_width# = 1.4 reduced_slt#;
- interline# = staff_space#;
+ x4 = xpart center - .1 reduced_ss;
+ y4r = -y2r + feta_shift;
+ penpos4 (thinnib, -90);
- define_pixels(reduced_il);
- define_pixels(reduced_slt);
- define_pixels(stem_width);
- define_pixels(interline);
+ x5r = -breapth_factor * reduced_ss + xpart center;
+ y5r = .37 reduced_ss + ypart center;
+ penpos5 (thickness, upward_swoosh_angle);
- penpos6(stem_width, 0);
- penpos7(stem_width, 0);
- z6l = exact_center + (0, -interline/2);
- z7l = z6l + (0, -1.5reduced_il);
- fill z6l -- z7l -- z7r -- z6r -- cycle;
+ z6 = center + whatever * downstroke_dir;
+ y6 = ypart center + 2 reduced_ss;
+ % penpos6 is computed later
- addto currentpicture also currentpicture
- yscaled -1 shifted (0, 2*(ypart exact_center) - interline);
- addto currentpicture also currentpicture
- yscaled -1 shifted (0, 4*(ypart exact_center));
- addto currentpicture also currentpicture
- xscaled -1 shifted (2x4l,0);
+ z7l - z6 = whatever * (z5 - z6) ;
+ y7l = 3.5 reduced_ss;
+ penpos7 (thickness, upward_swoosh_angle);
- set_char_box(0, 2head_width#,
- noteheight#*4*reduction, noteheight#*4*reduction);
+ x9 = .7 [x10, x7r];
+ top y9l = 5 reduced_ss;
+ penpos9 (1.45 thickness, -70);
+
+ x11 - x13r = 1.5 reduced_ss + 0.5 thinnib;
+ y11 = ypart center - 47/28 reduced_ss;
+ y12 = ypart center - 71/28 reduced_ss;
+ y13 = .48 [y12, y4r];
+ x12r = xpart (.45 [z13r, z11] + .75 reduced_ss * downstroke_dir);
+
+% z10 = center + whatever * dir (downstroke_angle - 1.5);
+ x10 = x6 - 2 thinnib;
+ y10 = ypart center + 3.5 reduced_ss;
+ y10l - y10r = 1.0 thickness;
+ z10r - z10l = .7 thinnib * dir (downstroke_angle + 90)
+ + whatever * downstroke_dir;
+ z10 = .5 [z10l, z10r];
+ z11 = center + whatever * downstroke_dir + (-0.05 reduced_ss, 0);
+
+ penpos11 (thinnib, start_angle + 90);
+ penpos12 (thinnib, bot_angle + 90);
+ penpos13 (thinnib + 0.14 staff_space, 180);
+
+ % this auxiliary point ensures good contour overlapping
+ z8 = .5 [z9l, z9r] + .25 ((z9r - z9l) rotated -90);
+
+ z20 = z9l - (0, .25 blot_diameter);
+ penpos20 (blot_diameter, 0);
+
+ pat := z10{down}
+ .. z6
+ ..tension 1.1.. z11{dir (start_angle)};
+
+ penpos6 (thinnib, angle (direction 1 of pat) + 90);
+
+ % two auxiliary points to simulate `draw' with `penstroke'
+ z10' = point 0.3 of pat;
+ penpos10' (1.3 thinnib, angle (direction 0.3 of pat) + 50);
+
+ z11' = point 1.5 of pat;
+ penpos11' (thinnib, angle (direction 1.5 of pat) + 90);
+
+ z21l = z20l;
+ z21r = z9r;
+
+ pat := z21l
+ .. z10l{down}
+ .. z10'l;
+
+ fill z2l{right}
+ .. z3l
+ .. z4l{left}
+ ..tension 1.07.. z5l{up} % inside curve
+ .. z7l{up}
+ ..tension 1.2.. z20r{curl 1}
+ .. {direction 0 of pat}z20l
+ -- z8
+ -- z9r % {dir (downstroke_angle + 0)}
+ ..tension 0.8.. z7r{down}
+ .. z5r{down}
+ .. z4r{right}
+ .. z3r
+ .. z2r{left}
+ ..tension .95.. z1r
+ -- simple_serif (z1r, z1l, 80)
+ -- z1l
+ ..tension 0.85.. cycle;
+
+ penstroke z21e
+ .. z10e{down}
+ .. z10'e
+ .. z6e
+ .. z11'e
+ .. z11e{dir (-95)}
+ .. z12e{dir (bot_angle)};
+
+ fill new_bulb (z12r, bot_angle, z13r, z12l, bot_angle + 180,
+ 0.45 reduced_ss, 0.38 reduced_ss,
+ thinnib + .05 staff_space, 1, -1)
+ -- cycle;
+
+ penlabels (range 1 thru 21);
+ penlabels (10', 11');
+
+ draw_staff (-1, 3, 0);
enddef;
-fet_beginchar("mensural c clef", "mensural2_c", "mens2cclef")
- if test = 1:
- draw_staff(-1,3, 0.0);
- fi;
- draw_mensural_ii_c_clef((0,0), 1.0);
-fet_endchar;
-fet_beginchar("mensural c clef", "mensural2_c_change", "cmens2cclef")
- draw_mensural_ii_c_clef((1.3 staff_space#,0), .8);
+fet_beginchar ("G clef", "G");
+ draw_gclef (1.0);
fet_endchar;
-def draw_mensural_iii_c_clef(expr exact_center, reduction) =
- % inspired by Ockeghem, "Missa Prolationum", in: MGG, volume
- % 9, table 94.
- draw_mensural_ii_c_clef(exact_center, reduction);
+fet_beginchar ("G clef", "G_change");
+ draw_gclef (0.8);
+fet_endchar;
- addto currentpicture also currentpicture
- shifted (0, -interline);
- set_char_box(0, 2head_width#,
- noteheight#*6*reduction, noteheight#*6*reduction);
-enddef;
+%%%%
+%
+% PERCUSSION
+%
+%
+% The percussion clef extent is not coincident with its bbox, since
+% the percussion clef needs more space in front than a normal clef.
+%
-fet_beginchar("mensural c clef", "mensural3_c", "mens3cclef")
- if test = 1:
- draw_staff(-1,3, 0.0);
- fi;
- draw_mensural_iii_c_clef((0,0), 1.0);
-fet_endchar;
-fet_beginchar("mensural c clef", "mensural3_c_change", "cmens3cclef")
- draw_mensural_iii_c_clef((0,0), .8);
-fet_endchar;
+def draw_percussion_clef (expr reduction) =
+ save reduced_ss, razt;
-def draw_diamond(expr exact_center, reduction) =
- save stem_width, reduced_il, reduced_nht, holeheight, beamheight;
- save rh_height, rh_width;
-
- stem_width# = 1.4 reduced_slt#;
- reduced_il# = staff_space# * reduction;
- reduced_nht# = noteheight# * reduction;
- holeheight# = 3 reduced_slt#;
- beamheight# = 0.4(reduced_nht# - holeheight#);
-
- rh_height# = 1.2reduced_il#;
- rh_width# / rh_height# = 0.58; % tan(30)
-
- define_pixels(beamheight);
- define_pixels(stem_width);
- define_pixels(rh_height);
- define_pixels(rh_width);
-
- pickup pencircle
- xscaled beamheight
- yscaled stem_width
- rotated 45;
-
- draw
- exact_center + (-rh_width/2, 0) --
- exact_center + (0, rh_height/2) --
- exact_center + (+rh_width/2, 0) --
- exact_center + (0, -rh_height/2) --
- cycle;
-enddef;
+ reduced_ss# = staff_space# * reduction;
+ define_pixels (reduced_ss);
-def draw_mensural_f_clef(expr exact_center, reduction) =
- %
- % inspired by Gaspar van Weerbeke, "Virgo Maria" (1502), in:
- % MGG, volume 9, col. 653 ("Motette"), fig. 3.; also by
- % Andr'e Campra, "Entr'ee des s'er'enades" (1710), in: MGG,
- % volume 2, col. 1649 ("Contredanse"), fig. 2.
- %
- draw_brevis(exact_center, reduction, true, false);
-
- save reduced_il, reduced_slt;
- save stem_width, interline;
-
- reduced_il# = staff_space# * reduction;
- reduced_slt# = stafflinethickness# * reduction;
- stem_width# = 1.4 reduced_slt#;
- interline# = staff_space#;
-
- define_pixels(reduced_il);
- define_pixels(reduced_slt);
- define_pixels(stem_width);
- define_pixels(interline);
-
- addto currentpicture also currentpicture
- yscaled -1 shifted (0, 2*(ypart exact_center));
- addto currentpicture also currentpicture
- xscaled -1 shifted (2x4l,0);
-
- penpos6(stem_width, 0);
- penpos7(stem_width, 0);
- z6r = exact_center + (2x4l, 0);
- z7r = z6r + (0, -4reduced_il);
- fill z6l -- z7l -- z7r -- z6r -- cycle;
-
- draw_diamond(exact_center +
- (1.6interline*reduction, interline/2), reduction);
- %% some editions put a stem on top of the upper note head:
- % penpos8(stem_width, 0);
- % penpos9(stem_width, 0);
- % z8l = exact_center + (1.6interline*reduction, interline*reduction);
- % z9l = z8l + (0, 1.5interline*reduction);
- % fill z8l -- z9l -- z9r -- z8r -- cycle;
-
- draw_diamond(exact_center +
- (1.6interline*reduction, -interline/2), reduction);
- penpos10(stem_width, 0);
- penpos11(stem_width, 0);
- z10r = exact_center + (1.6interline*reduction, -interline*reduction);
- z11r = z10r + (0, -3.5interline*reduction);
- fill z10l -- z11l -- z11r -- z10r -- cycle;
-
- set_char_box(0, 3head_width#,
- 3.5noteheight#*reduction, 1.5noteheight#*reduction);
-enddef;
+ set_char_box (-.67 reduced_ss#, 2.0 reduced_ss#,
+ reduced_ss#, reduced_ss#);
+ razt := hround (0.45 reduced_ss);
-fet_beginchar("mensural f clef", "mensural_f", "mensfclef")
- if test = 1:
- draw_staff(-1,3, 0.0);
- fi;
- draw_mensural_f_clef((0,0), 1.0);
-fet_endchar;
-fet_beginchar("mensural f clef", "mensural_f_change", "cmensfclef")
- draw_mensural_f_clef((0,0), .8);
-fet_endchar;
+ d := d - feta_shift;
+ draw_block ((-b, -d), (-b + razt, h));
+ draw_block ((w - razt, -d), (w, h));
-%%%%%%%%
-%
-%
-%
-% Hufnagel
-%
-%
-%
-def draw_hufnagel_do_clef(expr exact_center, reduction) =
- %
- % inspired by Graduale of Friedrich Zollner (1442), in: MGG,
- % volume 9, col. 1413 ("Neustift"), fig. 1.
- %
- save reduced_il;
-
- reduced_il# = staff_space# * reduction;
-
- define_pixels(reduced_il);
-
- pickup pencircle
- xscaled (0.60reduced_il)
- yscaled (0.10reduced_il)
- rotated 40;
- save za, zb, zc, zd, ze, zf;
- pair za, zb, zc, zd, ze, zf;
-
- za = exact_center + (+0.30reduced_il, +.45reduced_il);
- zb = exact_center + (+0.20reduced_il, +.45reduced_il);
- zc = exact_center + (-0.10reduced_il, +.60reduced_il);
- zd = exact_center + (-0.40reduced_il, +.45reduced_il);
- ze = exact_center + (-0.40reduced_il, -.45reduced_il);
- zf = exact_center + (-0.20reduced_il, -.55reduced_il);
- draw za .. zb .. zc -- zd -- ze -- zf;
-
- set_char_box(0.5reduced_il#, 0.5reduced_il#, 0, reduced_il#);
+ draw_staff (-3, 1, 1);
enddef;
-fet_beginchar("Hufnagel do clef", "hufnagel_do", "hufnageldoclef")
- if test = 1:
- draw_staff(-1,3, 0.0);
- fi;
- draw_hufnagel_do_clef((0,0), 1.0);
-fet_endchar;
-fet_beginchar("Hufnagel do clef", "hufnagel_do_change", "chufnageldoclef")
- draw_hufnagel_do_clef((1.3 staff_space#,0), .8);
+fet_beginchar ("percussion clef", "percussion");
+ draw_percussion_clef (1.0);
fet_endchar;
-def draw_hufnagel_fa_clef(expr exact_center, reduction) =
- %
- % inspired by Bamberger Manuscript (15th century), in:
- % MGG, volume 2, table 59.
- %
- save reduced_il;
+fet_beginchar ("percussion clef (reduced)", "percussion_change");
+ draw_percussion_clef (.8);
+fet_endchar;
- reduced_il# = staff_space# * reduction;
- define_pixels(reduced_il);
+def draw_tab_T (expr pos, siz, slant) =
+begingroup;
+ save vx, vy;
+ pair vx, vy;
+
+ clearxy;
+
+ vx = (xpart siz) * dir 0;
+ vy = (ypart siz) * dir 90;
+
+ penpos1 (.75 penh, 100);
+ z1 = z2 + (1/6 * vx - .15 * vy);
+ penpos2 (hround (.9 penw), 0);
+ x2l = hround xpart (pos + .75 vy);
+ y2l = ypart (pos + .75 vy);
+ penpos3 (penh, -100);
+ z3l = pos + .4 vx + vy;
+ penpos4 (penh, -90);
+ z4 = -.1 vy + .5 [z3, z5];
+ penpos5 (.8 penh, -30);
+ x5r = xpart (pos + siz);
+ y5l = ypart (pos + siz);
+
+ penpos10 (penw, 170);
+ z10 = pos + .55 vx + .9 vy;
+ penpos11 (.75 [penh, penw], 170);
+ z11 = z10 - .5 vy + .025 vx;
+ penpos12 (penh, 100);
+ z12l = (xpart .5 [z13, z11], ypart (pos - .025 * siz));
+ penpos13 (.75 penh, 60);
+ z13 = pos + .2 vx + .15 vy;
+
+ % penlabels (range 1 thru 13);
+
+ soft_penstroke (z1e
+ ..tension 1.1.. z2e
+ .. z3e{right}
+ ..tension 1.5.. z4e
+ ..z5e)
+ slanted slant shifted (slant * -ypart pos, 0);
+
+ soft_end_penstroke (z10e
+ ..tension 1.5.. z11e
+ .. z12e
+ ..tension 1.1.. z13e{(z13r - z13l) rotated 90})
+ slanted slant shifted (slant * -ypart pos, 0);
+endgroup;
+enddef;
- pickup pencircle
- xscaled (0.60reduced_il)
- yscaled (0.10reduced_il)
- rotated 40;
- save za, zb, zc, zd, ze, zf;
- pair za, zb, zc, zd, ze, zf;
+
+def draw_tab_A (expr pos, siz, slant) =
+begingroup;
+ save vx, vy, pat;
+ pair vx, vy;
+ path pat;
+
+ clearxy;
+
+ vx = (xpart siz) * dir 0;
+ vy = (ypart siz) * dir 90;
+
+ penpos1 (.75 penh, -110);
+ z1r = pos + .07 vy;
+ penpos2 (penh, -75);
+ z2r = (.5 [x1, x3], ypart pos);
+ penpos3 (.25 [penh, penw], -30);
+ z3 = (.45 [x2, x4], .15 [y2, y4]);
+ penpos4 (1 [penh, penw], 0);
+ z4 = pos + .5 vx + .975 vy;
+
+ penpos5 (1 [penh, penw], -180);
+ z5 = z4;
+ penpos6 (.2 [penh, penw], -150);
+ z6l = (.8 [x5l, x7l], .9 [y5l, y7l]);
+ penpos7 (penh,-90);
+ z7r = (.5 [x6, x8], ypart pos);
+ penpos8 (.75 penh, -70);
+ z8r = (xpart (pos + siz), y7r + .075 ypart (siz));
+
+ pat := z2
+ .. z3
+ .. z4;
+
+ penpos10 (penh, angle (direction 1.2 of pat) - 180);
+ z10 = point 1.2 of pat;
+ penpos11 (.9 penh, -90);
+ z11 = .4 [z10, z6] - 0.05 vy;
+ penpos12 (.75 penh, -75);
+ z12 = .3 [z11, z6] + 0.02 vy;
+
+ % penlabels (range 1 thru 12);
+
+ soft_penstroke (z1e{(z1r - z1l) rotated 90}
+ .. z2e
+ .. z3e
+ .. z4e)
+ slanted slant shifted (slant * -ypart pos, 0);
+
+ soft_end_penstroke (z5e
+ .. z6e
+ .. z7e
+ .. z8e{(z8r - z8l) rotated 90})
+ slanted slant shifted (slant * -ypart pos, 0);
+
+ soft_end_penstroke (z10e
+ .. z11e
+ .. z12e)
+ slanted slant shifted (slant * -ypart pos, 0);
+endgroup;
+enddef;
- za = exact_center + (+0.30reduced_il, +0.70reduced_il);
- zb = exact_center + (+0.20reduced_il, +0.70reduced_il);
- zc = exact_center + (-0.10reduced_il, +0.85reduced_il);
- zd = exact_center + (-0.40reduced_il, +0.70reduced_il);
- ze = exact_center + (-0.40reduced_il, -1.10reduced_il);
- draw za .. zb .. zc -- zd -- ze;
- save zg, zh, zi, zj;
- pair zg, zh, zi, zj;
+def draw_tab_B (expr pos, siz, slant) =
+begingroup;
+ save vx, vy;
+ pair vx, vy;
+
+ clearxy;
+
+ vx = (xpart siz) * dir 0;
+ vy = (ypart siz) * dir 90;
+
+ penpos1 (.75 penh, 100);
+ z1 = z2 + (.15 * vx - .1 * vy);
+ penpos2 (hround (.9 penw), 0);
+ x2l = hround xpart (pos + .75 vy);
+ y2l = ypart (pos + .75 vy);
+ penpos3 (penh, -100);
+ z3l = pos + .4 vx + 1.05 vy;
+ penpos4 (.8 [penh, penw], -180);
+ z4 = (xpart (pos + .75 siz), .5 [y3, y5]);
+ penpos5 (.8 penh, 90);
+ z5 = (.5 [x10, x4], ypart (pos + .55 siz));
+
+ penpos6 (.8 penh, 270);
+ z6 = z5;
+ penpos7 (penw, 180);
+ z7l = (xpart (pos + siz), .5 [y6, y8]);
+ penpos8 (.8 penh, 45);
+ z8 = .5 [z12l, z11l] + .15 vx - .05 vy;
+
+ penpos10 (.75 [penh, penw], 170);
+ z10 = pos + .375 vx + vy;
+ penpos11 (.8 [penh, penw], 150);
+ z11 = z10 - .5 vy + .04 vx;
+ penpos12 (penh, 100);
+ z12l = (xpart .5 [z13, z11], ypart pos);
+ penpos13 (.75 penh, 60);
+ z13 = pos + .1 vx + .15 vy;
+
+ % penlabels (range 1 thru 13);
+
+ soft_penstroke (z1e
+ ..tension 1.1.. z2e
+ .. z3e
+ .. z4e
+ ..z5e {left})
+ slanted slant shifted (slant * -ypart pos, 0);
+
+ soft_end_penstroke (z6e{right}
+ .. z7e
+ .. z8e{(z8r - z8l) rotated 90})
+ slanted slant shifted (slant * -ypart pos, 0);
+
+ soft_end_penstroke (z10e
+ ..tension 1.5.. z11e
+ .. z12e
+ ..tension 1.1.. z13e{(z13r - z13l) rotated 90})
+ slanted slant shifted (slant * -ypart pos, 0);
+endgroup;
+enddef;
- zg = exact_center + (+0.30reduced_il, -0.05reduced_il);
- zh = exact_center + (+0.20reduced_il, -0.05reduced_il);
- zi = exact_center + (-0.10reduced_il, +0.10reduced_il);
- zj = exact_center + (-0.40reduced_il, -0.05reduced_il);
- draw zg .. zh .. zi -- zj;
- set_char_box(0.5reduced_il#, 0.5reduced_il#, 0, reduced_il#);
-enddef;
+def draw_tab_clef (expr reduction) =
+ save reduced_ss, letterheight, penw, penh;
+ reduced_ss# = staff_space# * reduction;
+ letterheight# = 1.8 reduced_ss#;
+ define_pixels (reduced_ss, letterheight);
-fet_beginchar("Hufnagel fa clef", "hufnagel_fa", "hufnagelfaclef")
- if test = 1:
- draw_staff(-1,3, 0.0);
- fi;
- draw_hufnagel_fa_clef((0,0), 1.0);
-fet_endchar;
-fet_beginchar("Hufnagel fa clef", "hufnagel_fa_change", "chufnagelfaclef")
- draw_hufnagel_fa_clef((0,0), .8);
-fet_endchar;
+ set_char_box (-.2 reduced_ss#, 2.8 reduced_ss#,
+ 1.6 letterheight#, 1.6 letterheight#);
+
+ penw = .45 reduced_ss;
+ penh = .2 reduced_ss;
+ draw_tab_T ((-b + .15 reduced_ss, h - letterheight),
+ (2.1 reduced_ss, letterheight), 0.2);
+ draw_tab_A ((-b - .05 reduced_ss, -.5 letterheight +.15 reduced_ss),
+ (2.2 reduced_ss, letterheight), 0.4);
+ draw_tab_B ((-b + .025 reduced_ss, -d),
+ (2.1 reduced_ss, letterheight), 0.25);
-def draw_hufnagel_do_fa_clef(expr exact_center, reduction) =
- draw_hufnagel_do_clef(exact_center, reduction);
- draw_hufnagel_fa_clef(exact_center + (0, -2staff_space), reduction);
+ draw_staff (-3, 2, 0.5);
enddef;
-fet_beginchar("Hufnagel do/fa clef", "hufnagel_do_fa", "hufnageldofaclef")
- if test = 1:
- draw_staff(-1,3, 0.0);
- fi;
- draw_hufnagel_do_fa_clef((0,0), 1.0);
-fet_endchar;
-fet_beginchar("Hufnagel do/fa clef", "hufnagel_do_fa_change",
- "chufnageldofaclef")
- draw_hufnagel_do_fa_clef((0,0), .8);
+fet_beginchar ("tab clef", "tab");
+ draw_tab_clef (1.0);
fet_endchar;
-fet_endgroup("clefs");
+fet_beginchar ("tab clef (reduced)", "tab_change");
+ draw_tab_clef (.8);
+fet_endchar;
+
+fet_endgroup ("clefs");