Fix some bugs in the dynamic engraver and PostScript backend

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index d7c55df028d4e1bae257ba6ba121f784d214b5ee..2e8c78e2d5f9ba4b161c040c8de8085ed31d7cf5 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -240,7 +240,7 @@
   (define (euclidean-length x y)
     (sqrt (+ (* x x) (* y y))))
 
-  (let ((x-width (euclidean-length slope (/ beam-thickness slope)))
+  (let ((x-width (euclidean-length beam-thickness (/ beam-thickness slope)))
        (height (* width slope)))
     (format #f "~a draw_repeat_slash"
            (numbers->string4 (list x-width width height)))))