In[]:=
NKSSpecialFunctions`RulePlot`Dump`ValidTuringMachineRulesQ;PrependTo[DownValues[NKSSpecialFunctions`RulePlot`Dump`ValidTuringMachineRulesQ],HoldPattern[NKSSpecialFunctions`RulePlot`Dump`ValidTuringMachineRulesQ[args___]]True];
In[]:=
RulePlot[TuringMachine[{{1,1}{1,2,-1}}]]
Out[]=
In[]:=
RulePlot[TuringMachine[{{1,2}{2,1,-1},{1,2}{1,1,-1},{1,1}{1,2,-1},{1,0}{2,1,1},{2,2}{1,0,1},{2,1}{2,2,1},{2,0}{1,2,-1}}]]
Out[]=
Send to Jose and Chapin Langenheim
TuringMachine[{{1,2}{2,1,-1},{1,2}{1,1,-1},{1,1}{1,2,-1},{1,0}{2,1,1},{2,2}{1,0,1},{2,1}{2,2,1},{2,0}{1,2,-1}}]
Don’t forget to determine color count from the right-hand side.