Remove (by commenting out) module item-type system

src/Dodge/Render/ShapePicture.hs

@@ -2,6 +2,8 @@ module Dodge.Render.ShapePicture (
     worldSPic,
 ) where
 
+import Dodge.DoubleTree
+import Dodge.Data.ComposedItem
 import NewInt
 import Dodge.Render.List
 import Control.Lens
@@ -161,7 +163,8 @@ ppDraw c = uncurryV translate (_ppPos c) $ rotate (_ppRot c) (_ppPict c)
 floorItemSPic :: FloorItem -> SPic
 floorItemSPic flit =
     uncurryV translateSPxy (_flItPos flit) $
-        rotateSP (_flItRot flit) (itemSPic (_flIt flit))
+        rotateSP (_flItRot flit) 
+            (itemSPic $ singleLDT ((_flIt flit),UncomposableIsolateSF,LinkTest (const Nothing) (const Nothing)))
 
 btSPic :: Button -> SPic
 btSPic bt =