X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Ffeta-scripts.mf;h=b3843960c27329119fadc6d7b0b932894b3088dd;hb=7b3a9b122d7ef1eb70fdabaac466b7b0c23a1df2;hp=7d76d0f6ea647db37c9ee684bbc16b0b1a554fdf;hpb=4f27e3239758438b394f89c8d268fedf66dd3999;p=lilypond.git

diff --git a/mf/feta-scripts.mf b/mf/feta-scripts.mf
index 7d76d0f6ea..b3843960c2 100644
--- a/mf/feta-scripts.mf
+++ b/mf/feta-scripts.mf
@@ -1,7 +1,7 @@
 % Feta (not the Font-En-Tja) music font --  implement scripts
 % This file is part of LilyPond, the GNU music typesetter.
 %
-% Copyright (C) 1997--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
+% Copyright (C) 1997--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
 %	Jan Nieuwenhuizen <janneke@gnu.org>
 %
 %
@@ -583,6 +583,43 @@ fet_beginchar ("open (unstopped)", "open");
 fet_endchar;
 
 
+fet_beginchar ("halfopen (unstopped)", "halfopen");
+	save thin, height, width, thick, factor, slash;
+
+	factor = 5/4;
+	height# = 5/4 width#;
+	height# = staff_space#;
+	thin = 0.6 linethickness + 0.06 staff_space;
+	slash# = 1.05 linethickness#;
+
+	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 ((-w * factor, -h * factor), slash,
+		    (w * factor, h * factor), slash);
+fet_endchar;
+
+
 fet_beginchar ("plus (stopped)", "stopped");
 	save hthick, vthick, size, outer_hsize, outer_vsize;
 
@@ -1115,6 +1152,97 @@ fet_beginchar ("Segno", "segno");
 fet_endchar;
 
 
+fet_beginchar ("Varied Segno", "varsegno");
+	save ht, wd, loopdist, loopangle;
+	save thin, med, thick;
+	save bulbradius, center;
+	pair center;
+
+	ht# = 8 staff_space#;
+	wd# = 2.5 staff_space#;
+
+	set_char_box (wd# / 2, wd# / 2, ht# / 2, ht# / 2);
+	% set_char_box (0, 0, ht# / 2, ht# / 2);
+
+	loopdist = 4/3 staff_space;
+	loopangle = 35;
+
+	thick = 1/2 staff_space;
+	med = 1/4 staff_space;
+	thin = 1/10 staff_space;
+
+	x1 = staff_space;
+	y1 = 13/4 staff_space;
+	penpos1 (med, 210);
+
+	z2l = (0, 4 staff_space);
+	penpos2 (med, 270 - loopangle);
+
+	x3 = -x1;
+	y3 = y1 + 1/4 staff_space;
+	penpos3 (med, 270 + loopangle);
+
+        center = (0, 2 staff_space);
+	z4 = (3/4 staff_space, 2 staff_space)
+	     rotatedabout (center, 180 - loopangle);
+	z5 = 2[z4, center];
+	x9 = x4;
+	y9 = y4 - 2 loopdist;
+	x10 = x5;
+	y10 = y5 - 2 loopdist;
+
+	penpos4 (thick, 90 - loopangle);
+	penpos5 (thick, 90 - loopangle);
+	penpos9 (thick, 90 - loopangle);
+	penpos10 (thick, 90 - loopangle);
+
+	z6 = (4/3 staff_space, 4/3 staff_space)
+	     rotatedabout (2/3 center, -loopangle);
+	x11 = x6;
+	y11 = y6 - 2 loopdist;
+
+	penpos6 (thin, -loopangle);
+	penpos11 (thin, -loopangle);
+
+	z7 = 1/3 center;
+	penpos7 (thick, 270 - loopangle);
+
+	z8 = (4/3 staff_space, 0) rotated (180 - loopangle);
+	penpos8 (thin, -loopangle);
+
+	z12 = -center;
+	penpos12 (thick, 270 - loopangle);
+
+	z1' = 4/3[z1l, z1r];
+	bulbradius = length (z1l - z1');
+	pickup pencircle scaled 2 bulbradius;
+
+	save se_dir, nw_dir;
+	pair se_dir, nw_dir;
+	se_dir := dir -loopangle;
+	nw_dir := dir (180 - loopangle);
+
+	draw_bulb (-1, z1r, z1l, bulbradius, .8);
+
+	penstroke z1e
+		  .. z2e
+		  .. z3e
+		  ... {se_dir}z4e
+		  -- z5e{se_dir}
+		  ... z6e
+		  ... z7e{nw_dir}
+		  ... z8e
+		  ... {se_dir}z9e
+		  -- z10e{se_dir}
+		  ... z11e
+		  ... {nw_dir}z12e;
+	addto currentpicture also currentpicture scaled -1;
+
+	penlabels (1, 1', 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12);
+	% draw_staff (-2, 2, 0);
+fet_endchar;
+
+
 fet_beginchar ("Coda", "coda");
 	save stickout, thin, thick, codawidth, codaheight;