Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 27 lines (22 sloc) 0.586 kb
6a17e60 @dharmatech initial checkin
authored
1
2 (import (rnrs)
3 (gl)
4 (glut)
5 (agave glamour window)
6 (agave glamour misc))
7
8 (initialize-glut)
9
10 (window (size 250 250)
11 (title "Hello")
12 (reshape (width height)
13 (lambda (w h)
14 (glLoadIdentity)
15 (glOrtho 0.0 1.0 0.0 1.0 -1.0 1.0))))
16
17 (buffered-display-procedure
18 (lambda ()
19 (background 0.0)
20 (glColor3d 1.0 1.0 1.0)
21 (gl-begin GL_POLYGON
22 (glVertex3d 0.25 0.25 0.0)
23 (glVertex3d 0.75 0.25 0.0)
24 (glVertex3d 0.75 0.75 0.0)
25 (glVertex3d 0.25 0.75 0.0))))
26
27 (glutMainLoop)
Something went wrong with that request. Please try again.