* stepmake/stepmake/texinfo-rules.make: strip DVI support.

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 2e8c78e2d5f9ba4b161c040c8de8085ed31d7cf5..1beaef6361563410a48cb270c29bbbc1df815703 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -248,12 +248,6 @@
 ;; restore color from stack
 (define (resetcolor) "setrgbcolor\n")
 
-;; reset rotation
-(define (resetrotation ang x y)
-  (format "~a translate ~a rotate ~a translate\n"
-    (numbers->string4 (list x y))
-    (number->string (* -1 ang))
-    (numbers->string4 (list (* -1 x) (* -1 y)))))
 
 (define (round-filled-box left right bottom top blotdiam)
   (let* ((halfblot (/ blotdiam 2))
@@ -272,11 +266,15 @@
 
 ;; rotation around given point
 (define (setrotation ang x y)
-  (format "~a translate ~a rotate ~a translate\n"
+  (format "gsave ~a translate ~a rotate ~a translate\n"
     (numbers->string4 (list x y))
     (number->string ang)
     (numbers->string4 (list (* -1 x) (* -1 y)))))
 
+(define (resetrotation ang x y)
+  "grestore  ")
+
+
 (define (text font s)
   ;; (ly:warning (_ "TEXT backend-command encountered in Pango backend"))
   ;; (ly:warning (_ "Arguments: ~a ~a"" font str))