In[]:=
TMTapes[{{{1,0}{1,1,1}},{{1,0}{1,0,1}}},4]
Out[]=
{{{0}},{{0,0,0},{0,1,0}},{{0,0,0,0,0},{0,0,0,1,0},{0,0,1,0,0},{0,0,1,1,0}},{{0,0,0,0,0,0,0},{0,0,0,0,0,1,0},{0,0,0,0,1,0,0},{0,0,0,0,1,1,0},{0,0,0,1,0,0,0},{0,0,0,1,0,1,0},{0,0,0,1,1,0,0},{0,0,0,1,1,1,0}},{{0,0,0,0,0,0,0,0,0},{0,0,0,0,0,0,0,1,0},{0,0,0,0,0,0,1,0,0},{0,0,0,0,0,0,1,1,0},{0,0,0,0,0,1,0,0,0},{0,0,0,0,0,1,0,1,0},{0,0,0,0,0,1,1,0,0},{0,0,0,0,0,1,1,1,0},{0,0,0,0,1,0,0,0,0},{0,0,0,0,1,0,0,1,0},{0,0,0,0,1,0,1,0,0},{0,0,0,0,1,0,1,1,0},{0,0,0,0,1,1,0,0,0},{0,0,0,0,1,1,0,1,0},{0,0,0,0,1,1,1,0,0},{0,0,0,0,1,1,1,1,0}}}
In[]:=
ArrayPlot/@%
Out[]=

,
,
,
,

In[]:=
TMTapesHeads[{{{1,0}{1,1,1}},{{1,0}{1,0,1}}},4]
Out[]=
{{{-1}},{{0,0,-1},{0,1,-1}},{{0,0,0,0,-1},{0,0,0,1,-1},{0,0,1,0,-1},{0,0,1,1,-1}},{{0,0,0,0,0,0,-1},{0,0,0,0,0,1,-1},{0,0,0,0,1,0,-1},{0,0,0,0,1,1,-1},{0,0,0,1,0,0,-1},{0,0,0,1,0,1,-1},{0,0,0,1,1,0,-1},{0,0,0,1,1,1,-1}},{{0,0,0,0,0,0,0,0,-1},{0,0,0,0,0,0,0,1,-1},{0,0,0,0,0,0,1,0,-1},{0,0,0,0,0,0,1,1,-1},{0,0,0,0,0,1,0,0,-1},{0,0,0,0,0,1,0,1,-1},{0,0,0,0,0,1,1,0,-1},{0,0,0,0,0,1,1,1,-1},{0,0,0,0,1,0,0,0,-1},{0,0,0,0,1,0,0,1,-1},{0,0,0,0,1,0,1,0,-1},{0,0,0,0,1,0,1,1,-1},{0,0,0,0,1,1,0,0,-1},{0,0,0,0,1,1,0,1,-1},{0,0,0,0,1,1,1,0,-1},{0,0,0,0,1,1,1,1,-1}}}
In[]:=
(ArrayPlot[Sort[#],ColorRules{0White,1Black,-1Red,-2Darker[Red]}]&/@Take[TMTapesHeads[{{{1,0}{1,1,1}},{{1,0}{1,0,1}}},8],-4])
Out[]=

,
,
,

In[]:=
(ArrayPlot[Sort[#],ColorRules{0White,1Black,-1Red,-2Darker[Red]}]&/@Take[TMTapesHeads[#,8],-4])&/@​​{{{{1,1}{1,1,-1}},{{1,0}{1,1,-1}},{{1,0}{1,0,1}}},{{{1,1}{1,0,-1}},{{1,0}{1,1,-1}},{{1,0}{1,0,1}}},{{{1,1}{1,0,-1}},{{1,0}{1,1,-1}},{{1,0}{1,1,1}}},{{{1,1}{1,0,-1}},{{1,0}{1,0,-1}},{{1,0}{1,1,1}}},{{{1,0}{1,1,-1}},{{1,1}{1,0,1}},{{1,0}{1,0,1}}},{{{1,0}{1,0,-1}},{{1,1}{1,0,1}},{{1,0}{1,1,1}}}}
Out[]=

,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
