49 lines
1.7 KiB
Haskell
49 lines
1.7 KiB
Haskell
module Dodge.WorldEvent.Cloud
|
|
where
|
|
|
|
import Dodge.Data
|
|
import Dodge.Base
|
|
--import Geometry
|
|
import Picture
|
|
import qualified IntMapHelp as IM
|
|
|
|
import Control.Lens
|
|
|
|
makeCloudAt :: Float -> Int -> (Cloud -> Picture) -> Point2 -> World -> World
|
|
makeCloudAt rad t drawFunc p w
|
|
= w & clouds %~ IM.insert i theCloud
|
|
where i = IM.newKey $ _clouds w
|
|
theCloud = Cloud { _clID = i
|
|
, _clPos = p
|
|
, _clVel = (0,0)
|
|
, _clPict = drawFunc
|
|
, _clRad = rad
|
|
, _clTimer = t
|
|
, _clEffect = const id
|
|
}
|
|
|
|
drawCloudWith :: Float -> Float -> Color -> Cloud -> Picture
|
|
drawCloudWith radMult fadet col cl
|
|
= setLayer 2
|
|
. setDepth (-0.5)
|
|
$ circleSolidCol (withAlpha 0 col) (withAlpha a col) (radMult * _clRad cl)
|
|
-- . color (withAlpha a col)
|
|
-- $ circleSolid (radMult * _clRad cl)
|
|
where a = min 1 $ fromIntegral (_clTimer cl) / fadet
|
|
|
|
makeThickSmokeAt :: Point2 -> World -> World
|
|
makeThickSmokeAt = makeCloudAt 3 50 (drawCloudWith 4 50 black)
|
|
|
|
makeThinSmokeAt :: Point2 -> World -> World
|
|
makeThinSmokeAt = makeCloudAt 5 400 (drawCloudWith 4 400 (withAlpha 0.05 black))
|
|
|
|
makeSmokeCloudAt :: Point2 -> World -> World
|
|
--makeSmokeCloudAt = makeCloudAt 10 200 (drawCloudWith 2 200 (greyN 0.5))
|
|
makeSmokeCloudAt = makeCloudAt 15 400 (drawCloudWith (4/3) 800 (greyN 0.5))
|
|
|
|
makeFlamerSmokeAt :: Point2 -> World -> World
|
|
makeFlamerSmokeAt = makeCloudAt 3 200 (drawCloudWith 4 200 (greyN 0.5))
|
|
|
|
spawnSmokeAtCursor :: World -> World
|
|
spawnSmokeAtCursor w = makeSmokeCloudAt (mouseWorldPos w) w
|