From eef0db3a3685c12d116a4fdc72b7bce682971212 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Wed, 7 Jan 2009 21:23:57 -0600 Subject: [PATCH] Add L-system.models.abop-3 --- extra/L-system/models/abop-3/abop-3.factor | 25 ++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 extra/L-system/models/abop-3/abop-3.factor diff --git a/extra/L-system/models/abop-3/abop-3.factor b/extra/L-system/models/abop-3/abop-3.factor new file mode 100644 index 0000000000..49a63eb074 --- /dev/null +++ b/extra/L-system/models/abop-3/abop-3.factor @@ -0,0 +1,25 @@ + +USING: accessors ui L-system ; + +IN: L-system.models.abop-3 + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +: abop-3 ( -- ) + + L-parser-dialect >>commands + + "c(12)FA" >>axiom + + { + { "A" "!(.9)t(.4)FB>(94)B>(132)B" } + { "B" "[&t(.4)F$A]" } + { "F" "'(1.25)F'(.8)" } + } + >>rules ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +: main ( -- ) [ L-system abop-3 "L-system" open-window ] with-ui ; + +MAIN: main -- 2.34.1