2 USING: accessors ui L-system ;
4 IN: L-system.models.abop-2
6 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
8 : abop-2 ( <L-system> -- <L-system> )
10 L-parser-dialect >>commands
15 { "A" "F[&'(.7)!BL]>(137)[&'(.6)!BL]>(137)'(.9)!(.9)A" }
16 { "B" "F[-'(.7)!(.9)$CL]'(.9)!(.9)C" }
17 { "C" "F[+'(.7)!(.9)$BL]'(.9)!(.9)B" }
19 { "L" "~c(8){+f(.1)-f(.1)-f(.1)+|+f(.1)-f(.1)-f(.1)}" }
23 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
25 : main ( -- ) [ L-system abop-2 "L-system" open-window ] with-ui ;