post:XTMRENDERCB   xtlang

;;;;;;;;;;;;;;;;;;;;;;;
;;
;; NOW GL STUFF!
;;
(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)
    (scale_matrix m 1.0 -1.0 0.0) ;; flip
    (translate_matrix m -0.5 -0.5 0.0)
    (if (> texid1 0)
        (xtm_draw_tex shader texid1 m v p))
    (fill_identity_matrix m)
    (scale_matrix m 1.0 -1.0 0.0) ;; flip
    (translate_matrix m -0.5 0.5 0.0)
    (if (> texid2 0)
        (xtm_draw_tex shader texid2 m v p))
    (fill_identity_matrix m)
    (scale_matrix m 1.0 -1.0 0.0) ;; flip
    (translate_matrix m 0.5 -0.5 0.0)
    (if (> texid3 0)
        (xtm_draw_tex shader texid3 m v p))
    (fill_identity_matrix m)
    (scale_matrix m 1.0 -1.0 0.0) ;; flip
    (translate_matrix m 0.5 0.5 0.0)
    (if (> texid4 0)
        (xtm_draw_tex shader texid4 m v p))
    void))