Make RehearsalMark align to clef. (fixes a bug report)

[lilypond.git] / scm / backend-library.scm

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index 6e45f05c6f21af39da55a97775b0217c09615335..42c04b6e57f573047f922a53a634f5b50a12ce79 100644 (file)
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -104,13 +104,7 @@
     ;;(ly:message (_ "Converting to `~a'...")
     ;;     (string-append (basename name ".ps") "-page1.png" )))
   (let* ((verbose (ly:get-option 'verbose))
-        (rename-page-1 #f)
-        (pixmap-default "png16m")
-        (pixmap-setting (ly:get-option 'pixmap-format))
-        (pixmap-format (if (or (not (equal? pixmap-setting pixmap-default))
-                               (ps-has-color name))
-                           pixmap-setting
-                           "pnggray")))
+        (rename-page-1 #f))
     (ly:message (_ "Converting to ~a...") "PNG")
     (make-ps-images name
                    #:resolution resolution
@@ -119,7 +113,7 @@
                    #:rename-page-1 rename-page-1
                    #:be-verbose verbose
                    #:anti-alias-factor (ly:get-option 'anti-alias-factor)
-                   #:pixmap-format pixmap-format)
+                   #:pixmap-format (ly:get-option 'pixmap-format))
     (ly:progress "\n")))
 
 (define-public (postprocess-output paper-book module filename formats)