Basic closeness check for floor items

2021-09-22 12:05:28 +01:00
parent 27a780ff47
commit 0295b3dd70
2 changed files with 6 additions and 12 deletions
@@ -5,6 +5,7 @@ import Geometry
 import ShapePicture

 floorItemSPic :: FloorItem -> SPic
-floorItemSPic flit = uncurryV translateSPf (_flItPos flit) 
-                    $ rotateSP (_flItRot flit)  (_itFloorPict (_flIt flit))
+floorItemSPic flit 
+    = uncurryV translateSPf (_flItPos flit) 
+    $ rotateSP (_flItRot flit)  (_itFloorPict (_flIt flit))