In[]:=
ArrayPlot/@SubstitutionSystem[{1{{1,0},{1,1}},0{{0,1},{1,0}}},{{1}},6]
Out[]=

,
,
,
,
,
,
