In[]:=
SubstitutionSystem[{0{0,1},1{0}},{0},8]//Last
Out[]=
{0,1,0,0,1,0,1,0,0,1,0,0,1,0,1,0,0,1,0,1,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,1,0,0,1,0,1,0,0,1,0,0,1,0,1,0,0,1,0,1,0}
In[]:=
Graphics[Line[AnglePath[%Pi/4]]]
Out[]=
In[]:=
SubstitutionSystem[{0{0,1},1{1,0}},{0},12]//Last;
In[]:=
Graphics[Line[AnglePath[%Pi/8]]]
Out[]=
In[]:=
SubstitutionSystem[{0{0,1},1{1,0}},{0},12]//Last;
In[]:=
Graphics[Line[AnglePath[%Pi/3]]]
Out[]=
In[]:=
Graphics[Line[AnglePath[Last[SubstitutionSystem[{0{0,1},1{1,0}},{0},13]]Pi/3]]]
Out[]=
In[]:=
Graphics[Line[AnglePath[Last[SubstitutionSystem[{0{0,1},1{1,0}},{0},11]]Pi/3]]]
Out[]=
In[]:=
Graphics[Line[AnglePath[Last[SubstitutionSystem[{0{0,1},1{1,0}},{0},15]]Pi/3]]]
Out[]=
In[]:=
Manipulate[Graphics[Line[AnglePath[Last[SubstitutionSystem[{0{0,1},1->{0}},{0},15]]a]]],{a,0,2Pi}]
Out[]=
In[]:=
Manipulate[Graphics[Line[AnglePath[Last[SubstitutionSystem[{1{1,0,1},0{0,0,0}},{1},5]]a]]],{a,0,2Pi}]
Out[]=