mf/parmesan-scripts.mf

   1 % -*-Fundamental-*-
   2 % parmesan-scripts.mf -- implement ancient script symbols
   3 %
   4 % source file of LilyPond's pretty-but-neat music font
   5 %
   6 % (c) 2002, 2003 Juergen Reuter <reuter@ipd.uka.de>
   7 %
   8
   9 fet_begingroup ("scripts")
  10
  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;
  14
  15         set_char_box(0.50 staff_space# + 1.5 stafflinethickness#,
  16                      0.50 staff_space# + 1.5 stafflinethickness#,
  17                      2.5 stafflinethickness#,
  18                      2.00 staff_space# + 3.5 stafflinethickness#);
  19
  20         pickup pencircle
  21                 xscaled 1.0 stafflinethickness
  22                 yscaled 5.0 stafflinethickness
  23                 rotated -35;
  24         za = (+0.50staff_space, +2.00staff_space);
  25         zb = (+0.00staff_space, +2.00staff_space);
  26         zc = (-0.50staff_space, +1.50staff_space);
  27         zd = (-0.25staff_space, +1.00staff_space);
  28         ze = (+0.10staff_space, +0.80staff_space);
  29         zf = (+0.00staff_space, +0.00staff_space);
  30         draw za{-1,+1} .. zb .. zc .. zd .. ze .. zf;
  31
  32         pickup pencircle scaled 3.0 stafflinethickness;
  33         zg = (-0.5staff_space, +0.0staff_space);
  34         zh = (+0.5staff_space, +0.0staff_space);
  35         drawdot zg;
  36         drawdot zh;
  37 enddef;
  38
  39 fet_beginchar("signum congruentiae up",
  40               "usignumcongruentiae", "usignumcongruentiae")
  41         draw_signum_congruentiae;
  42 fet_endchar;
  43
  44 fet_beginchar("signum congruentiae down",
  45               "dsignumcongruentiae", "dsignumcongruentiae")
  46         draw_signum_congruentiae;
  47         xy_mirror_char;
  48 fet_endchar;
  49
  50 fet_endgroup ("scripts")