TGLEngine

type TGLEngine = class

public

  dcvis: hdc;

  hrcvis: HGLRC;

  procedure VisualInit();

  function GetGLEngineWidth;

  function GetGLEngineHeight;

  function GetTimeDrawFrame;

  function GetFPS;

  procedure Resize();

  procedure BeginRender();

  procedure AntiAlias();

  procedure VertSynh();

  function ColorGL();

  procedure Line();

  procedure LineTo();

  procedure MoveTo();

  procedure LineWidth();

  procedure LineGrad();

  procedure SetLineStripple();

  procedure UnSetLineStripple;

  procedure Bolt();

  procedure Arrow();

  procedure PointSize();

  procedure Point();

  procedure PointSmooth();

  procedure Triangle();

  procedure TriangleGrad();

  procedure Rectangle();

  procedure Bar();

  procedure BarClassic();

  procedure BarGrad(); overload;

  procedure Ellipse();

  procedure Polygon();

  procedure PolygonTexture();

  procedure PolygonTess();

  procedure Tesselate();

  procedure PolygonFromArray();

  procedure SetTextStyle();

  procedure TextOut();

  procedure TextOutUseImageFont();

  procedure KillFont;

  procedure SetColor();

  procedure SetBKColor();

  procedure SetFill();

  procedure SwichBlendMode();

  procedure AddBMPImage();

  function CreateImage();

  function LoadImage();

  procedure DrawImage();

  procedure SetCurrentImage();

  procedure DrawCurrentImage();

  procedure DrawCurrentImage2();

  procedure GetImageWidth();

  procedure GetImageHeight();

  procedure DrawTileImage();

  procedure SaveImage();

  procedure SaveImageAsPNG();

  procedure GetBMP32FromImage();

  function SaveRAWTexture();

  function LoadRAWTexture();

  procedure ScreenShot();

  procedure _ScreenShot();

  procedure FreeImage();

  procedure LoadAnimation();

  procedure DrawAniFrame();

  procedure BeginRenderToTex();

  procedure EndRenderToTex;

  function ShaderCreate();

  procedure ShaderStart();

  procedure ShaderStop();

  function ShaderGetUniform();

  procedure ShaderSetUniform();

  procedure Clear;

  procedure FinishRender;

  procedure VisualDone;

end;

TGLEngine

TObject