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))
font))
(define* (render-text text font #:key (size #f))
- (cond (size (ftglSetFontFaceSize font size 72)))
+ (cond (size
+ (cond ((not (= (ftglGetFontFaceSize font) size))
+ (ftglSetFontFaceSize font size 72))))
+ ((not (= (ftglGetFontFaceSize font) (font-size font)))
+ (ftglSetFontFaceSize font (font-size font) 72)))
(ftglRenderFont font text FTGL_RENDER_ALL))