MapIndexed[If[#1==1,Rectangle[#2+0.15]]&,Reverse[Transpose@CellularAutomaton[30,{{1},0},90],2],{2}]//Graphics
That works as well, although I would argue that it is bad practice to feed Graphics a list containing null values.
ArrayPlot[CellularAutomaton[30, {{1}, 0}, 90]]
If you examine the SVG outputted by that, you will notice that it isn't actually vector, but a raster bitmap embedded in the file. This is why I made my code in the first place, as indicated in the second sentence of my original post.
MapIndexed[If[#1 == 1, Rectangle[#2 + 0.05]] &, Reverse[Transpose@CellularAutomaton[30, {{1}, 0}, 100], 2], {2}] // Graphics
Nothing is a new feature introduced in Mathematica 10.2. I probably should have noted that in my post.
You can change it to Missing[] and add a DeleteMissing.
