Game in Haskell at Strangeloop 2014

Transcript

4. Game in Haskell Press <Enter> to start @elise_huard
5. Concept
7. Choices
10. https://www.bioshockinfinite.com/
12. http://bindingofisaac.com/
13. Graphics with OpenGL
14. GLFW-b: window ! main = do withWindow width height "Game-Demo" $ \win -> do initGL width height ... https://github.com/bsl/GLFW-b-demo
15. OpenGL initGL width height = do clearColor $= Color4 1 1 1 1 viewport $= (Position 0 0, Size (fromIntegral width) (fromIntegral height)) ortho 0 (fromIntegral width) 0 (fromIntegral height) (-1) 1
17. The Loop
18. loop: poll input events react to input (change state) render state if not exit, loop again
19. No life without state
20. initialState = State { x = 200, y = 200 } ! loop window state = do threadDelay 20000 pollEvents (left, right, up, down) <- getInputKeys window let newState = movePlayer (left,right,up,down) state renderFrame newState window if k then return () else loop window newState
21. initialState = State { x = 200, y = 200 } ! loop window state = do threadDelay 20000 pollEvents (left, right, up, down) <- getInputKeys window let newState = movePlayer (left,right,up,down) state renderFrame newState window if k then return () else loop window newState
22. Frame rate
23. State: FRP
24. False False True True True Left Key signal Player position (200,200) (200,200) (195,200) (190,200) (185,200) Keys Player
25. initialState = State { x = 200, y = 200 } … loop window initialState … loop window state = do threadDelay 20000 pollEvents (left, right, up, down) <- getInputKeys window let newState = movePlayer (left,right,up,down) state 10 renderFrame newState window if k then return () else loop window newState
26. (directionKey, directionKeySink) <- external (False, False, False, False) ! network <- start $ do state <- transfer initialState movePlayer directionKey return $ renderFrame win <$> state ! fix $ \loop -> do readKeys win directionKeySink join network threadDelay 20000 esc <- keyIsPressed win Key'Escape when (not esc) loop Keys Player Elerea https://github.com/elisehuard/game-talk-code
27. Keys Player World Resurrections Killings Life Success
28. FRP and levels
29. Level count level Network SignalGen for the levels Keys Player World Resurrectio ns Killing s Life Success
30. Textures
31. ! X Y U V (1,0) (0,1) Vertex coordinates Texture coordinates
32. http://www.wacom.com/en/ca/creative/intuos-s
35. Sound with OpenAL
36. playSound path = do withProgNameAndArgs runALUT $ \progName args -> do buf <- createBuffer (File path) -- Generate a single source, attach the buffer to it and start playing. source <- genObjectName buffer source $= Just buf play [source] errs <- get alErrors unless (null errs) $ do hPutStrLn stderr (concat (intersperse "," [ d | ALError _ d <- errs ])) return ()
37. outputFunction levelState soundSignals = (renderFrame levelState) >> (playSounds soundSignals) ! network <- start $ do state <- transfer initialState movePlayer directionKey return $ renderFrame <$> state ! ! network <- start $ do state <- transfer initialState movePlayer directionKey … return $ outputFunction <$> state <*> soundState !
38. Animations
39. sin(at) cos(at)
40. Keyframe animations Skeletal animations
42. Physics
43. Body Shape Gravity Friction, elasticity, joints, …
44. So far
45. https://vimeo.com/106632572
46. Lessons Learned
47. Haskell Types Pattern matching nice bindings
48. Haskell unanswered questions: packaging, porting performance? strict (eager) when possible getting things started was painful compilation …
49. Game
50. http://steamcommunity.com/sharedfiles/ filedetails/?id=107105028 Nikki and the robots
51. http://keera.co.uk/blog/2014/08/13/most- inspiring-green-screen-you-will-ever-see/ Mobile games in Haskell?
52. Wayward Tides http://blog.chucklefish.org/?p=154
53. https://leanpub.com/gameinhaskell @elise_huard
54. http://www.freesound.org/people/Taira%20Komori/sounds/213423/ http://www.bbc.co.uk/programmes/articles/ 1g84m0sXpnNCv84GpN2PLZG/the-hitchhikers-guide-to-the-galaxy- game-30th-anniversary-edition Images and sounds https://www.civilization.com/en/home/ http://mario.nintendo.com/ https://www.bioshockinfinite.com/ http://bindingofisaac.com/