[Back to EGAVGA SWAG index] [Back to Main SWAG index] [Original]

    {
    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;

[Back to EGAVGA SWAG index] [Back to Main SWAG index] [Original]