home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / intlib / int_reset.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-11-18  |  1.6 KB  |  50 lines
  1. /*
  2. ### reset integration parameters to typed-in values ###
  3. */
  4.  
  5. #include <suntool/sunview.h>
  6. #include <suntool/panel.h>
  7.  
  8. int_reset()
  9. {
  10.     int i;
  11.     extern Panel_item int_nstep_item,int_max_nstep_item,int_start_item,int_end_item,int_period_item,int_eps_item,int_guessed_step_item,int_min_step_item,*int_yscal_item;
  12.     extern double int_start,int_end,int_period,int_eps,int_guessed_step,int_min_step,*int_yscal;
  13.     extern short int_panel_show;
  14.     extern int var_dim,draw_all,int_driver,int_algorithm,int_nstep,int_max_nstep;
  15.     extern char string[];
  16.  
  17.     if(int_panel_show){
  18.         if(int_driver == 1 || int_driver == 2){
  19.             strcpy(string, (char *) panel_get_value(int_start_item));
  20.             sscanf(string, "%lg", &int_start);
  21.             strcpy(string, (char *) panel_get_value(int_end_item));
  22.             sscanf(string, "%lg", &int_end);
  23.             if(!draw_all){
  24.                 strcpy(string, (char *) panel_get_value(int_period_item));
  25.                 sscanf(string, "%lg", &int_period);
  26.             }
  27.             if(int_driver ==1){
  28.                 strcpy(string, (char *) panel_get_value(int_nstep_item));
  29.                 sscanf(string, "%d", &int_nstep);
  30.             }
  31.             else if(int_driver == 2){
  32.                 strcpy(string, (char *) panel_get_value(int_max_nstep_item));
  33.                 sscanf(string, "%d", &int_max_nstep);
  34.                 strcpy(string, (char *) panel_get_value(int_eps_item));
  35.                 sscanf(string, "%lg", &int_eps);
  36.                 strcpy(string, (char *) panel_get_value(int_guessed_step_item));
  37.                 sscanf(string, "%lg", &int_guessed_step);
  38.                 strcpy(string, (char *) panel_get_value(int_min_step_item));
  39.                 sscanf(string, "%lg", &int_min_step);
  40.                 for(i=0;i<var_dim;i++){
  41.                     strcpy(string, (char *) panel_get_value(int_yscal_item[i]));
  42.                     sscanf(string, "%lg", &int_yscal[i]);
  43.                 }
  44.             }
  45.         }
  46.     }
  47. }
  48.  
  49.  
  50.