<<Diagrams/DiagramInit.m
r3pix[rn_] := LabelWrapper[XCAGraphics[XCAEvolveList[ TotalisticRule[rn, 3, 1], RandomList[100, 3], 80], Colors->{Red,Green,Blue}], BigFont[rn]]
Show[r3pix[689]];
Table[r3pix[Random[Integer, {0, 729}]], {4}, {5}];
Show[GraphicsArray[%]];
Show[GraphicsArray[Table[r3pix[Random[Integer, {0, 729}]], {6}, {4}]]];
Display["!psfix > /swolf4/ColorPictures/k3r1.ps", %16];
Show[GraphicsArray[Table[r3pix[Random[Integer, {0, 729}]], {6}, {4}]]];
r3pix[rn_, size_] := LabelWrapper[XCAGraphics[XCAEvolveList[ TotalisticRule[rn, 3, 1], RandomList[size, 3], size], Colors->{Red,Green,Blue}], BigFont[rn]]
Show[r3pix[248, 400]];