;; draw the surface data returned from spectrum_visualiser
(bind-func gl_draw 1000000
(lambda (spectrum:double* nbins)
(glLoadIdentity)
(glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
;; ;; use tex num 5 repeatedly
(gl_load_tex_bgr 1080 720 4 GL_UNSIGNED_BYTE (spectrum_visualiser spectrum nbins) 5)
(gl_draw_img_reverse -1.0 -1.0 2.0 2.0 180.0 5)
void))