;+                                                                                                       
; hsi_image script - created Sat Oct 15 16:40:37 2022 by hsi_params2script.pro                           
; Includes only parameters changed from default settings.                                                
;                                                                                                        
; Note: This script simply sets control parameters in the hsi_image object as they                       
;  were when you wrote the script.  To make the object do anything in this script,                       
;  you need to add some action commands.  For instance, the command                                      
;    image= obj->getdata()                                                                               
;  would generate and return the image.                                                                  
;                                                                                                        
; For a complete list of control parameters look at the tables in                                        
; http://hesperia.gsfc.nasa.gov/ssw/hessi/doc/hsi_params_all.htm                                         
;                                                                                                        
; There are several ways to use this script:                                                             
;                                                                                                        
; A. Run this procedure via this command (compile first if it's not in your IDL path):                   
;     hsi_image_script_nondefault_params_clean59_20050113_1026_4tx2e, obj=obj                            
;       Note: you can set additional parameters or override parameters in script via:                    
;       hsi_image_script_nondefault_params_clean59_20050113_1026_4tx2e, obj=obj, $                       
; param1=param1, param2=param2,...                                                                       
; or                                                                                                     
; B. Compile and execute it as a main program by:                                                        
;    1. Comment out the "pro" line and save.                                                             
;    2. From the command line, $                                                                         
; type .run hsi_image_script_nondefault_params_clean59_20050113_1026_4tx2e.                              
;       In the IDLDE, click Compile, then Execute.                                                       
;    3. Use .GO to restart at the beginning of the script                                                
; or                                                                                                     
; C. Execute it as a batch file via:                                                                     
;    1. Comment out the "pro" and "end" lines and save.                                                  
;    2. Run the commands via @hsi_image_script_nondefault_params_clean59_20050113_1026_4tx2e             
;                                                                                                        
; Once you have run the script (via one of those 3 methods), you will have an                            
; hsi_image object called obj that is set up as it was when you wrote the script.                        
; You can proceed using obj from the command line or the hessi GUI.                                      
; To use it in the GUI, type                                                                             
;   hessi,obj                                                                                            
; To use it from the command line, here are a few examples of commands:                                  
;  data = obj->getdata()   ; retrieve the last image made                                                
;  data = obj->getdata(use_single=0)  ; retrieve all images in cube                                      
;  obj->plot               ; plot the last image                                                         
;  obj->plotman            ; plot the last image in plotman                                              
;  obj->plotman, /choose   ; choose which image(s) in cube to plot in plotman                            
;-                                                                                                       
                                                                                                         
pro hsi_image_script_nondefault_params_clean59_20050113_1026_4tx2e, obj=obj, _extra=_extra               
                                                                                                         
obj = hsi_image()                                                                                        
                                                                                                         
obj-> set, cbe_normalize= 1                                                                              
obj-> set, image_algorithm= 'CLEAN'                                                                      
;obj-> set, profile_jpeg_plot= 1                                                                         
;obj-> set, $                                                                                            
; profile_plot_dir= '/data/rhessi_extras/flare_images_v2/2005/01/13/20050113_1026_1032/CLEAN_59/profcomp'
;obj-> set, viscomp_jpeg_plot= 1                                                                         
;obj-> set, $                                                                                            
; viscomp_plot_dir= '/data/rhessi_extras/flare_images_v2/2005/01/13/20050113_1026_1032/CLEAN_59/viscomp' 
;obj-> set, snr_chk= 1                                                                                   
;obj-> set, $                                                                                            
; snr_vis_file= '/data/rhessi_extras/visibility_fits_v2/2005/01/13/hsi_vis_20050113_1026_1032_4tx2e.fits'
obj-> set, mpat_coord= 'CART'                                                                            
obj-> set, image_dim= [101, 101]                                                                         
obj-> set, pixel_size= [1.50000, 1.50000]                                                                
obj-> set, im_time_interval= [['13-Jan-2005 10:26:32.200', '13-Jan-2005 10:28:02.800'], $                
 ['13-Jan-2005 10:28:02.800', '13-Jan-2005 10:29:32.800'], ['13-Jan-2005 10:29:32.800', $                
 '13-Jan-2005 10:31:02.800'], ['13-Jan-2005 10:31:02.800', '13-Jan-2005 10:32:32.800']]                  
obj-> set, use_flux_var= 0L                                                                              
obj-> set, use_phz_stacker= 1L                                                                           
obj-> set, xyoffset= [-500.632, 289.451]                                                                 
obj-> set, im_energy_binning= [[3.00000, 6.00000], [6.00000, 12.0000]]                                   
obj-> set, time_bin_min= 512L                                                                            
obj-> set, det_index_mask= [0B, 0B, 0B, 0B, 1B, 1B, 1B, 1B, 1B]                                          
obj-> set, clean_frac= 0.100000                                                                          
obj-> set, clean_show_maps= 0                                                                            
obj-> set, clean_show_chi= 0                                                                             
obj-> set, clean_progress_bar= 0                                                                         
obj-> set, clean_beam_width_factor= 2.00000                                                              
obj-> set, clean_regress_combine= 'full_resid'                                                           
zzz = {HSI_VIS_SRC_STRUCTURE, $                                                                          
 SRCTYPE: 'circle', $                                                                                    
 SRCFLUX: 1.00000, $                                                                                     
 SRCX: 0.00000, $                                                                                        
 SRCY: 0.00000, $                                                                                        
 SRCFWHM: 10.0000, $                                                                                     
 ECCEN: 0.00000, $                                                                                       
 SRCPA: 0.00000, $                                                                                       
 LOOP_ANGLE: 0.00000, $                                                                                  
 ALBEDO_RATIO: 0.100000, $                                                                               
 SRCHEIGHT: 10.0000, $                                                                                   
 ALBEDO_APPLY: 1, $                                                                                      
 FITMASK: [1, 1, 1, 1, 1, 1, 1, 1, 1, 1] }                                                               
obj-> set, vf_srcin= zzz                                                                                 
obj-> set, vis_cs_abort_numerical_issues= 1                                                              
obj-> set, vis_cs_sparseness= 0.700000                                                                   
                                                                                                         
if keyword_set(_extra) then obj->set, _extra=_extra                                                      
                                                                                                         
end