mf/parmesan-flags.mf

   1 % -*-Fundamental-*-
   2 % parmesan-flags.mf -- implement ancient flags
   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 ("flags")
  10
  11
  12 %%%%%%%%
  13 %
  14 %
  15 %
  16 % Mensural Notation
  17 %
  18 %
  19 %
  20
  21 def draw_mensural_outermost_flag_i =
  22         define_pixels(stafflinethickness, staff_space)
  23
  24         pickup pencircle
  25                 xscaled 1.00 stafflinethickness
  26                 yscaled 0.22 staff_space
  27                 rotated -35;
  28
  29         save za, zb, zc, zd, ze;
  30         pair za, zb, zc, zd, ze;
  31
  32         za = (+0.00 staff_space, -0.00 staff_space);
  33         zb = (+0.15 staff_space, -0.00 staff_space);
  34         zc = (+0.45 staff_space, -0.35 staff_space);
  35         zd = (+0.45 staff_space, -0.85 staff_space);
  36         ze = (+0.00 staff_space, -2.00 staff_space);
  37
  38         draw za .. zb -- zc{zc-zb} .. {ze-zd}zd -- ze;
  39 enddef;
  40
  41 def draw_mensural_outermost_flag_ii =
  42         define_pixels(stafflinethickness, staff_space)
  43
  44         pickup pencircle
  45                 xscaled 1.00 stafflinethickness
  46                 yscaled 0.22 staff_space
  47                 rotated -35;
  48
  49         save za, zb, zc, zd, ze;
  50         pair za, zb, zc, zd, ze;
  51
  52         za = (+0.00 staff_space, -0.00 staff_space);
  53         zb = (+0.15 staff_space, -0.00 staff_space);
  54         zc = (+0.20 staff_space, -0.05 staff_space);
  55         zd = (+0.20 staff_space, -1.15 staff_space);
  56         ze = (+0.00 staff_space, -1.40 staff_space);
  57
  58         draw za .. zb -- zc{zc-zb} .. {ze-zd}zd -- ze;
  59 enddef;
  60
  61 def draw_mensural_inner_flag(expr il_shift) =
  62         define_pixels(stafflinethickness, staff_space)
  63
  64         pickup pencircle
  65                 xscaled 1.00 stafflinethickness
  66                 yscaled 0.22 staff_space
  67                 rotated -35;
  68
  69         save zs, za, zb, zc, zd;
  70         pair zs, za, zb, zc, zd;
  71
  72         zs = (0, -il_shift * staff_space);
  73         za = zs + (+0.00 staff_space, -0.10 staff_space);
  74         zb = zs + (+0.33 staff_space, -0.30 staff_space);
  75         zc = zs + (+0.33 staff_space, -0.70 staff_space);
  76         zd = zs + (+0.00 staff_space, -0.90 staff_space);
  77
  78         draw za{2,1} .. zb .. zc .. {-2,-1}zd;
  79 enddef;
  80
  81 fet_beginchar("8th Mensural Flag (up)", "mensuralu03", "menseighthflag")
  82         set_char_box(0, 0.60 staff_space#, 2.00 staff_space#, 0)
  83         draw_mensural_outermost_flag_i
  84 fet_endchar;
  85
  86 fet_beginchar("8th Mensural Flag (up)", "mensuralu13", "mens1eighthflag")
  87         set_char_box(0, 0.60 staff_space#, 1.50 staff_space#, 0)
  88         draw_mensural_outermost_flag_ii
  89 fet_endchar;
  90
  91 fet_beginchar("8th Mensural Flag (down)", "mensurald03", "mensdeighthflag")
  92         set_char_box(0.60 staff_space#, 0, 0, 2.00 staff_space#)
  93         draw_mensural_outermost_flag_i
  94         currentpicture := currentpicture xscaled -1 yscaled -1;
  95 fet_endchar;
  96
  97 fet_beginchar("8th Mensural Flag (down)", "mensurald13", "mensd1eighthflag")
  98         set_char_box(0.60 staff_space#, 0, 0, 1.50 staff_space#)
  99         draw_mensural_outermost_flag_ii
 100         currentpicture := currentpicture xscaled -1 yscaled -1;
 101 fet_endchar;
 102
 103 fet_beginchar("16th Mensural Flag (up)", "mensuralu04", "menssixteenthflag")
 104         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 105         draw_mensural_outermost_flag_i
 106         draw_mensural_inner_flag(2.0)
 107 fet_endchar;
 108
 109 fet_beginchar("16th Mensural Flag (up)", "mensuralu14", "mens1sixteenthflag")
 110         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 111         draw_mensural_outermost_flag_ii
 112         draw_mensural_inner_flag(1.5)
 113 fet_endchar;
 114
 115 fet_beginchar("16th Mensural Flag (down)", "mensurald04", "mensdsixteenthflag")
 116         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 117         draw_mensural_outermost_flag_i
 118         draw_mensural_inner_flag(2.0)
 119         currentpicture := currentpicture xscaled -1 yscaled -1;
 120 fet_endchar;
 121
 122 fet_beginchar("16th Mensural Flag (down)", "mensurald14", "mensd1sixteenthflag")
 123         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 124         draw_mensural_outermost_flag_ii
 125         draw_mensural_inner_flag(1.5)
 126         currentpicture := currentpicture xscaled -1 yscaled -1;
 127 fet_endchar;
 128
 129 fet_beginchar("32th Mensural Flag (up)", "mensuralu05", "mensthirtysecondflag")
 130         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 131         draw_mensural_outermost_flag_i
 132         draw_mensural_inner_flag(2.0)
 133         draw_mensural_inner_flag(3.0)
 134 fet_endchar;
 135
 136 fet_beginchar("32th Mensural Flag (up)", "mensuralu15", "mens1thirtysecondflag")
 137         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 138         draw_mensural_outermost_flag_ii
 139         draw_mensural_inner_flag(1.5)
 140         draw_mensural_inner_flag(2.5)
 141 fet_endchar;
 142
 143 fet_beginchar("32th Mensural Flag (down)", "mensurald05", "mensdthirtysecondflag")
 144         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 145         draw_mensural_outermost_flag_i
 146         draw_mensural_inner_flag(2.0)
 147         draw_mensural_inner_flag(3.0)
 148         currentpicture := currentpicture xscaled -1 yscaled -1;
 149 fet_endchar;
 150
 151 fet_beginchar("32th Mensural Flag (down)", "mensurald15", "mensd1thirtysecondflag")
 152         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 153         draw_mensural_outermost_flag_ii
 154         draw_mensural_inner_flag(1.5)
 155         draw_mensural_inner_flag(2.5)
 156         currentpicture := currentpicture xscaled -1 yscaled -1;
 157 fet_endchar;
 158
 159 fet_beginchar("64th Mensural Flag (up)", "mensuralu06", "menssixtyfourthflag")
 160         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 161         draw_mensural_outermost_flag_i
 162         draw_mensural_inner_flag(1.5)
 163         draw_mensural_inner_flag(2.5)
 164         draw_mensural_inner_flag(3.5)
 165 fet_endchar;
 166
 167 fet_beginchar("64th Mensural Flag (up)", "mensuralu16", "mens1sixtyfourthflag")
 168         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 169         draw_mensural_outermost_flag_ii
 170         draw_mensural_inner_flag(1.17)
 171         draw_mensural_inner_flag(2.08)
 172         draw_mensural_inner_flag(3.00)
 173 fet_endchar;
 174
 175 fet_beginchar("64th Mensural Flag (down)", "mensurald06", "mensdsixtyfourthflag")
 176         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 177         draw_mensural_outermost_flag_i
 178         draw_mensural_inner_flag(1.5)
 179         draw_mensural_inner_flag(2.5)
 180         draw_mensural_inner_flag(3.5)
 181         currentpicture := currentpicture xscaled -1 yscaled -1;
 182 fet_endchar;
 183
 184 fet_beginchar("64th Mensural Flag (down)", "mensurald16", "mensd1sixtyfourthflag")
 185         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 186         draw_mensural_outermost_flag_ii
 187         draw_mensural_inner_flag(1.17)
 188         draw_mensural_inner_flag(2.08)
 189         draw_mensural_inner_flag(3.00)
 190         currentpicture := currentpicture xscaled -1 yscaled -1;
 191 fet_endchar;
 192
 193 %%%%%%%%
 194 %
 195 %
 196 %
 197 % Mensural Notation
 198 %
 199 %
 200 %
 201
 202 def draw_mensural_outermost_flag_i =
 203         define_pixels(stafflinethickness, staff_space)
 204
 205         pickup pencircle
 206                 xscaled 1.00 stafflinethickness
 207                 yscaled 0.22 staff_space
 208                 rotated -35;
 209
 210         save za, zb, zc, zd, ze;
 211         pair za, zb, zc, zd, ze;
 212
 213         za = (+0.00 staff_space, -0.00 staff_space);
 214         zb = (+0.15 staff_space, -0.00 staff_space);
 215         zc = (+0.45 staff_space, -0.35 staff_space);
 216         zd = (+0.45 staff_space, -0.85 staff_space);
 217         ze = (+0.00 staff_space, -2.00 staff_space);
 218
 219         draw za .. zb -- zc{zc-zb} .. {ze-zd}zd -- ze;
 220 enddef;
 221
 222 def draw_mensural_outermost_flag_ii =
 223         define_pixels(stafflinethickness, staff_space)
 224
 225         pickup pencircle
 226                 xscaled 1.00 stafflinethickness
 227                 yscaled 0.22 staff_space
 228                 rotated -35;
 229
 230         save za, zb, zc, zd, ze;
 231         pair za, zb, zc, zd, ze;
 232
 233         za = (+0.00 staff_space, -0.00 staff_space);
 234         zb = (+0.15 staff_space, -0.00 staff_space);
 235         zc = (+0.20 staff_space, -0.05 staff_space);
 236         zd = (+0.20 staff_space, -1.15 staff_space);
 237         ze = (+0.00 staff_space, -1.40 staff_space);
 238
 239         draw za .. zb -- zc{zc-zb} .. {ze-zd}zd -- ze;
 240 enddef;
 241
 242 def draw_mensural_inner_flag(expr il_shift) =
 243         define_pixels(stafflinethickness, staff_space)
 244
 245         pickup pencircle
 246                 xscaled 1.00 stafflinethickness
 247                 yscaled 0.22 staff_space
 248                 rotated -35;
 249
 250         save zs, za, zb, zc, zd;
 251         pair zs, za, zb, zc, zd;
 252
 253         zs = (0, -il_shift * staff_space);
 254         za = zs + (+0.00 staff_space, -0.10 staff_space);
 255         zb = zs + (+0.33 staff_space, -0.30 staff_space);
 256         zc = zs + (+0.33 staff_space, -0.70 staff_space);
 257         zd = zs + (+0.00 staff_space, -0.90 staff_space);
 258
 259         draw za{2,1} .. zb .. zc .. {-2,-1}zd;
 260 enddef;
 261
 262 fet_beginchar("8th Mensural Flag (up)", "mensuralu03", "menseighthflag")
 263         set_char_box(0, 0.60 staff_space#, 2.00 staff_space#, 0)
 264         draw_mensural_outermost_flag_i
 265 fet_endchar;
 266
 267 fet_beginchar("8th Mensural Flag (up)", "mensuralu13", "mens1eighthflag")
 268         set_char_box(0, 0.60 staff_space#, 1.50 staff_space#, 0)
 269         draw_mensural_outermost_flag_ii
 270 fet_endchar;
 271
 272 fet_beginchar("8th Mensural Flag (down)", "mensurald03", "mensdeighthflag")
 273         set_char_box(0.60 staff_space#, 0, 0, 2.00 staff_space#)
 274         draw_mensural_outermost_flag_i
 275         currentpicture := currentpicture xscaled -1 yscaled -1;
 276 fet_endchar;
 277
 278 fet_beginchar("8th Mensural Flag (down)", "mensurald13", "mensd1eighthflag")
 279         set_char_box(0.60 staff_space#, 0, 0, 1.50 staff_space#)
 280         draw_mensural_outermost_flag_ii
 281         currentpicture := currentpicture xscaled -1 yscaled -1;
 282 fet_endchar;
 283
 284 fet_beginchar("16th Mensural Flag (up)", "mensuralu04", "menssixteenthflag")
 285         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 286         draw_mensural_outermost_flag_i
 287         draw_mensural_inner_flag(2.0)
 288 fet_endchar;
 289
 290 fet_beginchar("16th Mensural Flag (up)", "mensuralu14", "mens1sixteenthflag")
 291         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 292         draw_mensural_outermost_flag_ii
 293         draw_mensural_inner_flag(1.5)
 294 fet_endchar;
 295
 296 fet_beginchar("16th Mensural Flag (down)", "mensurald04", "mensdsixteenthflag")
 297         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 298         draw_mensural_outermost_flag_i
 299         draw_mensural_inner_flag(2.0)
 300         currentpicture := currentpicture xscaled -1 yscaled -1;
 301 fet_endchar;
 302
 303 fet_beginchar("16th Mensural Flag (down)", "mensurald14", "mensd1sixteenthflag")
 304         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 305         draw_mensural_outermost_flag_ii
 306         draw_mensural_inner_flag(1.5)
 307         currentpicture := currentpicture xscaled -1 yscaled -1;
 308 fet_endchar;
 309
 310 fet_beginchar("32th Mensural Flag (up)", "mensuralu05", "mensthirtysecondflag")
 311         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 312         draw_mensural_outermost_flag_i
 313         draw_mensural_inner_flag(2.0)
 314         draw_mensural_inner_flag(3.0)
 315 fet_endchar;
 316
 317 fet_beginchar("32th Mensural Flag (up)", "mensuralu15", "mens1thirtysecondflag")
 318         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 319         draw_mensural_outermost_flag_ii
 320         draw_mensural_inner_flag(1.5)
 321         draw_mensural_inner_flag(2.5)
 322 fet_endchar;
 323
 324 fet_beginchar("32th Mensural Flag (down)", "mensurald05", "mensdthirtysecondflag")
 325         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 326         draw_mensural_outermost_flag_i
 327         draw_mensural_inner_flag(2.0)
 328         draw_mensural_inner_flag(3.0)
 329         currentpicture := currentpicture xscaled -1 yscaled -1;
 330 fet_endchar;
 331
 332 fet_beginchar("32th Mensural Flag (down)", "mensurald15", "mensd1thirtysecondflag")
 333         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 334         draw_mensural_outermost_flag_ii
 335         draw_mensural_inner_flag(1.5)
 336         draw_mensural_inner_flag(2.5)
 337         currentpicture := currentpicture xscaled -1 yscaled -1;
 338 fet_endchar;
 339
 340 fet_beginchar("64th Mensural Flag (up)", "mensuralu06", "menssixtyfourthflag")
 341         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 342         draw_mensural_outermost_flag_i
 343         draw_mensural_inner_flag(1.5)
 344         draw_mensural_inner_flag(2.5)
 345         draw_mensural_inner_flag(3.5)
 346 fet_endchar;
 347
 348 fet_beginchar("64th Mensural Flag (up)", "mensuralu16", "mens1sixtyfourthflag")
 349         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 350         draw_mensural_outermost_flag_ii
 351         draw_mensural_inner_flag(1.17)
 352         draw_mensural_inner_flag(2.08)
 353         draw_mensural_inner_flag(3.00)
 354 fet_endchar;
 355
 356 fet_beginchar("64th Mensural Flag (down)", "mensurald06", "mensdsixtyfourthflag")
 357         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 358         draw_mensural_outermost_flag_i
 359         draw_mensural_inner_flag(1.5)
 360         draw_mensural_inner_flag(2.5)
 361         draw_mensural_inner_flag(3.5)
 362         currentpicture := currentpicture xscaled -1 yscaled -1;
 363 fet_endchar;
 364
 365 fet_beginchar("64th Mensural Flag (down)", "mensurald16", "mensd1sixtyfourthflag")
 366         set_char_box(0, 0.60 staff_space#, 3.00 staff_space#, 0)
 367         draw_mensural_outermost_flag_ii
 368         draw_mensural_inner_flag(1.17)
 369         draw_mensural_inner_flag(2.08)
 370         draw_mensural_inner_flag(3.00)
 371         currentpicture := currentpicture xscaled -1 yscaled -1;
 372 fet_endchar;
 373
 374 fet_endgroup ("flags")