(bind-func Texture (lambda (filename) (let ((tex (Texture:[Texture*,String*,i32]* filename 1))) ;; (update tex) tex)))