POINT Software Programming/PPROG1.ISO/pascal/swag/egavga.swg/0011_FASTRGB.PAS.pas

Pascal/Delphi Source File | 1993-05-28 | 629 b | 24 lines

{
GRADY WERNER
Put these in your code For GREAT, FAST RGB Palette Changing...
}
Procedure ASetRGBPalette(Color, Red, Green, Blue : Byte);
begin
  Port[$3C8]:=Color;
  Port[$3C9]:=Red;
  Port[$3C9]:=Green;
  Port[$3C9]:=Blue;
end;

{
This Procedure Changes palette colors about 400% faster than the
built-in routines.  Also, a problem With flicker may have been encountered
with Turbo's Putimage Functions.  Call this Procedure RIGHT BEFORE the
putimage is called... Viola... NO Flicker!
}
Procedure WaitScreen;
begin
  Repeat Until (Port[$3DA] and $08) = 0;
  Repeat Until (Port[$3DA] and $08) <> 0;
end;