From 26711da67511098754000256ede12c16e87157ed Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Wed, 7 Jan 2009 23:13:18 -0600 Subject: [PATCH] L-system: Key gestures for strafing camera. Support for changing turtle values. --- extra/L-system/L-system.factor | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/extra/L-system/L-system.factor b/extra/L-system/L-system.factor index 9b8bdc1914..5bc7ce1db6 100644 --- a/extra/L-system/L-system.factor +++ b/extra/L-system/L-system.factor @@ -256,7 +256,9 @@ DEFER: default-L-parser-values ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! TUPLE: < gadget - camera display-list pedestal paused commands axiom rules string ; + camera display-list pedestal paused + turtle-values + commands axiom rules string ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @@ -376,6 +378,7 @@ TUPLE: < gadget L-SYSTEM display-list>> GL_COMPILE glNewList turtle + L-SYSTEM turtle-values>> [ ] or call L-SYSTEM string>> L-SYSTEM axiom>> or L-SYSTEM commands>> interpret-string @@ -445,6 +448,11 @@ H{ { T{ key-down f f "q" } [ [ 5 roll-left ] with-camera ] } { T{ key-down f f "w" } [ [ 5 roll-right ] with-camera ] } + { T{ key-down f { A+ } "LEFT" } [ [ 1 strafe-left ] with-camera ] } + { T{ key-down f { A+ } "RIGHT" } [ [ 1 strafe-right ] with-camera ] } + { T{ key-down f { A+ } "UP" } [ [ 1 strafe-up ] with-camera ] } + { T{ key-down f { A+ } "DOWN" } [ [ 1 strafe-down ] with-camera ] } + { T{ key-down f f "r" } [ start-rotation-thread ] } {