LZScene

1
//
2
// This unit is part of the GLScene Engine https://github.com/glscene
3
//
4
{
5
   Standard polyhedrons.
6

7
  History :  
8
       10/03/13 - PW - Added TGLTetrahedron and TGLOctahedron classes
9
       23/08/10 - Yar - Added OpenGLTokens to uses
10
       20/01/04 - SG - Added TGLIcosahedron
11
       21/07/03 - EG - Creation from GLObjects split
12
    
13
}
14
unit GLPolyhedron;
15

16
interface
17

18
uses
19
  Classes,
20
  GLScene, GLVectorGeometry, GLRenderContextInfo;
21

22
type
23

24
  // TGLDodecahedron
25
  //
26
  { A Dodecahedron.
27
     The dodecahedron has no texture coordinates defined, ie. without using
28
     a texture generation mode, no texture will be mapped. }
29
  TGLDodecahedron = class(TGLSceneObject)
30
  public
31
     
32
    procedure BuildList(var rci: TGLRenderContextInfo); override;
33
  end;
34

35
  // TGLIcosahedron
36
  //
37
  { A Icosahedron.
38
     The icosahedron has no texture coordinates defined, ie. without using
39
     a texture generation mode, no texture will be mapped. }
40
  TGLIcosahedron = class(TGLSceneObject)
41
  public
42
     
43
    procedure BuildList(var rci: TGLRenderContextInfo); override;
44
  end;
45

46
  // TGLOctahedron
47
  //
48
  { A Octahedron.
49
     The octahedron has no texture coordinates defined, ie. without using
50
     a texture generation mode, no texture will be mapped. }
51
  TGLOctahedron = class(TGLSceneObject)
52
  public
53
     
54
    procedure BuildList(var rci: TGLRenderContextInfo); override;
55
  end;
56

57
  // TGLTetrahedron
58
  //
59
  { A Tetrahedron.
60
     The tetrahedron has no texture coordinates defined, ie. without using
61
     a texture generation mode, no texture will be mapped. }
62
  TGLTetrahedron = class(TGLSceneObject)
63
  public
64
     
65
    procedure BuildList(var rci: TGLRenderContextInfo); override;
66
  end;
67

68

69
  //-------------------------------------------------------------
70
  //-------------------------------------------------------------
71
  //-------------------------------------------------------------
72
implementation
73
//-------------------------------------------------------------
74
//-------------------------------------------------------------
75
//-------------------------------------------------------------
76

77
uses GLObjects;
78

79
// ------------------
80
// ------------------ TGLDodecahedron ------------------
81
// ------------------
82

83
// BuildList
84
//
85

86
procedure TGLDodecahedron.BuildList(var rci: TGLRenderContextInfo);
87
begin
88
  DodecahedronBuildList;
89
end;
90

91
// ------------------
92
// ------------------ TGLIcosahedron ------------------
93
// ------------------
94

95
// BuildList
96
//
97

98
procedure TGLIcosahedron.BuildList(var rci: TGLRenderContextInfo);
99
begin
100
  IcosahedronBuildList;
101
end;
102

103
//--------------------
104
//--------------------  TGLOctahedron ------------------------
105
//--------------------
106

107
// BuildList
108
//
109
procedure TGLOctahedron.BuildList(var rci: TGLRenderContextInfo);
110
begin
111
  OctahedronBuildList;
112
end;
113

114
//--------------------
115
//--------------------  TGLTetrahedron ------------------------
116
//--------------------
117

118
// BuildList
119
//
120
procedure TGLTetrahedron.BuildList(var rci: TGLRenderContextInfo);
121
begin
122
  TetrahedronBuildList;
123
end;
124

125
initialization
126
  //-------------------------------------------------------------
127
  //-------------------------------------------------------------
128
  //-------------------------------------------------------------
129

130
  RegisterClasses([TGLDodecahedron, TGLIcosahedron, TGLOctahedron, TGLTetrahedron]);
131

132
end.
133

134