График клеточного автомата

Начав с одного чёрного квадрата, графически изобразите развитие правила 30 простейшего клеточного автомата для 100 действий и укажите легенду, демонстрирующую знак правила.

In[1]:=

RulePlot[CellularAutomaton[30], {{1}, 0}, 100, PlotLegends -> "Icon", ImageSize -> 400]

Out[1]=