- penlabels (1, 2);
- labels(3, 4, 5, 6, 7, 8, 9);
-
- fill z2r -- z2l -- simple_serif (z1l, z1r, 40) -- cycle;
- fill z2r{z2r-z1r} .. z9 .. z2l{dir(232)} .. tension 2
- .. z4{left} .. tension 0.9 .. z7 %{dir(90 + 25)}
- .. z5{left} .. z8 .. z3{right}
- .. {curl 0.2}z6 -- cycle;
-
-% draw_staff (-2,2,0.0);
-
- enddef;
-
-fet_beginchar("8th rest","3","eighthrest");
- draw_eighth_rest;
- fet_endchar;
-
-fet_beginchar("Classical quarter rest","2classical","clasquartrest");
- draw_eighth_rest;
- currentpicture := currentpicture xscaled -1 shifted (w,0);
- fet_endchar;
-
-
-fet_beginchar("16th rest","4","sixteenthrest");
-% draw_staff (-2, 2, 0.0);
- save yshift, ballcorrection;
- ballcorrection = 0.005 staff_space;
-
- yshift# := - 2 staff_space#;
- define_pixels(yshift);
-
- save alpha,cw,h,w, height;
- alpha=74;
- cw#=7/6staff_space#;
- height# = 5/3staff_space#+staff_space#+7/4stafflinethickness#;
- set_char_box(0, cw#+(height#-3/2staff_space#)/tand(alpha),
- -yshift#, height# + yshift#);
-
- define_pixels(cw);
- save x,y;
- x1=w-stem/6;
- y1 = yshift + 2.5 staff_space + flare/4 + ballcorrection;
-
- z2-z1=whatever*dir alpha;
- y2= yshift + stem/2;
- brush(z1,2/3stem,z2,stem);
- rest_crook (z1,cw);
- z3-z1=whatever*dir alpha;
- y3=y1-staff_space;
- rest_crook (z3,cw);
- penlabels(1,2);
- fet_endchar;
-
-fet_beginchar("32th rest","5","thirtysecondrest");
-% draw_staff (-2, 2, 0.0);
- save yshift, ballcorrection;
- ballcorrection = 0.005 staff_space;
-
- yshift# := -2 staff_space#;
- define_pixels(yshift);
-
- save alpha,cw,h;
- alpha=76;
- cw#=7/6staff_space#;
- h#=5/3staff_space#+2staff_space#+7/4stafflinethickness#;
-
- set_char_box(0, cw#+(h#-3/2staff_space#)/tand(alpha),
- -yshift#,yshift# +h#);
- define_pixels(cw);
- save x,y;
- x1=w-stem/6;
- y1 = yshift + 3.5 staff_space + flare/4 + ballcorrection;
-
- z2-z1=whatever*dir alpha;
- y2=stem/2 + yshift;
- brush(z1,2/3stem,z2,stem);
- rest_crook (z1,cw);
- z3-z1=whatever*dir alpha;
- y3=y1-staff_space;
- rest_crook (z3,cw);
- z4-z1=whatever*dir alpha;
- y4=y1-2staff_space;
- rest_crook (z4,cw);
- fet_endchar;
-
-fet_beginchar("64th rest","6","sixtyfourthrest");
-% draw_staff (-2, 2, 0.0);
- save yshift, ballcorrection;
- ballcorrection = 0.005 staff_space;
-
- yshift# := -3 staff_space#;
- define_pixels(yshift);
-
- save alpha,cw,h,w;
- alpha=78;
- cw#=7/6staff_space#;
- h#=5/3staff_space#+3staff_space#+7/4stafflinethickness#;
- w#=cw#+(h#-3/2staff_space#)/tand(alpha);
- set_char_box(0,w#,-yshift# ,yshift# + h#);
-
- define_pixels(cw);
- save x,y;
- x1=w-stem/6;
-
- y1 = yshift + 4.5 staff_space + flare/4 + ballcorrection;
-
- z2-z1=whatever*dir alpha;
- y2=stem/2 + yshift;
- brush (z1,2/3stem,z2,stem);
- rest_crook (z1,cw);
- z3-z1=whatever*dir alpha;
- y3=y1-staff_space;
- rest_crook (z3,cw);
- z4-z1=whatever*dir alpha;
- y4=y1-2staff_space;
- rest_crook (z4,cw);
- z5-z1=whatever*dir alpha;
- y5=y1-3staff_space;
- rest_crook (z5,cw);
-
- fet_endchar;
-
-fet_beginchar("128th rest","7","hundredtwentyeighthrest");
-% draw_staff (-2, 2, 0.0);
- save yshift, ballcorrection;
- ballcorrection = 0.005 staff_space;
-
- yshift# := -3 staff_space#;
- define_pixels(yshift);
- save alpha,cw,h,w;
- alpha=78;
- cw#=7/6staff_space#;
- h#=5/3staff_space#+4staff_space#+7/4stafflinethickness#;
- w#=cw#+(h#-3/2staff_space#)/tand(alpha);
- set_char_box(0,w#, -yshift#,yshift# + h#);
- define_pixels(cw);
- save x,y;
- x1=w-stem/6;
- y1 = yshift + 5.5 staff_space + flare/4 + ballcorrection;
-
- z2-z1=whatever*dir alpha;
- y2=stem/2 + yshift;
- brush (z1,2/3stem,z2,stem);
- rest_crook (z1,cw);
- z3-z1=whatever*dir alpha;
- y3=y1-staff_space;
- rest_crook (z3,cw);
- z4-z1=whatever*dir alpha;
- y4=y1-2staff_space;
- rest_crook (z4,cw);
- z5-z1=whatever*dir alpha;
- y5=y1-3staff_space;
- rest_crook (z5,cw);
- z6-z1=whatever*dir alpha;
- y6=y1-4staff_space;
- rest_crook (z6,cw);
-
- fet_endchar;