12 lines
306 B
Factor
12 lines
306 B
Factor
USING: accessors L-system ui ;
|
|
|
|
: peano ( L-system -- L-system )
|
|
L-parser-dialect >>commands
|
|
[ 90 >>angle ] >>turtle-values
|
|
"L" >>axiom
|
|
{
|
|
{ "L" "LFRFL-F-RFLFR+F+LFRFL" }
|
|
{ "R" "RFLFR+F+LFRFL-F-RFLFR" }
|
|
} >>rules ;
|
|
|
|
[ <L-system> peano "Peano curve" open-window ] with-ui
|