Re: circular infinity

Thanks, Peltio; this was along similar solutions proposed by other people in the Mathematica newsgroup (which finally decided to
show my post after a few days--damn moderation). Anyway, thanks for your help, too. Do you know how to have the lines be
anti-aliased and image border be 0? I tried the graphics options but it didn't do anything for the border and I didn't see anything
about anti-aliasing (just dithering). :/

"Peltio" <peltio@xxxxxxxxxxxxx> wrote in message news:mn.74927d6c75b58836.41957@xxxxxxxxxxxxxxxx
the circleData structure is not necessary, since it won't evaluate.
This should work too:

innerCircles[Circle[{x_,y_},r_]]:=
{ Circle[{x,y-r/2},r/2], Circle[{x,y+r/2},r/2] }
Attributes[innerCircles]=Listable

NestList[innerCircles,Circle[{0,0},1],5];

Show[Graphics[Flatten[%]],PlotRange->All, AspectRatio->Automatic];


.

Quantcast