Luxophia

1
unit LUX.GPU.OpenGL.Matery.Textur.Preset;
2

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

5
uses Winapi.OpenGL, Winapi.OpenGLext,
6
     LUX,
7
     LUX.GPU.OpenGL,
8
     LUX.GPU.OpenGL.Atom.Textur,
9
     LUX.GPU.OpenGL.Atom.Textur.D2.Preset,
10
     LUX.GPU.OpenGL.Matery;
11

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

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

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

18
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TGLMateryImag
19

20
     IGLMateryImag = interface( IGLMatery )
21
     ['{426B4B0E-FDA1-44B2-9B2A-0B7371E2E7D0}']
22
     {protected}
23
       ///// アクセス
24
       function GetTextur :TGLCelTex2D_TAlphaColorF;
25
     {public}
26
       ///// プロパティ
27
       property Textur :TGLCelTex2D_TAlphaColorF read GetTextur;
28
     end;
29

30
     //-------------------------------------------------------------------------
31

32
     TGLMateryImag = class( TGLMateryNorTex, IGLMateryImag )
33
     private
34
     protected
35
       _Textur :TGLCelTex2D_TAlphaColorF;
36
       ///// アクセス
37
       function GetTextur :TGLCelTex2D_TAlphaColorF;
38
     public
39
       constructor Create;
40
       destructor Destroy; override;
41
       ///// プロパティ
42
       property Textur :TGLCelTex2D_TAlphaColorF read GetTextur;
43
       ///// メソッド
44
       procedure Use; override;
45
       procedure Unuse; override;
46
     end;
47

48
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TGLMateryImagG
49

50
     IGLMateryImagG = interface( IGLMatery )
51
     ['{A3108C6C-0E37-467C-94DF-F99E30B528FA}']
52
     {protected}
53
       ///// アクセス
54
       function GetTextur :TGLCelTex2D_TAlphaColorF;
55
     {public}
56
       ///// プロパティ
57
       property Textur :TGLCelTex2D_TAlphaColorF read GetTextur;
58
     end;
59

60
     //-------------------------------------------------------------------------
61

62
     TGLMateryImagG = class( TGLMateryNorTexG, IGLMateryImagG )
63
     private
64
     protected
65
       _Textur :TGLCelTex2D_TAlphaColorF;
66
       ///// アクセス
67
       function GetTextur :TGLCelTex2D_TAlphaColorF;
68
     public
69
       constructor Create;
70
       destructor Destroy; override;
71
       ///// プロパティ
72
       property Textur :TGLCelTex2D_TAlphaColorF read GetTextur;
73
       ///// メソッド
74
       procedure Use; override;
75
       procedure Unuse; override;
76
     end;
77

78
//const //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【定数】
79

80
//var //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【変数】
81

82
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【ルーチン】
83

84
implementation //############################################################### ■
85

86
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【レコード】
87

88
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【クラス】
89

90
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TGLMateryImag
91

92
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
93

94
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
95

96
/////////////////////////////////////////////////////////////////////// アクセス
97

98
function TGLMateryImag.GetTextur :TGLCelTex2D_TAlphaColorF;
99
begin
100
     Result := _Textur;
101
end;
102

103
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
104

105
constructor TGLMateryImag.Create;
106
begin
107
     inherited;
108

109
     with _Engine do
110
     begin
111
          with Texturs do
112
          begin
113
               Add( 0{BinP}, '_Textur'{Name} );
114
          end;
115
     end;
116

117
     _Textur := TGLCelTex2D_TAlphaColorF.Create;
118
end;
119

120
destructor TGLMateryImag.Destroy;
121
begin
122
     _Textur.Free;
123

124
     inherited;
125
end;
126

127
/////////////////////////////////////////////////////////////////////// メソッド
128

129
procedure TGLMateryImag.Use;
130
begin
131
     inherited;
132

133
     _Textur.Use( 0 );
134
end;
135

136
procedure TGLMateryImag.Unuse;
137
begin
138
     _Textur.Unuse( 0 );
139

140
     inherited;
141
end;
142

143
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TGLMateryImagG
144

145
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
146

147
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
148

149
/////////////////////////////////////////////////////////////////////// アクセス
150

151
function TGLMateryImagG.GetTextur :TGLCelTex2D_TAlphaColorF;
152
begin
153
     Result := _Textur;
154
end;
155

156
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
157

158
constructor TGLMateryImagG.Create;
159
begin
160
     inherited;
161

162
     with _Engine do
163
     begin
164
          with Texturs do
165
          begin
166
               Add( 0{BinP}, '_Textur'{Name} );
167
          end;
168
     end;
169

170
     _Textur := TGLCelTex2D_TAlphaColorF.Create;
171
end;
172

173
destructor TGLMateryImagG.Destroy;
174
begin
175
     _Textur.Free;
176

177
     inherited;
178
end;
179

180
/////////////////////////////////////////////////////////////////////// メソッド
181

182
procedure TGLMateryImagG.Use;
183
begin
184
     inherited;
185

186
     _Textur.Use( 0 );
187
end;
188

189
procedure TGLMateryImagG.Unuse;
190
begin
191
     _Textur.Unuse( 0 );
192

193
     inherited;
194
end;
195

196
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【ルーチン】
197

198
//############################################################################## □
199

200
initialization //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 初期化
201

202
finalization //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 最終化
203

204
end. //######################################################################### ■
205