% source file of the Feta (defintively not an abbreviation for Font-En-Tja)
% music font
%
-% (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
+% (c) 1997 Han-Wen Nienhuys <hanwen@cs.uu.nl>
% Jan Nieuwenhuizen <janneke@gnu.org>
%
% suggest ca 80 degrees iso half-circle
alpha := 10;
- radius# = 1.25 interline#;
+ radius# = 1.25 staff_space#;
crook_thinness# = 1.5stafflinethickness#;
crook_fatness# = 4 stafflinethickness#;
fet_beginchar("Thumb", "thumb", "thumb")
save thin, height, width, thick;
height# = 5/4 width#;
- height# = interline#;
+ height# = staff_space#;
thin = 1.2 stafflinethickness;
thick = 2 thin;
set_char_box(width#/2, width#/2, height#/2, height#/2);
%
% `\accent' is TeX reserved.
fet_beginchar("> accent", "sforzato", "sforzatoaccent")
- set_char_box(.9 interline#, .9 interline#, .5 interline#, .5 interline#);
+ set_char_box(.9 staff_space#, .9 staff_space#, .5 staff_space#, .5 staff_space#);
save thickness, diminish;
thickness = 3/2 stafflinethickness;
def draw_staccatissimo =
save radius, height;
- height# = .8 interline#;
+ height# = .8 staff_space#;
radius# = 2 stafflinethickness#;
define_pixels(radius, height);
thick# = 1.4 stafflinethickness#;
define_pixels(thick);
- set_char_box(.6 interline#, .6 interline#, thick#/2,thick#/2);
+ set_char_box(.6 staff_space#, .6 staff_space#, thick#/2,thick#/2);
pickup pencircle scaled thick;
lft x1 = -b;
rt x2 = w;
def draw_marcato =
save fat_factor, thinness;
- set_char_box(interline#/2, interline#/2, 0, 1.1 interline#);
+ set_char_box(staff_space#/2, staff_space#/2, 0, 1.1 staff_space#);
fat_factor = .3;
thinness = stafflinethickness;
fet_beginchar("open (unstopped)", "open", "ouvert")
save thin, height, width, thick;
height# = 5/4 width#;
- height# = interline#;
+ height# = staff_space#;
thin = 1.2 stafflinethickness;
thick = 1.4 thin;
set_char_box(width#/2, width#/2, height#/2, height#/2);
fet_beginchar("plus (stopped)", "stopped", "plusstop")
save thick, size;
thick = 2 stafflinethickness;
- size# = 1.1 interline#;
+ size# = 1.1 staff_space#;
set_char_box(size#/2, size#/2, size#/2, size#/2);
pickup pencircle scaled thick;
save ht, wd, thick;
thick = 1.4 stafflinethickness;
- wd# = 1.3 interline#;
+ wd# = 1.3 staff_space#;
ht# = 1.6 wd#;
save wd;
define_pixels(wd)
- wd# = 1.5 interline#;
+ wd# = 1.5 staff_space#;
stemthick = 1.2 stafflinethickness;
- set_char_box(wd#/2, wd#/2, 0, 4/3 interline#);
+ set_char_box(wd#/2, wd#/2, 0, 4/3 staff_space#);
beamheight = 4/10 h;
save turndir;
pair turndir;
- wd# = 35/16 interline#;
- ht# = 18/17 interline#;
+ wd# = 35/16 staff_space#;
+ ht# = 18/17 staff_space#;
darkness = 1.20 stafflinethickness;
set_char_box(wd#/2, wd#/2, ht#/2, ht#/2);
ascender_extra# = 1/2 ex#;
ascender# = ascender_extra# + ex#;
- ex# = 1.5 interline#;
+ ex# = 1.5 staff_space#;
kerning# = .75 ex#;
start_nib_angle = 20;
bulb_size = 0.47;
slant = .2;
local_copy(transform)(currenttransform);
- currenttransform := currenttransform slanted slant shifted (- interline, 0) ;
+ currenttransform := currenttransform slanted slant shifted (- staff_space, 0) ;
y1 = ascender;
x1l = 0;
--- z9r{up}
.. z8r{left} .. z7r{z5-z7} -- cycle;
fill r_p;
- set_char_box(interline# , interline#, 0,ascender#);
+ set_char_box(staff_space# , staff_space#, 0,ascender#);
penpos11(1/4 r_fatness, -20);
def draw_heel =
save radius, thickness, wall;
- radius# := .5 interline#;
+ radius# := .5 staff_space#;
define_pixels(radius);
- set_char_box(radius#, radius#, radius#, 2/3 interline#);
+ set_char_box(radius#, radius#, radius#, 2/3 staff_space#);
thickness := 1.5 stafflinethickness;
pickup pencircle scaled thickness;
save ht,wd;
thickness := 1.5 stafflinethickness;
- ht# := 1.5 interline#;
+ ht# := 1.5 staff_space#;
wd# := 1/3 ht#;
define_pixels(ht,wd);
fet_endchar;
fet_beginchar("Repeatsign", "repeatsign", "repeatsign")
- set_char_box(interline#, interline#, interline#, interline#);
+ set_char_box(staff_space#, staff_space#, staff_space#, staff_space#);
save dot_diam;
- 2 dot_diam# = interline# - stafflinethickness#;
+ 2 dot_diam# = staff_space# - stafflinethickness#;
define_pixels(dot_diam);
penpos1(dot_diam,0);
penlabels (1,2);
pickup pencircle scaled dot_diam;
- draw (-interline/2, interline/2);
- draw (interline/2, -interline/2);
+ draw (-staff_space/2, staff_space/2);
+ draw (staff_space/2, -staff_space/2);
fet_endchar;
fet_beginchar("Segno", "segno", "segno")
save turndir;
pair turndir;
- ht# = 3 interline#;
- wd# = 2 interline#;
+ ht# = 3 staff_space#;
+ wd# = 2 staff_space#;
darkness = 1.20 stafflinethickness;
set_char_box(wd#/2, wd#/2, ht#/2, ht#/2);
draw (x2r,-pointheight);
fet_endchar;
-fet_beginchar("Wheel", "wheel", "wheel")
- save thin, thick, wheelwidth, wheelheight;
+fet_beginchar("Coda", "coda", "coda")
+ save thin, thick, codawidth, codaheight;
thin# = 1.2 stafflinethickness#;
thick# = 3.5 stafflinethickness#;
- wheelwidth# = 2/3 interline#;
- wheelheight# = 1 interline#;
- define_pixels(thin, thick, wheelwidth, wheelheight);
+ codawidth# = 2/3 staff_space#;
+ codaheight# = 1 staff_space#;
+ define_pixels(thin, thick, codawidth, codaheight);
- set_char_box(wheelwidth#+thick#, wheelwidth#+thick#,
- wheelheight#+thick#, wheelheight#+thick#);
+ set_char_box(codawidth#+thick#, codawidth#+thick#,
+ codaheight#+thick#, codaheight#+thick#);
penpos1(thick,0);
penpos2(thin,-90);
penpos3(thick,180);
- x1l=-wheelwidth;
- y2l=wheelheight;
+ x1l=-codawidth;
+ y2l=codaheight;
y1=0;
x2=0;
z3 = - z1;
penlabels(1,2,3);
- path halfwheel;
- halfwheel := z1l{up} .. z2l{right} .. z3l{down} --
+ path halfcoda;
+ halfcoda := z1l{up} .. z2l{right} .. z3l{down} --
z3r{up} .. z2r{left} .. z1r{down} .. cycle;
- fill halfwheel;
- fill (halfwheel scaled -1);
+ fill halfcoda;
+ fill (halfcoda scaled -1);
pickup pencircle scaled thin;
draw (0,-h) -- (0,h);