// StackProfilePlot
// This macro selects a region of a stack and creates a New Stack

macro "Select a zone" {
  


    stack1 = getImageID;

if (nSlices==1)
      exit("Stack required");


    stack2 = 0;


 selectImage(stack1);
 
n = nSlices;


w=0;
h=0;
x=0;
y=0;
         getSelectionBounds(x,y,w,h);
    
for (i=1; i<n; i++) {

        selectImage(stack1);
        
        setSlice(i);


        
        run("Copy");


       
     
    if (stack2==0) {
                   newImage("Zone Extraite", "8-bit", w, h, 1);
                   stack2 = getImageID;
                    } 
         else 

           {
            selectImage(stack2);
            run("Add Slice");
            }
        run("Paste");
    
}
    setSlice(1);
    setBatchMode(false);
    restoreSettings();
}

// This macro creates a grid for the PIV


macro "GenerateaGrid" {


intervalX=10	;
intervalY=10;



var npointsX,npointsY;

getSelectionBounds(left,top,width,height); 



   if(width==0) 
     
      exit("Selection required");


npointsX  =80;
npoinsY   =80;
compteur  =0;
   

npointsX=round(width/intervalX);
npointsY=round(height/intervalY);
     


    
 for (j=1; j<npointsY; j++) {
 for (i=1; i<npointsX; i++) {

setKeyDown("shift");

makePoint(left+i*intervalX
,top+j*intervalY);



     
   }

   }

}