diff --git a/dotscape b/dotscape
index 16b81a1..386c075 100755
Binary files a/dotscape and b/dotscape differ
diff --git a/fcore/quad-tree.sml b/fcore/quad-tree.sml
index 27a8d54..d573aac 100644
--- a/fcore/quad-tree.sml
+++ b/fcore/quad-tree.sml
@@ -629,8 +629,9 @@ struct
   fun mapItem (item as {r, g, b, a}) =
     if shouldIgnoreData item then item else {r = 1, g = 1, b = 1, a = 1}
 
-  fun mapGrid grid =
-    Vector.map (fn yAxis => Vector.map (fn item => mapItem item) yAxis) grid
+  fun mapYAxis yAxis = Vector.map mapItem yAxis
+
+  fun mapGrid grid = Vector.map mapYAxis grid
 
   fun toCollisionStringFolder (scale, maxWidth, maxHeight) ({x, ex, y, ey, data = _}, acc) =
     let
@@ -664,6 +665,7 @@ struct
 
   fun toCollisionString (squares, canvasWidth, canvasHeight, scale) =
     let
+      val squares = mapGrid squares
       val scale = if scale = 0 then 1 else scale
       val size = Int.max (canvasWidth, canvasHeight)
       val qtree = buildTree (0, 0, size, squares)