TD3Canvas

type TD3Canvas = class(TPersistent)

protected

  FWidth: Integer;

  FHeight: Integer;

  FBitmap: TD3Bitmap;

  FWnd: Cardinal;

  FScene: TD3Scene;

  FTransNoDsg: Boolean;

  FQuality: TD3Quality;

  FBitmaps: TList;

  FHandles: TList;

  FBuffered: Boolean;

  FRenderStates: array [TD3RenderState] of THandle;

  FChangeStateCount: Integer;

  FCurrentBitmap: array [0..8] of TD3Bitmap;

  FCurrentVertexFormat: TD3VertexFormat;

  FCurrentStates: array [TD3RenderState] of Boolean;

  FCurrentCamera: TD3Camera;

  FCurrentCameraMatrix: TD3Matrix;

  FCurrentCameraInvMatrix: TD3Matrix;

  FCurrentMatrix: TD3Matrix;

  FCurrentLights: TList;

  FPaintToMatrix: TD3Matrix;

  FSaveStates: array [TD3RenderState] of Boolean;

  FSaveMatrix: TD3Matrix;

  procedure MaterialChanged(); virtual;

  procedure CreateRenderStateList(); virtual;

  procedure ApplyRenderState(); virtual;

  function GetProjectionMatrix; virtual;

  function GetScreenMatrix; virtual;

  procedure UpdateBitmap(); virtual;

  procedure AddHandle();

  procedure ChangeHandle();

  procedure RemoveHandle();

  function GetHandle();

  procedure DestroyBitmap(); virtual;

  procedure AssignTo(); override;

public

  constructor Create(); virtual;

  constructor CreateFromBitmap(); virtual;

  destructor Destroy; override;

  procedure SetQuality(); virtual;

  procedure SaveToStream();

  procedure SaveToBits();

  procedure Reset;

  function BeginScene; virtual;

  procedure FlushBuffer; virtual;

  procedure FreeBuffer; virtual;

  procedure ResizeBuffer(); virtual;

  procedure SetMatrix(); virtual;

  procedure SetCamera(); virtual;

  procedure SetLight(); virtual;

  procedure SetRenderState(); virtual;

  procedure Clear(); virtual;

  procedure ClearARGB(); virtual;

  procedure CopyBits(); virtual;

  procedure DrawLine(); virtual;

  procedure DrawRect(); virtual;

  procedure DrawCube(); virtual;

  procedure FillCube(); virtual;

  procedure FillMesh(); virtual;

  procedure FillColorTexVertexNormal(); virtual;

  procedure FillPolygon(); virtual;

  procedure FillRect(); virtual;

  procedure DrawText(); virtual;

  function MeasureText(); virtual;

  procedure Pick();

  function WorldToScreen();

  procedure SetMaterialWithOpacity();

  property Height: Integer; [r]

  property Width: Integer; [r]

  property Material: TD3Material; [rw]

  property Font: TD3Font; [rw]

  property Ambient: LongWord; [rw]

  property Lighting: Boolean; [rw]

  property CurrentMatrix: TD3Matrix; [r]

  property CurrentCamera: TD3Camera; [r]

  property CurrentCameraMatrix: TD3Matrix; [r]

  property CurrentCameraInvMatrix: TD3Matrix; [r]

  property Bitmap: TD3Bitmap; [r]

end;

TD3Canvas

TObject