diff options
Diffstat (limited to 'L-system/models/airhorse/airhorse.factor')
-rw-r--r-- | L-system/models/airhorse/airhorse.factor | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/L-system/models/airhorse/airhorse.factor b/L-system/models/airhorse/airhorse.factor deleted file mode 100644 index 07f4224..0000000 --- a/L-system/models/airhorse/airhorse.factor +++ /dev/null @@ -1,52 +0,0 @@ - -USING: accessors ui L-system ; - -IN: L-system.models.airhorse - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -: airhorse ( <L-system> -- <L-system> ) - - L-parser-dialect >>commands - - [ 10 >>angle ] >>turtle-values - - "C" >>axiom - - { - { "C" "LBW" } - - { "B" "[[''aH]|[g]]" } - { "a" "Fs+;'a" } - { "g" "Ft+;'g" } - { "s" "[::cc!!!!&&[FFcccZ]^^^^FFcccZ]" } - { "t" "[c!!!!&[FF]^^FF]" } - - { "L" "O" } - { "O" "P" } - { "P" "Q" } - { "Q" "R" } - { "R" "U" } - { "U" "X" } - { "X" "Y" } - { "Y" "V" } - { "V" "[cc!!!&(90)[Zp]|[Zp]]" } - { "p" "h>(120)h>(120)h" } - { "h" "[+(40)!F'''p]" } - - { "H" "[cccci[>(50)dcFFF][<(50)ecFFF]]" } - { "d" "Z!&Z!&:'d" } - { "e" "Z!^Z!^:'e" } - { "i" "-:/i" } - - { "W" "[%[!!cb][<<<!!cb][>>>!!cb]]" } - { "b" "Fl!+Fl+;'b" } - { "l" "[-cc{--z++z++z--|--z++z++z}]" } - } - >>rules ; - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -: main ( -- ) [ L-system airhorse "L-system" open-window ] with-ui ; - -MAIN: main |