topStrip, bottomStrip, leftStrip, rightStrip :: (Position, Position) -> (Position, Position)
topStrip (V2 minX _minY, V2 maxX maxY) = (V2 minX maxY, V2 maxX maxY)
topStrip, bottomStrip, leftStrip, rightStrip :: (Position, Position) -> (Position, Position)
topStrip (V2 minX _minY, V2 maxX maxY) = (V2 minX maxY, V2 maxX maxY)