abop-5 ( L-system -- L-system )


Vocabulary
L-system.models.abop-5

Inputs
L-systeman object


Outputs
L-systeman object


Definition
USING: L-system accessors ;

IN: L-system.models.abop-5

: abop-5 ( L-system -- L-system )
L-parser-dialect >>commands [ 5 >>angle ] >>turtle-values
"a" >>axiom {
{ "a" "F[+(45)l][-(45)l]^;ca" }
{ "l" "j" }
{ "j" "h" }
{ "h" "s" }
{ "s" "d" }
{ "d" "x" }
{ "x" "a" }
{ "F" "'(1.17)F'(.855)" }
} >>rules ;