setProjection -> setPerspective

Correct function naming.

2 files changed, 3 insertions, 3 deletions

diff --git a/metaballs.ml b/metaballs.ml
index 85ca08f..84638d9 100644
--- a/metaballs.ml
+++ b/metaballs.ml
@@ -62,6 +62,6 @@ let draw t =
   GlTex.coord2 (1.0, 1.0); GlDraw.vertex3 (1.0, 1.0, 0.0);
   GlTex.coord2 (0.0, 1.0); GlDraw.vertex3 (0.0, 1.0, 0.0);
   GlDraw.ends ();
-  Util.setProjection ();
+  Util.setPerspective ();
   Gl.disable `texture_2d;
 
diff --git a/util.ml b/util.ml
index caa7072..1ba9440 100644
--- a/util.ml
+++ b/util.ml
@@ -147,7 +147,7 @@ let setOrtho height width =
   GlMat.load_identity ()
 
 
-let setProjection () =
+let setPerspective () =
   Gl.enable `depth_test;
   GlMat.mode `projection;
   GlMat.pop ();
@@ -183,5 +183,5 @@ let drawInfo height width t =
     (fun c -> Glut.bitmapCharacter Glut.BITMAP_8_BY_13 (Char.code c))
     (Printf.sprintf "%6.2f" t);
   (* reset ortho *)
-  setProjection ()
+  setPerspective ()