(ALL_GEN_FILES): make SVG files too.

diff --git a/ChangeLog b/ChangeLog
index da956c5e86f9e90b12f85c6932a7bf21ae97bb20..9527acbcb9ea32e199360b2103ce6b3f536b849b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-12-19  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+       * mf/GNUmakefile (ALL_GEN_FILES): make SVG files too.
+
 2004-12-19  Jan Nieuwenhuizen  <janneke@gnu.org>
 
        * scm/framework-svg.scm (dump-page): Implement landscape.

diff --git a/mf/GNUmakefile b/mf/GNUmakefile
index 9fd5bed79e0d0993d4cd68d0208548ffa62abb97..d198342b5a95a0b66ff66f1a424c762f7aa96a58 100644 (file)
--- a/mf/GNUmakefile
+++ b/mf/GNUmakefile
@@ -78,7 +78,7 @@ PFB_FILES = $(PFA_FILES:%.pfa=%.pfb)
 
 # Make tfm files first, log files last, 
 # so that normally log files aren't made twice
-ALL_GEN_FILES= $(TFM_FILES) $(TEXTABLES) $(TFM_FILES) $(LOG_FILES) $(ENC_FILES) $(LISP_FILES) $(FETA_LIST_FILES)  $(OTF_TABLES) $(PFA_FILES) $(outdir)/lilypond.map $(outdir)/fonts.scale $(outdir)/Fontmap.lily $(OTF_FILES)
+ALL_GEN_FILES= $(TFM_FILES) $(TEXTABLES) $(TFM_FILES) $(LOG_FILES) $(ENC_FILES) $(LISP_FILES) $(FETA_LIST_FILES)  $(OTF_TABLES) $(PFA_FILES) $(outdir)/lilypond.map $(outdir)/fonts.scale $(outdir)/Fontmap.lily $(OTF_FILES) $(SVG_FILES)
 
 #PRE_INSTALL=$(MAKE) "$(ALL_GEN_FILES)"
 INSTALLATION_DIR=$(local_lilypond_datadir)/fonts/source
@@ -202,7 +202,7 @@ fontdir: $(addprefix $(outdir)/, lilypond.map lilypond.sfd private-fonts fonts.s
 
 
 $(outdir)/lilypond.map: $(AFM_FILES)
-       for i in $(FETA_FONTS); do echo $$i $$i'<'$$i.pfa; done > $@
+       for i in $(FETA_FONTS); do echo $$i $$i '<'$$i.pfa; done > $@
 
 
 local-clean:

diff --git a/mf/feta-accordion.mf b/mf/feta-accordion.mf
index 713c04fc846f7dff9a962a6e6038595c5652b2b5..ec3c470df31443ed2bca09d3e3907ec861c0006e 100644 (file)
--- a/mf/feta-accordion.mf
+++ b/mf/feta-accordion.mf
@@ -126,7 +126,7 @@ def def_S(expr w, h) =
        bue=z2{left}..z1{up};
        numeric t;
        t:=xpart(bue intersectiontimes(z8l--z7l));
-       show t;
+%      show t;
        bueoverst=z6{right}..z7{down};
 enddef;
 
@@ -159,8 +159,6 @@ enddef;
 %%% strange turning path.
 fet_beginchar("accOldEE", "accOldEE")
        set_char_box(staff_space#, staff_space#, 0, 2staff_space#);
-       show w;
-       show h;
        r = staff_space;
        lr = .4 staff_space - linethickness;
        ir = .6 staff_space;

diff --git a/mf/parmesan-heads.mf b/mf/parmesan-heads.mf
index e425f16ced45c78d7200cf48d2d344fa98276eb6..b8bc59c407f81ec93241842bd4bce4605fc5f567 100644 (file)
--- a/mf/parmesan-heads.mf
+++ b/mf/parmesan-heads.mf
@@ -83,7 +83,6 @@ def draw_neomensural_brevis(expr brevwid) =
                -- z4l -- z4r -- z3r{left} .. z2r{up} -- cycle;
 
        addto currentpicture also currentpicture yscaled -1;
-       show z4r; show z4l;
        addto currentpicture also currentpicture 
                shifted (-x4r,0) xscaled -1 shifted (x4l,0);
 

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index a6b13dc07912a56ba67ed3037b454ef5ccb142c0..2f585a767e4e91c2c069bcbc61ead9772b396c22 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -275,7 +275,7 @@
 (define text new-text)
 
 (define (white-text scale s)
-   (let ((mystring (string-append "(" s  ") " (number->string scale)   " /Helvetica-bold "
+   (let ((mystring (string-append "(" s  ") " (number->string scale)   " /Helvetica-Bold "
           " draw_white_text")))
   mystring))