change maxSize of quad tree's leaf nodes (from a max length of 3 to a max length of 9)

fcore/game-type.sml

@@ -262,6 +262,15 @@ struct
         , nextPlatID = ~1
         }
       val enemies = Vector.fromList [enemy1, enemy2, enemy3, enemy4, enemy5]
+      val startTime = Time.now ()
+      val startTime = Time.toMicroseconds startTime
+
+      val graph = Graph.fromPlatforms (platforms, platformTree)
+
+      val finishTime = Time.now ()
+      val finishTime = Time.toMicroseconds finishTime
+      val diff = finishTime - startTime
+      val _ = print ("TIME DIFF = " ^ LargeInt.toString diff ^ "\n")
     in
       { player = player
       , walls = walls
@@ -269,7 +278,7 @@ struct
       , platforms = platforms
       , platformTree = platformTree
       , enemies = enemies
-      , graph = Graph.fromPlatforms (platforms, platformTree)
+      , graph = graph
       }
     end
 end

fcore/quad-tree.sml

@@ -35,7 +35,7 @@ struct
   type t = QuadTreeType.t
 
   (* max size of vector before we split it further *)
-  val maxSize = 3
+  val maxSize = 9
 
   fun mkTopLeft (x, y, w, h, items) =
     let