* mf/feta-eindelijk.mf: Changed layout of 16th and shorter rests
to match the 8th rest. slanted 8th rest a bit more.
WARNING: 8th rest and classical quarter rest exchanged.
+2002-08-01 Rune Zedeler <rune@zedeler.dk>
+
+ * mf/feta-eindelijk.mf: Changed layout of 16th and shorter rests
+ to match the 8th rest. slanted 8th rest a bit more.
+ WARNING: 8th rest and classical quarter rest exchanged.
+
2002-07-31 Rune Zedeler <rune@zedeler.dk>
* input/SondagMorgen/*.ly: Added. TODO: Lots of cleanups but now
2002-07-31 Rune Zedeler <rune@zedeler.dk>
* input/SondagMorgen/*.ly: Added. TODO: Lots of cleanups but now
y1 = - staff_space ;
y2 = h - lower_brush;
x2r = width;
y1 = - staff_space ;
y2 = h - lower_brush;
x2r = width;
- z2 = z1 + whatever*dir(75);
+ z2 = z1 + whatever*dir(72);
z9 = z2 + 0.5 stafflinethickness * dir (angle(z2 - z1)- 10);
pat = z1l --- z2l .. z9 .. z2r --- simple_serif (z1r, z1l, -40) .. cycle;
fill pat;
z9 = z2 + 0.5 stafflinethickness * dir (angle(z2 - z1)- 10);
pat = z1l --- z2l .. z9 .. z2r --- simple_serif (z1r, z1l, -40) .. cycle;
fill pat;
-fet_beginchar("8th rest","3","eighthrest");
+fet_beginchar("Classical quarter rest","2classical","clasquartrest");
+ currentpicture := currentpicture xscaled -1 shifted (w,0);
-fet_beginchar("Classical quarter rest","2classical","clasquartrest");
+fet_beginchar("8th rest","3","eighthrest");
- currentpicture := currentpicture xscaled -1 shifted (w,0);
fet_endchar;
fet_beginchar("16th rest","4","sixteenthrest");
fet_endchar;
fet_beginchar("16th rest","4","sixteenthrest");
pair crook_dir;
path pat;
pair crook_dir;
path pat;
- width# := 1.25 staff_space#;
+ width# := 1.2 staff_space#;
bulb_diam# := 0.64 staff_space#;
thin# := 1.2 stafflinethickness#;
thick# := 2.2 stafflinethickness#;
bulb_diam# := 0.64 staff_space#;
thin# := 1.2 stafflinethickness#;
thick# := 2.2 stafflinethickness#;
y1 = -2 staff_space ;
y2 = h - lower_brush;
x2r = width;
y1 = -2 staff_space ;
y2 = h - lower_brush;
x2r = width;
- z2 = z1 + whatever*dir(75.5);
+ z2 = z1 + whatever*dir(74);
z9 = z2 + 0.5 stafflinethickness * dir (angle(z2 - z1)- 10);
pat = z1l --- z2l .. z9 .. z2r --- simple_serif (z1r, z1l, -40) .. cycle;
fill pat;
z9 = z2 + 0.5 stafflinethickness * dir (angle(z2 - z1)- 10);
pat = z1l --- z2l .. z9 .. z2r --- simple_serif (z1r, z1l, -40) .. cycle;
fill pat;
pair crook_dir;
path pat;
pair crook_dir;
path pat;
- width# := 1.5 staff_space#;
+ width# := 1.3 staff_space#;
bulb_diam# := 0.64 staff_space#;
thin# := 1.2 stafflinethickness#;
thick# := 2.2 stafflinethickness#;
bulb_diam# := 0.64 staff_space#;
thin# := 1.2 stafflinethickness#;
thick# := 2.2 stafflinethickness#;
pair crook_dir;
path pat;
pair crook_dir;
path pat;
- width# := 1.75 staff_space#;
+ width# := 1.4 staff_space#;
bulb_diam# := 0.64 staff_space#;
thin# := 1.2 stafflinethickness#;
thick# := 2.2 stafflinethickness#;
bulb_diam# := 0.64 staff_space#;
thin# := 1.2 stafflinethickness#;
thick# := 2.2 stafflinethickness#;
y1 = -3 staff_space ;
y2 = h - lower_brush;
x2r = width;
y1 = -3 staff_space ;
y2 = h - lower_brush;
x2r = width;
- z2 = z1 + whatever*dir(76.5);
+ z2 = z1 + whatever*dir(78);
z9 = z2 + 0.5 stafflinethickness * dir (angle(z2 - z1)- 10);
pat = z1l --- z2l .. z9 .. z2r --- simple_serif (z1r, z1l, -40) .. cycle;
fill pat;
z9 = z2 + 0.5 stafflinethickness * dir (angle(z2 - z1)- 10);
pat = z1l --- z2l .. z9 .. z2r --- simple_serif (z1r, z1l, -40) .. cycle;
fill pat;
pair crook_dir;
path pat;
pair crook_dir;
path pat;
- width# := 2.0 staff_space#;
+ width# = 1.5 staff_space#;
bulb_diam# := 0.64 staff_space#;
thin# := 1.2 stafflinethickness#;
thick# := 2.2 stafflinethickness#;
bulb_diam# := 0.64 staff_space#;
thin# := 1.2 stafflinethickness#;
thick# := 2.2 stafflinethickness#;
y1 = -3 staff_space ;
y2 = h - lower_brush;
x2r = width;
y1 = -3 staff_space ;
y2 = h - lower_brush;
x2r = width;
- z2 = z1 + whatever*dir(77);
+ z2 = z1 + whatever*dir(80);
z9 = z2 + 0.5 stafflinethickness * dir (angle(z2 - z1)- 10);
pat = z1l --- z2l .. z9 .. z2r --- simple_serif (z1r, z1l, -40) .. cycle;
fill pat;
z9 = z2 + 0.5 stafflinethickness * dir (angle(z2 - z1)- 10);
pat = z1l --- z2l .. z9 .. z2r --- simple_serif (z1r, z1l, -40) .. cycle;
fill pat;