ipc:bind-xtmrender-vars   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/external/graphics-pipeline-scm.xtm

Implementation

(define ipc:bind-xtmrender-vars
  (lambda (proc)
    (ipc:bind-func proc 'xtm_render_init_quad_shader)
    (ipc:bind-func proc 'xtm_render_init_simple_shader)
    (ipc:bind-func proc 'xtm_render_init_light_shader xtm_render_init_light_shader)
    ;; frag shaders
    (ipc:define proc 'simple-frag simple-frag)
    (ipc:define proc 'quad-frag quad-frag)
    (ipc:define proc 'xtmfrag0 xtmfrag0)
    (ipc:define proc 'xtmfrag xtmfrag)
    (ipc:define proc 'xtmfrag_nolight xtmfrag_nolight)
    (ipc:define proc 'xtmfrag1 xtmfrag1)
    (ipc:define proc 'xtmfrag2 xtmfrag2)
    (ipc:define proc 'xtmfrag3 xtmfrag3)
    (ipc:define proc 'xtmfrag4 xtmfrag4)
    (ipc:define proc 'xtmfrag5 xtmfrag5)
    ;; vert shaders
    (ipc:define proc 'simple-vert-xtm simple-vert-xtm)
    (ipc:define proc 'simple-bone-vert-xtm simple-bone-vert-xtm)
    (ipc:define proc 'quad-vert quad-vert)
    (ipc:define proc 'xtmvert-xtm xtmvert-xtm)
    (ipc:define proc 'xtmvert xtmvert)
    ;; (ipc:define proc 'xtmvert1 xtmvert1)
    ;; (ipc:define proc 'xtmvert2 xtmvert2)
    ;; (ipc:define proc 'xtmvert3 xtmvert3)
    ;; (ipc:define proc 'xtmvert4 xtmvert4)
    ;; (ipc:define proc 'xtmvert5 xtmvert5)
    (ipc:bind-func proc 'xtm_render_setup_a xtm_render_setup_a)
    (ipc:bind-func proc 'xtm_render_setup_b xtm_render_setup_b)
    (ipc:bind-func proc 'xtm_render_setup_c xtm_render_setup_c)
    (ipc:define proc 'xtm_render_setup xtm_render_setup)
    (ipc:bind-func proc 'xtm_render xtm_render)))


Back to Index