starting to add bouncing to jamshred

extra/jamshred/oint/oint.factor

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

extra/jamshred/player/player.factor

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