* mf/feta-klef.mf:

* mf/feta-bolletjes.mf: Oops.  Comment-out canvast test code.

diff --git a/ChangeLog b/ChangeLog
index fb977a3a2f145c64a45b1d934531c9020b5eeeaf..3628f227e02ca0f03b26684d2a24b24e19acb3df 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2004-05-09  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+       * mf/feta-klef.mf: 
+       * mf/feta-bolletjes.mf: Oops.  Comment-out canvast test code.
+
        * Documentation/user/programming-interface.itely: Use @emph (was: @em).
 
        * Documentation/user/out/tutorial.texi: Untrigger lilypond-book error.

diff --git a/mf/feta-bolletjes.mf b/mf/feta-bolletjes.mf
index 69f8977f19ea3f5dc7a11487d35212f9da2fcc33..ba3da5509bd3d1df4bc7b1560bad150803a94325 100644 (file)
--- a/mf/feta-bolletjes.mf
+++ b/mf/feta-bolletjes.mf
@@ -529,7 +529,30 @@ fet_beginchar("X-Circled notehead", "2xcircle", "xcircledhead")
 fet_endchar;
 
 
-
 fet_endgroup("noteheads");
 
+% what is this doing here?
 define_pixels(black_notehead_width);
+
+
+if 0 = 1:
+
+% free space: ascii a-i
+code:=106;
+
+%
+% testing unicode/gnome-canvas
+%
+savecode:=code;
+code:=96;
+%fet_beginchar("Whole notehead", "0", "wholehead")
+fet_beginchar("Ascii a", "a", "a")
+       draw_outside_ellipse (1.80 - puff_up_factor / 3.0, 0, 0.707, 0);
+       undraw_inside_ellipse (1.30, 125 - puff_up_factor *10,
+                       0.68, 2 stafflinethickness#,
+                       (w /2, 0));
+%      draw_staff_outline (-2, 2, 0.5);
+fet_endchar;
+
+code:=savecode;
+fi

diff --git a/mf/feta-klef.mf b/mf/feta-klef.mf
index 0f9df26550b92114e7364063d50f79a01ef4c23d..75b67886a5dd6f53d21cd2d6513d2adc96c0d3d2 100644 (file)
--- a/mf/feta-klef.mf
+++ b/mf/feta-klef.mf
@@ -449,6 +449,7 @@ fet_beginchar("G clef", "G", "trebleclef")
        fi;
        draw_gclef(1.0);
 fet_endchar;
+
 fet_beginchar("G clef", "G_change", "ctrebleclef")
        draw_gclef(0.8);
 fet_endchar;
@@ -669,3 +670,24 @@ fet_beginchar("tab clef (reduced)", "tab_change", "ctabclef")
 fet_endchar;
 
 fet_endgroup("clefs");
+
+if 0 = 1:
+
+%
+% testing unicode/gnome-canvas
+%
+
+savecode:=code;
+code:=97;
+fet_beginchar("Ascii b", "b", "b")
+%%fet_beginchar("G clef", "G", "trebleclef")
+       if test_staff = 1:
+               draw_staff(-1,3, 0.0);
+       fi;
+       draw_gclef(1.0);
+       %% charnamestr:="Ascii b";
+fet_endchar;
+
+code:=savecode;
+
+fi