X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela_draw.lisp;fp=gacela_draw.lisp;h=d992ba5d57cbcca68a40f7d3f1f44e32368e3b74;hb=b63a5e5672e858e7a3689ebc4d66853d5151dfb6;hp=4b6f58fb126ec746a7c6b0b9d995226ae29bc03e;hpb=862921d72ab5a90aee46074c40da8c0688a3a20d;p=gacela.git

diff --git a/gacela_draw.lisp b/gacela_draw.lisp
index 4b6f58f..d992ba5 100644
--- a/gacela_draw.lisp
+++ b/gacela_draw.lisp
@@ -128,7 +128,7 @@
 (defun draw-square (&key (size 1) texture)
   (draw-rectangle size size :texture texture))
 
-(defun draw-cube (&key size texture texture-1 texture-2 texture-3 texture-4 texture-5 texture-6)
+(defun draw-cube (&key (size 1) texture texture-1 texture-2 texture-3 texture-4 texture-5 texture-6)
   (let ((-size (neg size)))
     (progn-textures
      (glNormal3f 0 0 1)