render:XTMRENDERCB   xtlang

;; for models
(bind-func render:XTMRENDERCB
  (lambda (frame shader m v p data)
    (let ((nodes:XTMModel** (cast data XTMModel**)))
      (rotate_matrix m (* .00005 (i64tof (now))) 0.0 1.0 0.0)
      (translate_matrix m 2.0 -1.9 0.0)
      (scale_matrix m 1.5 1.5 1.5)
      (xtm_draw_model (pref nodes 0) shader m v p)
      (fill_identity_matrix m)
      (translate_matrix m -1.0 -1.9 3.0)
      (scale_matrix m 1.5 1.5 1.5)
      (xtm_draw_model (pref nodes 0) shader m v p)
      (fill_identity_matrix m)
      (translate_matrix m 0.0 -1.9 2.0)
      (scale_matrix m 1.5 1.5 1.5)
      (xtm_draw_model (pref nodes 0) shader m v p)
      (fill_identity_matrix m)
      (translate_matrix m 1.0 -1.9 1.0)
      (scale_matrix m 1.5 1.5 1.5)
      (xtm_draw_model (pref nodes 0) shader m v p)
      (fill_identity_matrix m)
      ;; (xtm_update_matrices shader m v p)
      (xtm_draw_model (pref nodes 1) shader m v p)
      (xtm_draw_model (pref nodes 2) shader m v p)
      void)))