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--2006 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");
  21         set_char_box(0.1 staff_space#, 0.6 staff_space#,
  22                      0.6 staff_space#, 1.0 staff_space#);
  23
  24         pickup pencircle
  25                 xscaled 0.50 linethickness
  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 linethickness
  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");
  60         save za, zb, zc, zd, ze, zf, zg;
  61         pair za, zb, zc, zd, ze, zf, zg;
  62         za = (0.00 staff_space, +0.80 staff_space);
  63         zb = (0.00 staff_space, -0.03 staff_space);
  64         zc = (0.25 staff_space, -0.23 staff_space);
  65         zd = (0.50 staff_space, -0.23 staff_space);
  66         ze = (0.50 staff_space, +0.00 staff_space);
  67         zf = (0.25 staff_space, +0.20 staff_space);
  68         zg = (0.15 staff_space, +0.26 staff_space);
  69
  70         pickup pencircle
  71                 xscaled 0.50 linethickness
  72                 yscaled 0.22 staff_space;
  73         draw za{down} .. {down}zb .. zc .. zd{up} .. {up}ze .. zf .. zg;
  74
  75         set_char_box(0.00 staff_space# + 0.25 linethickness#,
  76                      0.50 staff_space# + 0.25 linethickness#,
  77                      0.23 staff_space# + 0.11 staff_space#,
  78                      0.80 staff_space# + 0.11 staff_space#);
  79         fet_endchar;
  80
  81 fet_beginchar("Ed. Vat. Natural" , "vaticana0");
  82         save za, zb, zc, zd;
  83         pair za, zb, zc, zd;
  84         pickup pencircle
  85                 xscaled 0.80 linethickness
  86                 yscaled 0.22 staff_space;
  87         za = (0.00 staff_space, +0.65 staff_space);
  88         zb = (0.00 staff_space, -0.35 staff_space);
  89         zc = (0.00 staff_space, -0.30 staff_space);
  90         zd = (0.40 staff_space, -0.08 staff_space);
  91         draw za -- zb;
  92         draw zc -- zd;
  93
  94         addto currentpicture also currentpicture
  95                 xscaled -1
  96                 yscaled -1
  97                 shifted (0.40 staff_space, 0.0 staff_space);
  98
  99         set_char_box(0.00 staff_space# + 0.40 linethickness#,
 100                      0.40 staff_space# + 0.40 linethickness#,
 101                      0.65 staff_space# + 0.11 staff_space#,
 102                      0.65 staff_space# + 0.11 staff_space#);
 103
 104         fet_endchar;
 105
 106 %%%%%%%%
 107 %
 108 %
 109 %
 110 % MENSURAL NOTATION
 111 %
 112 %
 113 %
 114 fet_beginchar("Mensural Sharp" , "mensural1");
 115         save stemthick;
 116         define_pixels (stemthick);
 117         stemthick# = linethickness#;
 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         set_char_box(0.8 * 0.4 staff_space# + 0.4 stemthick#,
 130                      (0.8 * 0.4 + 0.2) * staff_space# + 0.4 stemthick#,
 131                      0.4 staff_space# + 0.4 stemthick#,
 132                      0.4 staff_space# + 0.4 stemthick#);
 133
 134         fet_endchar;
 135
 136 fet_beginchar("Mensural Flat" , "mensural-1");
 137         save stemthick;
 138         define_pixels (stemthick);
 139         stemthick# = linethickness#;
 140
 141         save za, zb, zc, zd, ze;
 142         pair za, zb, zc, zd, ze;
 143         pickup pencircle
 144                 xscaled 1.4 stemthick
 145                 yscaled 0.6 stemthick
 146                 rotated 45;
 147
 148         za = (0.00 staff_space, +1.80 staff_space);
 149         zb = (0.00 staff_space, -0.25 staff_space);
 150         zc = (0.35 staff_space, -0.25 staff_space);
 151         zd = (0.35 staff_space, +0.25 staff_space);
 152         ze = (0.00 staff_space, +0.25 staff_space);
 153         draw za -- zb .. zc .. zd .. ze;
 154
 155         set_char_box(0.00 staff_space# + 0.75 stemthick#,
 156                      0.40 staff_space# + 0.75 stemthick#,
 157                      0.25 staff_space# + 0.75 stemthick#,
 158                      1.80 staff_space# + 0.75 stemthick#);
 159
 160         fet_endchar;
 161
 162 fet_beginchar("Hufnagel Flat" , "hufnagel-1");
 163         save stemthick;
 164         define_pixels (stemthick);
 165         stemthick# = linethickness#;
 166
 167         save za, zb, zc, zd, ze, zf;
 168         pair za, zb, zc, zd, ze, zf;
 169         pickup pencircle
 170                 xscaled 2.4 stemthick
 171                 yscaled 0.4 stemthick
 172                 rotated 45;
 173
 174         za = (0.00 staff_space, +1.80 staff_space);
 175         zb = (0.00 staff_space, -0.15 staff_space);
 176         zc = (0.25 staff_space, -0.30 staff_space);
 177         zd = (0.50 staff_space, +0.00 staff_space);
 178         ze = (0.30 staff_space, +0.30 staff_space);
 179         zf = (0.00 staff_space, +0.15 staff_space);
 180         draw za -- zb -- zc .. zd .. ze -- zf;
 181
 182         set_char_box(0.00 staff_space# + 1.0 stemthick#,
 183                      0.50 staff_space# + 1.0 stemthick#,
 184                      0.30 staff_space# + 0.5 stemthick#,
 185                      1.80 staff_space# + 0.5 stemthick#);
 186
 187         fet_endchar;
 188
 189 fet_endgroup ("accidentals")