* ps/lilyponddefs.ps: Remove automatic page layout.

[lilypond.git] / scm / output-ps.scm

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 7f3953bc8d4fe2743d355d2c5a48129cac027e33..8db25eb918b9d3c3483fd2d14d97f1e9715628f4 100644 (file)
--- 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"))