;; gl-code
(bind-func gl-loop
(let ((psys (psystem_create 500000 texture1)))
(init-psys psys)
(lambda (time:double)
(glClearColor 0.0 0.0 0.0 1.0)
(glClear (+ GL_DEPTH_BUFFER_BIT GL_COLOR_BUFFER_BIT))
(glLoadIdentity)
(psystem_draw psys)
(psystem_update psys)
void)))