(bind-func free_image (lambda (tex:Texture*) (if (not (null? (tref tex 4))) (free (tref tex 4))) (tset! tex 1 0) (tset! tex 2 0) (tset! tex 3 0) void))