home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / expas.arj / TEMP / 06-12.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-20  |  905b  |  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.   fg_boxdepth(3,3);
  24.  
  25.   xres := fg_getmaxx + 1;
  26.   yres := fg_getmaxy + 1;
  27.  
  28.   for i := 0 to RECTANGLES-1 do
  29.   begin
  30.      minx := random(xres);
  31.      maxx := random(xres);
  32.      miny := random(yres);
  33.      maxy := random(yres);
  34.      if (minx > maxx) then
  35.         SWAP(minx,maxx,temp);
  36.      if (miny > maxy) then
  37.         SWAP(miny,maxy,temp);
  38.      fg_setcolor(random(16));
  39.      fg_box(minx,maxx,miny,maxy);
  40.   end;
  41.  
  42.   fg_setmode(old_mode);
  43.   fg_reset;
  44. end.
  45.