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:
| uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OpenGL, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormResize(Sender: TObject);
private
procedure OnIdle(Sender:TObject;var Done:Boolean);
{ Private declarations }
end;
var
Form1: TForm1;
DC:HDC;
RC:HGLRC;
Framerate:Integer;
implementation
{$R *.dfm}
procedure TForm1.onidle(Sender:TObject;var Done:Boolean);
begin
Done:=FALSE;
inc(framerate);
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
glRotatef(2,0,0,1);
glBegin(GL_QUADS);
glVertex3f(-1,-1, 1);
glVertex3f( 1,-1, 1);
glVertex3f( 1, 1, 1);
glVertex3f(-1, 1, 1);
glVertex3f(-1,-1,-1);
glVertex3f(-1, 1,-1);
glVertex3f( 1, 1,-1);
glVertex3f( 1,-1,-1);
glVertex3f(-1, 1,-1);
glVertex3f(-1, 1, 1);
glVertex3f( 1, 1, 1);
glVertex3f( 1, 1,-1);
glVertex3f(-1,-1,-1);
glVertex3f( 1,-1,-1);
glVertex3f( 1,-1, 1);
glVertex3f(-1,-1, 1);
glVertex3f( 1,-1,-1);
glVertex3f( 1, 1,-1);
glVertex3f( 1, 1, 1);
glVertex3f( 1,-1, 1);
glVertex3f(-1,-1,-1);
glVertex3f(-1,-1, 1);
glVertex3f(-1, 1, 1);
glVertex3f(-1, 1,-1);
glEnd;
SwapBuffers(DC);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
application.terminate;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Caption:='FPS: '+inttostr(framerate);
framerate:=0;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
pfd:TPixelFormatDescriptor;
p:Integer;
begin
Application.OnIdle:=Form1.OnIdle;
fillchar(pfd,sizeof(pfd),0);
DC:=getDC(Form1.Handle);
pfd.cDepthBits:=16;
pfd.cColorBits:=16;
pfd.dwFlags:=PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
p:=choosePixelFormat(DC,@pfd);
setPixelFormat(DC,p,@pfd);
RC:=wglCreateContext(DC);
wglMakeCurrent(DC,RC);
glClearColor(0,0,0,0);
glEnable(GL_DEPTH_TEST);
glTranslatef(0,0,-1);
glTranslatef(0,0,-1);
glTranslatef(0,0,-1);
glTranslatef(0,0,-1);
glTranslatef(0,0,-1);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
wglMakeCurrent(DC,0);
wglDeleteContext(RC);
releaseDC(0,DC);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
glViewPort(0,0,clientwidth,clientheight);
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
gluPerspective(45,clientwidth/clientheight,0.1,100);
glMatrixMode(GL_MODELVIEW);
end;
end. |