Follow

%
/plant-rules <<
/X [/F /LT /PU /PU /X /PO /RT /X /PO /RT /F /PU /RT /F /X /PO /LT /X]
/F [/F /F]
/PU [/PU] /PO [/PO] /LT [/LT] /RT [/RT] >> def
/plant-render <<
/X {}
/F { 4 tg-fd }
/LT { 25 tg-left }
/RT { 25 tg-right }
/PU { tg-push }
/PO { tg-pop }
>> def

plant-rules begin
[/X] 6 lsystem
end

1 inch 1.5 inch moveto
65 tg-left
plant-render begin
{ load exec } forall
end
stroke

Sign in to participate in the conversation
Octodon

The social network of the future: No ads, no corporate surveillance, ethical design, and decentralization! Own your data with Mastodon!