home *** CD-ROM | disk | FTP | other *** search
/ 1,000 Games / Disc1.iso / ARCADE / REXDEMO / PLOTXY.RPP < prev    next >
Text File  |  1996-12-08  |  560b  |  43 lines
  1. { PlotXY by Keebler }
  2.  
  3. var x: number;
  4. var y: number;
  5. var screeny:number;
  6.  
  7. y:=1;
  8.  
  9. {  Draw Axis }
  10. setcolor(1);
  11. line(0,100,319,100);
  12. line(160,0,160,199);
  13.  
  14. loop (x=-160 to 159)
  15.  
  16.  delay(10);
  17.  
  18.  { these are some functions }
  19.  
  20.  { y:=(x*x)/100;       }
  21.  { y:=x;               }
  22.   y:=(x*x*x)/10000;   
  23.  { y:=((y*-1))*1.02-2; }
  24.  
  25.  { adjust for Zero in center of screen }
  26.  screeny:=99-y;
  27.  
  28.  setcolor(3);
  29.  
  30.  { check for vertical min/max }
  31.  if ((screeny>=0)and(screeny<=199))
  32.    plot(x+160,screeny);
  33.  endif;
  34.  
  35.  
  36. endl;
  37.  
  38.  
  39.  
  40. delay(1000);
  41.  
  42.  
  43.