bounce ( d-left player -- d-left' player )

Vocabulary

jamshred.player

Inputs

d-left	an object
player	an object

Outputs

d-left'	an object
player	an object

Definition

USING: accessors combinators jamshred.sound jamshred.tunnel
kernel ;

IN: jamshred.player

: bounce ( d-left player -- d-left' player )
    {
        [ dup nearest-segment>> bounce-off-wall ]
        [ sounds>> bang ]
        [ 3/4 swap multiply-player-speed ]
        [ ]
    } cleave ;