]> git.jsancho.org Git - gacela.git/blobdiff - gacela_draw.lisp
(no commit message)
[gacela.git] / gacela_draw.lisp
index c984948fbbfa351a9aab7bd0cfc4dba3390d85d7..5d10fa4eebb8a2d9ed5009020e8f52ca73ae655e 100644 (file)
       (cond (texture
             (let ((width (getf (get-resource texture) :width))
                   (height (getf (get-resource texture) :height)))
-(print texture)
               (draw-rectangle (* f width) (* f height) :texture texture)))))))
 
 (defun draw-quad (v1 v2 v3 v4 &key texture)