home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PASCAL / CONTOUR.ZIP / C_DEFS.PAS < prev    next >
Pascal/Delphi Source File  |  1988-12-06  |  1KB  |  51 lines
  1. {$N+,E+}
  2. {definitions for contour plot routines
  3.  copyright 1988, Optimal Systems Laboratory, Plainfield, NJ}
  4. unit c_defs;
  5.  
  6. interface
  7.  
  8. const
  9.   {maximum width of data array}
  10.   max_x_size = 250;
  11.   {maximum height of data array}
  12.   max_y_size = 250;
  13.   {maximum number of contours}
  14.   max_contours = 100;
  15.  
  16. type
  17.   {definition of floating type:  if coprocessor present, setting this to
  18.    single, double or extended yields rapid operation, while setting it to real
  19.    yields slow operation with a coprocessor.  If no coprocessor is present,
  20.    most rapid operation is obtained by setting this equal to real}
  21.   float = single;
  22.   {definitions for data array type and contour array type}
  23.   column_type = array[0..max_y_size-1] of longint;
  24.   column_pointer_type = ^column_type;
  25.   data_array_type = array[0..max_x_size-1] of column_pointer_type;
  26.   data_array_pointer_type = ^data_array_type;
  27.   contour_array_type = array[0..max_contours-1] of float;
  28.   contour_array_pointer_type = ^contour_array_type;
  29.  
  30. var
  31.   {pointers to data and contour levels}
  32.   data_array_pointer : data_array_pointer_type;
  33.   contours : contour_array_pointer_type;
  34.  
  35. procedure init_array;
  36.  
  37. implementation
  38.  
  39. procedure init_array ;
  40.   var
  41.     i : integer;
  42.  
  43.   begin
  44.     new(contours);
  45.     new(data_array_pointer);
  46.     for  i:=0  to max_x_size-1 do
  47.       new(data_array_pointer^[i]);
  48.   end;
  49.  
  50. end.
  51.