var xpoints = newArray;
  var ypoints = newArray;
  var i = 0;

  macro "Point Tool - Cf00o2134 of033 odd33 o0a33" {
     setOption("ExpandableArrays", true);
     getCursorLoc(x, y, z, flags);
     xpoints[i] = x;
     ypoints[i] = y;
     i++;
     makeSelection("point", xpoints, ypoints);
	if (i==4) { // list points
        for (j=0; j<i; j++)
           print(j, xpoints[j], ypoints[j]);
     }
  }

  macro "Reset Points" {
     xpoints = newArray;
     ypoints = newArray;
     i = 0;
     run("Select None");
  }