home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / VGA256P.ZIP / SIMPOBJ.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-02-03  |  1.3 KB  |  42 lines
  1. { Demonstrates:  Linked-In OBJ version of VGA256.BGI. }
  2.  
  3. { Designer VGA  BGI graphics driver }
  4. {   By:  Markham Thomas             }
  5. {        Feb 2, 1989                }
  6. {   Test routine                    }
  7.  
  8. uses
  9.   Graph,crt,DVGATPU;                   { DVGATPU contains VGA256 module defs }
  10.  
  11. var
  12.   Gd, Gm : integer;
  13.   count  : integer;
  14.   DAC    : RGB;                        { define the DAC array (type in TPU) }
  15.  
  16. const
  17.   DVGA320x200 = 0;                     { Standard VGA mode 13h }
  18.   DVGA640x480 = 1;                     { Designer VGA graphics modes }
  19.   DVGA800x600 = 2;
  20.  
  21. begin
  22.   Gd := InstallUserDriver('VGA256',@DetectVGA256);  { must say   gd := Install...  to work }
  23.   gd := registerbgidriver(@_VGADRIVERPROC);
  24.   Gd := DETECT;
  25.   InitGraph(Gd, gm ,'');
  26.   DAC[0][0] := 0;                      { Demonstrate how to use setvgapalette }
  27.   DAC[0][1] := 0;
  28.   DAC[0][2] := 0;
  29.   for count := 1 to 255 do begin
  30.       DAC[count][0] := random($3f);
  31.       DAC[count][1] := random($3f);
  32.       DAC[count][2] := random($3f);
  33.   end;
  34.   setvgapalette(DAC);                  { load the DAC registers from array }
  35.   for Count := 1 to 2000 do begin      { Test the graphics mode }
  36.       SetColor(random(255));
  37.       line(getmaxx div 2,getmaxy div 2,random(getmaxx),random(getmaxy));
  38.   end;
  39.   restorecrtmode;
  40. end.
  41.  
  42.