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