;****************************************************************************** ;* File name: ql_common.pro * ;* * ;* Content : ql_common * ;* * ;* Date Author Comment * ;* -------------------------------------------------------------------------- * ;* 25-01-95 E.PETIT Creation * ;* 20-02-96 N.MORISSET Add cat_path variable * ;****************************************************************************** PRO ql_common ;**************************************************************************** ;* Comm name: BASE_ID_COM.PRO * ;* * ;* Content : Main base id common * ;**************************************************************************** COMMON base_id_com , $ root_base , $ menu_base , $ im_display_stack_base , $ im_display_base , $ im_ban_base , $ im_ban_prp_base , $ im_ban_p_cur , $ im_ban_p_fix , $ im_ban_data_base , $ im_ban_d_cur , $ im_ban_d_fix , $ im_stack_base , $ im_stack_ico_base , $ im_stack_frm_base , $ im_stack_ctrl_base , $ base_color , $ prf_display_stack_base , $ prf_display_base , $ prf_ban_base , $ prf_ban_prp_base , $ prf_ban_p_cur , $ prf_ban_p_fix , $ prf_ban_data_base , $ prf_ban_d_cur , $ prf_ban_d_fix , $ prf_stack_base , $ prf_stack_ico_base , $ prf_stack_frm_base , $ prf_stack_ctrl_base ;**************************************************************************** ;* Comm name: BUTTON_ID_COM.PRO * ;* * ;* Content : Main menu button id com * ;**************************************************************************** COMMON button_id_com , $ button_id ;**************************************************************************** ;* Comm name: CLDOD_COM.PRO * ;* * ;* Content : common * ;**************************************************************************** COMMON cldol_com , $ cldol_txt ;**************************************************************************** ;* Comm name: CLLM_COM.PRO * ;* * ;* Content : Manual Wavelength calibration * ;**************************************************************************** COMMON clml_com , $ mlp_base , $ mlp_get_base , $ mlp_lbd_base , $ mlp_lbd1_base , $ mlp_lbd2_base , $ mlp_valid_base , $ mlp_ack_base , $ mlp_ctrl_base , $ ref_l_list , $ clmlp_idw1_txt , $ clmlp_idw1_lbl , $ clmlp_idw2_txt , $ clmlp_idw2_lbl , $ clmlp_wl_lbl , $ clmlp_quit , $ clmlp_cancel , $ clmlp_valid , $ clmlp_state , $ mlp_old_l1 , $ mlp_old_l2 , $ mli_base , $ mli_get_base , $ mli_lbd_base , $ mli_lbd1_base , $ mli_lbd2_base , $ mli_valid_base , $ mli_ack_base , $ mli_ctrl_base , $ clmli_idw1_txt , $ clmli_idw1_lbl , $ clmli_idw2_txt , $ clmli_idw2_lbl , $ clmli_wl_lbl , $ clmli_quit , $ clmli_cancel , $ clmli_valid , $ clmli_state , $ mli_old_l1 , $ mli_old_l2 ;**************************************************************************** ;* Comm name: COLOR_COM.PRO * ;* * ;* Content : common used for color management * ;**************************************************************************** COMMON color_com , $ colwin_index , $ nb_col_reserved , $ max_nb_color , $ color_min , $ color_max , $ colors , $ colors_100 , $ color_label , $ color_banner , $ m2 , $ m3 , $ light_gray , $ gray , $ blue , $ violet , $ red , $ green , $ yellow , $ white , $ COLOR_BANNER_X , $ COLOR_BANNER_Y ;**************************************************************************** ;* Comm name: CONST_COM.PRO * ;* * ;* Content : Constant common * ;**************************************************************************** COMMON const_com , $ DETECTOR_X , $ DETECTOR_Y , $ PROFILE_Y , $ ICON_X , $ ICON_Y , $ PUSH , $ POP , $ SEARCH , $ IMAGE , $ PROFILE , $ INT_SZ , $ LNG_SZ , $ FLT_SZ , $ STACK_SZ , $ MAX_DATA_SZ , $ RRD_HD_SZ , $ RRD_DATA_SZ , $ PROC_MAX_NB , $ CALIB_MAX_VAL , $ AXIS_CTRL_SZ , $ DISPLAY_CTRL_SZ , $ STACK_HD_SZ , $ STACK_DATA_SZ , $ IMAGE_X_OFFSET , $ IMAGE_Y_OFFSET , $ IMAGE_X_SZ , $ IMAGE_Y_SZ , $ IMAGE_X_SCROLL_SZ , $ IMAGE_Y_SCROLL_SZ , $ PROFILE_X_OFFSET , $ PROFILE_Y_OFFSET , $ PROFILE_X_SZ , $ PROFILE_Y_SZ , $ PROFILE_X_SCROLL_SZ , $ PROFILE_Y_SCROLL_SZ , $ COMMENT_SZ , $ TITLE_SZ , $ Comment_Format , $ Title_Format , $ Hd_Font , $ Hd_Font_Bold , $ Line_Font , $ Menu_Font , $ Courier_Font , $ Main_Title , $ Line_Format , $ MAX_NB_LINE , $ MARKED_LINE_SZ , $ BANNER_SZ , $ ARROW_HEIGHT , $ ARROW_LENGTH , $ maxpix , $ ADDITION , $ SOUSTRACTION , $ AVERAGE , $ MULTIPLICATION , $ DIVISION , $ PI , $ SUMER_ID_STR , $ REFPIX_OFFSET , $ CAL_STRANGE_VAL , $ vert_ref_pix , $ MULTI_COLOR ;**************************************************************************** ;* Comm name: CONST2_COM.PRO * ;* * ;* Content : Constant common * ;**************************************************************************** COMMON const2_com , $ FLAT_FIELD , $ COM_IMAGE , $ image_type_lbl , $ FF_ID ;**************************************************************************** ;* Comm name: CSTOP_COM.PRO * ;* * ;* Content : Constant operation common * ;**************************************************************************** COMMON cstop_com , $ cnst_base , $ cnst_txt , $ cnst_ok , $ cnst_ko , $ cst_op_id ;**************************************************************************** ;* Comm name: CURR_DATA_I_COM.PRO * ;* * ;* Content : Main image common * ;**************************************************************************** COMMON curr_data_i_com , $ curr_header_i , $ curr_data_i , $ curr_record_i , $ max_data_i_size , $ max_record_i_size , $ curr_dctrl_i , $ curr_banner_i , $ i_ban_p_cur_str , $ i_ban_p_fix_str , $ i_ban_d_cur_str , $ i_ban_d_fix_str , $ xeven_flag , $ yeven_flag ;**************************************************************************** ;* Comm name: CURR_DATA_P_COM.PRO * ;* * ;* Content : Main profile common * ;**************************************************************************** COMMON curr_data_p_com , $ curr_header_p , $ curr_data_p , $ curr_x_p , $ curr_record_p , $ max_data_p_size , $ max_record_p_size , $ curr_dctrl_p , $ curr_banner_p , $ p_ban_prompt_str , $ p_ban_cur_str , $ p_ban_fix_str , $ p_ban_p_cur_str , $ p_ban_p_fix_str , $ p_ban_d_cur_str , $ p_ban_d_fix_str ;**************************************************************************** ;* Comm name: CUTIM_COM.PRO * ;* * ;* Content : Common for image cut * ;**************************************************************************** COMMON cutim_com , $ cut_im_base , $ cut_im_size_base , $ cut_im_ctrl_base , $ im_cut_h_sld , $ im_cut_h_txt , $ im_cut_l_sld , $ im_cut_l_txt , $ im_cut_plz_sld , $ im_cut_plz_txt , $ im_cut_a_sld , $ im_cut_a_txt , $ im_cut_a_lst , $ im_cut_quit , $ cut_l , $ cut_h , $ cut_a , $ cut_box_x , $ cut_box_y , $ x_c_center , $ y_c_center , $ x_c_inf , $ y_c_inf , $ x_c_sup , $ y_c_sup , $ l_value , $ cut_plz , $ avg_flag , $ im_cut_z_lbl_1 , $ im_cut_z_lbl_2 ;**************************************************************************** ;* Comm name: DISPCAL_COM.PRO * ;* * ;* Content : Constant common * ;**************************************************************************** COMMON dispcal_com , $ nb_elts , $ xfit , $ yfit , $ xfit1 , $ yfit1 , $ xfit2 , $ yfit2 , $ disp_state , $ xselecti , $ xselecti_dev , $ yselecti , $ xselectp , $ yselectp , $ x_infpt , $ y_infpt , $ first_ip , $ x_result , $ x_result_dev , $ y_result , $ nb_cut , $ tab_angle , $ l1 , $ l2 , $ cmt , $ tabangle , $ curr_angle , $ xsel_point , $ ysel_point , $ index_ang , $ x_begin_cut , $ x_end_cut , $ disp_base , $ disp_base_121 , $ disp_base_131 , $ disp_base_161 , $ disp_base_171 , $ disp_base_231 , $ disp_base_262 , $ disp_base_331 , $ disp_base_351 , $ disp_base_431 , $ disp_base_451 , $ disp_base_531 , $ disp_base_532 , $ disp_base_561 , $ disp_base_562 , $ disp_base_621 , $ disp_base_641 , $ disp_base_651 , $ disp_base_712 , $ disp_base_732 , $ disp_base_742 , $ disp_base_811 , $ disp_base_821 , $ disp_base_8 , $ disp_base_851 , $ disp_base_861 , $ disp_base_9 , $ datesave_txt , $ l1save_txt , $ l2save_txt , $ angsave_txt , $ cmtsave_txt ;**************************************************************************** ;* Comm name: DISP_ANG_COM.PRO * ;* * ;* Content : Dispersion angle common * ;**************************************************************************** COMMON disp_ang_com , $ disp_ang_lst , $ nb_disp_ang ;**************************************************************************** ;* Comm name: ERR_DISPLAY_COM.PRO * ;* * ;* Content : * ;**************************************************************************** COMMON err_display_com , $ err_display_base , $ err_text , $ err_ok ;**************************************************************************** ;* Comm name: ERR_MSG_COM.PRO * ;* * ;* Content : Error message common * ;**************************************************************************** COMMON err_msg_com , $ err_msg_lst , $ nb_err_msg ;**************************************************************************** ;* Comm name: EXTIM_COM.PRO * ;* * ;* Content : Common for image ext * ;* * ;**************************************************************************** COMMON extim_com , $ ext_im_base , $ im_ext_h_sld , $ im_ext_h_txt , $ im_ext_l_sld , $ im_ext_l_txt , $ im_ext_a_sld , $ im_ext_a_txt , $ im_ext_a_lst , $ ext_im_draw , $ ext_im_wnum , $ im_ext_quit , $ im_ext_valid , $ ext_h , $ ext_l , $ ext_a , $ ext_box_x , $ ext_box_y , $ x_e_center , $ y_e_center , $ x_e_inf , $ y_e_inf , $ x_e_sup , $ y_e_sup , $ x_ext_dev , $ y_ext_dev , $ x_ext , $ y_ext , $ Subi , $ im_ext_z_lbl_1 , $ im_ext_z_lbl_2 ;**************************************************************************** ;* Comm name: FILE_COM.PRO * ;* * ;* Content : Reference file common * ;**************************************************************************** COMMON file_com , $ catalog_file , $ format_ref_file , $ target_ref_file , $ line_ref_file , $ scient_ref_file , $ data_cmpr_ref_file , $ wave_len_ref_file , $ instr_id_ref_file , $ instr_evt_ref_file , $ err_msg_file , $ proc_id_file , $ menu_file , $ disp_ang_file , $ slit_ang_file ;**************************************************************************** ;* Comm name: FLAG_COM.PRO * ;* * ;* Content : Flag common * ;**************************************************************************** COMMON flag_com , $ cutim_flag , $ ; Image cut extim_flag , $ ; Image extracttion lidim_flag , $ ; Line Identifiaction on image lidpr_flag , $ ; Line identification on profile cldisp_flag , $ ; Dispersion Angle clsli_flag , $ ; Slit angle zp_flag , $ ; Zoom on profile clmlp_flag , $ ; Manual wavelength calibration on profile clmli_flag , $ ; Manual wavelength calibration on image first_cutim_flg , $ first_extim_flg , $ first_printi_flg , $ first_printp_flg , $ cutim_prev_x , $ cutim_prev_y , $ extim_prev_x , $ extim_prev_y , $ print_prev_x , $ print_prev_y , $ clff_flag ; FF image selected ;**************************************************************************** ;* Comm name: FORMAT_COM.PRO * ;* * ;* Content : Format common * ;**************************************************************************** COMMON format_com , $ format_lst , $ nb_format , $ selected_format ;**************************************************************************** ;* Comm name: GAUSS_COM.PRO * ;* * ;* Content : Gauss fitting common * ;**************************************************************************** COMMON gauss_com , $ g_base , $ g_output_base , $ g_nbg_txt , $ g_bck_txt , $ g_gauss_i , $ g_wl_txt , $ g_wl_lbl , $ g_wl_fre , $ g_fwhm_fre , $ g_fwhm_lbl , $ g_fwhm_txt , $ g_ampl_txt , $ g_ampl_lbl , $ g_ampl_fre , $ g_totf_lbl , $ g_gauss_o , $ g_sumsq_lbl , $ g_dof_lbl , $ g_rsumsq_lbl , $ g_ok , $ g_ko , $ gin_nbg , $ gin_bck , $ gin_wl , $ gin_fwhm , $ gin_ampl , $ gin_fre , $ gout_wl , $ gout_fwhm , $ gout_ampl , $ gout_totf , $ MAX_GAUSS , $ Error ;**************************************************************************** ;* Comm name: GET_RRD_ITEM_COM.PRO * ;* * ;* Content : * ;**************************************************************************** COMMON get_rrd_item_com , $ get_rrd_item_base , $ hd_base , $ valid_rrd_item_base , $ item_list , $ item_text , $ item_valid , $ item_cancel , $ item_full , $ item_crit , $ item_cancel_full , $ full_hd_flg , $ fhd_text , $ track_rrd_flg ;**************************************************************************** ;* Comm name: RRD_CRIT_COM * ;* * ;* Content : * ;**************************************************************************** COMMON rrd_crit_com , $ rrdcrt_base , $ crt_sel_typ_val , $ crt_sel_typ_idx , $ crt_avl_typ_val , $ crt_avl_typ_idx , $ old_sel_typ_val , $ old_sel_typ_idx , $ old_avl_typ_val , $ old_avl_typ_idx , $ rrd_cancel_flg , $ nb_crt_type , $ nb_crt_rrd , $ crt_sel_typ_lst , $ crt_avl_typ_lst , $ crt_valid_bt , $ crt_cancel_bt , $ crt_quit_bt , $ rrd_crit_flag ;**************************************************************************** ;* Comm name: GET_SEQ_COM.PRO * ;* * ;* Content : * ;**************************************************************************** COMMON get_seq_com , $ get_seq_base , $ select_seq_base , $ valid_seq_base , $ seq_list , $ seq_text , $ seq_valid , $ seq_cancel ;**************************************************************************** ;* Comm name: INFO_COM.PRO * ;* * ;* Content : * ;**************************************************************************** COMMON info_com , $ info_header , $ sav_data_i , $ sav_data_p , $ sav_dctrl_i , $ sav_dctrl_p ;**************************************************************************** ;* Comm name: INFO_DISPLAY_COM.PRO * ;* * ;* Content : * ;**************************************************************************** COMMON info_display_com , $ info_display_base , $ info_display_ctrl , $ info_display_cmd , $ info_text , $ info_done , $ info_full , $ info_cancel_full , $ sel_header ;**************************************************************************** ;* Comm name: INSTR_EVT_COM.PRO * ;* * ;* Content : Instrument Evt reference common * ;**************************************************************************** COMMON instr_evt_com , $ instr_evt_lst , $ nb_instr_evt , $ sel_instr_evt ;**************************************************************************** ;* Comm name: INSTR_ID_COM.PRO * ;* * ;* Content : Instrument ID reference common * ;**************************************************************************** COMMON instr_id_com , $ instr_id_lst , $ nb_instr_id , $ sel_instr_id ;**************************************************************************** ;* Comm name: I_DCTRL_COM.pro * ;* * ;* Content : Common for image display control * ;**************************************************************************** COMMON i_dctrl_com , $ i_dctrl_base , $ i_item_grd_on , $ i_item_grd_off , $ i_item_box_on , $ i_item_box_off , $ i_item_cnt_on , $ i_item_cnt_off , $ i_item_ccnt_sld , $ i_item_ccnt_txt , $ i_item_line_list , $ i_item_line_lbl , $ i_item_pid_list , $ i_item_lbl_txt , $ i_item_xlbl_txt , $ i_item_xoff_sld , $ i_item_xoff_txt , $ i_item_xtl_sld , $ i_item_xtl_txt , $ i_item_xmin_lbl , $ i_item_xmin_txt , $ i_item_xmax_lbl , $ i_item_xmax_txt , $ i_item_xmaj_sld , $ i_item_xmaj_txt , $ i_item_xmnr_sld , $ i_item_xmnr_txt , $ i_item_ylbl_txt , $ i_item_yoff_sld , $ i_item_yoff_txt , $ i_item_ytl_sld , $ i_item_ytl_txt , $ i_item_ymin_lbl , $ i_item_ymax_lbl , $ i_item_ymaj_sld , $ i_item_ymaj_txt , $ i_item_ymnr_sld , $ i_item_ymnr_txt , $ i_dctrl_done , $ i_dctrl_apply , $ i_line_list ;**************************************************************************** ;* Comm name: LFF_COM.PRO * ;* * ;* Content : Common for load fits image * ;**************************************************************************** COMMON lff_com , $ fid , $ lff_base , $ lff_txt , $ lff_quit , $ pathtxt , $ filttxt , $ dirlist , $ filelist , $ selecttxt , $ ok , $ view_hd_base , $ primary_hd , $ next_header , $ prev_header , $ data_header , $ cancel , $ help , $ thefile , $ separator , $ header_base , $ header_txt , $ header_done , $ extend_index , $ field_base , $ field_lst , $ field_load , $ field_cancel , $ field_list , $ selected_field , $ fdata_base , $ fdimension , $ fdata_cancel , $ fdata_valid , $ fdata_clear , $ valid_dim , $ valid_flag , $ selected_dim , $ nb_dim , $ select_list , $ itg_base , $ itg_draw , $ itg_res , $ itg_win , $ itg_sld , $ itg_next , $ itg_prev , $ itg_all , $ itg_remove , $ itg_add , $ itg_cancel , $ itg_clear , $ itg_lst , $ itg_item_lst , $ itg_valid , $ itg_pixmap , $ projection , $ itg_curr_index , $ itg_curr_image , $ itg_img_count , $ itg_res_count ;**************************************************************************** ;* Comm name: LFF2_COM.PRO * ;* * ;* Content : Common for load fits image * ;**************************************************************************** COMMON lff2_com , $ fsel_lbl , $ axis_idx , $ imgtype , $ itg_cycle , $ itg_rate , $ itg_rate_val , $ img_content , $ cutaxe , $ dim1 , $ dim2 , $ dim3 , $ ttype_list , $ stat_field_flg , $ delt_field_flg , $ expo_field_flg , $ solx_field_flg , $ soly_field_flg , $ stat_data , $ delt_data , $ expo_data , $ solx_data , $ soly_data , $ ph_disp_flg , $ obt_base , $ fits_banner , $ itg_banner , $ fits_filt , $ fits_path , $ fits_idx , $ field_lbl , $ raw_data_idx , $ first_ff_flg ;**************************************************************************** ;* Comm name: LINE_COM.PRO * ;* * ;* Content : Line ref file common * ;**************************************************************************** COMMON line_com , $ line_lst , $ nb_line , $ selected_line ;**************************************************************************** ;* Comm name: LINE_ID_COM.PRO * ;* * ;* Content : Line Identification common * ;**************************************************************************** COMMON line_id_com , $ i_mark_input_base , $ i_line_input_base , $ i_mark_l_list , $ i_ref_l_list , $ i_lid_wl_lbl , $ i_lid_id_txt , $ i_lid_nl_lbl , $ i_lid_insert , $ i_lid_remove , $ i_lid_quit , $ i_mark_nb , $ i_del_idx , $ p_mark_input_base , $ p_line_input_base , $ p_mark_l_list , $ p_ref_l_list , $ p_lid_wl_lbl , $ p_lid_id_txt , $ p_lid_nl_lbl , $ p_lid_insert , $ p_lid_remove , $ p_lid_quit , $ p_mark_nb , $ p_del_idx , $ lbl_x , $ lbl_y ;**************************************************************************** ;* Comm name: LOAD_FLG_COM * ;* * ;* Content : loaded image flag common * ;**************************************************************************** COMMON load_flg_com , $ load_flag_i , $ load_flag_p ;**************************************************************************** ;* Comm name: MENU_CTRL_COM * ;* * ;* Content : Menu control common * ;**************************************************************************** COMMON menu_ctrl_com , $ menu_ctrl , $ MAX_MENU_ITEM , $ menu_index ;**************************************************************************** ;* Comm name: METH_COM.PRO * ;* * ;* Content : Method of compression reference common * ;**************************************************************************** COMMON meth_com , $ meth_lst , $ nb_meth , $ selected_meth ;**************************************************************************** ;* Comm name: MNU_IDX_COM.PRO * ;* * ;* Content :Indexes of menu item used to update menu button state * ;**************************************************************************** COMMON mnu_idx_com , $ lrrdf_idx , $ lff_idx , $ sffi_idx , $ sffp_idx , $ quit_idx , $ cutim_idx , $ extim_idx , $ idctr_idx , $ zoomi_idx , $ clsi_idx , $ cursp_on_idx , $ cursp_off_idx , $ pdctr_idx , $ zoomp_idx , $ clsp_idx , $ pushi_idx , $ popi_idx , $ deli_idx , $ pushp_0_idx , $ pushp_1_idx , $ pushp_2_idx , $ pushp_3_idx , $ pushp_4_idx , $ popp_idx , $ delp_idx , $ plusi_idx , $ mnsi_idx , $ avgi_idx , $ plusp_idx , $ mnsp_idx , $ avgp_idx , $ cllbi_idx , $ clsyi_idx , $ clszi_idx , $ cllbp_idx , $ clsyp_idx , $ clszp_idx , $ clsli_idx , $ lidim_idx , $ lidpr_idx , $ print_i_idx , $ print_p_idx , $ cldis_idx , $ overp_idx , $ binni_idx , $ cstop_i_add_idx , $ cstop_i_mult_idx , $ cstop_p_add_idx , $ cstop_p_mult_idx , $ gauss_idx , $ clmli_idx , $ clmlp_idx , $ color_00_idx , $ color_03_idx , $ color_05_idx , $ color_13_idx , $ color_15_idx , $ color_38_idx , $ cldol_idx , $ clff_idx ;**************************************************************************** ;* Comm name: MNU_IDX2_COM.PRO * ;* * ;* Content :Indexes of menu item used to update menu button state * ;**************************************************************************** COMMON mnu_idx2_com , $ multi_idx , $ multp_idx , $ divi_idx , $ divp_idx , $ cldff_idx , $ cldst_idx , $ st_pixoffset_idx ;**************************************************************************** ;* Comm name: OVERP_COM.PRO * ;* * ;* Content : Common for overplot * ;**************************************************************************** COMMON overp_com , $ overp_data , $ overp_indexes , $ overp_sza ;**************************************************************************** ;* Comm name: PRINT_COM.PRO * ;* * ;* Content : Common for print * ;**************************************************************************** COMMON print_com , $ lp_base , $ lpofx_sld , $ lpofx_txt , $ lpofy_sld , $ lpofy_txt , $ lpszx_sld , $ lpszx_txt , $ lpszy_sld , $ lpszy_txt , $ lpszy_lbl , $ lphst_txt , $ print_ok , $ print_cancel , $ ofx , $ ofy , $ szx , $ szy , $ cible , $ printer , $ OFX_MIN , $ OFX_MAX , $ OFY_MIN , $ OFY_MAX , $ SZX_MIN , $ SZX_MAX , $ SZY_MIN , $ SZY_MAX , $ PG_X_SZ , $ PG_Y_SZ , $ PG_XL_MARGIN , $ PG_XR_MARGIN , $ PG_YT_MARGIN , $ PG_YB_MARGIN , $ im_s , $ y_offset , $ x_offset , $ lp_dat_flg , $ lp_cnt_flg , $ lp_fmt_flg , $ lpprt_but , $ lplds_but ;**************************************************************************** ;* Comm name: PROC_ID_COM.PRO * ;* * ;* Content : Error message common * ;**************************************************************************** COMMON proc_id_com , $ proc_id_lst , $ nb_proc_id ;**************************************************************************** ;* Comm name: P_DCTRL_COM.pro * ;* * ;* Content : Common for profile display control * ;**************************************************************************** COMMON p_dctrl_com , $ p_dctrl_base , $ p_item_grd_on , $ p_item_grd_off , $ p_item_box_on , $ p_item_box_off , $ p_item_line_list , $ p_item_line_lbl , $ p_item_color_list , $ p_item_color_lbl , $ p_item_pid_list , $ p_item_xinfo , $ p_item_lbl_txt , $ p_item_xlbl_txt , $ p_item_xlog_on , $ p_item_xlog_off , $ p_item_xoff_sld , $ p_item_xoff_txt , $ p_item_xtl_sld , $ p_item_xtl_txt , $ p_item_xsz_sld , $ p_item_xsz_txt , $ p_item_xmin_txt , $ p_item_xmi_txt , $ p_item_xmax_txt , $ p_item_xma_txt , $ p_item_xmaj_sld , $ p_item_xmaj_txt , $ p_item_xmnr_sld , $ p_item_xmnr_txt , $ p_item_yinfo , $ p_item_ylbl_txt , $ p_item_ylog_on , $ p_item_ylog_off , $ p_item_ytl_sld , $ p_item_ytl_txt , $ p_item_ymin_txt , $ p_item_ymi_txt , $ p_item_ymax_txt , $ p_item_yma_txt , $ p_item_ymaj_sld , $ p_item_ymaj_txt , $ p_item_ymnr_sld , $ p_item_ymnr_txt , $ p_dctrl_done , $ p_dctrl_apply , $ p_line_list , $ Color_liste ;**************************************************************************** ;* Comm name: RRD_COM.PRO * ;* * ;* Content : * ;**************************************************************************** COMMON rrd_com , $ rrd , $ cat_path , $ cat_path_init , $ saved_rrd , $ saved_nb_rrd , $ nb_rrd , $ selected_rrd , $ selected_item , $ old_data_i , $ old_dctrl_i , $ old_load_flag_i , $ old_header_i , $ old_dc_i , $ old_data_p , $ old_x_p , $ old_dctrl_p , $ old_load_flag_p , $ old_header_p , $ old_dc_p ;**************************************************************************** ;* Comm name: SCIENT_COM.PRO * ;* * ;* Content : Scientist ref file common * ;**************************************************************************** COMMON scient_com , $ scient_lst , $ nb_scient , $ selected_scient ;**************************************************************************** ;* Comm name: SFF_COM.PRO * ;* * ;* Content : Common for save fits image * ;**************************************************************************** COMMON sff_com , $ sff_base , $ file_txt , $ file_ok , $ file_ko , $ file_name ;**************************************************************************** ;* Comm name: SLITAN_COM.PRO * ;* * ;* Content : Common for image ext * ;**************************************************************************** COMMON slitan_com , $ slit_base , $ slit_h_sld , $ slit_l_sld , $ sli_im_draw , $ sli_im_wnum , $ sli_im_txt , $ sli_txt_wnum , $ sli_quit , $ sli_valid , $ sli_save , $ sli_h , $ sli_l , $ sli_a , $ sli_box_x , $ sli_box_y , $ x_s_center , $ y_s_center , $ x_s_inf , $ y_s_inf , $ x_s_sup , $ y_s_sup , $ x_sli_dev , $ y_sli_dev , $ x_sli , $ y_sli , $ Subi_sli , $ angle , $ nb_angle ;**************************************************************************** ;* Comm name: SLIT_ANG_COM.PRO * ;* * ;* Content : SLIT angle common * ;**************************************************************************** COMMON slit_ang_com , $ slit_ang_lst , $ nb_slit_ang ;**************************************************************************** ;* Comm name: STACK_COM.PRO * ;* * ;* Content : User's stack common * ;**************************************************************************** COMMON stack_com , $ stack_hd , $ stack_file , $ stack_unit ;**************************************************************************** ;* Comm name: TARGET_COM.PRO * ;* * ;* Content : Target ref file common * ;**************************************************************************** COMMON target_com , $ target_lst , $ nb_target , $ selected_target ;**************************************************************************** ;* Comm name: WAVE_COM.PRO * ;* * ;* Content : Wave inde reference common * ;**************************************************************************** COMMON wave_com , $ wave_lst , $ nb_wave , $ selected_wave ;**************************************************************************** ;* Comm name: WIDGET_ID_COM.PRO * ;* * ;* Content : Main widget common * ;**************************************************************************** COMMON widget_id_com , $ work_draw , $ work_draw_back , $ work_text , $ profile_draw , $ profile_draw_back , $ profile_text , $ image_stack_icon , $ profile_stack_icon , $ i_ban_p_cur_lbl , $ i_ban_p_fix_lbl , $ i_ban_d_cur_lbl , $ i_ban_d_fix_lbl , $ p_ban_p_cur_lbl , $ p_ban_p_fix_lbl , $ p_ban_d_cur_lbl , $ p_ban_d_fix_lbl ;**************************************************************************** ;* Comm name: ZOOMP_COM.PRO * ;* * ;* Content : profile zoom common * ;**************************************************************************** COMMON zoomp_com , $ zp_base , $ zp_h_sld , $ zp_h_txt , $ zp_l_sld , $ zp_l_txt , $ zp_quit , $ zp_valid , $ zp_uzoom , $ zp_l , $ zp_h , $ zp_a , $ zp_box_x , $ zp_box_y , $ x_zp_center , $ y_zp_center , $ x_zp_inf , $ x_zp_sup , $ y_zp_inf , $ y_zp_sup , $ zpxdev , $ zpydev , $ xplmin_init , $ xplmax_init , $ yplmin_init , $ yplmax_init , $ zpindex_1 , $ zpindex_2 ;**************************************************************************** ;* Comm name: ZOOMI_COM.PRO * ;* * ;* Content : Zoom image common * ;**************************************************************************** COMMON zoomi_com , $ zi_base , $ zi_cw , $ zi_ii_dev_lbl , $ zi_ii_dat_lbl , $ zi_ii_val_prp , $ zi_ii_val_lbl , $ zi_zi_dev_lbl , $ zi_zi_dat_lbl , $ zi_zi_val_prp , $ zi_zi_val_lbl , $ zi_ll_lbl , $ zi_done_bt , $ draw_pixmap , $ zoom_pixmap ;**************************************************************************** ;* Comm name: SETTI_COM.PRO * ;* * ;* Content : Settings common * ;**************************************************************************** COMMON setti_com , $ setti_txt , $ setti_curr_val , $ setti_new_val , $ setti_fmt , $ setti_status , $ setti_ok , $ setti_ko END