with-color
progn-textures
draw
- load-image
- resize-surface
load-texture
draw-texture
draw-line
(set! screen (SDL_SetVideoMode width height bpp flags))
(SDL_WM_SetCaption title "")
(init-gl)
- (if (eq? mode '3d) (set-3d-mode) (set-2d-mode))))
- (else #t))))
+ (if (eq? mode '3d) (set-3d-mode) (set-2d-mode)))))))
(set! get-screen-height
(lambda ()
(set! quit-video
(lambda ()
- (SDL_FreeSurface screen)
- (set! screen #f)
- (SDL_Quit))))
+ (cond (screen
+ (SDL_FreeSurface screen)
+ (set! screen #f)
+ (SDL_Quit))))))
(define (clear-screen)
(glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT)))
(SDL_DisplayFormatAlpha image)))))
(define (load-image-for-texture filename)
- (init-sdl)
(let ((image (load-image filename)))
(cond (image
(let* ((width (surface-w image)) (height (surface-h image))