4.51.2.4.35. ogHFlip()	Table of Contents	4.51.2.4.37. ogInit()

  procedure ogHLine(x1, x2, y:int32; colour:uInt32); virtual;

Draws a horizontal line using a fast line-fill algorithm.

• ogDisplay.ogHLine()
• ogSurface.ogLine()
• ogSurface.ogVLine()

{ogHLine.pas}

uses
  ObjGfx40, CRT;

var 
  count:uInt32;

begin
  if not screen^.ogCreate(1024, 768, OG_PIXFMT_32BPP) then
    begin
      writeln('Error setting video mode');
      halt
    end;

  with screen^ do
    for count:=0 to ogGetMaxY do
      ogHLine(0,count,count,
              ogRGB(count,(count div 256)*count,(count div 256)*count));
  readKey;
end.

4.51.2.4.35. ogHFlip()	Table of Contents	4.51.2.4.37. ogInit()