starting to add bouncing to jamshred

db4
Alex Chapman 2008-05-02 17:52:17 +10:00
parent 18155ad17e
commit 796e5f58eb
2 changed files with 6 additions and 1 deletions

View File

@ -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- ;

View File

@ -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 ;