creator
(eps-header): idem.
* mf/feta-bolletjes.mf: swap d0 and u0 fa heads.
+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
2005-08-13 Graham Percival <gpermus@gmail.com>
* Documentation/user/global.itely: add "fit as much as
-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;
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;
draw_fa_head (1.8);
fill p_down_out;
unfill p_down_in;
(define (eps-header paper bbox load-fonts?)
(string-append "%!PS-Adobe-2.0 EPSF-2.0\n"
(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: "
"%%BoundingBox: "
(string-join (map ly:number->string bbox) " ") "\n"
"%%Orientation: "
(define (page-header paper page-count load-fonts?)
(string-append "%!PS-Adobe-3.0\n"
(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: "
"%%Pages: " (number->string page-count) "\n"
"%%PageOrder: Ascend\n"
"%%Orientation: "