(include "shapes.scm")
(require-extension gl glu sdl extras)
(define maxx 800)
(define maxy 600)
(define screen (sdl-set-video-mode maxx maxy 0 (+ 
						SDL_HWSURFACE 
						SDL_OPENGL)))  
(display screen)
(sdl-wm-set-caption "Geometry Viewer" "Geometry Viewer")
(sdl-gl-set-attribute SDL_GL_DOUBLEBUFFER 1)
(gl:ClearColor 0.0 0.5 0.5 0.0)
(gl:Ortho 0.0 10.0 0.0 10.0 -1.0 1.0)
(gl:Clear gl:COLOR_BUFFER_BIT)
(gl:Color3d 1.0 0.0 0.0)
(sdl-gl-swap-buffers)
(read-line)
;(gl:Begin gl:POLYGON)
;(for-each gl:Vertex3dv (get-boundary exampleshape))
;(gl:End)
(sdl-gl-swap-buffers)
(read-line)