X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-ps.scm;h=8db25eb918b9d3c3483fd2d14d97f1e9715628f4;hb=abd05b0ad0ccc4b63bb77ed128a8f28d5d48f330;hp=7f3953bc8d4fe2743d355d2c5a48129cac027e33;hpb=7e8d660df15820c540b74a4ab74d175284cd9008;p=lilypond.git

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 7f3953bc8d..8db25eb918 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -267,7 +267,7 @@
   
   (string-append (select-font name-mag-pair) exp))
 
-(define (header creator time-stamp) 
+(define (header creator time-stamp)
   (string-append
    "%!PS-Adobe-3.0\n"
    "%%Creator: " creator " " time-stamp "\n"
@@ -378,12 +378,9 @@
     (numbers->string
      (list x y width height blotdiam)) " draw_round_box"))
 
-(define (start-system width height)
+(define (new-start-system origin dim)
   (string-append
-   "\n" (ly:number->string height)
-   " start-system\n"
-   ;; Show height of system
-   (draw-line 1 0 0 (- 0 10) (- 0 (* OUTPUT-SCALE height)))
+   "\n" (number-pair->string origin) " start-system\n"
    "{\n"
    "set-ps-scale-to-lily-scale\n"))
 
@@ -392,12 +389,11 @@
    (numbers->string (list breapth width depth height))
    " draw_box" ))
 
-(define (stop-last-system)
-  (stop-system))
-
 (define (stop-system)
   "}\nstop-system\n")
 
+(define stop-last-system stop-system)
+
 (define (symmetric-x-triangle thick w h)
   (string-append
    (numbers->string (list h w thick))
@@ -429,4 +425,6 @@
   "\nstart-page\n")
 
 (define (stop-page last?)
-  "\nstop-page\n")
+  (if last?
+      "\nstop-last-page\n"
+      "\nstop-page\n"))