home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB16.ZIP / DEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-10-23  |  621 b   |  39 lines
  1. program  demo;
  2.  
  3. {draw 100 lines first with draw, then with fastdraw}
  4.  
  5. var   j: integer;
  6.       x1,y1,x2,y2: integer;
  7.  
  8. {$I fastdraw}
  9. begin
  10.   setup(cseg,ofs(handler),oldseg,oldofs);
  11.  
  12.  
  13.   graphcolormode;
  14.   palette(3);
  15.   for j:= 1 to 100
  16.   do begin
  17.     x2:= random(320);
  18.     y2:= random(200);
  19.     x1:= random(320);
  20.     y1:= random(200);
  21.     draw(x1,y1,x2,y2,3);
  22.   end;
  23.  
  24.  
  25.   graphcolormode;
  26.   palette(3);
  27.   for j:= 1 to 100
  28.   do begin
  29.     x2:= random(320);
  30.     y2:= random(200);
  31.     x1:= random(320);
  32.     y1:= random(200);
  33.     fastdraw(x1,y1,x2,y2,3);
  34.   end;
  35.  
  36.  restor(oldseg,oldofs);
  37. end.
  38.  
  39.