X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fframework-ps.scm;h=bb7dc555049e566cfe047bf1911a0a3164636bed;hb=0a15d48defe9ef99ce2fa3b43596df403092df86;hp=d92affb11ccad4c45953c36a81ab8128af576335;hpb=b171b98e99ece5cda8654ca8898d575a1f67e0c7;p=lilypond.git

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index d92affb11c..bb7dc55504 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -84,7 +84,9 @@
    "/output-scale "
    (number->string (ly:output-def-lookup layout 'output-scale)) " def\n"
    (output-entry "page-height" 'paper-height)
-   (output-entry "page-width" 'paper-width)))
+   (output-entry "page-width" 'paper-width)
+   (if (ly:get-option 'strokeadjust) "true setstrokeadjust\n" "")
+   ))
 
 (define (dump-page outputter page page-number page-count landscape?)
   (ly:outputter-dump-string
@@ -97,7 +99,6 @@
         "")
     "%%EndPageSetup\n"
     "\n"
-    "true setstrokeadjust\n"
     "gsave 0 paper-height translate set-ps-scale-to-lily-scale\n"))
   (ly:outputter-dump-stencil outputter page)
   (ly:outputter-dump-string outputter "stroke grestore\nshowpage\n"))