Re: [Chicken-users] SDL egg: SDL_GL_SwapBuffers() not implemented?

[Koen Weddepohl]

> Did you actually have to use the sdl-get-attribute and sdl-set-attribute for
> the graphics to display?
>
>
> Stephen
>

No I didn't, here's my initialization code:



(require-extension sdl)
(require-extension gl)
(require-extension glu)

(define init
  (lambda (scr-width scr-height)
    "Initialize SDL and OpenGL and return the screen sdl surface"
    (let ((screen (init-sdl scr-width scr-height)))
      (init-opengl scr-width scr-height)

      screen)))


(define init-sdl
  (lambda (scr-width scr-height)
    (sdl-init SDL_INIT_VIDEO)
    (sdl-wm-set-caption "Space Agent 7" #f)

    (let ((scr-flags (+ SDL_OPENGL SDL_DOUBLEBUF)))
      ; Return screen surface:
      (sdl-set-video-mode scr-width scr-height 32 scr-flags))))


(define init-opengl
  (lambda (scr-width scr-height)
    (gl:Viewport 0 0 scr-width scr-height)
    (gl:ClearColor 0.0 0.0 0.0 0.0)
    (gl:ClearDepth 1.0)
    (gl:DepthFunc gl:LESS)
    (gl:Enable gl:DEPTH_TEST)
    (gl:ShadeModel gl:SMOOTH)

    (gl:MatrixMode gl:PROJECTION)
    (gl:LoadIdentity)
    (glu:Perspective 45.0 (/ scr-width scr-height) 0.1 100.0)

    (gl:MatrixMode gl:MODELVIEW)))