* scm/framework-ps.scm (page-header): add version number to

creator
(eps-header): idem.

* mf/feta-bolletjes.mf: swap d0 and u0 fa heads.

diff --git a/ChangeLog b/ChangeLog
index 1b85b6e484b5d6fcc874f785176bc08c9c3f6c4f..1a499b23c197f1c9fba2ab3aa20578bae34f3b9f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2005-08-15  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+       * scm/framework-ps.scm (page-header): add version number to
+       creator
+       (eps-header): idem.
+
+       * mf/feta-bolletjes.mf: swap d0 and u0 fa heads.
+       
 2005-08-13  Graham Percival  <gpermus@gmail.com>
 
        * Documentation/user/global.itely: add "fit as much as

diff --git a/mf/feta-bolletjes.mf b/mf/feta-bolletjes.mf
index 702c599717c1e3caf61193e2cd368326179b23b1..8e5ec4f078779f65132c4f83a91c4733f271b032 100644 (file)
--- a/mf/feta-bolletjes.mf
+++ b/mf/feta-bolletjes.mf
@@ -1190,14 +1190,14 @@ def draw_fa_head (expr width_factor) =
 enddef;
 
 
-fet_beginchar ("Whole fa up head", "d0fa");
+fet_beginchar ("Whole fa up head", "u0fa");
        draw_fa_head (1.8);
        fill p_up_out;
        unfill p_up_in;
 fet_endchar;
 
 
-fet_beginchar ("Whole fa down head", "u0fa");
+fet_beginchar ("Whole fa down head", "d0fa");
        draw_fa_head (1.8);
        fill p_down_out;
        unfill p_down_in;

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 8e05912368ec655695d1d1df98dc065636592c94..b2d8f7c558e066bcd9635301b503e6db3279c096 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -146,7 +146,9 @@
 
 (define (eps-header paper bbox load-fonts?)
   (string-append "%!PS-Adobe-2.0 EPSF-2.0\n"
-                "%%Creator: LilyPond\n"
+                "%%Creator: LilyPond "
+                (lilypond-version)
+                "\n"
                 "%%BoundingBox: "
                 (string-join (map ly:number->string bbox) " ") "\n"
                 "%%Orientation: "
@@ -158,7 +160,10 @@
 
 (define (page-header paper page-count load-fonts?)
   (string-append "%!PS-Adobe-3.0\n"
-                "%%Creator: LilyPond\n"
+                "%%Creator: LilyPond "
+                (lilypond-version)
+                "\n"
+                
                 "%%Pages: " (number->string page-count) "\n"
                 "%%PageOrder: Ascend\n"
                 "%%Orientation: "