[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Add hihat halfopen glyph to font (issue4714043)
From: |
Carl . D . Sorensen |
Subject: |
Add hihat halfopen glyph to font (issue4714043) |
Date: |
Thu, 14 Jul 2011 01:43:56 +0000 |
Reviewers: ,
Message:
Here is the patch for the new hihat halfopen glyph as requested in Issue
1688.
If you are not building in a clean directory, you will need to do
rm mf/out/* && make
in order to generate the font with the new glyph
Description:
Add hihat halfopen glyph to font
Please review this at http://codereview.appspot.com/4714043/
Affected files:
M mf/feta-scripts.mf
Index: mf/feta-scripts.mf
diff --git a/mf/feta-scripts.mf b/mf/feta-scripts.mf
index
d04ed18b7b5e99c2641079b77e6af9a459a634ad..711d24a2d5245506a3c3fd7ed3f681c8d984d84b
100644
--- a/mf/feta-scripts.mf
+++ b/mf/feta-scripts.mf
@@ -620,6 +620,45 @@ fet_beginchar ("halfopen (unstopped)", "halfopen");
fet_endchar;
+fet_beginchar ("halfopen hi hat", "hihathalfopen");
+ save thin, height, width, thick, factor, slash;
+ save epsilon;
+
+ factor := 5/4 * sqrt(1 + 25/16);
+ height# = 5/4 width#;
+ height# = staff_space#;
+ thin = 0.6 linethickness + 0.06 staff_space;
+ slash# = 1.05 linethickness#;
+ epsilon := .08;
+
+ set_char_box (width# / 2, width# / 2, height# / 2, height# / 2);
+
+ define_pixels (width, height, slash);
+
+ 2 thick + 0.6 (height - 2 thin) = width;
+
+ penpos1 (thick, 0);
+ penpos2 (thin, 90);
+ penpos3 (thick, 180);
+ penpos4 (thin, 270);
+ z1r = (w, 0);
+ z2r = (0, h);
+ z3r = (-w, 0);
+ z4r = (0, -h);
+
+ penlabels (1, 2, 3, 4);
+
+ penstroke z1e{up}
+ .. z2e{left}
+ .. z3e{down}
+ .. z4e{right}
+ .. cycle;
+
+ draw_brush ((-epsilon, -h * factor), slash,
+ (epsilon, h * factor), slash);
+fet_endchar;
+
+
fet_beginchar ("plus (stopped)", "stopped");
save hthick, vthick, size, outer_hsize, outer_vsize;
- Add hihat halfopen glyph to font (issue4714043),
Carl . D . Sorensen <=