(no commit message)

[gacela.git] / src / gacela_draw.scm

diff --git a/src/gacela_draw.scm b/src/gacela_draw.scm
index 9500429965ded61b0d3abf4f17c354426038c084..f72c75142ecc314c7cb6adf98dd4e0a93c6c6d28 100644 (file)
--- a/src/gacela_draw.scm
+++ b/src/gacela_draw.scm
@@ -114,11 +114,11 @@
           (draw-rectangle (* zoom width) (* zoom height) #:texture texture)))))
 
 (define* (draw-line length #:optional color)
-  (let ((l
-  (cond (color
-        (with-color color (draw v1 v2)))
-       (else
-        (draw v1 v2))))
+  (let ((l (/ length 2)))
+    (cond (color
+          (with-color color (draw (list 0 l) (list 0 (- l)))))
+         (else
+          (draw (list 0 l) (list 0 (- l)))))))
 
 (define* (draw-quad v1 v2 v3 v4 #:key texture color)
   (cond (texture