home *** CD-ROM | disk | FTP | other *** search
- /* Refresh the values of the periodic orbit panel text items */
- #include <suntool/sunview.h>
- #include <suntool/panel.h>
-
- fp_refresh()
- {
- extern short fp_panel_show;
- extern int n_stored_fp,ir;
- extern int n_mc,sqzex_maxsq,fi_maxsq,mu,ms,muf,msf,iskip;
- extern double gp_delm,mc_eps,sqzex_eps,sqzex_epsf,sqzex_epsm;
- extern double fi_eps,fi_epsf,fi_epsm;
- extern Panel_item fp_n_stored_fp_item,fp_ir_item;
- extern Panel_item fp_sqzex_maxsq_item,fp_sqzex_eps_item,fp_sqzex_epsf_item,fp_sqzex_epsm_item,fp_mc_eps_item,fp_n_mc_item;
- extern Panel_item fp_mu_item,fp_ms_item,fp_muf_item,fp_msf_item,fp_iskip_item,fp_gp_delm_item;
- extern Panel_item fp_fi_maxsq_item,fp_fi_eps_item,fp_fi_epsf_item,fp_fi_epsm_item;
- extern char string[];
-
- if(fp_panel_show){
- sprintf(string,"%d",n_stored_fp);
- panel_set_value(fp_n_stored_fp_item,string);
- sprintf(string,"%d",ir);
- panel_set_value(fp_ir_item,string);
-
- sprintf(string,"%d",n_mc);
- panel_set_value(fp_n_mc_item,string);
- sprintf(string,"%lg",mc_eps);
- panel_set_value(fp_mc_eps_item,string);
- sprintf(string,"%d",sqzex_maxsq);
- panel_set_value(fp_sqzex_maxsq_item,string);
- sprintf(string,"%lg",sqzex_eps);
- panel_set_value(fp_sqzex_eps_item,string);
- sprintf(string,"%lg",sqzex_epsf);
- panel_set_value(fp_sqzex_epsf_item,string);
- sprintf(string,"%lg",sqzex_epsm);
- panel_set_value(fp_sqzex_epsm_item,string);
-
- sprintf(string,"%lg",gp_delm);
- panel_set_value(fp_gp_delm_item,string);
- sprintf(string,"%d",mu);
- panel_set_value(fp_mu_item,string);
- sprintf(string,"%d",ms);
- panel_set_value(fp_ms_item,string);
- sprintf(string,"%d",muf);
- panel_set_value(fp_muf_item,string);
- sprintf(string,"%d",msf);
- panel_set_value(fp_msf_item,string);
- sprintf(string,"%d",iskip);
- panel_set_value(fp_iskip_item,string);
-
- sprintf(string,"%d",fi_maxsq);
- panel_set_value(fp_fi_maxsq_item,string);
- sprintf(string,"%lg",fi_eps);
- panel_set_value(fp_fi_eps_item,string);
- sprintf(string,"%lg",fi_epsf);
- panel_set_value(fp_fi_epsf_item,string);
- sprintf(string,"%lg",fi_epsm);
- panel_set_value(fp_fi_epsm_item,string);
- }
- }
-