patch::: 1.5.2.jcn1

[lilypond.git] / scm / tex.scm

diff --git a/scm/tex.scm b/scm/tex.scm
index 794dbc80b13ebab786b565c5aaea30d9f51cdecd..fa3411bed522d78336fe0ca50fbe08945110e639 100644 (file)
--- a/scm/tex.scm
+++ b/scm/tex.scm
@@ -166,10 +166,16 @@
   (define (stop-last-line)
     "}\\vss}")
   
-  (define (filledbox breapth width depth height) 
-    (embedded-ps
-     (string-append (numbers->string (list breapth width depth height))
-                  " draw_box" )))
+  (define (filledbox breapth width depth height)
+    (if (defined? 'ps-testing)
+       (embedded-ps
+        (string-append (numbers->string (list breapth width depth height))
+                       " draw_box" ))
+       (string-append 
+        "\\kern" (number->dim (- breapth))
+        "\\vrule width " (number->dim (+ breapth width))
+        "depth " (number->dim depth)
+        "height " (number->dim height) " ")))
 
   (define (text s)
     (string-append "\\hbox{" (output-tex-string s) "}"))