module Dodge.Event.Test (testEvent) where

--import Dodge.Creature.State
import Dodge.Data.World
import Linear
import LensHelp
import Data.Maybe

testEvent :: World -> World
testEvent w = fromMaybe w $ do
    cpos <- w ^? cWorld . lWorld . creatures . ix 0 . crPos . _xy
    let distR = 50
        distortionBulge = RadialDistortion cpos (cpos + V2 distR 0) (cpos + V2 0 distR) 1.9
    return $ w & cWorld . lWorld . distortions .~ [distortionBulge]