Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let gameLoop gamestate =
- let rec innerLoop prev gamestate =
- let now = getTicks()
- let delta = now - prev
- gamestate
- |> readInput delta
- |> update delta
- |> render delta
- |> innerLoop delta
- innerLoop 0L gamestate
- let gameLoop gamestate =
- let rec innerLoop prev gamestate =
- let now = getTicks()
- let delta = now - prev
- let newState = gamestate
- |> readInput delta
- |> update delta
- |> render delta
- innerLoop now newState
- innerLoop 0L gamestate
- let (|>) x f = f x
- gamestate
- |> readInput delta
- |> update delta
- |> render delta
- |> innerLoop delta
- |> (innerLoop delta) (|> (render delta) (|> (update delta) (|> (readInput delta) gamestate)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement