Change space to basic-distance in spacing alists.

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 723a616369bd5f7a4b37243c30dc4506a9f05e2e..ac7cc53d44b0a6bc0d12428ba0958987290b8991 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -303,3 +303,10 @@
      thickness
      (convert-path-exps exps)
      (if fill? "fill" ""))))
+
+(define (setscale x y)
+  (ly:format "gsave ~4l scale\n"
+             (list x y)))
+
+(define (resetscale)
+  "grestore\n")