2 % parmesan-scripts.mf -- implement ancient script symbols
4 % source file of LilyPond's pretty-but-neat music font
6 % (c) 2002 Juergen Reuter <reuter@ipd.uka.de>
9 fet_begingroup ("scripts")
11 def draw_signum_congruentiae =
12 save za, zb, zc, zd, ze, zf, zg, zh;
13 pair za, zb, zc, zd, ze, zf, zg, zh;
15 set_char_box(staff_space#/2, staff_space#/2,
16 5/2*stafflinethickness#, 2staff_space#);
19 xscaled 1.0 stafflinethickness
20 yscaled 5.0 stafflinethickness
22 za = (+0.50staff_space, +2.00staff_space);
23 zb = (+0.00staff_space, +2.00staff_space);
24 zc = (-0.50staff_space, +1.50staff_space);
25 zd = (-0.25staff_space, +1.00staff_space);
26 ze = (+0.10staff_space, +0.80staff_space);
27 zf = (+0.00staff_space, +0.00staff_space);
28 draw za{-1,+1} .. zb .. zc .. zd .. ze .. zf;
30 pickup pencircle scaled 3.0 stafflinethickness;
31 zg = (-0.5staff_space, +0.0staff_space);
32 zh = (+0.5staff_space, +0.0staff_space);
37 fet_beginchar("signum congruentiae up",
38 "usignumcongruentiae", "usignumcongruentiae")
39 draw_signum_congruentiae;
42 fet_beginchar("signum congruentiae down",
43 "dsignum_congruentiae", "dsignumcongruentiae")
44 draw_signum_congruentiae;
48 fet_endgroup ("scripts")