Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 27 lines (21 sloc) 0.542 kb
6a17e60 @dharmatech initial checkin
authored
1
2 (import (rnrs)
3 (gl)
4 (glut)
51d1581 @dharmatech Use (agave glu compat)
authored
5 (agave glu compat)
6a17e60 @dharmatech initial checkin
authored
6 (agave glamour window)
7 (agave glamour misc))
8
9 (initialize-glut)
10
11 (window (size 500 500)
12 (title "Cube")
13 (reshape (width height)
14 (lambda (w h)
15 (glLoadIdentity)
16 (glFrustum -1.0 1.0 -1.0 1.0 1.5 20.0))))
17
18 (buffered-display-procedure
19 (lambda ()
20 (background 0.0)
21 (gluLookAt 0.0 0.0 5.0 0.0 0.0 0.0 0.0 1.0 0.0)
22 (glScaled 1.0 2.0 1.0)
23 (glColor3d 1.0 1.0 1.0)
24 (glutWireCube 1.0)))
25
26 (glutMainLoop)
Something went wrong with that request. Please try again.