;+ ; hsi_image script - created Wed Oct 12 02:53:27 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_vf_20050115_2212_100tx5e, obj=obj ; Note: you can set additional parameters or override parameters in script via: ; hsi_image_script_nondefault_params_vf_20050115_2212_100tx5e, 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_vf_20050115_2212_100tx5e. ; 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_vf_20050115_2212_100tx5e ; ; 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_vf_20050115_2212_100tx5e, obj=obj, _extra=_extra obj = hsi_image() ;obj-> set, $ ; vis_input_fits= '/data/rhessi_extras/visibility_fits_v2/2005/01/15/hsi_vis_20050115_2215_2313_100tx5e.fits' obj-> set, cbe_normalize= 1 obj-> set, image_algorithm= 'VIS_FWDFIT' ;obj-> set, viscomp_jpeg_plot= 1 ;obj-> set, $ ; viscomp_plot_dir= '/data/rhessi_extras/flare_images_v2/2005/01/15/20050115_2212_2313/VIS_FWDFIT/viscomp' ;obj-> set, snr_chk= 1 obj-> set, mpat_coord= 'CART' obj-> set, image_dim= [101, 101] obj-> set, pixel_size= [1.50000, 1.50000] obj-> set, im_time_interval= [['15-Jan-2005 22:15:01.692', '15-Jan-2005 22:16:23.753'], $ ['15-Jan-2005 22:16:23.753', '15-Jan-2005 22:18:13.753'], ['15-Jan-2005 22:19:12.554', $ '15-Jan-2005 22:20:12.767'], ['15-Jan-2005 22:20:12.767', '15-Jan-2005 22:21:12.767'], $ ['15-Jan-2005 22:21:12.767', '15-Jan-2005 22:22:12.767'], ['15-Jan-2005 22:22:12.767', $ '15-Jan-2005 22:23:12.767'], ['15-Jan-2005 22:23:59.602', '15-Jan-2005 22:24:54.816'], $ ['15-Jan-2005 22:24:54.816', '15-Jan-2005 22:25:21.816'], ['15-Jan-2005 22:25:21.816', $ '15-Jan-2005 22:25:49.816'], ['15-Jan-2005 22:25:49.816', '15-Jan-2005 22:26:19.816'], $ ['15-Jan-2005 22:26:19.816', '15-Jan-2005 22:26:48.816'], ['15-Jan-2005 22:26:48.816', $ '15-Jan-2005 22:27:25.816'], ['15-Jan-2005 22:27:25.816', '15-Jan-2005 22:27:53.816'], $ ['15-Jan-2005 22:27:53.816', '15-Jan-2005 22:28:15.816'], ['15-Jan-2005 22:28:15.816', $ '15-Jan-2005 22:28:35.816'], ['15-Jan-2005 22:28:35.816', '15-Jan-2005 22:28:51.816'], $ ['15-Jan-2005 22:28:51.816', '15-Jan-2005 22:29:07.816'], ['15-Jan-2005 22:29:07.816', $ '15-Jan-2005 22:29:23.816'], ['15-Jan-2005 22:29:23.816', '15-Jan-2005 22:29:39.816'], $ ['15-Jan-2005 22:29:39.816', '15-Jan-2005 22:29:55.816'], ['15-Jan-2005 22:29:55.816', $ '15-Jan-2005 22:30:11.816'], ['15-Jan-2005 22:30:11.816', '15-Jan-2005 22:30:27.816'], $ ['15-Jan-2005 22:30:27.816', '15-Jan-2005 22:30:43.816'], ['15-Jan-2005 22:30:43.816', $ '15-Jan-2005 22:30:59.816'], ['15-Jan-2005 22:31:14.816', '15-Jan-2005 22:33:14.816'], $ ['15-Jan-2005 22:33:14.816', '15-Jan-2005 22:33:45.816'], ['15-Jan-2005 22:33:45.816', $ '15-Jan-2005 22:34:01.816'], ['15-Jan-2005 22:34:06.474', '15-Jan-2005 22:35:45.800'], $ ['15-Jan-2005 22:35:45.800', '15-Jan-2005 22:37:35.800'], ['15-Jan-2005 22:37:35.800', $ '15-Jan-2005 22:39:14.800'], ['15-Jan-2005 22:39:14.800', '15-Jan-2005 22:40:37.800'], $ ['15-Jan-2005 22:40:37.800', '15-Jan-2005 22:41:49.800'], ['15-Jan-2005 22:41:49.800', $ '15-Jan-2005 22:42:56.800'], ['15-Jan-2005 22:42:56.800', '15-Jan-2005 22:43:48.800'], $ ['15-Jan-2005 22:43:48.800', '15-Jan-2005 22:44:43.800'], ['15-Jan-2005 22:44:43.800', $ '15-Jan-2005 22:45:13.800'], ['15-Jan-2005 22:45:13.800', '15-Jan-2005 22:45:29.800'], $ ['15-Jan-2005 22:45:29.800', '15-Jan-2005 22:45:45.800'], ['15-Jan-2005 22:45:45.800', $ '15-Jan-2005 22:46:01.800'], ['15-Jan-2005 22:46:01.800', '15-Jan-2005 22:46:17.800'], $ ['15-Jan-2005 22:46:17.800', '15-Jan-2005 22:46:33.800'], ['15-Jan-2005 22:46:33.800', $ '15-Jan-2005 22:46:49.800'], ['15-Jan-2005 22:46:49.800', '15-Jan-2005 22:47:05.800'], $ ['15-Jan-2005 22:47:05.800', '15-Jan-2005 22:47:21.800'], ['15-Jan-2005 22:47:21.800', $ '15-Jan-2005 22:47:37.800'], ['15-Jan-2005 22:47:37.800', '15-Jan-2005 22:47:53.800'], $ ['15-Jan-2005 22:47:53.800', '15-Jan-2005 22:48:09.800'], ['15-Jan-2005 22:48:09.800', $ '15-Jan-2005 22:48:25.800'], ['15-Jan-2005 22:48:25.800', '15-Jan-2005 22:48:41.800'], $ ['15-Jan-2005 22:48:41.800', '15-Jan-2005 22:48:57.800'], ['15-Jan-2005 22:48:57.800', $ '15-Jan-2005 22:49:13.800'], ['15-Jan-2005 22:49:13.800', '15-Jan-2005 22:49:29.800'], $ ['15-Jan-2005 22:49:29.800', '15-Jan-2005 22:49:45.800'], ['15-Jan-2005 22:49:45.800', $ '15-Jan-2005 22:50:01.800'], ['15-Jan-2005 22:50:01.800', '15-Jan-2005 22:50:17.800'], $ ['15-Jan-2005 22:50:17.800', '15-Jan-2005 22:50:33.800'], ['15-Jan-2005 22:50:33.800', $ '15-Jan-2005 22:50:49.800'], ['15-Jan-2005 22:50:49.800', '15-Jan-2005 22:51:05.800'], $ ['15-Jan-2005 22:51:05.800', '15-Jan-2005 22:51:21.800'], ['15-Jan-2005 22:51:21.800', $ '15-Jan-2005 22:51:37.800'], ['15-Jan-2005 22:51:37.800', '15-Jan-2005 22:51:53.800'], $ ['15-Jan-2005 22:51:53.800', '15-Jan-2005 22:52:10.800'], ['15-Jan-2005 22:52:10.800', $ '15-Jan-2005 22:52:29.800'], ['15-Jan-2005 22:52:29.800', '15-Jan-2005 22:52:50.800'], $ ['15-Jan-2005 22:52:50.800', '15-Jan-2005 22:53:15.800'], ['15-Jan-2005 22:53:15.800', $ '15-Jan-2005 22:53:45.800'], ['15-Jan-2005 22:53:45.800', '15-Jan-2005 22:54:17.800'], $ ['15-Jan-2005 22:54:17.800', '15-Jan-2005 22:54:48.800'], ['15-Jan-2005 22:54:48.800', $ '15-Jan-2005 22:55:17.800'], ['15-Jan-2005 22:55:17.800', '15-Jan-2005 22:55:49.800'], $ ['15-Jan-2005 22:55:49.800', '15-Jan-2005 22:56:27.800'], ['15-Jan-2005 22:56:27.800', $ '15-Jan-2005 22:57:03.800'], ['15-Jan-2005 22:57:03.800', '15-Jan-2005 22:57:39.800'], $ ['15-Jan-2005 22:57:39.800', '15-Jan-2005 22:58:16.800'], ['15-Jan-2005 22:58:16.800', $ '15-Jan-2005 22:58:54.800'], ['15-Jan-2005 22:58:54.800', '15-Jan-2005 22:59:25.800'], $ ['15-Jan-2005 22:59:25.800', '15-Jan-2005 22:59:53.800'], ['15-Jan-2005 22:59:53.800', $ '15-Jan-2005 23:00:17.800'], ['15-Jan-2005 23:00:17.800', '15-Jan-2005 23:00:38.800'], $ ['15-Jan-2005 23:00:38.800', '15-Jan-2005 23:00:57.800'], ['15-Jan-2005 23:00:57.800', $ '15-Jan-2005 23:01:18.800'], ['15-Jan-2005 23:01:18.800', '15-Jan-2005 23:01:44.800'], $ ['15-Jan-2005 23:01:44.800', '15-Jan-2005 23:02:14.800'], ['15-Jan-2005 23:02:14.800', $ '15-Jan-2005 23:02:46.800'], ['15-Jan-2005 23:02:46.800', '15-Jan-2005 23:03:20.800'], $ ['15-Jan-2005 23:03:20.800', '15-Jan-2005 23:03:56.800'], ['15-Jan-2005 23:03:56.800', $ '15-Jan-2005 23:04:34.800'], ['15-Jan-2005 23:04:34.800', '15-Jan-2005 23:05:12.800'], $ ['15-Jan-2005 23:05:12.800', '15-Jan-2005 23:05:49.800'], ['15-Jan-2005 23:05:49.800', $ '15-Jan-2005 23:06:14.800'], ['15-Jan-2005 23:06:14.800', '15-Jan-2005 23:06:32.800'], $ ['15-Jan-2005 23:06:32.800', '15-Jan-2005 23:06:48.800'], ['15-Jan-2005 23:06:48.800', $ '15-Jan-2005 23:07:06.800'], ['15-Jan-2005 23:07:06.800', '15-Jan-2005 23:07:27.800'], $ ['15-Jan-2005 23:07:27.800', '15-Jan-2005 23:07:52.800'], ['15-Jan-2005 23:07:52.800', $ '15-Jan-2005 23:08:29.800'], ['15-Jan-2005 23:08:29.800', '15-Jan-2005 23:09:22.800'], $ ['15-Jan-2005 23:09:22.800', '15-Jan-2005 23:10:32.800'], ['15-Jan-2005 23:10:32.800', $ '15-Jan-2005 23:11:57.800'], ['15-Jan-2005 23:11:57.800', '15-Jan-2005 23:13:36.800']] obj-> set, use_flux_var= 0L obj-> set, use_phz_stacker= 1L obj-> set, xyoffset= [108.149, 330.291] 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= 512L obj-> set, det_index_mask= [0B, 0B, 1B, 1B, 1B, 1B, 1B, 1B, 1B] zzz = {HSI_VIS_SRC_STRUCTURE, $ SRCTYPE: 'circle', $ SRCFLUX: 1.00000, $ SRCX: 108.149, $ SRCY: 330.291, $ 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, vf_noplotfit= 1 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