Remove old layer code

2022-04-10 10:32:55 +01:00
parent 2da4098d41
commit edd82fb3ac
17 changed files with 54 additions and 53 deletions
@@ -1,6 +1,5 @@
 module Dodge.Debug where
 import Dodge.Data
-import Dodge.Picture.Layer
 import Dodge.Zone
 import Dodge.Base
 import Geometry.Zone
@@ -21,7 +20,7 @@ drawCircleAtForCol p t col w = w & props %~
        { _pjPos = p
        , _pjStartPos = p
        , _pjVel = V2 0 0
-        , _prDraw = \_ -> (,) mempty $ onLayer PtLayer $ uncurryV translate p $ color col $ circleSolid 20
+        , _prDraw = \_ -> (,) mempty $ setDepth 20 $ uncurryV translate p $ color col $ circleSolid 20
        , _pjID = k
        , _pjUpdate = \_ -> pjTimerF t k
        }
@@ -34,7 +33,7 @@ drawLineForCol ps t col w = w & props %~
        { _pjPos = head ps
        , _pjStartPos = head ps
        , _pjVel = V2 0 0
-        , _prDraw = \_ -> (,) mempty $ onLayer PtLayer $ color col $ thickLine 5 ps
+        , _prDraw = \_ -> (,) mempty $ setDepth 20 $ color col $ thickLine 5 ps
        , _pjID = k
        , _pjUpdate = \_ -> pjTimerF t k
        }