jamshred: Don't (move-player) in a tight loop.

Add ESC as quit

Fixes #1910

diff --git a/extra/jamshred/jamshred.factor b/extra/jamshred/jamshred.factor
index 36199a00b673d44789aee2ac8fd7d9bfe4716583..339ad1f5514688d23bec22a86135dbe7570f5a26 100644 (file)
--- a/extra/jamshred/jamshred.factor
+++ b/extra/jamshred/jamshred.factor
@@ -77,6 +77,7 @@ jamshred-gadget H{
     { T{ key-down f f "DOWN" } [ jamshred>> jamshred-player -1 swap change-player-speed ] }
     { T{ key-down f f "LEFT" } [ jamshred>> 1 jamshred-roll ] }
     { T{ key-down f f "RIGHT" } [ jamshred>> -1 jamshred-roll ] }
+    { T{ key-down f f "ESC" } [ quit ] }
     { T{ key-down f f "q" } [ quit ] }
     { motion [ handle-mouse-motion ] }
     { mouse-scroll [ handle-mouse-scroll ] }

diff --git a/extra/jamshred/player/player.factor b/extra/jamshred/player/player.factor
index 0abb77b1038275946d4d1fb2342aeca537be4ed8..22a0071e99c94a4cd837d64e306cd77a5976ea7a 100644 (file)
--- a/extra/jamshred/player/player.factor
+++ b/extra/jamshred/player/player.factor
@@ -132,7 +132,6 @@ CONSTANT: max-speed 30.0
     ?move-player-freely over 0 > [
         ! bounce
         drag-player
-        (move-player)
     ] when ;
 
 : move-player ( player -- )