//**************************************


macro 'simple circle' {
  run("New...", "name=fractalplot type=8-bit fill=Black width=512 height=512 slices=1");
  autoUpdate(false);
  setColor(255);
  xoffset = 256;  yoffset = 256; xamp=6; yamp=6;
  stepsize = 0.01;
  theta = 0.000000000001;  // not used in this version



  xfactor = 1;
  for (windows=1;windows<=100;windows++){

  //xoffset = random()*512;  yoffset =random*512;
    xoffset = 256;  yoffset =256;
    x=0;  y=0;   // this sets X and Y at their center points
    stepsize = 0.01;
    theta = windows * stepsize;
    iterations = 1;
    //maxcount = (3.1415*2) / stepsize * iterations;
    maxcount = 255;
    for (count=0;count<maxcount;count++){
      setColor(count);
      if (sin(theta)<0) xdirection = -1;
      else xdirection=1;
      if (cos(theta)<0) ydirection = -1;
      else ydirection = 1;
      temptheta = random()*3.1415*2;
      x= ((xamp) * sin(temptheta)  ) + (x * xfactor);  xx=x + xoffset;
      y = (yamp * cos(temptheta) ) + (y * xfactor);  yy = y  + yoffset;
      theta=theta + theta;
      if (count<0.1) drawLine(xx,yy, xx,yy);
      else lineTo(xx, yy);
    } // for count

     run("Add Slice");    setColor(255);
     //xfactor = xfactor +0.001;
     
  } // for windows
  run("Delete Slice");
  run("Fire");
} //macro

// do a standard deviation projection on the resulting stack


//******************************************

macro 'fft to stack' {

  original = getImageID;
  end = nSlices();
  for (count=1;count<=end;count++){
    run("Set Slice...", "slice="+count);
    run("FFT");
    run("8-bit");
    run("Select All");
    run("Copy");
    run("Close");
    selectImage(original);
    run("Paste");

    } // count

}