In[]:=
nColors=4;rule=28205372808335068075931797246668074159844190201450952924456556023576503542668514928543654617168587194001361173641932272673699301536583883982992772413078216157451600166665916314616030621838073353272107237739380102118277195092352790429765859458563982987144617788518149844367753864964613630668741907912930436822688396966087611550686395720958207857952580157473852983626179179972024285397002316270035784380777160447026365958467645891541415550322188647930073797131701317241216973546068878828885416174329546175169750050027880697818586502467794555837009529007382851777572115371000553160063635324193369114512231807472470619756;initState={3,1,1,0,3};
In[]:=
Module[{evo,positions,colPositions,colRanges,rowPositions,highlightPositions,initState=#1,pattern=#2,rule=#3,steps=#4},evo=CellularAutomaton[rule,{initState,0},steps];​​positions=SequencePosition[#,pattern]&/@evo;​​colPositions=Cases[positions,x_/;x!={},1];​​colRanges=Range@@#&/@#&/@colPositions;​​rowPositions=Position[positions,x_/;x!={},1];​​highlightPositions=Flatten[(row|->{First[First[row]],#}&/@#&/@Last[row])/@Transpose[{rowPositions,colRanges}],2];​​ArrayPlot[MapAt[#+nColors&,evo,highlightPositions],ColorRules->If[nColors==2,{0->White,1->Black,2->Lighter[Pink],3->Pink},{0->GrayLevel[1],1->GrayLevel[2/3],2->GrayLevel[1/3],3->GrayLevel[0],4->Lighter[Pink,2/3],5->Lighter[Pink,1/3],6->Lighter[Pink],7->Pink}]]]&[initState,initState,{rule,nColors,2},10]
Out[]=