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,ImageSizeLarge]
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[]=