Resize images

//////GUI interface for changing the pixel dimensions of image data
///// opens with the current pixels
///// Uses bilinear interpolation to change size
//// outputs new wave with "_SZ" appended
//// Menu call in analysis menu
 
 
function Resize()
    
        string inputwave                        // for input wave
    
    string list=wavelist("*",";","DIMS:3")          // only find image stacks
 
    prompt inputwave, "Wave Select", popup list // prompt for input wave
    doprompt "Resize", inputwave
            if(V_flag==1)
            abort
        endif
    
    wave input=$inputwave   
        
    variable x=dimsize(input,0)             // current size of the x dimension
    variable y=dimsize(input,1)             // current size of the y dimension
    
    variable xnew = x                           // variables for the new pixels, set to display the old ones in the prompt
    variable ynew = y
    
    prompt xnew, "new x pixels"         
    prompt ynew, "new y pixels"
    doprompt "new dimensions", xnew, ynew
            if(V_flag==1)
            abort
        endif
        
    string newname=inputwave+"_SZ"          // output wave name
    
    variable nx= (xnew-1)/(x-1)                 // calc for rescaling
    variable ny=(ynew-1)/(y-1)
        
        
    imageinterpolate/F={nx,ny}/DEST=$newname bilinear input   // image interpolation
    
 
    end
    
 
Menu "Analysis"
            "Resize....", Resize()
End