post:XTMRENDERCB   xtlang

(bind-func post:XTMRENDERCB
  (lambda (frame shader m v p data)
    (fill_orthographic_matrix p -1.0 1.0 -1.0 1.0 -1.0 1.0)
    (fill_identity_matrix v)
    (fill_identity_matrix m)
    (if vplay ;; if movies playing display it!
        (begin (scale_matrix m 2.0 -2.0 0.0)
               (xtm_draw_tex shader movietexid m v p))
        (if (< slide_idx slides_end)
            (begin (scale_matrix m 2.0 2.0 0.0)
                   (xtm_draw_tex shader (aref slides slide_idx) m v p))))
    void))