;+ ; hsi_image script - created Sat Sep 24 17:42:55 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_20020723_0018_77tx5e, obj=obj ; Note: you can set additional parameters or override parameters in script via: ; hsi_image_script_nondefault_params_clean59_20020723_0018_77tx5e, 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_20020723_0018_77tx5e. ; 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_20020723_0018_77tx5e ; ; 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_20020723_0018_77tx5e, 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/2002/07/23/20020723_0018_0115/CLEAN_59/profcomp' ;obj-> set, viscomp_jpeg_plot= 1 ;obj-> set, $ ; viscomp_plot_dir= '/data/rhessi_extras/flare_images_v2/2002/07/23/20020723_0018_0115/CLEAN_59/viscomp' ;obj-> set, snr_chk= 1 ;obj-> set, $ ; snr_vis_file= '/data/rhessi_extras/visibility_fits_v2/2002/07/23/hsi_vis_20020723_0018_0114_77tx5e.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= [['23-Jul-2002 00:18:32.200', '23-Jul-2002 00:19:52.546'], $ ['23-Jul-2002 00:19:52.546', '23-Jul-2002 00:21:13.546'], ['23-Jul-2002 00:21:13.546', $ '23-Jul-2002 00:22:40.546'], ['23-Jul-2002 00:22:40.546', '23-Jul-2002 00:24:14.546'], $ ['23-Jul-2002 00:24:14.546', '23-Jul-2002 00:26:02.546'], ['23-Jul-2002 00:26:09.267', $ '23-Jul-2002 00:27:28.545'], ['23-Jul-2002 00:27:28.545', '23-Jul-2002 00:27:44.545'], $ ['23-Jul-2002 00:27:44.545', '23-Jul-2002 00:28:00.545'], ['23-Jul-2002 00:28:00.545', $ '23-Jul-2002 00:28:16.545'], ['23-Jul-2002 00:28:16.545', '23-Jul-2002 00:28:32.545'], $ ['23-Jul-2002 00:28:32.545', '23-Jul-2002 00:28:48.545'], ['23-Jul-2002 00:28:48.545', $ '23-Jul-2002 00:29:04.545'], ['23-Jul-2002 00:29:04.545', '23-Jul-2002 00:29:20.545'], $ ['23-Jul-2002 00:29:20.545', '23-Jul-2002 00:29:36.545'], ['23-Jul-2002 00:29:36.545', $ '23-Jul-2002 00:29:52.545'], ['23-Jul-2002 00:29:52.545', '23-Jul-2002 00:30:08.545'], $ ['23-Jul-2002 00:30:08.545', '23-Jul-2002 00:30:24.545'], ['23-Jul-2002 00:30:24.545', $ '23-Jul-2002 00:30:40.545'], ['23-Jul-2002 00:30:40.545', '23-Jul-2002 00:30:56.545'], $ ['23-Jul-2002 00:30:56.545', '23-Jul-2002 00:31:12.545'], ['23-Jul-2002 00:31:12.545', $ '23-Jul-2002 00:31:28.545'], ['23-Jul-2002 00:31:28.545', '23-Jul-2002 00:31:44.545'], $ ['23-Jul-2002 00:31:44.545', '23-Jul-2002 00:32:00.545'], ['23-Jul-2002 00:32:00.545', $ '23-Jul-2002 00:32:16.545'], ['23-Jul-2002 00:32:16.545', '23-Jul-2002 00:32:32.545'], $ ['23-Jul-2002 00:32:32.545', '23-Jul-2002 00:32:51.545'], ['23-Jul-2002 00:32:51.545', $ '23-Jul-2002 00:33:13.545'], ['23-Jul-2002 00:33:13.545', '23-Jul-2002 00:33:30.545'], $ ['23-Jul-2002 00:33:30.545', '23-Jul-2002 00:33:50.545'], ['23-Jul-2002 00:33:50.545', $ '23-Jul-2002 00:34:10.545'], ['23-Jul-2002 00:34:10.545', '23-Jul-2002 00:34:35.545'], $ ['23-Jul-2002 00:34:35.545', '23-Jul-2002 00:34:51.545'], ['23-Jul-2002 00:34:51.545', $ '23-Jul-2002 00:35:07.545'], ['23-Jul-2002 00:35:07.545', '23-Jul-2002 00:35:23.545'], $ ['23-Jul-2002 00:35:23.545', '23-Jul-2002 00:35:39.545'], ['23-Jul-2002 00:35:39.545', $ '23-Jul-2002 00:35:55.545'], ['23-Jul-2002 00:35:55.545', '23-Jul-2002 00:36:11.545'], $ ['23-Jul-2002 00:36:11.545', '23-Jul-2002 00:36:28.545'], ['23-Jul-2002 00:36:28.545', $ '23-Jul-2002 00:36:48.545'], ['23-Jul-2002 00:36:48.545', '23-Jul-2002 00:37:12.545'], $ ['23-Jul-2002 00:37:12.545', '23-Jul-2002 00:37:52.545'], ['23-Jul-2002 00:37:52.545', $ '23-Jul-2002 00:38:21.545'], ['23-Jul-2002 00:38:21.545', '23-Jul-2002 00:38:37.545'], $ ['23-Jul-2002 00:38:37.545', '23-Jul-2002 00:38:53.545'], ['23-Jul-2002 00:38:53.545', $ '23-Jul-2002 00:39:09.545'], ['23-Jul-2002 00:39:09.545', '23-Jul-2002 00:39:32.545'], $ ['23-Jul-2002 00:39:32.545', '23-Jul-2002 00:39:48.545'], ['23-Jul-2002 00:40:46.259', $ '23-Jul-2002 00:41:09.546'], ['23-Jul-2002 00:41:09.546', '23-Jul-2002 00:41:50.546'], $ ['23-Jul-2002 00:41:50.546', '23-Jul-2002 00:43:05.546'], ['23-Jul-2002 00:43:05.546', $ '23-Jul-2002 00:43:21.546'], ['23-Jul-2002 00:43:21.546', '23-Jul-2002 00:43:37.546'], $ ['23-Jul-2002 00:43:37.546', '23-Jul-2002 00:43:53.546'], ['23-Jul-2002 00:43:53.546', $ '23-Jul-2002 00:44:09.546'], ['23-Jul-2002 00:44:09.546', '23-Jul-2002 00:44:25.546'], $ ['23-Jul-2002 00:44:25.546', '23-Jul-2002 00:44:41.546'], ['23-Jul-2002 00:45:37.133', $ '23-Jul-2002 00:45:53.548'], ['23-Jul-2002 00:45:53.548', '23-Jul-2002 00:46:16.548'], $ ['23-Jul-2002 00:46:16.548', '23-Jul-2002 00:46:43.548'], ['23-Jul-2002 00:47:23.548', $ '23-Jul-2002 00:49:23.548'], ['23-Jul-2002 00:50:28.140', '23-Jul-2002 00:51:30.548'], $ ['23-Jul-2002 00:51:30.548', '23-Jul-2002 00:53:10.548'], ['23-Jul-2002 00:53:10.548', $ '23-Jul-2002 00:53:58.548'], ['23-Jul-2002 00:55:19.135', '23-Jul-2002 00:56:52.546'], $ ['23-Jul-2002 00:56:52.546', '23-Jul-2002 00:58:22.546'], ['23-Jul-2002 00:59:21.321', $ '23-Jul-2002 01:00:34.800'], ['23-Jul-2002 01:00:34.800', '23-Jul-2002 01:01:43.800'], $ ['23-Jul-2002 01:01:43.800', '23-Jul-2002 01:02:50.800'], ['23-Jul-2002 01:02:50.800', $ '23-Jul-2002 01:03:57.800'], ['23-Jul-2002 01:03:57.800', '23-Jul-2002 01:05:06.800'], $ ['23-Jul-2002 01:05:06.800', '23-Jul-2002 01:06:16.800'], ['23-Jul-2002 01:06:16.800', $ '23-Jul-2002 01:07:27.800'], ['23-Jul-2002 01:07:27.800', '23-Jul-2002 01:08:39.800'], $ ['23-Jul-2002 01:08:39.800', '23-Jul-2002 01:09:55.800'], ['23-Jul-2002 01:09:55.800', $ '23-Jul-2002 01:11:15.800'], ['23-Jul-2002 01:11:15.800', '23-Jul-2002 01:12:42.800'], $ ['23-Jul-2002 01:12:42.800', '23-Jul-2002 01:14:15.800']] obj-> set, use_flux_var= 0L obj-> set, use_phz_stacker= 1L obj-> set, xyoffset= [-892.097, -226.604] obj-> set, im_energy_binning= [[6.00000, 12.0000], [12.0000, 25.0000], [25.0000, 50.0000], $ [50.0000, 100.000], [100.000, 300.000]] obj-> set, time_bin_def= [1.00000, 2.00000, 4.00000, 4.00000, 8.00000, 16.0000, 32.0000, $ 64.0000, 64.0000] obj-> set, time_bin_min= 256L 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