Tweak twisting when aiming

src/Dodge/Render/ShapePicture.hs

@@ -12,6 +12,7 @@ import Dodge.SoundLogic.LoadSound
 import Dodge.Graph
 import Dodge.GameRoom
 import Dodge.Update.Camera
+import Dodge.Item.Draw
 --import Dodge.Zone
 import Geometry
 import ShapePicture
@@ -62,7 +63,7 @@ ppDraw c = uncurryV translate (_ppPos c) $ rotate (_ppRot c) (_ppPict c)
 
 floorItemSPic :: FloorItem -> SPic
 floorItemSPic flit = uncurryV translateSPf (_flItPos flit) 
-    $ rotateSP (_flItRot flit)  (_itFloorPict (_flIt flit) (_flIt flit))
+    $ rotateSP (_flItRot flit)  (itSPic (_flIt flit))
 
 btSPic :: Button -> SPic
 btSPic bt = uncurryV translateSPf (_btPos bt)