- T3DObj = class
- procedure Render; virtual;
- end;
- T3DPolygone = class(T3DObj)
- A,B,C : TVect3DR;
- Face : TFace;
- end;
- T3DQuad = class(T3DObj)
- A,B,C,D : TVect3DR;
- Face : TFace;
- procedure Render; override;
- end;
- T3DQuader = class(T3DObj)
- Pos : TVect3DR;
- Rot : TVect3DR;
- Size : TVect3DR;
- Sides : Array [0..5] of T3DQuad;
- DrawMode : Integer;
- function Collide(Point: TVect3DR): TCollisionInfo; override;
- procedure Render; override;
- procedure SetQuader(APos,ASize,ARot: TVect3DR);
- end;
- T3DGroup = class(T3DObj)
- Pos : TVect3DR;
- Rot : TVect3DR;
- Size : TVect3DR;
- Objects : TList;
- constructor create;
- procedure Move(MoveCount: Single); virtual;
- function Collide(Point: TVect3DR): TCollisionInfo; override;
- procedure Render; override;
- end;
- TOGLEngine = class
- Width : Integer;
- Height : Integer;
- Objects : TList;
- CamPos : TVect3DR;
- CamRot : TVect3DR;
- constructor create;
- procedure SetupGL;
- procedure PrepareRender;
- procedure Render;
- procedure Move(MoveCount: Single);
- end;