TGLMirror

type TGLMirror = class(TGLSceneObject)

protected

  procedure Notification(); override;

  procedure SetMirrorObject();

  procedure SetMirrorOptions();

  procedure ClearZBufferArea();

  procedure SetHeight();

  procedure SetWidth();

  procedure SetRadius();

  procedure SetSlices();

  procedure SetShape();

  function GetRadius;

  function GetSlices;

public

  constructor Create(); override;

  procedure DoRender(); override;

  procedure BuildList(); override;

  procedure Assign(); override;

  function AxisAlignedDimensionsUnscaled; override;

published

  property MirrorObject: TGLBaseSceneObject; [rw]

  property MirrorOptions: TGLMirrorOptions; [rw]

  property Height: Single; [rw]

  property Width: Single; [rw]

  property OnBeginRenderingMirrors: TNotifyEvent; [rw]

  property OnEndRenderingMirrors: TNotifyEvent; [rw]

  property Radius: Single; [rw]

  property Slices: Integer; [rw]

  property Shape: TMirrorShapes; [rw]

end;

TGLMirror

TObject