82 lines
1.9 KiB
Haskell
82 lines
1.9 KiB
Haskell
|
module Init where
|
||
|
|
|
||
|
|
import Affection
|
||
|
|
|
||
|
|
import SDL (($=))
|
||
|
|
import qualified SDL
|
||
|
|
|
||
|
|
import qualified Data.Set as S
|
||
|
|
import Data.Maybe
|
||
|
|
|
||
|
|
import System.Random
|
||
|
|
|
||
|
|
import NanoVG
|
||
|
|
|
||
|
|
-- Internal imports
|
||
|
|
|
||
|
|
import Types
|
||
|
|
|
||
|
|
load :: IO UserData
|
||
|
|
load = do
|
||
|
|
nvgCtx <- createGL3 (S.fromList [Antialias, StencilStrokes])
|
||
|
|
mhaskImage <- createImage nvgCtx "assets/haskelloid.svg" 0
|
||
|
|
mshipImage <- createImage nvgCtx "assets/ship.svg" 0
|
||
|
|
when (isNothing mhasImage || isNothing mshipImage) $
|
||
|
|
logIO Error "Failed loading image assets"
|
||
|
|
hasks <- mapM (\_ -> do
|
||
|
|
posx <- randomRIO (0, 800)
|
||
|
|
posy <- randomRIO (0, 600)
|
||
|
|
velx <- randomRIO (-10, 10)
|
||
|
|
vely <- randomRIO (-10, 10)
|
||
|
|
rot <- randomRIO (0, 2*pi)
|
||
|
|
pitch <- randomRIO (-pi, pi)
|
||
|
|
div <- randomRIO (1, 2)
|
||
|
|
return Haskelloid
|
||
|
|
(V2 posx posy)
|
||
|
|
(V2 velx vely)
|
||
|
|
rot
|
||
|
|
pitch
|
||
|
|
div
|
||
|
|
(fromJust mhaskImage)
|
||
|
|
) [1..10]
|
||
|
|
return UserData
|
||
|
|
{ ship = Ship
|
||
|
|
{ sPos = V2 400 300
|
||
|
|
, sVel = V2 0 0
|
||
|
|
, sRot = 0
|
||
|
|
, sImg = fromust mshipImage
|
||
|
|
}
|
||
|
|
, haskelloids = []
|
||
|
|
, wonlost = Nothing
|
||
|
|
, state = Menu
|
||
|
|
, fade = FadeIn 1
|
||
|
|
, nano = nvgCtx
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
-- _ <- SDL.setMouseLocationMode SDL.RelativeLocation
|
||
|
|
-- GL.depthFunc $= ust GL.Less
|
||
|
|
-- pane <- GL.genObjectName
|
||
|
|
-- GL.BindVertexArrayObject $= Just pane
|
||
|
|
-- verts <- GL.genObejctName
|
||
|
|
-- let vertCoord =
|
||
|
|
-- [ (-1), (-1), 0
|
||
|
|
-- , 1 , (-1), 0
|
||
|
|
-- , (-1), 1 , 0
|
||
|
|
-- , 1 , 1 , 0
|
||
|
|
-- , (-1), 1 , 0
|
||
|
|
-- , 1 , (-1), 0
|
||
|
|
-- ]
|
||
|
|
-- withArray vertCoord $ \ptr
|
||
|
|
-- GL.bufferData GL.ArrayBuffer $=
|
||
|
|
-- ( fromIntegral $ length vertCoord * 3 * sizeOf (0 :: Double)
|
||
|
|
-- , ptr
|
||
|
|
-- , GL.StaticDraw
|
||
|
|
-- )
|
||
|
|
-- GL.vertexAttribPointer (GL.AttribLocation 0) $=
|
||
|
|
-- ( GL.ToFloat
|
||
|
|
-- , GL.VertexArrayDescriptor 4 GL.Float 0 (plusPtr nullPtr 0)
|
||
|
|
-- )
|
||
|
|
-- GL.vertexAttribArray (GL.AttribLocation 0) $= GL.Enabled
|