add start-page, start-system doesn't

translate to top of page. Fixes alignment problems of
lilypond-generated EPS files.

diff --git a/ChangeLog b/ChangeLog
index 308549b3ca154057b29c5d8876667ed2546685af..1939610882389d5efbe5ffa64dee6a26c7cc9f77 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,8 +1,14 @@
+2005-01-29  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+       * ps/lilyponddefs.ps: add start-page, start-system doesn't
+       translate to top of page. Fixes alignment problems of
+       lilypond-generated EPS files.
+
 2005-01-28  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
        * scm/part-combiner.scm (analyse-spanner-states): trigger on
-       crescendo-end as well. (decr maybe ended with Stop cresc.). Fixes:
-       partcombine-diminuendo.ly
+       crescendo-end as well, since Decrescendo maybe ended with Stop
+       Crescendo.). Fixes: partcombine-diminuendo.ly
 
        * scm/script.scm (default-script-alist): swap portato symbols.
 

diff --git a/lily/general-scheme.cc b/lily/general-scheme.cc
index 727bdeb73bace1270dba0f7a75a27c03a035fc66..c2ab11e592d8c26aeac2c632330085cd9f9c5c17 100644 (file)
--- a/lily/general-scheme.cc
+++ b/lily/general-scheme.cc
@@ -31,6 +31,10 @@ inline int my_isnan (Real r) { return isnan (r); }
 #endif
 
 
+/*
+  Ugh. Gulped file is copied twice. (maybe thrice if you count stdio
+  buffering.)
+ */
 LY_DEFINE (ly_gulp_file, "ly:gulp-file",
           1, 0, 0, (SCM name),
           "Read the file @var{name}, and return its contents in a string.  "

diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps
index 5b11abc29ec0d8eecdf3d2b90576fd7b220722c7..cc9a3d785c0f74c3144f4eeb6aaa17e34662d17e 100644 (file)
--- a/ps/lilyponddefs.ps
+++ b/ps/lilyponddefs.ps
@@ -67,11 +67,15 @@
 } bind def
 
 
-% <x> <y> start-system
+% start-system
 /start-system {
-       gsave
-       0
-       vsize translate
+    gsave
+} bind def
+
+/start-page {
+    gsave
+    0
+    vsize translate
 } bind def
 
 

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index c5b12885ccde1939814402ed1a9161f045def670..eb316424638b6640640bcf258f01df0be183bc27 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -130,7 +130,7 @@
                                 "")
                             "%%EndPageSetup\n"
 
-                            "start-system { "
+                            "start-page { "
                             "set-ps-scale-to-lily-scale "
                             "\n"))
   (ly:outputter-dump-stencil outputter page)