From: fred <fred>
Date: Sun, 24 Mar 2002 20:06:11 +0000 (+0000)
Subject: lilypond-0.1.47
X-Git-Tag: release/1.5.59~3413
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=54da681eb6bbaa7d833f7a4dc1e341e77ef6754b;p=lilypond.git

lilypond-0.1.47
---

diff --git a/init/script.ly b/init/script.ly
index 8db8016258..7b70c66a4a 100644
--- a/init/script.ly
+++ b/init/script.ly
@@ -13,10 +13,10 @@ staccato = \script { "staccato" 1 -1 0 0 0 }
 tenuto = \script {"tenuto" 0 -1 0 0 0 }
 upbow = \script { "upbow" 0 0 1 0 0 }
 downbow = \script { "downbow" 0 0 1 0 0 }
-lheel = \script { "pedalheel" 0 0 -1  0 0 }
-rheel = \script { "pedalheel" 0 0 1 0 0 }
-ltoe = \script { "pedaltoe" 0 0 -1 0 0 }
-rtoe = \script { "pedaltoe" 0 0 1 0 0 }
+lheel = \script { "upedalheel" 0 0 -1  0 0 }
+rheel = \script { "dpedalheel" 0 0 1 0 0 }
+ltoe = \script { "upedaltoe" 0 0 -1 0 0 }
+rtoe = \script { "dpedaltoe" 0 0 1 0 0 }
 turn = \script { "turn" 0 0 1 0 0 }
 open = \script { "open" 0 0 1 0 0 }
 flageolet = \script { "flageolet"  0 0 1 0 0 }
