;; this is similar to gluPerspective
;; but fills a suitable PROJECTION matrix
(bind-func fill_identity_matrix
(lambda (mat:float*)
(pfill! mat
1.0 0.0 0.0 0.0
0.0 1.0 0.0 0.0
0.0 0.0 1.0 0.0
0.0 0.0 0.0 1.0)
void))