trans:XTMRENDERCB   xtlang

;; trans is like render but generates no shadows
(bind-func trans: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 m)
    ;; (rotate_matrix m (* .00002 (i64tof (now))) 1.0 1.0 1.0)
    (scale_matrix m 6.0 4.0 1.0)
    ;; (translate_matrix m 0.5 0.0 0.0)
    (shader_update_material:[void,ShaderProgram*,|4,float|,|4,float|,|4,float|,|4,float|,float]*
     shader
     (array 0.0 0.0 0.0 1.0)
     (array 1.0 1.0 1.0 1.0)
     (array 0.0 0.0 0.0 1.0)
     (array 0.0 0.0 0.0 1.0)
     1.0)
    (glDisable GL_DEPTH_TEST)
    (xtm_draw_vao DataVAO shader m v p GL_POINTS #f 10.0 StarTex 1:i1)
    (glEnable GL_DEPTH_TEST)
    void))