X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=src%2Fvideo.scm;h=0e6a51345dfd9a6337a27a79bb7f83ad69e12f26;hp=e65d6bdcecaeb787b003764932237c03663a718c;hb=1c898284a9d3ea84cda71e4ff3c6f39c0bba644b;hpb=bdc03bcc2da4d01745fb542d7a7d642b888b691e

diff --git a/src/video.scm b/src/video.scm
index e65d6bd..0e6a513 100644
--- a/src/video.scm
+++ b/src/video.scm
@@ -353,7 +353,7 @@
 	       #:texture-coord texture-coord
 	       #:color color)))
 
-(define* (draw-square #:key (size 1) texture color)
+(define* (draw-square size #:key texture color)
   (draw-rectangle size size #:texture texture #:color color))
 
 (define* (draw-cube #:key (size 1)
@@ -569,6 +569,9 @@
 	 (mesh-properties-set! m (list ,@(map (lambda (a) `(cons ',a ,a)) (names-arguments args))))
 	 m))))
 
+(define-mesh (square size #:key texture color)
+  (draw-square size #:texture texture #:color color))
+
 
 (module-map (lambda (sym var)
 	      (if (not (eq? sym '%module-public-interface))