12 lines
292 B
Factor
12 lines
292 B
Factor
USING: accessors L-system ui ;
|
|
|
|
: hilbert ( L-system -- L-system )
|
|
L-parser-dialect >>commands
|
|
[ 90 >>angle ] >>turtle-values
|
|
"A" >>axiom
|
|
{
|
|
{ "A" "-BF+AFA+FB-" }
|
|
{ "B" "+AF-BFB-FA+" }
|
|
} >>rules ;
|
|
|
|
[ <L-system> hilbert "Hilbert curve" open-window ] with-ui
|