progn-textures
draw
load-texture
+ get-texture-properties
draw-texture
draw-line
draw-quad
camera-look
load-font
render-text)
- #:export-syntax (glmatrix-block)
- #:re-export (glPushMatrix
- glPopMatrix))
+ #:export-syntax (glmatrix-block))
(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))