pro make_plot,y,z,ys,zs,ix
;-----------------------------------------------------------------------
; Name: MAKE_PLOT
;
; Purpose: Makes an interactive plot of a region
;          
; Inputs: 
;         
; Comments: 
;           
; Revision history:
;       written by Michael Wise, 2-29-96
;-----------------------------------------------------------------------
;
; Check for correct number of parameters
;
np=n_params(0)
if ((np lt 2) or (np gt 5)) then begin
   print,string(7B),'CALLING SEQUENCE: ', $
   'make_plot,y,z,[ys,zs,ix]'
   return   
endif
;
; Display total image
;
plot,y,z,psym=3
;
; Extract region of interest
;
get_box,ybox,zbox
ix=extract_index(y,z,ybox,zbox)
ys=y(ix)
zs=z(ix)
;
; Plot extracted region
;
plot,ys,zs,psym=3,/xst,/yst
;
; Return to IDL
;
return
end