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

{
RANDY PARKER

    I've been playing With using the Absolute address $A000:0000 to do direct
video Writes in Graphics mode and was wondering if someone could tell me how
to get colors.  I use an Array of [1..NumOfBits].  NumOfBits being the number
of bits the current Graphic page Uses when it stores it's information.

The following is an example of what I mean:
}

Program UseFastGraf;
Uses
  Graph;

Type
  View = Array [1..19200] of Word;

Var
  I,
  GraphDriver,
  GraphMode    : Integer;
  View1        : View Absolute $A000:0000;
  View2        : View;

begin
  GraphDriver := Detect;
  InitGraph(GraphDriver, GraphMode, 'e:\bp\bgi');
  For I := 1 to 1000 Do
  begin
    SetColor(Random(GetMaxColor));
    Line(Random(GetMaxX), Random(GetMaxY), Random(GetMaxX), GetMaxY);
  end;
  View2 := View1;
  SetColor(15);
  OutTextXY(100, 100, 'Press Enter To Continue : ');
  Readln;
  ClearDevice;
  OutTextXY(100, 100, 'Press Enter To See The Previous Screen');
  Readln;
  View1 := View2;
  Readln;
end.

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