(bind-func gl_set_view
(lambda (w:double h:double depth:double)
(glViewport 0 0 (dtoi32 w) (dtoi32 h))
(glMatrixMode GL_PROJECTION)
(glLoadIdentity)
(gluPerspective 35.0 (/ w h) 0.1 depth)
(glMatrixMode GL_MODELVIEW)
(glEnable GL_DEPTH_TEST)
(gl_setup)
1))