;; for models
(bind-func render:XTMRENDERCB
(lambda (frame shader m v p data)
(let ((model:XTMModel* (cast data XTMModel*)))
;; (rotate_matrix m (* 0.01 (i64tof frame)) 0.0 1.0 0.0)
(translate_matrix m 0.0 -3.0 0.0)
(scale_matrix m 2.0 2.0 2.0)
(xtm_draw_model model shader m v p)
(fill_identity_matrix m)
void)))