Cleanup

src/Dodge/Render/ShapePicture.hs

@@ -5,13 +5,11 @@ module Dodge.Render.ShapePicture (
 import Control.Lens
 import Data.Foldable
 import Data.Strict.Tuple
-import Dodge.Base
 import Dodge.Creature.Picture
 import Dodge.Data.Universe
 import Dodge.Debug.Picture
 import Dodge.Draw
 import Dodge.RadarBlip
-import Dodge.Render.List
 import Dodge.Render.Picture
 import Geometry
 import qualified IntMapHelp as IM
@@ -99,16 +97,7 @@ extraPics cfig u =
         <> foldMap ppDraw (_pressPlates lw)
         <> viewClipBounds cfig w
         <> debugDraw cfig w
-        <> foldMap (`_debugPic` u) (_uvDebug u)
-        <> setLayer
-            FixedCoordLayer
-            ( toTopLeft cfig . translate (1.3 * halfWidth cfig) 0
-                . drawList
-                . take 50
-                . drop (u ^. uvDebugMessageOffset)
-                . map text
-                $ foldMap (`_debugMessage` u) (_uvDebug u)
-            )
+        <> foldMap (`_debugPic` u) (_uvDebug u) -- debug messages are in fixed coord pics
   where
     w = u ^. uvWorld
     lw = w ^. cWorld . lWorld
@@ -132,4 +121,3 @@ mcSPic :: LWorld -> Machine -> SPic
 mcSPic lw mc =
     uncurryV translateSPxy (_mcPos mc) $
         rotateSP (_mcDir mc) (drawMachine lw mc)
-