diff --git a/fcore/game-type.sml b/fcore/game-type.sml index 964c6f1..4cfcbf9 100644 --- a/fcore/game-type.sml +++ b/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 diff --git a/fcore/quad-tree.sml b/fcore/quad-tree.sml index e4941da..8d12d71 100644 --- a/fcore/quad-tree.sml +++ b/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