Welcome to the CHICKEN Scheme pasting service

(require-extension gl sdl)
(define maxx 800)
(define maxy 600)

(display "sdl init video:") (display (sdl-init SDL_INIT_VIDEO)) (newline)

(sdl-wm-set-caption "CViz" "CViz")
(sdl-gl-set-attribute SDL_GL_DOUBLEBUFFER 1)
(define screen (sdl-set-video-mode maxx maxy 0 (+ 
						SDL_HWSURFACE 
						SDL_OPENGL)))

(display "screen:") (display screen) (display newline)
;(sdl-show-cursor #f)
(gl:ClearColor 0.0 0.5 0.5 0.0)
(gl:Clear gl:COLOR_BUFFER_BIT)
(gl:Color3f 1.0 1.0 1.0)
(gl:Ortho 0.0 1.0 0.0 1.0 -1.0 1.0)
(gl:Begin gl:POLYGON)
(gl:Vertex3f 0.25 0.25 0.0)
(gl:Vertex3f 0.75 0.25 0.0)
(gl:Vertex3f 0.75 0.75 0.0)
(gl:Vertex3f 0.25 0.75 0.0)
(gl:End)
(sdl-gl-swap-buffers)
(let ((event (make-sdl-event)))
  (let loop ()
    (sdl-wait-event! event)
    (let ((t (sdl-event-type event)))
      (if (= t SDL_QUIT)
	  'done
	  (begin (cond
		  ((= t SDL_KEYDOWN) (let* ((i (sdl-event-sym event))
					    (c (integer->char i)))
				       (if (or (= i 27) (memv c '(#\q #\Q)))
					   (begin (sdl-event-type-set! event SDL_QUIT)
						  (sdl-push-event event))
					   (begin (display (list 'got-key c)) (newline)))))
		  (else (display (list 'event t)) (newline)))
		 (loop))))))