()
{
   enum{N=2000000};
   static colr[1024*768],colg[1024*768],colb[1024*768];
   if (numframes==0)
   {
      cls(0);clz(0);
      nx=xres*.5;ny=yres*.5;sc=ny*.5;
      x=.5;y=.75;ir=.5;irn=-ir;sqr3=sqrt(3)*.5;
      cr=0;cg=0;cb=0;
      for (i=0;i<1024*768;i++) {colr[i]=0;colg[i]=0;colb[i]=0;}
      for (i=0,zsc=1;i<N;i++)
      {
         r=sqrt(x^2+y^2);d=int(rnd*4);
         if(d==0)
         {
            w=atan2(y,x-1);
            y=r*cos(w)*irn+1;
            x=r*sin(w)*irn;
            cr=(cr+1)*.5;
            cg=(cg+0)*.5;
            cb=(cb+0)*.5;
         }
         else if (d==1)
         {
            w=atan2(y-sqr3,x+.5);
            y=r*cos(w)*irn-.5;
            x=r*sin(w)*irn+sqr3;
            cr=(cr+0)*.5;
            cg=(cg+1)*.5;
            cb=(cb+0)*.5;
         }
         else if (d==2)
         {
            w=atan2(y+sqr3,x+.5);
            y=r*cos(w)*irn-.5;
            x=r*sin(w)*irn-sqr3;
            cr=(cr+0)*.5;
            cg=(cg+0)*.5;
            cb=(cb+1)*.5;
         }
         else
         {
            w=atan2(y,x);
            y=r*cos(w)*irn;
            x=r*sin(w)*irn;
            cr=(cr+1)*.5;
            cg=(cg+1)*.5;
            cb=(cb+1)*.5;
         }
         if (i<100) continue;
         ix=floor(x*sc+nx);iy=floor(y*sc+ny);
         if (ix>=1024 || iy>=768 || ix<0 || iy<0) continue;
         if (0)
         {
            cr=r*2*ir; cg=1-r*1*ir;
            cb=cos(r*ir)*1+.5;
         }
         qr=0;qg=0;qb=0; qz=getpix(ix,iy,qr,qg,qb);
         colr[iy*1024+ix]+=cr; colg[iy*1024+ix]+=cg; colb[iy*1024+ix]+=cb;
         setpix(ix,iy,qz+1); zsc=max(zsc,qz+1);
      }
      for (zsc=64/zsc,iy=0;iy<yres;iy++)
      {
         for (ix=0;ix<xres;ix++)
         {
            qz=getpix(ix,iy,qr,qg,qb); if (qz<=0) continue;
            s=256/qz;
            qr=colr[iy*1024+ix]*s;
            qg=colg[iy*1024+ix]*s;
            qb=colb[iy*1024+ix]*s;
            s=(1-1/(qz*zsc+1));
            setcol(qr*s,qg*s,qb*s);
            setpix(ix,iy);
         }
      }
   }
}