module Dodge.Event.Test (testEvent) where

--import Dodge.Creature.State

--import Dodge.Flame
import Data.Maybe
import Dodge.Data.World
import LensHelp
import Linear

testEvent :: World -> World
testEvent w = fromMaybe w $ do
--    cpos <- w ^? cWorld . lWorld . creatures . ix 0 . crPos . _xy
--    return $ w & makeFlame (cpos + 25) 1
--testEvent w = fromMaybe w $ do
    cpos <- w ^? cWorld . lWorld . creatures . ix 0 . crPos . _xy
    let distR = 50
        t1 = V2 1 (-1)
        t2 = V2 1 1
        t3 = V2 distR 0
        v3 = V3 t1 t2 t3
        distortionBulge =
            RadialDistortion
                cpos
                (V2 distR 0)
                (V2 0 distR)
                v3 v3 v3
                20
    return $ w & cWorld . lWorld . distortions .~ [distortionBulge
        , distortionBulge & rdPos +~ 50 & rdTR . _1 +~ V2 (-1) 1
        , distortionBulge & rdPos +~ (-50)
        ]