From fba53fe32502b6d62ffbd251e1fbf22e5e5ed24f Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 3 Jun 2007 23:33:33 -0300
Subject: [PATCH] Fix #363.

Thinko with argument ordering cause (0 . NEGATIVE) line stencils to be
empty and disappear.
---
 scm/define-markup-commands.scm | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

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?)
-- 
2.39.5