X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Fparmesan-scripts.mf;h=284aa45f5c163b7bebcf22ee621c2adebbf7142c;hb=bb86a15b82dee13bebedcc3705f3ba2d1f3a0301;hp=7b4e2d164cf709e7ddf83c79d9799d35dbaa51fc;hpb=e18531db1f79fb685fbd16d6a2a67bf4b6c09915;p=lilypond.git

diff --git a/mf/parmesan-scripts.mf b/mf/parmesan-scripts.mf
index 7b4e2d164c..284aa45f5c 100644
--- a/mf/parmesan-scripts.mf
+++ b/mf/parmesan-scripts.mf
@@ -1,7 +1,7 @@
 % Feta (not the Font-En-Tja) music font --  ancient script symbols
 % This file is part of LilyPond, the GNU music typesetter.
 %
-% Copyright (C) 2002--2010 Juergen Reuter <reuter@ipd.uka.de>
+% Copyright (C) 2002--2012 Juergen Reuter <reuter@ipd.uka.de>
 % 
 %
 % LilyPond is free software: you can redistribute it and/or modify
@@ -239,4 +239,62 @@ fet_beginchar ("signum congruentiae down", "dsignumcongruentiae");
 fet_endchar;
 
 
+%%%%%%%%%%%%%
+%%%%
+%%%% Code for Kievan Notation
+%%%%
+%%%%%%%%%%%%%
+
+
+fet_beginchar ("Kievan end of piece (slash)", "barline.kievan");
+	% This draws the end of piece figure.
+	% This figure is placed at the end of the musical piece,
+	% after the staff.
+
+	save hair_thickness, thick_thickness, width, depth, height, padding;
+	hair# = 1.9 linethickness#;
+	thick# = 6.0 linethickness#;
+	width = .8 staff_space;
+	height# + depth# = 4 staff_space#;
+	depth# = height# + hair# / 2;
+	padding = .2 staff_space;
+
+	set_char_box (0, 0, depth#, height#);
+	define_pixels (hair, thick);
+
+	x1r - x2l = width;
+	y1 - y3r = d + h + linethickness / 2;
+	z3 = z2;
+	z4 = .5 [z1, z2]
+	   = (width / 2 + padding, hair / 8);
+	z5 = (x2 - .17 staff_space, 9/10 [y2, y1]);
+	z7 - z6 = (.5 staff_space, -.2 staff_space);
+	.4 [z6, z7] = 7/6 [z2, z1];
+
+	penpos1 (hair, 0);
+	penpos2 (hair, 0);
+	penpos3 (hair, -90);
+	penpos4 (thick, 10);
+	penpos5 (thick, 35);
+	penpos6 (hair, -90);
+	penpos7 (.5 thick, -120);
+
+	penlabels (1, 2, 3, 4, 5, 6, 7);
+
+	penstroke z1e
+		  -- z2e;
+
+	fill z3l
+	     -- z2l{z2 - z1}
+	     .. z3r{right}
+	     .. z4r
+	     .. z5r
+	     .. z6r
+	     .. simple_serif (z7r, z7l, 80)
+	     .. {left}z6l
+	     .. z5l
+	     .. z4l
+	     .. {left}cycle;
+fet_endchar;
+
 fet_endgroup ("scripts");