From fd7b70df3d40fc2e23459cba19e5713882bedef1 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Mon, 15 Aug 2005 00:10:29 +0000 Subject: [PATCH] * scm/framework-ps.scm (page-header): add version number to creator (eps-header): idem. * mf/feta-bolletjes.mf: swap d0 and u0 fa heads. --- ChangeLog | 8 ++++++++ mf/feta-bolletjes.mf | 4 ++-- scm/framework-ps.scm | 9 +++++++-- 3 files changed, 17 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 1b85b6e484..1a499b23c1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2005-08-15 Han-Wen Nienhuys + + * 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 * Documentation/user/global.itely: add "fit as much as diff --git a/mf/feta-bolletjes.mf b/mf/feta-bolletjes.mf index 702c599717..8e5ec4f078 100644 --- 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 8e05912368..b2d8f7c558 100644 --- 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: " -- 2.39.2