get-fbo   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/shadowmap.xtm

Implementation

;; 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)))


Back to Index

Similar Entries