/*  Macro to make fake Z series with two color channels  */

var xydimension = 128;
var c = xydimension / 2;
var slices = 16;
var colors = 2;
var spotradius = 2;
var numberSpots = 30;

macro "make fake Z series 2 colors [q]" {
  run("Colors...", "foreground=white background=black selection=yellow");
  newImage("HyperStack", "8-bit composite-mode", xydimension, xydimension, colors, slices, 1);
  Stack.setChannel(1);  run("Red");
  Stack.setChannel(2);  run("Green");
  getDateAndTime(year, month, dayOfWeek, dayOfMonth, hour, minute, second, msec)
  random("seed", hour + minute + second + msec);

  for (i=0; i<numberSpots; i++) {
    amp = random() * ((xydimension / 2) - spotradius);
    theta = random * 2 * PI;
    x = c + amp * sin(theta);
    y = c + amp * cos(theta);
    z1 = floor(random() * slices) + 1; 
    z2 = floor(random() * slices) + 1; 
    Stack.setSlice(z1);
    Stack.setChannel(1);
    makeOval(x-spotradius, y-spotradius, spotradius*2, spotradius*2);
    run("Set...", "value=255 slice");

    Stack.setSlice(z2);
    Stack.setChannel(2);
    makeOval(x-spotradius, y-spotradius, spotradius*2, spotradius*2);
    run("Set...", "value=255 slice");

  }  // for i
  run("Select None");

}