;; make fbo global so it doesn't get
;; created between compiles of gl_render
;; which is NOT very safe!!
(bind-func get-fbo
(let ((fbo (create_fbo (ftoi32 (* 2.0 width)) (ftoi32 (* 2.0 height)) 0 0)))
(gl_print_error)
(lambda ()
fbo)))