Draw floor item shapes

src/Dodge/Render/ShapePicture.hs

@@ -0,0 +1,10 @@
+module Dodge.Render.ShapePicture
+    where
+import Dodge.Data
+import Geometry
+import ShapePicture
+
+floorItemSPic :: FloorItem -> SPic
+floorItemSPic flit = uncurryV translateSPf (_flItPos flit) 
+                    $ rotateSP (_flItRot flit)  (_itFloorPict (_flIt flit))
+