2 USING: accessors ui L-system ;
4 IN: L-system.models.airhorse
6 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
8 : airhorse ( <L-system> -- <L-system> )
10 L-parser-dialect >>commands
12 [ 10 >>angle ] >>turtle-values
19 { "B" "[[''aH]|[g]]" }
22 { "s" "[::cc!!!!&&[FFcccZ]^^^^FFcccZ]" }
23 { "t" "[c!!!!&[FF]^^FF]" }
33 { "V" "[cc!!!&(90)[Zp]|[Zp]]" }
34 { "p" "h>(120)h>(120)h" }
35 { "h" "[+(40)!F'''p]" }
37 { "H" "[cccci[>(50)dcFFF][<(50)ecFFF]]" }
42 { "W" "[%[!!cb][<<<!!cb][>>>!!cb]]" }
44 { "l" "[-cc{--z++z++z--|--z++z++z}]" }
48 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
50 : main ( -- ) [ L-system airhorse "L-system" open-window ] with-ui ;