(bind-func gl-draw (lambda () (glClearColor 0.0 0.0 0.0 1.0) (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT)) (glLoadIdentity) (glTranslated 0.0 0.0 -10.0) (ping-skel)))