1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
| program OpenGLTest;
uses
Windows,
Messages,
OpenGL,
Textures,
Tools in '..\..\..\..\Units\Tools.pas';
const
ClassName = 'OpenGL WinClass';
AppName = 'Koshigaya Studios - OpenGL Test';
WindowWidth = 640;
WindowHeight = 480;
var
h_DC: hDC;
h_RC: HGLRC;
Rotate:Single;
Go: Array[0..255] of Boolean;
Tex: GLUInt;
MoveLR: Single;
procedure glBindTexture(target: GLenum; texture: GLuint); stdcall; external opengl32;
procedure DrawScene;
begin
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
glLoadIdentity;
// glColor3ub(255,255,0); bei glBegin
//Code here!
// glTranslate(0,0,-5);
glScale(30,30,30);
// glRotate(Rotate,1,0,0);
glTranslate(0,0,Rotate/100);
glTranslate(MoveLR,0,Rotate/100);
glTranslate(0,Rotate/3,0);
glBindTexture(GL_TEXTURE_2D,Tex);
glBegin(GL_QUADS);
glTexCoord2f(5,5);
glVertex3f(1,1,1);
glTexCoord2f(5,0);
glVertex3f(1,-1,1);
glTexCoord2f(0,0);
glVertex3f(-1,-1,1);
glTexCoord2f(0,5);
glVertex3f(-1,1,1);
glEnd;
glBegin(GL_QUADS);
glTexCoord2f(5,5);
glVertex3f(-1,-1,1);
glTexCoord2f(5,0);
glVertex3f(-1,1,1);
glTexCoord2f(0,0);
glVertex3f(-1,1,-1);
glTexCoord2f(0,5);
glVertex3f(-1,-1,-1);
glEnd;
glBegin(GL_QUADS);
glTexCoord2f(5,5);
glVertex3f(1,1,-1);
glTexCoord2f(5,0);
glVertex3f(1,-1,-1);
glTexCoord2f(0,0);
glVertex3f(-1,-1,-1);
glTexCoord2f(0,5);
glVertex3f(-1,1,-1);
glEnd;
glBegin(GL_QUADS);
glTexCoord2f(5,5);
glVertex3f(1,-1,1);
glTexCoord2f(5,0);
glVertex3f(1,1,1);
glTexCoord2f(0,0);
glVertex3f(1,1,-1);
glTexCoord2f(0,5);
glVertex3f(1,-1,-1);
glEnd;
glBegin(GL_QUADS);
glTexCoord2f(5,5);
glVertex3f(1,-1,1);
glTexCoord2f(5,0);
glVertex3f(-1,-1,1);
glTexCoord2f(0,0);
glVertex3f(-1,-1,-1);
glTexCoord2f(0,5);
glVertex3f(1,-1,-1);
glEnd;
glBegin(GL_QUADS);
glTexCoord2f(5,5);
glVertex3f(1,1,1);
glTexCoord2f(5,0);
glVertex3f(-1,1,1);
glTexCoord2f(0,0);
glVertex3f(-1,1,-1);
glTexCoord2f(0,5);
glVertex3f(1,1,-1);
glEnd;
end;
procedure InitGL;
begin
// hinter grund farhbe besteimmen
glClearColor(0.5 , 0 , 0 , 0);
// Tifenbuffer löschen
glClearDepth(1.0);
// Bestimmt die Tife funktione
glDepthFunc(GL_LESS);
// Tiefen testen abschalten
glEnable(GL_DEPTH_TEST);
// Wie sauber er zeichnen soll
glShadeModel(GL_SMOOTH);
// wo soll er zeichnen
glMatrixMode(GL_PROJECTION);
// Setzt alles zurück z.B
glLoadIdentity;
// Winkel
gluPerspective(45.0, WindowWidth/WindowHeight,0.1,100.0);
glMatrixMode(GL_MODELVIEW);
// Licht einstellungen
// glEnable(GL_LIGHT0);
// glEnable(GL_LIGHTING);
// glEnable(GL_COLOR_MATERIAL);
glEnable(GL_TEXTURE_2D);
LoadTexture(GetExeDir + 'Wall.bmp',Tex)
end;
procedure ResizeGL(Width, Height: Integer);
begin
glViewport(0,0,Width,Height);
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
gluPerspective(45.0,Width/Height,0.1,100.0);
glMatrixMode(GL_MODELVIEW);
end;
procedure SetDCPixelFormat(Handle: HDC);
var
nPixelFormat: GLUint;
const
pfd: PIXELFORMATDESCRIPTOR = (
nSize: sizeof( PIXELFORMATDESCRIPTOR );
nVersion: 1;
dwFlags: PFD_DRAW_TO_WINDOW
or PFD_SUPPORT_OPENGL
or PFD_DOUBLEBUFFER;
iPixelType: PFD_TYPE_RGBA;
cColorBits: 16;
cRedBits: 0;
cRedShift: 0;
cGreenBits: 0;
cBlueBits: 0;
cBlueShift: 0;
cAlphaBits: 0;
cAlphaShift: 0;
cAccumBits: 0;
cAccumRedBits: 0;
cAccumGreenBits: 0;
cAccumBlueBits: 0;
cAccumAlphaBits: 0;
cDepthBits: 16;
cStencilBits: 0;
cAuxBuffers: 0;
iLayerType: PFD_MAIN_PLANE;
bReserved: 0;
dwLayerMask: 0;
dwVisibleMask: 0;
dwDamageMask: 0
);
begin
nPixelFormat:=ChoosePixelFormat(h_DC, @pfd);
SetPixelFormat(h_DC,nPixelFormat,@pfd);
end;
// fenster erstellen
function WndProc(hWnd: HWND; message: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
MouseX,MouseY:Integer;
begin
Result:=0;
Case message of
WM_CREATE: begin
h_DC:=GetDC(hWnd);
SetDCPixelFormat(h_DC);
h_RC:=wglCreateContext(h_DC);
wglMakeCurrent(h_DC,h_RC);
InitGL;
end;
WM_MOUSEMOVE: begin
MouseX:=LoWord(lParam);
MouseY:=HiWord(lParam);
Rotate:=MouseY / 100;
if MouseY < 20 then
SetCursorPos(WindowWidth div 2,WindowHeight div 2)
end;
WM_DESTROY, WM_CLOSE: begin
ChangeDisplaySettings(DEVMODE(nil^), 0);
wglMakeCurrent(h_DC,0);
wglDeleteContext(h_RC);
ReleaseDC(hWnd,h_DC);
PostQuitMessage(0);
end;
WM_KEYDOWN: begin
Go[wParam]:=true;
end;
WM_KEYUP: begin
Go[wParam]:=false;
end;
WM_SIZE: begin
ResizeGL(LOWORD(lParam),HIWORD(lParam));
end;
else begin
Result:=DefWindowProc(hWnd,message,wParam,lParam);
exit;
end;
end;
end;
var
wc: TWndClassEx = (
cbSize : SizeOf(TWndClassEx);
Style : CS_HREDRAW or CS_VREDRAW;
lpfnWndProc : @WndProc;
cbClsExtra : 0;
cbWndExtra : 0;
hbrBackground : COLOR_APPWORKSPACE;
lpszMenuName : nil;
lpszClassName : ClassName;
hIconSm : 0;
);
msg: TMSG;
done: Boolean = false;
begin
wc.hInstance := hInstance;
wc.hIcon := LoadIcon(0,IDI_APPLICATION);
wc.hCursor := LoadCursor(0,IDC_ARROW);
RegisterClassEx(wc);
CreateWindowEx(0,ClassName,AppName,WS_CAPTION or WS_VISIBLE or WS_SYSMENU or WS_MINIMIZEBOX or WS_MAXIMIZEBOX or WS_SIZEBOX,Integer(CW_USEDEFAULT),Integer(CW_USEDEFAULT),WindowWidth,WindowHeight,0,0,hInstance,nil);
while not done do begin
if (PeekMessage(msg,0,0,0,PM_REMOVE)) then begin
if msg.message=WM_QUIT then begin
done:=true;
end else begin
TranslateMessage(msg);
DispatchMessage(msg);
end;
end;
//Keys Here!
if Go[VK_ESCAPE] then
done:=true;
if Go[VK_UP] then
Rotate:=Rotate+3;
if Go[VK_DOWN] then
Rotate:=Rotate-3;
if Go[VK_LEFT] then
MoveLR:=MoveLR+0.03;
if Go[VK_RIGHT] then
MoveLR:=MoveLR-0.03;
DrawScene;
SwapBuffers(h_DC);
end;
end. |
)
