Luxophia

1
unit LUX.GPU.OpenGL.Atom.Textur.D3;
2

3
interface //#################################################################### ■
4

5
uses Winapi.OpenGL, Winapi.OpenGLext,
6
     LUX,
7
     LUX.Data.Grid.T3,
8
     LUX.GPU.OpenGL.Atom.Buffer.PixBuf.D3,
9
     LUX.GPU.OpenGL.Atom.Imager.D3,
10
     LUX.GPU.OpenGL.Atom.Textur;
11

12
type //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【型】
13

14
     //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【レコード】
15

16
     //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【クラス】
17

18
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TGLPoiTex3D<_TItem_>
19

20
     TGLPoiTex3D<_TItem_:record;_TImager_:TGLPoiIma3D<_TItem_>,constructor> = class( TGLTextur<_TItem_,TGLPoiPixIter3D<_TItem_>,TGLPoiPix3D<_TItem_>,_TImager_> )
21
     private
22
     protected
23
     public
24
       constructor Create;
25
       destructor Destroy; override;
26
     end;
27

28
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TGLCelTex3D<_TItem_>
29

30
     TGLCelTex3D<_TItem_:record;_TImager_:TGLCelIma3D<_TItem_>,constructor> = class( TGLTextur<_TItem_,TGLCelPixIter3D<_TItem_>,TGLCelPix3D<_TItem_>,_TImager_> )
31
     private
32
     protected
33
     public
34
       constructor Create;
35
       destructor Destroy; override;
36
     end;
37

38
//const //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【定数】
39

40
//var //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【変数】
41

42
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【ルーチン】
43

44
implementation //############################################################### ■
45

46
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【レコード】
47

48
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【クラス】
49

50
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TGLPoiTex3D<_TItem_>
51

52
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
53

54
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
55

56
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
57

58
constructor TGLPoiTex3D<_TItem_,_TImager_>.Create;
59
begin
60
     inherited;
61

62
     with _Samplr do
63
     begin
64
          WrapU := GL_CLAMP_TO_EDGE;
65
          WrapV := GL_CLAMP_TO_EDGE;
66
          WrapW := GL_CLAMP_TO_EDGE;
67
     end;
68
end;
69

70
destructor TGLPoiTex3D<_TItem_,_TImager_>.Destroy;
71
begin
72

73
     inherited;
74
end;
75

76
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TGLCelTex3D<_TItem_>
77

78
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
79

80
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
81

82
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
83

84
constructor TGLCelTex3D<_TItem_,_TImager_>.Create;
85
begin
86
     inherited;
87

88
     with _Samplr do
89
     begin
90
          WrapU := GL_CLAMP_TO_EDGE;
91
          WrapV := GL_CLAMP_TO_EDGE;
92
          WrapW := GL_CLAMP_TO_EDGE;
93
     end;
94
end;
95

96
destructor TGLCelTex3D<_TItem_,_TImager_>.Destroy;
97
begin
98

99
     inherited;
100
end;
101

102
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【ルーチン】
103

104
//############################################################################## □
105

106
initialization //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 初期化
107

108
finalization //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 最終化
109

110
end. //######################################################################### ■