From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 4 Jun 2007 02:33:33 +0000 (-0300)
Subject: Fix #363.
X-Git-Tag: release/2.11.26-1~10
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fba53fe32502b6d62ffbd251e1fbf22e5e5ed24f;p=lilypond.git

Fix #363.

Thinko with argument ordering cause (0 . NEGATIVE) line stencils to be
empty and disappear.
---

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index d1f5dd04f8..4cffe4c248 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -30,16 +30,17 @@
   (let*
       ((th (chain-assoc-get 'thickness props  0.1))
        (x (car dest))
-       (y (cdr dest)))
+       (y (cdr dest))
+       (s (ly:make-stencil
+	   `(draw-line
+	     ,th
+	     0 0
+	     ,x ,y)
 
-    (ly:make-stencil
-     `(draw-line
-       ,th
-       0 0
-       ,x ,y)
+	   (cons (min x 0) (max x 0))
+	   (cons (min y 0) (max y 0)))))
 
-     (cons (min x 0) (min y 0))
-     (cons (max x 0) (max y 0)))))
+    s))
 
 (define-builtin-markup-command (draw-circle layout props radius thickness fill)
   (number? number? boolean?)