home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ATI256.ZIP / SIMPOBJ.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-13  |  1.1 KB  |  37 lines
  1. { Demonstrates:  Registering the BGI file in the executable. }
  2.  
  3. { Super VGA  BGI graphics driver demo }
  4. {        Thomas Design              }
  5. {        August 7, 1989             }
  6. {   Test routine                    }
  7.  
  8. uses
  9.   Graph,crt,ATIDET,VGAEXTRA;
  10.  
  11. var
  12.   Gd, Gm : integer;
  13.   count  : integer;
  14.   DAC    : RGB;                        { define the DAC array (type in TPU) }
  15.  
  16. begin
  17.   Gd := InstallUserDriver('ATI256',@_DetectATI256);  { must say   gd := Install...  to work }
  18.   gd := registerbgidriver(@_ATIDRIVERPROC);
  19.   Gd := DETECT;
  20.   InitGraph(Gd, gm ,'');
  21.   DAC[0][0] := 0;                      { Demonstrate how to use dacpalette}
  22.   DAC[0][1] := 0;
  23.   DAC[0][2] := 0;
  24.   for count := 1 to 255 do begin
  25.       DAC[count][0] := random($3f);
  26.       DAC[count][1] := random($3f);
  27.       DAC[count][2] := random($3f);
  28.   end;
  29.   dacpalette(DAC);                  { load the DAC registers from array }
  30.   for Count := 1 to 2000 do begin      { Test the graphics mode }
  31.       SetColor(random(255));
  32.       line(getmaxx div 2,getmaxy div 2,random(getmaxx),random(getmaxy));
  33.   end;
  34.   restorecrtmode;
  35. end.
  36.  
  37.