home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / scanlib / scan_init.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-12-07  |  893 b   |  33 lines
  1. /*
  2. ### initialize scan ###
  3. */
  4.  
  5. #include <suntool/sunview.h>
  6. #include <suntool/panel.h>
  7.  
  8. void scan_init()
  9. {
  10.     int i;
  11.     extern int region_index,param_cur_index[],var_cur_index[],var_dim,param_dim;
  12.     extern int scan_mdim,scan_mdim_init,scan_n_max,scan_col_dim,scan_grid_dim,scan_region_index;
  13.     extern int *scan_type;
  14.     extern int scan_cur_index[];
  15.     extern double scan_xmin[],scan_xmax[],**scan_x;
  16.  
  17.     scan_region_index = region_index;
  18.     for(i=0;i<scan_grid_dim;i++){
  19.         if(scan_region_index==0)
  20.             scan_cur_index[i] = param_cur_index[i];
  21.         else if(scan_region_index==1)
  22.             scan_cur_index[i] = var_cur_index[i];
  23.     }
  24.     if(scan_region_index==0)
  25.         scan_col_dim = param_dim;
  26.     if(scan_region_index==1)
  27.         scan_col_dim = var_dim;
  28.  
  29.         scan_mdim = scan_mdim_init;
  30.         scan_type = (int *) malloc((unsigned) sizeof(int) * scan_mdim);   
  31.         scan_x = (double **) dmatrix(0,scan_mdim-1,0,scan_col_dim-1);
  32. }
  33.