mf/parmesan-timesig.mf

   1 %
   2 % feta-timesig.mf --  implement Time Signatures
   3 %
   4 % source file of the Feta (not an abbreviation of Font-En-Tja) 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 %% tempus imperfectum cum prolatione imperfecta
  20 fet_beginchar ("Mensural 4/4 meter", "old4/4", "oldfourfourmeter")
  21         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
  22                 .5 Cdiameter#, .5 Cdiameter#);
  23
  24         pickup pencircle scaled Cthickness;
  25         draw threequartercircle rotated 45 scaled Cdiameter;
  26 fet_endchar;
  27
  28 %% tempus imperfectum cum prolatione imperfecta proportio dupla
  29 fet_beginchar ("Mensural 2/2 meter", "old2/2", "oldallabreve")
  30         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
  31                 staff_space#, staff_space#);
  32
  33         pickup pencircle scaled Cthickness;
  34         draw threequartercircle rotated 45 scaled Cdiameter;
  35         draw_block((-Cthickness, -d), (0, h));
  36 fet_endchar;
  37
  38 %% tempus perfectum cum prolatione imperfecta
  39 fet_beginchar ("Mensural 3/2 meter", "old3/2", "oldthreetwometer")
  40         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
  41                 .5 Cdiameter#, .5 Cdiameter#);
  42
  43         pickup pencircle scaled Cthickness;
  44         draw fullcircle scaled Cdiameter;
  45 fet_endchar;
  46
  47 %% tempus imperfectum cum prolatione perfecta
  48 fet_beginchar ("Mensural 6/4 meter", "old6/4", "oldsixfourmeter")
  49         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
  50                 .5 Cdiameter#, .5 Cdiameter#);
  51
  52         pickup pencircle scaled Cthickness;
  53         draw threequartercircle rotated 45 scaled Cdiameter;
  54         pickup pencircle scaled 4 stafflinethickness;
  55         draw (0,0);
  56 fet_endchar;
  57
  58 %% tempus perfectum cum prolatione perfecta
  59 fet_beginchar ("Mensural 9/4 meter", "old9/4", "oldninefourmeter")
  60         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
  61                 .5 Cdiameter#, .5 Cdiameter#);
  62
  63         pickup pencircle scaled Cthickness;
  64         draw fullcircle scaled Cdiameter;
  65         pickup pencircle scaled 4 stafflinethickness;
  66         draw (0,0);
  67 fet_endchar;
  68
  69 %% tempus perfectum cum prolatione imperfecta proportio dupla
  70 fet_beginchar ("Mensural 3/4 meter", "old3/4", "oldthreefourmeter")
  71         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
  72                 staff_space#, staff_space#);
  73
  74         pickup pencircle scaled Cthickness;
  75         draw fullcircle scaled Cdiameter;
  76         draw_block((-Cthickness/2, -d), (Cthickness/2, h));
  77 fet_endchar;
  78
  79 %% tempus imperfectum cum prolatione perfecta proportio dupla
  80 fet_beginchar ("Mensural 6/8 meter", "old6/8", "oldsixeightmeter")
  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 threequartercircle rotated 45 scaled Cdiameter;
  86         pickup pencircle scaled 4 stafflinethickness;
  87         draw (0,0);
  88         draw_block((-Cthickness/2, -d), (Cthickness/2, h));
  89 fet_endchar;
  90
  91 %% tempus perfectum cum prolatione perfecta proportio dupla
  92 fet_beginchar ("Mensural 9/8 meter", "old9/8", "oldnineeight")
  93         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
  94                 staff_space#, staff_space#);
  95
  96         pickup pencircle scaled Cthickness;
  97         draw fullcircle scaled Cdiameter;
  98         pickup pencircle scaled 4 stafflinethickness;
  99         draw (0,0);
 100         draw_block((-Cthickness/2, -d), (Cthickness/2, h));
 101 fet_endchar;
 102
 103 %% tempus imperfectum cum prolatione imperfecta diminutio simplex
 104 fet_beginchar ("Mensural 4/8 meter", "old4/8", "oldfoureightmeter")
 105         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
 106         .5 Cdiameter#, .5 Cdiameter#);
 107
 108         pickup pencircle scaled Cthickness;
 109         draw threequartercircle rotated 225 scaled Cdiameter;
 110 fet_endchar;
 111
 112 %% tempus imperfectum cum prolatione perfecta diminutio simplex
 113 fet_beginchar ("Mensural 6/8 meter", "old6/8alt", "oldsixeightmeteralt")
 114         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
 115                 .5 Cdiameter#, .5 Cdiameter#);
 116
 117         pickup pencircle scaled Cthickness;
 118         draw threequartercircle rotated 225 scaled Cdiameter;
 119         pickup pencircle scaled 4 stafflinethickness;
 120         draw (0,0);
 121 fet_endchar;
 122
 123 %% tempus imperfectum cum prolatione imperfecta diminutio duplex
 124 fet_beginchar ("Mensural 2/4 meter", "old2/4", "oldtwofourmeter")
 125         set_char_box(.5 Cdiameter# + staff_space#, .5 Cdiameter# + staff_space#,
 126                 staff_space#, staff_space#);
 127
 128         pickup pencircle scaled Cthickness;
 129         draw threequartercircle rotated 225 scaled Cdiameter;
 130         draw_block((-Cthickness, -d), (0, h));
 131 fet_endchar;
 132
 133 fet_endgroup("timesig");