From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 29 Jan 2005 13:50:54 +0000 (+0000)
Subject: add start-page, start-system doesn't
X-Git-Tag: release/2.5.14~196
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e8af80a73c883ec8386acdc44b130c7dce96ef20;p=lilypond.git

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 308549b3ca..1939610882 100644
--- 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 727bdeb73b..c2ab11e592 100644
--- 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 5b11abc29e..cc9a3d785c 100644
--- 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 c5b12885cc..eb31642463 100644
--- 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)