home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / plot / 3dplot02.arc / MAZE.XYZ < prev    next >
Encoding:
Text File  |  1989-06-24  |  322 b   |  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.