2 USING: accessors ui L-system ;
4 IN: L-system.models.abop-5-angular
6 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
8 : abop-5-angular ( <L-system> -- <L-system> )
10 L-parser-dialect >>commands
15 { "a" "F[+(45)l][-(45)l]^;ca" }
24 { "F" "'(1.17)F'(.855)" }
28 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
30 : main ( -- ) [ L-system abop-5-angular "L-system" open-window ] with-ui ;