mf/parmesan-accidentals.mf

   1 % -*-Fundamental-*-
   2 % parmesan-accidentals.mf -- implement ancient accidentals
   3 %
   4 % source file of LilyPond's pretty-but-neat music font
   5 %
   6 % (c) 2001--2002 Juergen Reuter <reuter@ipd.uka.de>
   7 %
   8
   9 fet_begingroup ("accidentals")
  10
  11
  12 %%%%%%%%
  13 %
  14 %
  15 %
  16 % EDITIO MEDICAEA
  17 %
  18 %
  19 %
  20 fet_beginchar("Ed. Med. Flat" , "medicaea-1", "medicaeaflat");
  21         set_char_box(0, 0.8 staff_space#, 0.6 staff_space#,
  22           2.0 staff_space#);
  23
  24         pickup pencircle
  25                 xscaled 0.50 stafflinethickness
  26                 yscaled 0.22 staff_space;
  27
  28         save za, zb;
  29         pair za, zb;
  30
  31         za = (0.00 staff_space, +0.90 staff_space);
  32         zb = (0.00 staff_space, -0.50 staff_space);
  33         draw za -- zb;
  34
  35         pickup pencircle
  36                 xscaled 0.50 stafflinethickness
  37                 yscaled 0.22 staff_space
  38                 rotated -63;
  39
  40         save zc, zd, ze;
  41         pair zc, zd, ze;
  42
  43         zc = (0.10 staff_space, -0.50 staff_space);
  44         zd = (0.40 staff_space, +0.40 staff_space);
  45         ze = (0.10 staff_space, +0.40 staff_space);
  46
  47         draw zc{(1,2)} .. zd .. ze{(-1,-1)};
  48
  49         fet_endchar;
  50
  51 %%%%%%%%
  52 %
  53 %
  54 %
  55 % EDITIO VATICANA
  56 %
  57 %
  58 %
  59 fet_beginchar("Ed. Vat. Flat" , "vaticana-1", "vaticanaflat");
  60         set_char_box(0, 0.7 staff_space#, 0.6 staff_space#,
  61                 2.0 staff_space#);
  62         define_pixels (stafflinethickness, staff_space);
  63
  64         save za, zb, zc, zd, ze, zf, zg;
  65         pair za, zb, zc, zd, ze, zf, zg;
  66         za = (0.00 staff_space, +0.80 staff_space);
  67         zb = (0.00 staff_space, -0.03 staff_space);
  68         zc = (0.25 staff_space, -0.23 staff_space);
  69         zd = (0.50 staff_space, -0.23 staff_space);
  70         ze = (0.50 staff_space, +0.00 staff_space);
  71         zf = (0.25 staff_space, +0.20 staff_space);
  72         zg = (0.15 staff_space, +0.26 staff_space);
  73
  74         pickup pencircle
  75                 xscaled 0.50 stafflinethickness
  76                 yscaled 0.22 staff_space;
  77         draw za{down} .. {down}zb .. zc .. zd{up} .. {up}ze .. zf .. zg;
  78         fet_endchar;
  79
  80 fet_beginchar("Ed. Vat. Natural" , "vaticana0", "vaticananatural");
  81         set_char_box(0, 0.6 staff_space#, 0.6 staff_space#,
  82                 2.0 staff_space#);
  83         define_pixels (stafflinethickness, staff_space);
  84
  85         save za, zb, zc, zd;
  86         pair za, zb, zc, zd;
  87         pickup pencircle
  88                 xscaled 0.80 stafflinethickness
  89                 yscaled 0.22 staff_space;
  90         za = (0.00 staff_space, +0.65 staff_space);
  91         zb = (0.00 staff_space, -0.35 staff_space);
  92         zc = (0.00 staff_space, -0.30 staff_space);
  93         zd = (0.40 staff_space, -0.08 staff_space);
  94         draw za -- zb;
  95         draw zc -- zd;
  96
  97         addto currentpicture also currentpicture
  98                 xscaled -1
  99                 yscaled -1
 100                 shifted (0.40 staff_space, 0.0 staff_space);
 101
 102         fet_endchar;
 103
 104 %%%%%%%%
 105 %
 106 %
 107 %
 108 % MENSURAL NOTATION
 109 %
 110 %
 111 %
 112 fet_beginchar("Mensural Sharp" , "mensural1", "mensuralsharp");
 113         set_char_box(0.4 staff_space#, 0.6 staff_space#, 0.5 staff_space#,
 114                 0.5 staff_space#);
 115         save stemthick;
 116         define_pixels (stemthick, staff_space);
 117         stemthick# = stafflinethickness#;
 118
 119         save za, zb;
 120         pair za, zb;
 121         pickup pencircle scaled 0.8 stemthick;
 122         za = 0.4 * staff_space * (0.8, 1);
 123         za = -zb;
 124         draw za .. zb;
 125
 126         addto currentpicture also currentpicture xscaled -1;
 127         addto currentpicture also currentpicture shifted (0.20 staff_space, 0);
 128
 129         fet_endchar;
 130
 131 fet_beginchar("Mensural Flat" , "mensural-1", "mensuralflat");
 132         set_char_box(0.1 staff_space#, 0.7 staff_space#, 0.4 staff_space#,
 133                 1.8 staff_space#);
 134         save stemthick;
 135         define_pixels (stemthick, staff_space);
 136         stemthick# = stafflinethickness#;
 137
 138         save za, zb, zc, zd, ze;
 139         pair za, zb, zc, zd, ze;
 140         pickup pencircle
 141                 xscaled 1.4 stemthick
 142                 yscaled 0.6 stemthick
 143                 rotated 45;
 144
 145         za = (0.00 staff_space, +1.80 staff_space);
 146         zb = (0.00 staff_space, -0.25 staff_space);
 147         zc = (0.35 staff_space, -0.25 staff_space);
 148         zd = (0.35 staff_space, +0.25 staff_space);
 149         ze = (0.00 staff_space, +0.25 staff_space);
 150         draw za -- zb .. zc .. zd .. ze;
 151         fet_endchar;
 152
 153 fet_beginchar("Hufnagel Flat" , "hufnagel-1", "hufnagelflat");
 154         set_char_box(0.5 staff_space#, 0.7 staff_space#, 0.4 staff_space#,
 155                 1.8 staff_space#);
 156         save stemthick;
 157         define_pixels (stemthick, staff_space);
 158         stemthick# = stafflinethickness#;
 159
 160         save za, zb, zc, zd, ze, zf;
 161         pair za, zb, zc, zd, ze, zf;
 162         pickup pencircle
 163                 xscaled 2.4 stemthick
 164                 yscaled 0.4 stemthick
 165                 rotated 45;
 166
 167         za = (0.00 staff_space, +1.80 staff_space);
 168         zb = (0.00 staff_space, -0.15 staff_space);
 169         zc = (0.25 staff_space, -0.30 staff_space);
 170         zd = (0.50 staff_space, +0.00 staff_space);
 171         ze = (0.30 staff_space, +0.30 staff_space);
 172         zf = (0.00 staff_space, +0.15 staff_space);
 173         draw za -- zb -- zc .. zd .. ze -- zf;
 174         fet_endchar;
 175
 176 fet_endgroup ("accidentals")