(glHint GL_PERSPECTIVE_CORRECTION_HINT GL_NICEST)
t)
+(defmacro progn-textures (&body code)
+ `(let (values)
+ (init-video-mode)
+ (glEnable GL_TEXTURE_2D)
+ (setq values (multiple-value-list (progn ,@code)))
+ (glDisable GL_TEXTURE_2D)
+ (apply #'values values)))
+
(defun init-textures ()
(init-video-mode)
(glEnable GL_TEXTURE_2D))
(glLoadIdentity)
t))
+(let ((current-color '(1 1 1 1)))
+ (defun get-color ()
+ current-color)
+
+ (defun set-color (red green blue (&optional (alpha 1)))
+ (setq current-color color)
+ (glColor4f red green blue alpha)))
+
(defun copy-surface (source)
(cond ((surface-p source)
(let ((new-surface