From d75f686a686b712e321c6e41fea0384cf6b61b13 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Wed, 7 Jan 2009 16:47:25 -0600 Subject: [PATCH] L-system: offer help via F1 --- extra/L-system/L-system.factor | 31 +++++++++++++++++++++++++++---- 1 file changed, 27 insertions(+), 4 deletions(-) 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 -- 2.34.1