progn-textures
draw
load-texture
+ get-texture-properties
draw-texture
draw-line
draw-quad
(set-texture-size! texture real-w real-h)
texture))))))
+(define (get-texture-properties texture)
+ `((width . ,(texture-w texture)) (height . ,(texture-h texture))))
+
(define* (draw-texture texture #:optional (zoom 1))
(cond (texture
(let ((width (texture-w texture))