(no commit message)

[gacela.git] / gacela_draw.lisp

diff --git a/gacela_draw.lisp b/gacela_draw.lisp
index 5e93e77b18b55906213707ec73101c4817a60dc4..7a6dca6e08e3c9782b1cd233b74418bbc266baec 100644 (file)
--- a/gacela_draw.lisp
+++ b/gacela_draw.lisp
@@ -57,7 +57,7 @@
   (multiple-value-bind
    (texture width height) (load-texture filename)
         (cond (texture
-              (lambda (&optional (f 0.0172))
+              (lambda (&optional (f 1))
                 (draw-rectangle (* f width) (* f height) :texture texture))))))
 
 (defun draw-quad (v1 v2 v3 v4 &key texture color)