Pertinent functions to breakout

breakout.elm

type alias Game =
  {
    state   : State
  , player  : Player
  }

type State = Play | Pause

type alias Player =
  Object {score : Int}
  
type alias Object a =
  { a |
      x  : Float
    , y  : Float
    , vx : Float
    , vy : Float
  }

stepGame : Input -> Game -> Game
stepGame input game =
  let
    {paddle,delta} = input
    {state,player} = game
    player' = stepPlayer delta player
  in
    {game | player = player'}
    

stepPlayer : Time.Time -> Player -> Player
stepPlayer(time, player) =
    let player' = stepObj time { player | vx = toFloat 300 }
        x'      = clamp (22-halfHeight) (halfHeight-22) player'.x
        score'  = player.score + 1

    in
      { player' | x = x', score = score' }
  

gameState : Signal Game
gameState =
    Signal.foldp stepGame defaultGame input
      
main : Signal Graphics.Element.Element
main =
    Signal.map2 display Window.dimensions gameState