home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / plot / 3dplot02.arc / MAZE.XYZ < prev    next >
Text File  |  1989-06-24  |  322b  |  19 lines
  1. x_int=TRUNC(x+0.5)-2;
  2. y_int=TRUNC(y+0.5)-2;
  3. IF x_int < 0 THEN
  4.   z=0.0;
  5. ELSE
  6.   IF x_int > x_max THEN
  7.     z=0.0;
  8.   ELSE
  9.     IF y_int < 0 THEN
  10.       z=0.0;
  11.     ELSE
  12.       IF y_int > y_max THEN
  13.         z=0.0;
  14.       ELSE
  15.         IF page(y_int,x_int) = 'W' THEN
  16.           z=2.0;
  17.         ELSE
  18.           z=0.0;
  19.