diff options
Diffstat (limited to 'L-system/models/abop-5/abop-5.factor')
-rw-r--r-- | L-system/models/abop-5/abop-5.factor | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/L-system/models/abop-5/abop-5.factor b/L-system/models/abop-5/abop-5.factor deleted file mode 100644 index 73dc13d..0000000 --- a/L-system/models/abop-5/abop-5.factor +++ /dev/null @@ -1,35 +0,0 @@ - -USING: accessors ui L-system ; - -IN: L-system.models.abop-5 - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -: abop-5 ( <L-system> -- <L-system> ) - - L-parser-dialect >>commands - - [ 5 >>angle ] >>turtle-values - - "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 - |