(bind-func gl_setup
(lambda ()
(glEnable GL_LIGHTING)
(glEnable GL_LIGHT0)
(let ((diffuse:float* (halloc 4))
(specular:float* (halloc 4))
(position:float* (halloc 4)))
(pset! diffuse 0 1.0)
(pset! diffuse 1 1.0)
(pset! diffuse 2 1.0)
(pset! diffuse 3 1.0)
(pset! specular 0 1.0)
(pset! specular 2 1.0)
(pset! specular 3 1.0)
(pset! specular 4 1.0)
(pset! position 0 100.0)
(pset! position 1 100.0)
(pset! position 2 100.0)
(pset! position 3 0.0)