mf/parmesan-timesig.mf

   1 % -*-Fundamental-*-
   2 % parmesan-timesig.mf -- implement ancient time signatures
   3 %
   4 % source file of LilyPond's pretty-but-neat music font
   5 %
   6 % (c) 1998--2002 Mats Bengtsson <matsb@s3.kth.se>,
   7 %                Christian Mondrup <scancm@biobase.dk>
   8
   9 fet_begingroup ("timesig")
  10
  11 path threequartercircle;
  12 threequartercircle = halfcircle & quartercircle rotated 180;
  13
  14 save Cdiameter,Cthickness;
  15 Cdiameter# := 3/2 staff_space#;
  16 Cthickness# := 2 stafflinethickness#;
  17 define_pixels(Cdiameter,Cthickness);
  18
  19
  20 %%%%%%%%
  21 %
  22 %
  23 %
  24 % MENSURAL NOTATION
  25 %
  26 %
  27 %
  28
  29 %% tempus imperfectum cum prolatione imperfecta
  30 fet_beginchar ("Mensural 4/4 meter", "old4/4", "oldfourfourmeter")
  31         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
  32                 .5 Cdiameter#, .5 Cdiameter#);
  33
  34         pickup pencircle scaled Cthickness;
  35         draw threequartercircle rotated 45 scaled Cdiameter;
  36 fet_endchar;
  37
  38 %% tempus imperfectum cum prolatione imperfecta proportio dupla
  39 fet_beginchar ("Mensural 2/2 meter", "old2/2", "oldallabreve")
  40         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
  41                 staff_space#, staff_space#);
  42
  43         pickup pencircle scaled Cthickness;
  44         draw threequartercircle rotated 45 scaled Cdiameter;
  45         draw_block((-Cthickness, -d), (0, h));
  46 fet_endchar;
  47
  48 %% tempus perfectum cum prolatione imperfecta
  49 fet_beginchar ("Mensural 3/2 meter", "old3/2", "oldthreetwometer")
  50         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
  51                 .5 Cdiameter#, .5 Cdiameter#);
  52
  53         pickup pencircle scaled Cthickness;
  54         draw fullcircle scaled Cdiameter;
  55 fet_endchar;
  56
  57 %% tempus imperfectum cum prolatione perfecta
  58 fet_beginchar ("Mensural 6/4 meter", "old6/4", "oldsixfourmeter")
  59         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
  60                 .5 Cdiameter#, .5 Cdiameter#);
  61
  62         pickup pencircle scaled Cthickness;
  63         draw threequartercircle rotated 45 scaled Cdiameter;
  64         pickup pencircle scaled 4 stafflinethickness;
  65         draw (0,0);
  66 fet_endchar;
  67
  68 %% tempus perfectum cum prolatione perfecta
  69 fet_beginchar ("Mensural 9/4 meter", "old9/4", "oldninefourmeter")
  70         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
  71                 .5 Cdiameter#, .5 Cdiameter#);
  72
  73         pickup pencircle scaled Cthickness;
  74         draw fullcircle scaled Cdiameter;
  75         pickup pencircle scaled 4 stafflinethickness;
  76         draw (0,0);
  77 fet_endchar;
  78
  79 %% tempus perfectum cum prolatione imperfecta proportio dupla
  80 fet_beginchar ("Mensural 3/4 meter", "old3/4", "oldthreefourmeter")
  81         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
  82                 staff_space#, staff_space#);
  83
  84         pickup pencircle scaled Cthickness;
  85         draw fullcircle scaled Cdiameter;
  86         draw_block((-Cthickness/2, -d), (Cthickness/2, h));
  87 fet_endchar;
  88
  89 %% tempus imperfectum cum prolatione perfecta proportio dupla
  90 fet_beginchar ("Mensural 6/8 meter", "old6/8", "oldsixeightmeter")
  91         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
  92                  staff_space#, staff_space#);
  93
  94         pickup pencircle scaled Cthickness;
  95         draw threequartercircle rotated 45 scaled Cdiameter;
  96         pickup pencircle scaled 4 stafflinethickness;
  97         draw (0,0);
  98         draw_block((-Cthickness/2, -d), (Cthickness/2, h));
  99 fet_endchar;
 100
 101 %% tempus perfectum cum prolatione perfecta proportio dupla
 102 fet_beginchar ("Mensural 9/8 meter", "old9/8", "oldnineeight")
 103         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
 104                 staff_space#, staff_space#);
 105
 106         pickup pencircle scaled Cthickness;
 107         draw fullcircle scaled Cdiameter;
 108         pickup pencircle scaled 4 stafflinethickness;
 109         draw (0,0);
 110         draw_block((-Cthickness/2, -d), (Cthickness/2, h));
 111 fet_endchar;
 112
 113 %% tempus imperfectum cum prolatione imperfecta diminutio simplex
 114 fet_beginchar ("Mensural 4/8 meter", "old4/8", "oldfoureightmeter")
 115         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
 116         .5 Cdiameter#, .5 Cdiameter#);
 117
 118         pickup pencircle scaled Cthickness;
 119         draw threequartercircle rotated 225 scaled Cdiameter;
 120 fet_endchar;
 121
 122 %% tempus imperfectum cum prolatione perfecta diminutio simplex
 123 fet_beginchar ("Mensural 6/8 meter", "old6/8alt", "oldsixeightmeteralt")
 124         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
 125                 .5 Cdiameter#, .5 Cdiameter#);
 126
 127         pickup pencircle scaled Cthickness;
 128         draw threequartercircle rotated 225 scaled Cdiameter;
 129         pickup pencircle scaled 4 stafflinethickness;
 130         draw (0,0);
 131 fet_endchar;
 132
 133 %% tempus imperfectum cum prolatione imperfecta diminutio duplex
 134 fet_beginchar ("Mensural 2/4 meter", "old2/4", "oldtwofourmeter")
 135         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
 136                 staff_space#, staff_space#);
 137
 138         pickup pencircle scaled Cthickness;
 139         draw threequartercircle rotated 225 scaled Cdiameter;
 140         draw_block((-Cthickness, -d), (0, h));
 141 fet_endchar;
 142
 143 fet_endgroup ("timesig")