Remove force fields, cleanup

src/Dodge/Render/ShapePicture.hs

@@ -1,11 +1,16 @@
 module Dodge.Render.ShapePicture
+    ( floorItemSPic
+    )
     where
 import Dodge.Data
 import Geometry
 import ShapePicture
+--import Shape
+--import Picture
 
 floorItemSPic :: FloorItem -> SPic
 floorItemSPic flit 
     = uncurryV translateSPf (_flItPos flit) 
     $ rotateSP (_flItRot flit)  (_itFloorPict (_flIt flit) (_flIt flit))
 
+--TODO combine worldShape and worldPicture here