%
% source file of LilyPond's pretty-but-neat music font
%
-% (c) 2001--2004 Juergen Reuter <reuter@ipd.uka.de>
+% (c) 2001--2006 Juergen Reuter <reuter@ipd.uka.de>
%
% Neo-mensural rests originally by
% Christian Mondrup and Mats Bengtsson
draw_block ((0,0), (neomens_block_rest_x, neomens_half_block_rest_y));
enddef;
-fet_beginchar("Neo-mensural maxima rest", "-3neomensural", "neomensmaximarest");
+fet_beginchar("Neo-mensural maxima rest", "-3neomensural");
set_char_box(0, 3 neomens_block_rest_x#,
neomens_block_rest_y#, neomens_block_rest_y#);
draw_block ((0,-neomens_block_rest_y),
addto currentpicture also currentpicture shifted (2 neomens_block_rest_x, 0);
fet_endchar;
-fet_beginchar("Neo-mensural longa rest", "-2neomensural", "neomenslongarest");
+fet_beginchar("Neo-mensural longa rest", "-2neomensural");
set_char_box(0, neomens_block_rest_x#,
neomens_block_rest_y#, neomens_block_rest_y#);
draw_block ((0,-neomens_block_rest_y),
(neomens_block_rest_x, neomens_block_rest_y));
fet_endchar;
-fet_beginchar("Neo-mensural breve rest", "-1neomensural", "neomensbreverest");
+fet_beginchar("Neo-mensural breve rest", "-1neomensural");
set_char_box(0, neomens_block_rest_x#,
0, neomens_block_rest_y#);
draw_block ((0,0), (neomens_block_rest_x, neomens_block_rest_y));
fet_endchar;
-fet_beginchar("Neo-mensural whole rest", "0neomensural", "neomenssemibrevisrest");
+fet_beginchar("Neo-mensural whole rest", "0neomensural");
set_char_box(0, neomens_block_rest_x#,
neomens_half_block_rest_y#, 0);
neomens_half_block_rest;
currentpicture shifted (0,- neomens_half_block_rest_y);
fet_endchar;
-fet_beginchar("Neo-mensural half rest", "1neomensural", "neomensminimahalfrest");
+fet_beginchar("Neo-mensural half rest", "1neomensural");
set_char_box(0, neomens_block_rest_x#,
0, neomens_half_block_rest_y#);
neomens_half_block_rest;
neomensrestsize# = 0.8 staff_space#;
-fet_beginchar("Neo-mensural 4th rest","2neomensural","neomenssemiminimarest")
+fet_beginchar("Neo-mensural 4th rest","2neomensural")
set_char_box(0,neomensrestsize#,0,neomensrestsize#);
pickup pencircle scaled 2 stafflinethickness;
lft x1 = 0;
draw z2 .. z3;
fet_endchar
-fet_beginchar("Neo-mensural 8th rest","3neomensural","neomensfusarest")
+fet_beginchar("Neo-mensural 8th rest","3neomensural")
set_char_box(0,neomensrestsize#,0,neomensrestsize#);
pickup pencircle scaled 2 stafflinethickness;
rt x1 = w;
draw z2 .. z3;
fet_endchar
-fet_beginchar("Neo-mensural 16th rest","4neomensural","neomenssemifusarest")
+fet_beginchar("Neo-mensural 16th rest","4neomensural")
set_char_box(0,neomensrestsize#,0,staff_space#);
pickup pencircle scaled 2 stafflinethickness;
rt x1 = w;
define_pixels(mens_block_rest_y, mens_half_block_rest_y,
pen_width, pen_height);
-fet_beginchar("Mensural maxima rest", "-3mensural", "mensmaximarest");
+fet_beginchar("Mensural maxima rest", "-3mensural");
set_char_box(0, pen_width#,
mens_block_rest_y#, 2mens_block_rest_y#);
pickup pencircle
draw (w/2, -mens_block_rest_y) -- (w/2, 2 mens_block_rest_y);
fet_endchar;
-fet_beginchar("Mensural longa rest", "-2mensural", "menslongarest");
+fet_beginchar("Mensural longa rest", "-2mensural");
set_char_box(0, pen_width#,
mens_block_rest_y#, mens_block_rest_y#);
pickup pencircle
draw (w/2, -mens_block_rest_y) -- (w/2, mens_block_rest_y);
fet_endchar;
-fet_beginchar("Mensural breve rest", "-1mensural", "mensbreverest");
+fet_beginchar("Mensural breve rest", "-1mensural");
set_char_box(0, pen_width#,
0, mens_block_rest_y#);
pickup pencircle
draw (w/2, 0) -- (w/2, mens_block_rest_y);
fet_endchar;
-fet_beginchar("Mensural whole rest", "0mensural", "menssemibrevisrest");
+fet_beginchar("Mensural whole rest", "0mensural");
set_char_box(0, pen_width#,
mens_half_block_rest_y#, 0);
pickup pencircle
draw (w/2, 0) -- (w/2, -mens_half_block_rest_y);
fet_endchar;
-fet_beginchar("Mensural half rest", "1mensural", "mensminimahalfrest");
+fet_beginchar("Mensural half rest", "1mensural");
set_char_box(0, pen_width#,
0, mens_half_block_rest_y#);
pickup pencircle
mensrestsize# = .8staff_space#;
-fet_beginchar("Mensural 4th rest","2mensural","menssemiminimarest")
+fet_beginchar("Mensural 4th rest","2mensural")
set_char_box(0,mensrestsize#,0,mensrestsize#);
pickup pencircle
xscaled pen_width
draw z1 -- z2 -- z3 -- z4;
fet_endchar
-fet_beginchar("Mensural 8th rest","3mensural","mensfusarest")
+fet_beginchar("Mensural 8th rest","3mensural")
set_char_box(0,mensrestsize#,0,mensrestsize#);
pickup pencircle
xscaled pen_width
% FIXME: So far, I have never seen a semifusa rest printed. Hence,
% the shape of this font character is currently pure invention. --jr
%
-fet_beginchar("Mensural 16th rest","4mensural","menssemifusarest")
+fet_beginchar("Mensural 16th rest","4mensural")
set_char_box(0,mensrestsize#,0,staff_space#);
pickup pencircle
xscaled pen_width