From fe2c0b19297967a5e0c1acd52cb62cf9a3b384de Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Wed, 7 Jan 2009 21:24:44 -0600 Subject: [PATCH] Add L-system.models.abop-5 --- extra/L-system/models/abop-5/abop-5.factor | 33 ++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 extra/L-system/models/abop-5/abop-5.factor diff --git a/extra/L-system/models/abop-5/abop-5.factor b/extra/L-system/models/abop-5/abop-5.factor new file mode 100644 index 0000000000..abc346946a --- /dev/null +++ b/extra/L-system/models/abop-5/abop-5.factor @@ -0,0 +1,33 @@ + +USING: accessors ui L-system ; + +IN: L-system.models.abop-5 + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +: abop-5 ( -- ) + + L-parser-dialect >>commands + + "&(90)+(90)a" >>axiom + + { + { "a" "F[+(45)l][-(45)l]^;ca" } + + { "l" "j" } + { "j" "h" } + { "h" "s" } + { "s" "d" } + { "d" "x" } + { "x" "a" } + + { "F" "'(1.17)F'(.855)" } + } + >>rules ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +: main ( -- ) [ L-system abop-5 "L-system" open-window ] with-ui ; + +MAIN: main + \ No newline at end of file