CenterList[n_Integer] := ReplacePart[Table[0, {n}], 1, Ceiling[n/2]]
 ElementaryRule [num_Integer] := IntegerDigits[num, 2, 8]
CAStep[rule_, a_List] := Partition[a, 3, 1, 2] /. rule
CAEvolveList[rule_List, init_List, t_Integer] :=
 NestList[CAStep[rule, #] &, init, t]
Show[
 CAGraphics[CAEvolveList[ElementaryRule[30], CenterList[103], 50]]]

Instead of the ElementaryRule30 option I want to use my pattern code, the one I defined in the first question.