You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
Out[]=
4
In[]:=
n=5;instructions=SubstitutionSystem[{"X"{"Y",Pi/3,"X",Pi/3,"Y"},"Y"{"X",-Pi/3,"Y",-Pi/3,"X"}},{"X"},n];Graphics[{Line[AnglePath[Join[{0},Select[Last[instructions],NumericQ]]]],{Red,Disk[{0,0},0.2]}}]
Out[]=
Out[]=
In[]:=
Rasterize[%90,"Image"]
Out[]=
In[]:=
Show[%13,ImageSizeLarge]
Out[]=
Out[]=
In[]:=
n=7;instructions=SubstitutionSystem[{"X"{"Y",Pi/3,"X",Pi/3,"Y"},"Y"{"X",-Pi/3,"Y",-Pi/3,"X"}},{"X"},n];Graphics[{Line[AnglePath[Join[{0},Select[Last[instructions],NumericQ]]]],{Red,Disk[{0,0},0.0]}}]
Out[]=