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 Juergen Reuter <reuter@ipd.uka.de>
   7 %
   8
   9 fet_begingroup ("scripts")
  10
  11 def draw_fermata =
  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(staff_space#/2, staff_space#/2,
  16                      5/2*stafflinethickness#, 2staff_space#);
  17
  18         pickup pencircle
  19                 xscaled 1.0 stafflinethickness
  20                 yscaled 5.0 stafflinethickness
  21                 rotated -35;
  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;
  29
  30         pickup pencircle scaled 3.0 stafflinethickness;
  31         zg = (-0.5staff_space, +0.0staff_space);
  32         zh = (+0.5staff_space, +0.0staff_space);
  33         drawdot zg;
  34         drawdot zh;
  35 enddef;
  36
  37 fet_beginchar("fermata up", "ufermata", "ufermata")
  38         draw_fermata;
  39 fet_endchar;
  40
  41 fet_beginchar("fermata down", "dfermata", "dfermata")
  42         draw_fermata;
  43         y_mirror_char;
  44 fet_endchar;
  45
  46 fet_endgroup ("scripts")