2 % parmesan-rests.mf -- implement ancient rests
4 % source file of LilyPond's pretty-but-neat music font
6 % (c) 2001--2002 Juergen Reuter <reuter@ipd.uka.de>
9 fet_begingroup("rests")
21 pen_width# = 2/5 staff_space#;
24 slight_pen_rotation = 15;
26 mens_block_rest_y# = 1/1 staff_space#;
27 mens_half_block_rest_y# = 5/8 staff_space#;
29 define_pixels(mens_block_rest_y, mens_half_block_rest_y,
30 pen_width, pen_height);
32 fet_beginchar("Mensural longa rest", "-2mensural", "menslongarest");
33 set_char_box(pen_width#/2, pen_width#/2,
34 mens_block_rest_y#, mens_block_rest_y#);
38 rotated slight_pen_rotation;
39 draw (0, -mens_block_rest_y) -- (0, mens_block_rest_y);
42 fet_beginchar("Mensural breve rest", "-1mensural", "mensbreverest");
43 set_char_box(pen_width#/2, pen_width#/2,
44 0, mens_block_rest_y#);
48 rotated slight_pen_rotation;
49 draw (0, 0) -- (0, mens_block_rest_y);
52 fet_beginchar("Mensural whole rest", "0mensural", "menssemibrevisrest");
53 set_char_box(pen_width#/2, pen_width#/2,
54 mens_half_block_rest_y#, 0);
58 rotated slight_pen_rotation;
59 draw (0, 0) -- (0, -mens_half_block_rest_y);
62 fet_beginchar("Mensural half rest", "1mensural", "mensminimahalfrest");
63 set_char_box(pen_width#/2, pen_width#/2,
64 0, mens_half_block_rest_y#);
68 rotated slight_pen_rotation;
69 draw (0, 0) -- (0, mens_half_block_rest_y);
72 mensrestsize# = .8staff_space#;
74 fet_beginchar("Mensural 4th rest","2mensural","menssemiminimarest")
75 set_char_box(0,mensrestsize#,0,mensrestsize#);
81 lft x2 = 0; top y2 = 5/8 h;
82 rt x3 = 4/8 w; bot y3 = 6/8 h;
83 rt x4 = 10/8 w; bot y4 = 4/8 h;
84 draw z1 -- z2 -- z3 -- z4;
87 fet_beginchar("Mensural 8th rest","3mensural","mensfusarest")
88 set_char_box(0,mensrestsize#,0,mensrestsize#);
93 rt x1 = 10/8 w; y1 = 0;
94 rt x2 = 10/8 w; top y2 = 5/8 h;
95 lft x3 = 2/8 w; bot y3 = 6/8 h;
96 lft x4 = 0; bot y4 = 4/8 h;
97 draw z1 -- z2 -- z3 -- z4;
100 fet_beginchar("Mensural 16th rest","4mensural","menssemifusarest")
101 set_char_box(0,mensrestsize#,0,staff_space#);
105 rotated pen_rotation;
107 rt x1 = 10/8 w; y1 = 0;
108 rt x2 = 10/8 w; top y2 = 5.5/8 h;
109 lft x3 = 2/8 w; bot y3 = 6.5/8 h;
110 lft x4 = 0; bot y4 = 4.5/8 h;
111 rt x5 = 10/8 w; top y5 = 2.5/8 h;
112 lft x6 = 2/8 w; bot y6 = 3.5/8 h;
113 lft x7 = 0; bot y7 = 1.5/8 h;
114 draw z1 -- z2 -- z3 -- z4;
118 fet_endgroup ("rests")