From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Wed, 7 Jan 2009 22:47:25 +0000 (-0600)
Subject: L-system: offer help via F1
X-Git-Tag: 0.94~2201^2~14
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=d75f686a686b712e321c6e41fea0384cf6b61b13

L-system: offer help via F1
---

diff --git a/extra/L-system/L-system.factor b/extra/L-system/L-system.factor
index 43e6cbbfa6..9b8bdc1914 100644
--- a/extra/L-system/L-system.factor
+++ b/extra/L-system/L-system.factor
@@ -1,9 +1,10 @@
 
 USING: accessors arrays assocs calendar colors
-combinators.short-circuit kernel locals math math.functions
-math.matrices math.order math.parser math.trig math.vectors
-opengl opengl.demo-support opengl.gl sbufs sequences strings
-threads ui.gadgets ui.gadgets.worlds ui.gestures ui.render ;
+combinators.short-circuit help.markup help.syntax kernel locals
+math math.functions math.matrices math.order math.parser
+math.trig math.vectors opengl opengl.demo-support opengl.gl
+sbufs sequences strings threads ui.gadgets ui.gadgets.worlds
+ui.gestures ui.render ui.tools.workspace ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -455,6 +456,8 @@ H{
       drop
     ]
   }
+
+  { T{ key-down f f "F1" } [ drop "L-system" help-window ] }
     
 }
 set-gestures
@@ -477,3 +480,23 @@ set-gestures
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
+ARTICLE: "L-system" "L-system"
+
+"Press 'x' to iterate the L-system." $nl
+
+"Camera control:"
+
+{ $table
+
+  { "a" "Forward" }
+  { "z" "Backward" }
+
+  { "LEFT" "Turn left" }
+  { "RIGHT" "Turn right" }
+  { "UP" "Pitch down" }
+  { "DOWN" "Pitch up" }
+
+  { "q" "Roll left" }
+  { "w" "Roll right" } } ;
+
+ABOUT: "L-system"
\ No newline at end of file