diff --git a/mf/feta-generic.mf b/mf/feta-generic.mf
index 9891168c1e..315f49383d 100644
--- a/mf/feta-generic.mf
+++ b/mf/feta-generic.mf
@@ -1,3 +1,11 @@
+% 
+% feta-generic.mf --  implement 
+% 
+% source file of the Feta (defintively not an abbreviation for Font-En-Tja)
+% music font
+% 
+% (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
+% 
 
 
 if test = -1:
@@ -28,7 +36,7 @@ else:
 %	input feta-bolletjes;	
 %	input feta-banier;
 %	input feta-eindelijk;
-	input feta-klef;
+%	input feta-klef;
 %	input feta-toevallig;
-%	input feta-schrift;
+	input feta-schrift;
 fi
diff --git a/mf/feta-schrift.mf b/mf/feta-schrift.mf
index 9cc309f3fb..9a08537316 100644
--- a/mf/feta-schrift.mf
+++ b/mf/feta-schrift.mf
@@ -1,7 +1,8 @@
-% 
+% -*- Fundamental -*-  (emacs-20 mf mode mucks
 % feta-schrift.mf --  implement scripts
 % 
-% source file of the Feta (Font-En-Tja) music font
+% source file of the Feta (defintively not an abbreviation for Font-En-Tja)
+% music font
 % 
 % (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
 %	Jan Nieuwenhuizen <jan@digicash.com>
@@ -12,39 +13,39 @@ fet_begingroup("scripts")
 
 
 def draw_fermata =
-	save alpha, radius, crook_thinness, crook_fatness, dot_diam;
-	
+  save alpha, radius, crook_thinness, crook_fatness, dot_diam;
+  
 	% [Wanske] and some  Baerenreiter editions
 	% suggest ca 80 degrees iso half-circle
-	alpha := 10;
+  alpha := 10;
 
-	radius# = 1.25 interline#;
-	crook_thinness# = 1.5stafflinethickness#;
-	crook_fatness# = 4 stafflinethickness#;
+  radius# = 1.25 interline#;
+  crook_thinness# = 1.5stafflinethickness#;
+  crook_fatness# = 4 stafflinethickness#;
 
-	radius# + crook_fatness#/2 = h#;
-	radius# + crook_thinness#/2 = w#;
-	set_char_box(w#, w#, crook_thinness#/2, h#);
-	
-	define_pixels(radius, crook_thinness, crook_fatness);
-	dot_diam = 4/3 crook_fatness;
+  radius# + crook_fatness#/2 = h#;
+  radius# + crook_thinness#/2 = w#;
+  set_char_box(w#, w#, crook_thinness#/2, h#);
+  
+  define_pixels(radius, crook_thinness, crook_fatness);
+  dot_diam = 4/3 crook_fatness;
 
 
-	penpos1(crook_thinness, 0);
-	penpos2(crook_fatness, -90);
-	z1 = (-radius,0);
-	z2 = (0, radius);
+  penpos1(crook_thinness, 0);
+  penpos2(crook_fatness, -90);
+  z1 = (-radius,0);
+  z2 = (0, radius);
 
-	fill z1l{dir (-alpha-90)}..{dir (90-alpha)}z1r..
-		{right}z2r -- z2l{left} .. cycle;
+  fill z1l{dir (-alpha-90)}..{dir (90-alpha)}z1r..
+  {right}z2r -- z2l{left} .. cycle;
 
-	addto currentpicture also 
-		currentpicture xscaled -1;
+  addto currentpicture also 
+  currentpicture xscaled -1;
 
-	pickup pencircle scaled dot_diam;
-	x4 =0;
-	bot y4 = - crook_thinness/2;
-	draw z4;
+  pickup pencircle scaled dot_diam;
+  x4 =0;
+  bot y4 = - crook_thinness/2;
+  draw z4;
 enddef;
 
 fet_beginchar("fermata up", "ufermata", "ufermata")
@@ -453,7 +454,8 @@ fet_beginchar("Trill (`tr')","trill","trill")
 	draw_bulb(-1, z13r, z13l, bulb_size * r_fatness, 1.5);
 fet_endchar;
 
-fet_beginchar("organ-heel", "pedalheel", "pedalheel")
+
+def draw_heel =
 	save radius, thickness, wall;
 
 	radius# := .5 interline#;
@@ -474,10 +476,21 @@ fet_beginchar("organ-heel", "pedalheel", "pedalheel")
 
 	draw z1{down} .. z2{down} .. z3{left};
 	addto currentpicture also currentpicture xscaled -1;
+	
+enddef;
+
+
+fet_beginchar("left heel", "upedalheel", "upedalheel")
+	draw_heel;
 	labels(1,2,3);
 fet_endchar;
 
-fet_beginchar("organ-toe", "pedaltoe", "pedaltoe")
+fet_beginchar("right heel", "dpedalheel", "dpedalheel")
+	draw_heel;
+	y_mirror_char;
+fet_endchar;
+
+def draw_toe =
 	save ht,wd;
 
 	thickness := 1.5 stafflinethickness;
@@ -497,8 +510,17 @@ fet_beginchar("organ-toe", "pedaltoe", "pedaltoe")
 
 
 	draw z1 -- z2 -- z3;
+
+enddef;
+	
+fet_beginchar("left toe", "upedaltoe", "upedaltoe")
+	draw_toe;
 	labels(1,2,3);
 fet_endchar;
+fet_beginchar("right toe", "dpedaltoe", "dpedaltoe")
+	draw_toe;
+	y_mirror_char;
+fet_endchar;
 
 fet_beginchar("Flageolet", "flageolet", "flageolet")
 	save height,width,thickness;
diff --git a/mf/grayimagen.mf b/mf/grayimagen.mf
new file mode 100644
index 0000000000..db627b06ce
--- /dev/null
+++ b/mf/grayimagen.mf
@@ -0,0 +1,9 @@
+% Gray font for Imagen 8/300; proofsheet resolution is 75 pixels per inch.
+% Each pixel is represented by a 4x4 square, with 4/16 of the dots on.
+
+
+font_identifier "GRAYIMAGEN";
+
+boolean lightweight;
+
+input grayf