15 lines
450 B
Haskell
15 lines
450 B
Haskell
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]
|