diff options
Diffstat (limited to 'L-system/models/abop-2/abop-2.factor')
-rw-r--r-- | L-system/models/abop-2/abop-2.factor | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/L-system/models/abop-2/abop-2.factor b/L-system/models/abop-2/abop-2.factor deleted file mode 100644 index 1168780..0000000 --- a/L-system/models/abop-2/abop-2.factor +++ /dev/null @@ -1,31 +0,0 @@ - -USING: accessors ui L-system ; - -IN: L-system.models.abop-2 - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -: abop-2 ( <L-system> -- <L-system> ) - - L-parser-dialect >>commands - - [ 30 >>angle ] >>turtle-values - - "c(12)FAL" >>axiom - - { - { "A" "F [&'(.7)!BL] >(137) [&'(.6)!BL] >(137) '(.9) !(.9) A" } - - { "B" "F [- '(.7) !(.9) $ C L] '(.9) !(.9) C" } - { "C" "F [+ '(.7) !(.9) $ B L] '(.9) !(.9) B" } - - { "L" "~c(8){+f(.1)-f(.1)-f(.1)+|+f(.1)-f(.1)-f(.1)}" } - - } >>rules ; - - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -: main ( -- ) [ L-system abop-2 "L-system" open-window ] with-ui ; - -MAIN: main |