home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / expas.arj / TEMP / 06-11.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-20  |  887b  |  45 lines
  1. program main;
  2. uses fgmain;
  3.  
  4. const
  5.   RECTANGLES : integer = 200;
  6.  
  7. var
  8.   i                      : integer;
  9.   minx, maxx, miny, maxy : integer;
  10.   old_mode               : integer;
  11.   temp                   : integer;
  12.   xres, yres             : integer;
  13.  
  14. procedure SWAP ( var a, b, temp : integer );
  15. begin
  16.   temp := a; a := b; b := temp;
  17. end;
  18.  
  19. begin
  20.   fg_initpm;
  21.   old_mode := fg_getmode;
  22.   fg_setmode(fg_automode);
  23.  
  24.   xres := fg_getmaxx + 1;
  25.   yres := fg_getmaxy + 1;
  26.  
  27.   for i := 0 to RECTANGLES-1 do
  28.   begin
  29.      minx := random(xres);
  30.      maxx := random(xres);
  31.      miny := random(yres);
  32.      maxy := random(yres);
  33.      if (minx > maxx) then
  34.         SWAP(minx,maxx,temp);
  35.      if (miny > maxy) then
  36.         SWAP(miny,maxy,temp);
  37.      fg_setcolor(random(16));
  38.      fg_rect(minx,maxx,miny,maxy);
  39.   end;
  40.  
  41.   fg_setmode(old_mode);
  42.   fg_reset;
  43. end.
  44.  
  45.