starting to add bouncing to jamshred
parent
18155ad17e
commit
796e5f58eb
|
@ -74,3 +74,7 @@ TUPLE: oint location forward up left ;
|
|||
: perpendicular-distance ( oint oint -- distance )
|
||||
tuck distance-vector swap 2dup oint-left scalar-projection abs
|
||||
-rot oint-up scalar-projection abs + ;
|
||||
|
||||
:: reflect ( v l -- v' )
|
||||
#! reflect v on l
|
||||
v l v. l l v. / 2 * l n*v v v- ;
|
||||
|
|
|
@ -28,7 +28,8 @@ TUPLE: player name tunnel nearest-segment ;
|
|||
0.3 ;
|
||||
|
||||
: player-speed ( player -- speed )
|
||||
dup player-nearest-segment fraction-from-wall sq max-speed * ;
|
||||
max-speed ;
|
||||
! dup player-nearest-segment fraction-from-wall sq max-speed * ;
|
||||
|
||||
: move-player ( player -- )
|
||||
dup player-speed over go-forward update-nearest-segment ;
|
||||
|
|
Loading…
Reference in New Issue