rule=90
size=101

ini=ReplacePart[ConstantArray[0,size],Quotient[size,2]->1]

Manipulate[ArrayPlot[NestList[Partition[ArrayPad[#,1,"Periodic"],3,1]/.MapThread[#1->#2&,{Tuples[{1,0},3],IntegerDigits[rule,2,8]}]&,ini,50],ImageSize->500],{rule,0,255,1}]