mf/parmesan-rests.mf

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