Sign in Join
Wiki copytemporary

OpenGL Tutorial/ko: what changed

Revision 2 to 3. Removed lines have a minus sign; added lines have a plus sign.

OldNewLine
11OpenGL은 이기종간 이식가능하고 상호 작용이 가능한 2D 및 3D 그래픽 어플리케이션을 개발할 수 있는 훌륭한 환경이다. 1992년 처음 소개된 이래 OpenGL은 산업계에서 가장 폭넓게 이용되며 2D와 3D 그래픽 어플리케이션 인터페이스(API)를 제공하며 다양한 컴퓨터 플랫폼에서 수 많은 어플리케이션이 있다. OpenGL은 렌더링, 텍스쳐 매핑, 특수효과 및 다른 강력한 시각화 함수등의 다양한 셋을 삽입하여 혁신적이고 빠른 어플리케이션의 개발을 가능하게 하였다. 개발자는 모든 인기있는 데스크톱과 워크스테이션 플랫폼에서 다양한 어플리케이션 개발의 성공을 보장받기 위해 OpenGL의 능력을 저울질하게 된다.
22
33OpenGL에 관한 더 많은 정보는 [이곳](http://www.opengl.org/about/overview/)에서 찾을 수 있다.
44
55# GLUT
66
77GLUT(glutony의 glu와 발음이 비슷)는 OpenGL Utility Toolkit으로,윈도우 시스템과 독립적인 툴킷으로 OpenGL 프로그램 작서에 사용된다. 이것은 OpenGL을 위한 간단한 윈도우 어플리케이션 프로그래밍 인터페이스(API)를 구현한다. GLUT는 이식 가능한 API를 제공하여 모든 PC와 워크스테이션 플랫폼에 동작하는 단일 OpenGL 프로그램을 작성할 수 있게 한다.
88
99GLUT에 관한 더 자세한 정보는 [여기](http://www.opengl.org/resources/libraries/glut/)에 있다.
1010
1111많은 OS는 GLUT를 설치하고 있으나 당신이 [구글](http://www.google.com/)에서 쉽게 찾을 수 없다면 윈도우즈 바이너리를 [www.xmission.com](http://www.xmission.com/~nate/glut.html)에서 다운로드 할 수 있다.
1212
1313# LCL
1414
1515라자루스 컴포넌트 라이브러리는 OpenGL과 함께 하용할 수 있다. 라자루스는 OpenGl 컨텍스트를 가진 LCL 컨트롤을 가진 TOpenGLControl 을 포함하고 있다. 라자루스 패키지 LazOpenGLContext는 lazarus/components/opengl/lazopenglcontext.lpk에서 찾을 수 있다. 예제는 lazarus/examples/openglcontrol/openglcontrol_demo.lpi에서 찾을 수 있다.
1616
1717# LCL / GLUT
1818
1919GLUT와 LCL은 어제 이용하나?
2020
2121- 내 맘대로 무언가를 그리려고 한다면 GLUT가 더 낫다.
2222- 보통의 어플리케이션에서는 LCL이 더 낫다. 예를 들어 3D 에디터는 몇개의 OpenGL 윈도우를 필요로 하며 나머지는 보통의 버튼, 콤보박스, 윈도우 모달 윈도우 등을 사용하는 보통의 어플리케이션이다.
2323
2424OpenGL 파트는 매우 유사하다. GLUT는 윈도우 환경에서 dll을 필요로 하며 LCL은 박스의 바깥에서 실행되지만 LCL 실행 파일은 더 커진다.
2525
2626# 첫번째 GLUT 프로그램 작성
2727
2828GLUT를 이용하기 위해서는 반드시 먼저 초기화가 필요하다.이것은 glutInit 함수를 사용하여 수행한다. 이 함수는 명령어 라인을 파싱하여 메인 윈도우를 위해 파라메터를 설정하지만, C/C++ 스타일로 입력되어야 한다. ParamCount와 ParamStr을 C/C++와 유사한 명령어 파라메터로 변환하는 각자의 함수를 작성할 수가 있다.
2929
3030``` pascal
3131 procedure glutInitPascal(ParseCmdLine: Boolean);
3232 var
3333 Cmd: array of PChar;
3434 CmdCount, I: Integer;
3535 begin
3636 if ParseCmdLine then
3737 CmdCount := ParamCount + 1
3838 else
3939 CmdCount := 1;
4040 SetLength(Cmd, CmdCount);
4141 for I := 0 to CmdCount - 1 do
4242 Cmd[I] := PChar(ParamStr(I));
4343 glutInit(@CmdCount, @Cmd);
4444 end;
4545```
4646
4747본질적으로, 프로그래머는 배열을 생성하고 ParamStr에 있는 문자열로 배열을 채워야 한다. 이 함수는 어떤 것이 gluInit에 전달되는지를 컨트롤하는 파라메터(명령어 라인 전체 혹은 실행파일 이름 만)를 취한다.
4848
4949할일: **glutInit(@argc, @argv);**가 충분하다면.
5050
5151glutInit에 더 많은 정보: <http://www.opengl.org/resources/libraries/glut/spec3/node10.html>
5252
5353다음으로는 메인 윈도우를 생성할 필요가 있다. glutInitDisplayMode를 사용하여 메인윈도우의 디스플레이 모드를 설정한다. 이것은 플래그의 조합으로 이루어진 단 한개의 파라메터만을 취한다. 보통 GLUT_DOUBLE 나 GLUT_RGB, GLUT_DEPTH가 필요한 전부이다.
5454
5555glutInitDisplayMode에 관한 더 많은 정보: <http://www.opengl.org/resources/libraries/glut/spec3/node12.html>
5656
5757윈도우의 위치와 크기는 glutInitWindowPosition와 glutInitWindowSize를 사용하여 조절할 수가 있다. 이것들은 2개의 파라메터를 취한다. 전자는 Y와 Y 좌표를, 후자는 폭(width)과 높이(height)이다. glutGet을 사용하여 스크린의 크기와 윈도우의 중심을 알아낼 수 있다.
5858
5959lutInitWindowPosition, glutInitWindowSize 및 glutGet에 관한 더 자세한 것은: <http://www.opengl.org/resources/libraries/glut/spec3/node11.html> <http://www.opengl.org/documentation/specs/glut/spec3/node70.html>
6060
6161마지막으로 윈도우는 glutCreateWindow함수를 사용하여 생성하면 된다. 이것은 윈도우를 생성하고 파라메터를 통해 윈도우의 캡션을 설정한다. 그 결과 윈도우의 핸들을 반환한다. 이 핸들은 이것을 필요로 하는 다른 함수에서 사용할 수 있다.
6262
6363glutCreateWindow에 관한 더 자세한 정보는: <http://www.opengl.org/resources/libraries/glut/spec3/node16.html>
6464
6565작성한 프로그램이 메인 루프에 들어가기 전에 몇몇 콜백을 설정해야만 한다. 윈도우를 그리고, 크기를 변경하고 키보드 입력을 얻는데 콜백이 필요하다. 이 콜백들은 glutDisplayFunc, glutReshapeFunc 및glutKeyboardFunc을 이용하여 설정한다.
6666
6767콜백을 설정하는 더 자세한 정보는: <http://www.opengl.org/resources/libraries/glut/spec3/node45.html#SECTION00080000000000000000>
6868
6969당신의 그리기 함수는 다름과 같은 모습을 띨것이다:
7070
71-`procedure DrawGLScene; cdecl;`\
72-`begin`\
73-`  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);`\
74-`  glutSwapBuffers;`\
75-`end;`
71+``` pascal
72+procedure DrawGLScene; cdecl;
73+begin
74+ glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
75+ glutSwapBuffers;
76+end;
77+```
7678
7779이것은 윈도우를 배경색상으로 지우고 zbuffer를 리셋한다(zbuffer에 대해 걱정하지 마라... 뒤에 더 자세히 다룰 것이다).
7880
7981당신의 리사이즈 함수는 다음과 같을 것이다:
8082
81-`procedure ReSizeGLScene(Width, Height: Integer); cdecl;`\
82-`begin`\
83-`  if Height = 0 then`\
84-`    Height := 1;`\
83+``` pascal
84+procedure ReSizeGLScene(Width, Height: Integer); cdecl;
85+begin
86+ if Height = 0 then
87+ Height := 1;
8588
86-`  glViewport(0, 0, Width, Height);`\
87-`  glMatrixMode(GL_PROJECTION);`\
88-`  glLoadIdentity;`\
89-`  gluPerspective(45, Width / Height, 0.1, 1000);`\
89+ glViewport(0, 0, Width, Height);
90+ glMatrixMode(GL_PROJECTION);
91+ glLoadIdentity;
92+ gluPerspective(45, Width / Height, 0.1, 1000);
9093
91-`  glMatrixMode(GL_MODELVIEW);`\
92-`  glLoadIdentity;`\
93-`end;`
94+ glMatrixMode(GL_MODELVIEW);
95+ glLoadIdentity;
96+end;
97+```
9498
9599이 코드에서, 윈도우의 어느 곳에 그리며, 원하는 값을 행렬(matrix함수는 뒤에서 설명한다)에 설정할지를 OpenGL에게 알려주어야 한다.
96100
97101키보드 입력은 다음 콜백을 검증한다.
98102
99-`procedure GLKeyboard(Key: Byte; X, Y: Longint); cdecl;`\
100-`begin`\
101-`  if Key = 27 then`\
102-`    Halt(0);`\
103-`end;`
103+``` pascal
104+procedure GLKeyboard(Key: Byte; X, Y: Longint); cdecl;
105+begin
106+ if Key = 27 then
107+ Halt(0);
108+end;
109+```
104110
105111이 함수는 프로그램에서 ESC 키가 눌리면 종료하도록 명령한다. GLUT는 이벤트 구동방식이므로 프로그램을 종료하는 유일한 방법은 당신의 콜백함수 중의 하나의 내부에서 Halt를 콜하는 것이다. 만약 다른 방법으로 윈도우를 종료한다면, 윈도우는 사라지지만 프로그램은 메인 루틴에서 무한정 루프를 계속 돌 것이다.
106112
107113메인 루프를 시작하기 위해 glutMainLoop를 콜해야 한다. 이것은 무한 루프에 들어가 프로그램의 모든 콜백함수들을 호출하게 된다
108114
109115프로그램의 메인 파트는 다음과 같은 모습을 띨 것이다:
110116
111-`const `\
112-`  AppWidth = 640; `\
113-`  AppHeight = 480; `\
117+``` pascal
118+const
119+ AppWidth = 640;
120+ AppHeight = 480;
114121
115-`procedure InitializeGL; `\
116-`begin `\
117-`  glClearColor(0.18, 0.20, 0.66, 0); `\
118-`end; `\
122+procedure InitializeGL;
123+begin
124+ glClearColor(0.18, 0.20, 0.66, 0);
125+end;
119126
120-`var `\
121-`  ScreenWidth, ScreenHeight: Integer; `\
122-`begin `\
123-`  glutInitPascal(True); `\
124-`  glutInitDisplayMode(GLUT_DOUBLE or GLUT_RGB or GLUT_DEPTH); `\
125-`  glutInitWindowSize(AppWidth, AppHeight); `\
126-`  ScreenWidth := glutGet(GLUT_SCREEN_WIDTH); `\
127-`  ScreenHeight := glutGet(GLUT_SCREEN_HEIGHT); `\
128-`  glutInitWindowPosition((ScreenWidth - AppWidth) div 2,`\
129-`    (ScreenHeight - AppHeight) div 2); `\
130-`  glutCreateWindow('OpenGL Tutorial 1'); `\
127+var
128+ ScreenWidth, ScreenHeight: Integer;
129+begin
130+ glutInitPascal(True);
131+ glutInitDisplayMode(GLUT_DOUBLE or GLUT_RGB or GLUT_DEPTH);
132+ glutInitWindowSize(AppWidth, AppHeight);
133+ ScreenWidth := glutGet(GLUT_SCREEN_WIDTH);
134+ ScreenHeight := glutGet(GLUT_SCREEN_HEIGHT);
135+ glutInitWindowPosition((ScreenWidth - AppWidth) div 2,
136+ (ScreenHeight - AppHeight) div 2);
137+ glutCreateWindow('OpenGL Tutorial 1');
131138
132-`  InitializeGL; `\
139+ InitializeGL;
133140
134-`  glutDisplayFunc(@DrawGLScene); `\
135-`  glutReshapeFunc(@ReSizeGLScene); `\
136-`  glutKeyboardFunc(@GLKeyboard); `\
141+ glutDisplayFunc(@DrawGLScene);
142+ glutReshapeFunc(@ReSizeGLScene);
143+ glutKeyboardFunc(@GLKeyboard);
137144
138-`  glutMainLoop; `\
139-`end.`
145+ glutMainLoop;
146+end.
147+```
140148
141149다음 튜토리얼은 간단한 도형을 그리는 몇몇 코드를 더할 것이다.
142150
143151소스코드나 리눅스/윈도우즈 실행 파일은 다음에서 다운로드 할 수가 있다 [Lazarus CCR SourceForge](http://sourceforge.net/project/showfiles.php?group_id=92177&package_id=199145).
144152
145153# 간단한 도형 그리기
146154
147155**Note:**이어지는 부분은 거의 OpenGL에 관한 것이므로 GLUT와 LCL에서 실행하여야 한다. 'glu' 접두어를 통해 GLUT에 관련된 함수라는 것을 알 수가 있다.
148156
149157이 시점에서 단지 몇 라인의 코드만을 추가 할 것이며 몇몇 OpenGL 함수에 관한 설명에 촛점을 맞출 것이다.
150158
151159다음 코드에 대해 설명할 것이다.
152160
153-`  .`\
154-`  .`\
155-`  .`\
156-`  glMatrixMode(GL_PROJECTION);`\
157-`  glLoadIdentity;`\
158-`  gluPerspective(45, Width / Height, 0.1, 1000);`\
161+``` pascal
162+ .
163+ .
164+ .
165+ glMatrixMode(GL_PROJECTION);
166+ glLoadIdentity;
167+ gluPerspective(45, Width / Height, 0.1, 1000);
159168
160-`  glMatrixMode(GL_MODELVIEW);`\
161-`  glLoadIdentity;`\
162-`end;`
169+ glMatrixMode(GL_MODELVIEW);
170+ glLoadIdentity;
171+end;
172+```
163173
164174glMatrixMode 함수를 사용하여 변경하고자 하는 매트릭스(행렬)를 선택 할 수가 있다. OpenGL은 3개의 매트릭스를 이용하여 작업을 수행한다:
165175
166176GL_MODELVIEW: 이것은 버텍스를 모델 스페이스로 이동할 때 사용한다.
167177
168178GL_PROJECTION: 이것은 최종 픽셀위치를 위해 3d 좌표를 2d 좌표로 변환하는데 사용한다.
169179
170180GL_TEXTURE: 이것은 텍스쳐 좌표를 변경할 떄 사용한다.
171181
172182변화시키고자 하는 매트릭스를 선택했으면, 매트릭스 값을 변화시키는 함수를 호출하여야 한다. glLoadIdentity는 매트릭스를 리셋하므로 버텍스 위치에 영향을 미치지 못한다. 거의 대부분의 매트릭스 함수가 현재 매트릭스를 생성된 매트릭스와 곱하므로, 때때로 이 함수로 매트릭스를 지워주어야 한다.
173183
174184perspective 매트릭스를 설정하기 위해 gluPerspective 함수를 사용할 수 있다. 네개의 파라메터는 시야(field of view), 가로세로비율(aspect ratio), 근접(near) 및 far 평면(plane)을 나타낸다. 이렇게 간단하다.
175185
176186이제 모델 매트릭스를 변경할 것이며 identity만 설정하면 된다.
177187
178188좋다... 그리고 이제 첫번째 도형을 그리는 코드이다.:
179189
180-`procedure DrawGLScene; cdecl;`\
181-`begin`\
182-`  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);`\
190+``` pascal
191+procedure DrawGLScene; cdecl;
192+begin
193+ glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
183194
184-`  glLoadIdentity;`\
185-`  glTranslatef(0, 0, -5);`\
195+ glLoadIdentity;
196+ glTranslatef(0, 0, -5);
186197
187-`  glBegin(GL_TRIANGLES);`\
188-`    glColor3f(1, 0, 0);`\
189-`    glVertex3f(-1, -1, 0);`\
198+ glBegin(GL_TRIANGLES);
199+ glColor3f(1, 0, 0);
200+ glVertex3f(-1, -1, 0);
190201
191-`    glColor3f(0, 1, 0);`\
192-`    glVertex3f(1, -1, 0);`\
202+ glColor3f(0, 1, 0);
203+ glVertex3f(1, -1, 0);
193204
194-`    glColor3f(0, 0, 1);`\
195-`    glVertex3f(0, 1, 0);`\
196-`  glEnd;`\
205+ glColor3f(0, 0, 1);
206+ glVertex3f(0, 1, 0);
207+ glEnd;
197208
198-`  glutSwapBuffers;`\
199-`end;`
209+ glutSwapBuffers;
210+end;
211+```
200212
201213우리는 이미 glClear 함수를 사용하였다. 이것은 버퍼를 리셋하기만 한다. 우리는 다음 두 함수는를 건너뛰고 도형을 그리는 곳으로 향할 것이다.
202214
203215glBegin는 드로잉 블록의 시작을 표시한다. 이 함수 뒤에 버텍스를 입력을 시작할 수 있다. 파라메터는 드로잉 할 때 버텍스가 어떻게 이용되는 지를 설명해 준다:
204216
205217GL_POINTS: 각 버텍스를 단일 포인트로 취급한다. 버텍스 n은 포인트 n으로 정의한다. N개의 포인트가 그려진다.
206218
207219GL_LINES: 각 버텍스 쌍을 독립적인 라인 세그컨트로 취급한다. 버텍스 2n-1과 2n은 라인 n을 정의한다. n/2개의 라인이 그려진다.
208220
209221GL_LINE_STRIP: 첫번째 버텍스에서 마지막까지 라인세그먼트의 연결된 그룹을 그린다. n-1개의 라인이 그려진다.
210222
211223GL_LINE_LOOP: 첫번째 버텍스에서 마지막까지 라인세그먼트의 연결된 그룹을 그린다. 그리고 첫번째 버텍스로 그린다. n과 n+1째 버텍스는 라인 n을 정의한다. 그러나 마지막 라인은 n과 1로 정의된다. n개의 라인이 그려진다.
212224
213225GL_TRIANGLES: 각 세개의 버텍스를 독립된 삼각형으로 취급한다. 버텍스 3n-2, 3n-1 및 3n은 삼각형 n을 정의한다. n/3개의 삼각형이 그려진다.
214226
215227GL_TRIANGLE_STRIP: 삼각형이 연결된 그룹을 그린다. 한개의 삼각형은 각 버텍스가 앞 두 버텍스와 함께 정의된다. 홀수 n에서 버텍스 n, n+1, n+2는 삼각형 n을 정의한다. 짝수 n에서, 버텍스 n+1, n 및 n+2는 삼각형 n을 정의한다. n-2개의 삼각형이 그려진다.
216228
217229GL_TRIANGLE_FAN: 삼각형이 연결된 그룹을 그린다. 한개의 삼각형은 각 버텍스가 앞 두 버텍스와 함께 정의된다. 버텍스 1, n+1 및 n+2는 삼각형 n으로 정의한다. n-2개의 삼각형이 그려진다.
218230
219231GL_QUADS: 각 네개의 버텍스를 독립된 사각형으로 취급한다. 버텍스 4n-3, 4n-2, 4n-1 및 4n은 사각형을 정의한다. n/4개의 사각형이 그려진다.
220232
221233GL_QUAD_STRIP: 사각형이 연결된 그룹을 그린다. 한개의 사각형은 각 쌍의 버텍스가 앞의 한쌍과 함께 정의된다. 버텍스 2n-1, 2n, 2n+2 및 2n+1 는 사각형 n을 정의한다. n/2-1개의 사각형이 그려진다. 스트립 데이타 중의 어떤 버텍스가 사각형을 그리는데 사용되는지의 순서가 독립적인 데이타 함께사용 될 때는 다르다.
222234
223235GL_POLYGON: 한개의 볼록 다각형을 그린다. 버텍스 1에서 n은 이 다각형을 정의한다.
224236
225237![](/wiki-images/f/f3/SimpleShapePic1.jpg) 한개의 삼각형을 그릴 수 있으며, 이를 위해 TRIANGLES 플래그가 트릭으로 사용된다. glVertex3f 함수는 그리고자 하는 버텍스의 위치를 정의한다. 더 많은 glVertex* 함수가 있다. 유일한 차이점은 필요로 하는 파라메터의 수와 타입이다.예를 들면... glVertex2i 는 두개의 파라메터 정수형 (x 및y)를 취한다. glVertex3f 는 거의 항상 당신이 필요로 하는 것일 것이다.
226238
227239glVertex 전에 색상, material, 텍스쳐...를 설정할 수 있다. 간단하게 하기 위해 이 튜토리얼에서는 각 버텍스에 색상을 부여할 것이다. 색상은 glColor3f함수를 사용하여 설정한다. glColor 는 glVertex 같이 다른 셋의 파라메터를 취할 수 있다.
228240
229241코드를 통해 보았듯이 모든 버텍스에서 Z는 0으로 설정되어 있었다. near plane을 0.1로 설정하였으므로 삼각형은 보이지 않을 것이다. 그것은 시작 부분에서 건너뛴 두 함수가 점프한 곳이 그곳이기 때문이다. glLoadIdentity 함수가 매트릭스를 리셋한다는 것을 이미 알고 있다. glTranslatef는 삼각형을 X, Y 및 Z값 만큼 이동시킨다. Z를 -5로 설정하였기 때문에(마이너스 Z는 카메라로 부터 멀리 떨어져 있는 것이다) 모든 버텍스는 우리가 볼 수 있는 뷰에서 5유닛 만큼 후퇴해 있다.
230242
231243마지막에서 glEnd함수를 호출하여 드로잉을 종료한다. 원한다면 이제 새로운 glBegin 함수와 함께 또 다른 블록을 시작할 수가 있다.
232244
233245소스코드, 리눅스 실행파일, 또는 윈도우즈 실행파일은 다음에서 다운로드 받을 수 있다: [Lazarus CCR SourceForge](http://sourceforge.net/project/showfiles.php?group_id=92177&package_id=199145).
234246
235247# 디스플레이 리스트 사용하기
236248
237249가끔 한 장면(scene)에서 몇몇 오브젝트를 여러 번 그려야 할 때가 있을 것이다. OpenGL은 더 빠르게 그릴 수 있는 display lists를 빌드할 수 있다. 디스플레이 리스트를 생성하는 것은 매우 쉽다.... 이전의 튜토리얼 처럼 버텍스들을 그리기만 하고 glNewList 와 glEndList 호출로 묶어주기만 하면 된다.
238250
239-`const`\
240-`  LIST_OBJECT = 1;`\
251+``` pascal
252+const
253+ LIST_OBJECT = 1;
241254
242-`procedure CreateList;`\
243-`begin`\
244-`  glNewList(LIST_OBJECT, GL_COMPILE);`\
245-`    glBegin(GL_TRIANGLE_FAN);`\
246-`      glColor3f(1, 0, 0);`\
247-`      glVertex3f(0, 0.5, 0);`\
255+procedure CreateList;
256+begin
257+ glNewList(LIST_OBJECT, GL_COMPILE);
258+ glBegin(GL_TRIANGLE_FAN);
259+ glColor3f(1, 0, 0);
260+ glVertex3f(0, 0.5, 0);
248261
249-`      glColor3f(1, 1, 0);`\
250-`      glVertex3f(-0.5, -0.5, 0.5);`\
262+ glColor3f(1, 1, 0);
263+ glVertex3f(-0.5, -0.5, 0.5);
251264
252-`      glColor3f(1, 1, 1);`\
253-`      glVertex3f(0.5, -0.5, 0.5);`\
265+ glColor3f(1, 1, 1);
266+ glVertex3f(0.5, -0.5, 0.5);
254267
255-`      glColor3f(0, 1, 1);`\
256-`      glVertex3f(0.5, -0.5, -0.5);`\
268+ glColor3f(0, 1, 1);
269+ glVertex3f(0.5, -0.5, -0.5);
257270
258-`      glColor3f(0, 0, 1);`\
259-`      glVertex3f(-0.5, -0.5, -0.5);`\
271+ glColor3f(0, 0, 1);
272+ glVertex3f(-0.5, -0.5, -0.5);
260273
261-`      glColor3f(0, 1, 0);`\
262-`      glVertex3f(-0.5, -0.5, 0.5);`\
263-`    glEnd;`\
274+ glColor3f(0, 1, 0);
275+ glVertex3f(-0.5, -0.5, 0.5);
276+ glEnd;
264277
265-`    glBegin(GL_QUADS);`\
266-`      glColor3f(1, 1, 0);`\
267-`      glVertex3f(-0.5, -0.5, 0.5);`\
278+ glBegin(GL_QUADS);
279+ glColor3f(1, 1, 0);
280+ glVertex3f(-0.5, -0.5, 0.5);
268281
269-`      glColor3f(1, 1, 1);`\
270-`      glVertex3f(0.5, -0.5, 0.5);`\
282+ glColor3f(1, 1, 1);
283+ glVertex3f(0.5, -0.5, 0.5);
271284
272-`      glColor3f(0, 1, 1);`\
273-`      glVertex3f(0.5, -0.5, -0.5);`\
285+ glColor3f(0, 1, 1);
286+ glVertex3f(0.5, -0.5, -0.5);
274287
275-`      glColor3f(0, 0, 1);`\
276-`      glVertex3f(-0.5, -0.5, -0.5);`\
288+ glColor3f(0, 0, 1);
289+ glVertex3f(-0.5, -0.5, -0.5);
277290
278-`      glColor3f(0, 1, 0);`\
279-`      glVertex3f(-0.5, -0.5, 0.5);`\
280-`    glEnd;`\
281-`  glEndList;`\
282-`end;`
291+ glColor3f(0, 1, 0);
292+ glVertex3f(-0.5, -0.5, 0.5);
293+ glEnd;
294+ glEndList;
295+end;
296+```
283297
284298glNewList 는 새로운 리스트를 생성하고 모든 그리기 함수는 glEndList를 호출하기 전까지는 기록이 된다. glNewList 함수에 대한 첫번째 파라메터는 리스트 ID이다. 각 리스트는 각각의 ID에 의해 정의된다. 만약 리스트가 기존의 ID로 생성되면 이전의 기록은 지워질 것이다. 만약 두번째 파라메터가 GL_COMPILE이면 모든 드로잉 함수는 바로 기록이 될 것이지만, GL_COMPILE_AND_EXECUTE라면 자동적으로 기록되고 실행될 것이다.
285299
286300glIsList 함수는 디스플레이 함수 사용에 도움을 준다. 이것은 어떤 리스트 ID가 이미 데이터로 사용되고 있는 지를 알려준다. 다른 유용한 함수는 glGenLists이다. 이것은 다수의 텅빈 디스플레이 리스트르 생성할 것이다. 원하는 디스플레이 리스트 수를 넘기면 첫번째의 ID를 얻을 수 있을것이다. n 리스트를 원하면 r ID를 받을 것이고 생성된 리스트는: r, r+1, r+2,..., r+n-1 이 된다.
287301
288302생성된 모든 리스트는 제거해야만 한다. 프로그램을 종료하기 전에 실행하여야 한다:
289303
290-`procedure GLKeyboard(Key: Byte; X, Y: Longint); cdecl;`\
291-`begin`\
292-`  if Key = 27 then`\
293-`  begin`\
294-`    glDeleteLists(LIST_OBJECT, 1);`\
295-`    Halt(0);`\
296-`  end;`\
297-`end;`
304+``` pascal
305+procedure GLKeyboard(Key: Byte; X, Y: Longint); cdecl;
306+begin
307+ if Key = 27 then
308+ begin
309+ glDeleteLists(LIST_OBJECT, 1);
310+ Halt(0);
311+ end;
312+end;
313+```
298314
299315glDeleteLists는 2개의 파라메터 즉, 삭제하려고하는 디스플레이 리스트의 ID 와 리스트의 수를 필요로 한다. 만약 ID가 r 이고 삭제하려는 리스트의 수가 n이라면 삭제되는 리스트는: r, r+1, r+2,..., r+n-1 이다.
300316
301317이제 디스플레이 리스트를 생성하고 삭제하는 방법을 알았다... 이것들을 어떻게 그리는 지 알아보자:
302318
303-`procedure DrawGLScene; cdecl;`\
304-`begin`\
305-`  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);`\
319+``` pascal
320+procedure DrawGLScene; cdecl;
321+begin
322+ glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
306323
307-`  glLoadIdentity;`\
308-`  glTranslatef(-2, 0, -5);`\
309-`  glRotatef(40, 1, 0, 1);`\
310-`  glCallList(LIST_OBJECT);`\
324+ glLoadIdentity;
325+ glTranslatef(-2, 0, -5);
326+ glRotatef(40, 1, 0, 1);
327+ glCallList(LIST_OBJECT);
311328
312-`  glLoadIdentity;`\
313-`  glTranslatef(1, -2, -10);`\
314-`  glRotatef(62, 0, 1, 0);`\
315-`  glCallList(LIST_OBJECT);`\
329+ glLoadIdentity;
330+ glTranslatef(1, -2, -10);
331+ glRotatef(62, 0, 1, 0);
332+ glCallList(LIST_OBJECT);
316333
317-`  glLoadIdentity;`\
318-`  glTranslatef(-4, 0.5, -15);`\
319-`  glRotatef(200, 1, 0, 0);`\
320-`  glCallList(LIST_OBJECT);`\
334+ glLoadIdentity;
335+ glTranslatef(-4, 0.5, -15);
336+ glRotatef(200, 1, 0, 0);
337+ glCallList(LIST_OBJECT);
321338
322-`  glutSwapBuffers;`\
323-`end;`
339+ glutSwapBuffers;
340+end;
341+```
324342
325343![](/wiki-images/a/a5/DisplayListsPic1.jpg) glCallList를 사용하면 당 한개의 디스플레이 리스트를 그릴 수 있다. 이 튜토리얼에서, 디스플레이 리스트를 그리기 전에, 모델 매트릭스를 변경하고 다른 위치에 오브넥트를 그려야 한다.
326344
327345가끔은 한번에 여러 개의 리스트를 그리고 싶을 것이다. glCallLists 함수를 사용한다면 가능하다. 이것은 그리고자 하는 리스트의 수, 디스플레이 리스트 ID를 가진 배열의 타입 및 디스플레이 리스트 ID를 가진 배열을 받는다. 리스트의 타입은 다음 중의 하나이다:
328346
329347GL_BYTE: 리스트는 -128에서 127까지의 부호있는 바이트의 배열로 취급한다.
330348
331349GL_UNSIGNED_BYTE: 리스트는 0에서 255까지의 부호없는 바이트의 배열로 취급한다.
332350
333351GL_SHORT: 리스트는 -32768에서 32767까지의 부호있는 두 바이트 정수의 배열로 취급한다.
334352
335353GL_UNSIGNED_SHORT: 리스트는 0에서 65535까지의 부호없는 두 바이트 정수의 배열로 취급한다.
336354
337355GL_INT: 리스트는 부호있는 네자리 정수의 배열로 취급한다.
338356
339357GL_UNSIGNED_INT: 리스트는 부호없는 네자리 정수의 배열로 취급한다.
340358
341359GL_FLOAT: 리스트는 네자리 부동소수점 배열로 취급한다.
342360
343361GL_2_BYTES: 리스트는 부호없는 바이트의 배열로 취급한다. 각 바이트 쌍은 단일한 디스플레이 리스트 ID를 지정한다. 각 쌍의 값은 부호없는 첫번째 바이트 값과 부호없는 두번째 바이트 값의 합을 256회 계산한다.
344362
345363GL_3_BYTES: 리스트는 부호없는 바이트의 배열로 취급한다. 각 바이트 세 개쌍(triplet)는 단일한 디스플레이 리스트 ID를 지정한다. 세 개쌍의 값은 단일한 디스플레이 리스트 ID를 지정한다. 세 개쌍의 값은 65536회 계산한다. 부호없는 첫번째 바이트 값과 부호없는 두번째 바이트 값의 합을 256회 계산하고 세번째 바이트 값을 더한다.
346364
347365GL_4_BYTES: 리스트는 부호없는 바이트의 배열로 취급한다. 각 바이트 네 개쌍(triplet)는 단일한 디스플레이 리스트 ID를 지정한다. 네 개쌍의 값은 단일한 디스플레이 리스트 ID를 지정한다. 네 개쌍의 값은 16777216회 계산한다. 부호없는 첫번째 바이트 값과 부호없는 두번째 바이트 값의 합을 65535회 계산하고 세번째 바이트 값을 더하고 256회 계산 한 후 네번째 부호없는 바이트를 더한다.
348366
349367다음 튜토리얼은 작은 행성계를 만드는 방법을 보여 줄 것이다. 매트릭스 및 초당 프레임에 얽매이지 않는 움직이는 장면(scene)을 만드는 방법에 대하여 이야기 할 것이다.
350368
351369소스, 리눅스 실행파일과 윈도우즈 실행파일은 다음에서 다운로드 할 수 있다 [Lazarus CCR SourceForge](http://sourceforge.net/project/showfiles.php?group_id=92177&package_id=199145).
352370
353371# 풀스크린 애니메이션
354372
355373GLUT에서 전화면 모드로 진입하는 것은 쉽다. 프로그램의 주요한 부분을 변경해 보자:
356374
357-`const`\
358-`  FSMode = '800x600:32@75';`\
375+``` pascal
376+const
377+ FSMode = '800x600:32@75';
359378
360-`begin`\
361-`  glutInitPascal(False);`\
362-`  glutInitDisplayMode(GLUT_DOUBLE or GLUT_RGB or GLUT_DEPTH);`\
363-`  glutGameModeString(FSMode);`\
364-`  glutEnterGameMode;`\
365-`  glutSetCursor(GLUT_CURSOR_NONE);`\
379+begin
380+ glutInitPascal(False);
381+ glutInitDisplayMode(GLUT_DOUBLE or GLUT_RGB or GLUT_DEPTH);
382+ glutGameModeString(FSMode);
383+ glutEnterGameMode;
384+ glutSetCursor(GLUT_CURSOR_NONE);
366385
367-`  InitializeGL;`\
386+ InitializeGL;
368387
369-`  glutDisplayFunc(@DrawGLScene);`\
370-`  glutReshapeFunc(@ReSizeGLScene);`\
371-`  glutKeyboardFunc(@GLKeyboard);`\
372-`  glutIdleFunc(@DrawGLScene);`\
388+ glutDisplayFunc(@DrawGLScene);
389+ glutReshapeFunc(@ReSizeGLScene);
390+ glutKeyboardFunc(@GLKeyboard);
391+ glutIdleFunc(@DrawGLScene);
373392
374-`  glutMainLoop;`\
375-`end.`
393+ glutMainLoop;
394+end.
395+```
376396
377397이 시점에서 GLUT가 명령어 라인을 파싱하기를 원치 않기 때문에 glutInitPascal 에 False파라메터를 주어 호출한다. 아시다시피 윈도우 생성을 위한 코드가 없다. GLUT는 풀스크린 모드의 윈도우 생성을 위한 glutEnterGameMode를 제공한다. 어떤 종류의 풀스크린 모드를 원하는지 알기 위해 모드 정의를 위한 문자열을 가지는 glutGameModeString 함수를 호출할 수 있다.
378398
379399문자열을 형식은 다음과 같다:
380400
381-`[width "x" height][":" bpp]["@" hertz]`
401+```text
402+[width "x" height][":" bpp]["@" hertz]
403+```
382404
383405FSMode에서 풀스크린 모드를 정의하는 문자열은 800x600, 32비트 팔레트 및 75hz 리프레쉬여야 한다. 이들 중 한가지를 건너 뛰어도 좋다. 만약 크리를 빼먹었다면 GLUT는 현재의 크기를 사용하거나 작동할 수 있는 첫번째로 작은 크기를 이용한다. 이런 방식은 다른 파라메터도 마찬가지이다.
384406
385407종종 풀스크린 모드에서 커서는 보이지 않게 된다. 커서를 숨기기 위해 glutSetCursor 함수를 사용하면 된다. 이 함수는 나타내고자 하는 커서중의 하나를 파라메터로 갖게 된다:
386408
387-`GLUT_CURSOR_RIGHT_ARROW`\
388-`GLUT_CURSOR_LEFT_ARROW`\
389-`GLUT_CURSOR_INFO`\
390-`GLUT_CURSOR_DESTROY`\
391-`GLUT_CURSOR_HELP`\
392-`GLUT_CURSOR_CYCLE`\
393-`GLUT_CURSOR_SPRAY`\
394-`GLUT_CURSOR_WAIT`\
395-`GLUT_CURSOR_TEXT`\
396-`GLUT_CURSOR_CROSSHAIR`\
397-`GLUT_CURSOR_UP_DOWN`\
398-`GLUT_CURSOR_LEFT_RIGHT`\
399-`GLUT_CURSOR_TOP_SIDE`\
400-`GLUT_CURSOR_BOTTOM_SIDE`\
401-`GLUT_CURSOR_LEFT_SIDE`\
402-`GLUT_CURSOR_RIGHT_SIDE`\
403-`GLUT_CURSOR_TOP_LEFT_CORNER`\
404-`GLUT_CURSOR_TOP_RIGHT_CORNER`\
405-`GLUT_CURSOR_BOTTOM_RIGHT_CORNER`\
406-`GLUT_CURSOR_BOTTOM_LEFT_CORNER`\
407-`GLUT_CURSOR_FULL_CROSSHAIR`\
408-`GLUT_CURSOR_NONE`\
409-`GLUT_CURSOR_INHERIT`
409+```text
410+GLUT_CURSOR_RIGHT_ARROW
411+GLUT_CURSOR_LEFT_ARROW
412+GLUT_CURSOR_INFO
413+GLUT_CURSOR_DESTROY
414+GLUT_CURSOR_HELP
415+GLUT_CURSOR_CYCLE
416+GLUT_CURSOR_SPRAY
417+GLUT_CURSOR_WAIT
418+GLUT_CURSOR_TEXT
419+GLUT_CURSOR_CROSSHAIR
420+GLUT_CURSOR_UP_DOWN
421+GLUT_CURSOR_LEFT_RIGHT
422+GLUT_CURSOR_TOP_SIDE
423+GLUT_CURSOR_BOTTOM_SIDE
424+GLUT_CURSOR_LEFT_SIDE
425+GLUT_CURSOR_RIGHT_SIDE
426+GLUT_CURSOR_TOP_LEFT_CORNER
427+GLUT_CURSOR_TOP_RIGHT_CORNER
428+GLUT_CURSOR_BOTTOM_RIGHT_CORNER
429+GLUT_CURSOR_BOTTOM_LEFT_CORNER
430+GLUT_CURSOR_FULL_CROSSHAIR
431+GLUT_CURSOR_NONE
432+GLUT_CURSOR_INHERIT
433+```
410434
411435glutIdleFunc는 프로그램이 처리 할 메세지를 갖지 않을 때마다 호출되는 콜백함수이다. 수행해야할 작업이 없으면 새로운 프레인을 런더링하기만 원한다면 아이들(idle) 함수를 DrawGLScene에 설정하기만 하면 된다. 몇몇 다른 튜토리얼은 아이들 함수는 드로잉 대신 리프레쉬 메세지를 보내야한다고 하지만 그 방법은 전술한 방법을 사용한 것 보다 50~100 프레임 작게 된다. 이제 풀스크린 모드를 마치는 프로그램 종료에 대해서 알아보자:
412436
413-`procedure GLKeyboard(Key: Byte; X, Y: Longint); cdecl;`\
414-`begin`\
415-`  if Key = 27 then`\
416-`  begin`\
417-`    glutLeaveGameMode;`\
418-`    Halt(0);`\
419-`  end;`\
420-`end;`
437+``` pascal
438+procedure GLKeyboard(Key: Byte; X, Y: Longint); cdecl;
439+begin
440+ if Key = 27 then
441+ begin
442+ glutLeaveGameMode;
443+ Halt(0);
444+ end;
445+end;
446+```
421447
422448알다시피 glutLeaveGameMode를 호출하는 것이 전부이다.
423449
424450이제 새로운 매트릭스 함수를 몇개를 소개할 것이다. ReSizeGLScene 함수를 변경해 보자:
425451
426-`procedure ReSizeGLScene(Width, Height: Integer); cdecl;`\
427-`begin`\
428-`  .`\
429-`  .`\
430-`  .`\
431-`  glMatrixMode(GL_MODELVIEW);`\
432-`  glLoadIdentity;`\
433-`  gluLookAt(0, 20, 25, 0, 0, 0, 0, 1, 0);`\
434-`end;`
452+``` pascal
453+procedure ReSizeGLScene(Width, Height: Integer); cdecl;
454+begin
455+ .
456+ .
457+ .
458+ glMatrixMode(GL_MODELVIEW);
459+ glLoadIdentity;
460+ gluLookAt(0, 20, 25, 0, 0, 0, 0, 1, 0);
461+end;
462+```
435463
436464gluLookAt 는 어디에서 오브젝트를 보는지를 정의하는 매트릭스를 생성할 것이다. 첫 세 파라메터는 카메라 위치에 대한 X, Y 및 Z좌표이다. 다음 세 파라메터는 카메라가 보라보는 점의 X, Y 및 Z 좌표이다. 마지막 세 파라메터는 "up" 벡터를 정의한다("up"은 카메라에 대한 것이다). 보통 up은 +y축이다.
437465
438466좋다. 이제 그려 보자. 모든 오브젝트에대해 사용되어야 하는 gluLookAt 으로 매트릭스를 설정해야 하므로, 다음 오브젝트를 위해 매트릭스를 리셋하기 위해 glLoadIdentity만 사용할 수는 없다. 이전의 매트릭스 상태를 저장하고 오젝트를 그린 후 복원시켜야 한다:
439467
440-`procedure DrawGLScene; cdecl;`\
441-`var`\
442-`  T: Single;`\
443-`begin`\
444-`  T := glutGet(GLUT_ELAPSED_TIME) / 1000;`\
445-`  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);`\
468+``` pascal
469+procedure DrawGLScene; cdecl;
470+var
471+ T: Single;
472+begin
473+ T := glutGet(GLUT_ELAPSED_TIME) / 1000;
474+ glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
446475
447-`  glPushMatrix;`\
448-`    glRotatef(5 * T, 0, 1, 0);`\
449-`    glColor3f(1, 1, 0);`\
450-`    glutWireSphere(2, 20, 20);`\
451-`  glPopMatrix;`\
476+ glPushMatrix;
477+ glRotatef(5 * T, 0, 1, 0);
478+ glColor3f(1, 1, 0);
479+ glutWireSphere(2, 20, 20);
480+ glPopMatrix;
452481
453-`  glPushMatrix;`\
454-`    glRotatef(90 * T, 0, 1, 0);`\
455-`    glTranslatef(5, 0, 0);`\
456-`    glRotatef(40 * T, 0, 1, 0);`\
457-`    glColor3f(1, 0, 0);`\
458-`    glutWireSphere(0.6, 10, 10);`\
459-`  glPopMatrix;`\
482+ glPushMatrix;
483+ glRotatef(90 * T, 0, 1, 0);
484+ glTranslatef(5, 0, 0);
485+ glRotatef(40 * T, 0, 1, 0);
486+ glColor3f(1, 0, 0);
487+ glutWireSphere(0.6, 10, 10);
488+ glPopMatrix;
460489
461-`  glPushMatrix;`\
462-`    glRotatef(60 * T, 0, 1, 0);`\
463-`    glTranslatef(-3, 0, 9);`\
464-`    glRotatef(50 * T, 0, 1, 0);`\
465-`    glColor3f(0, 1, 0);`\
466-`    glutWireSphere(1, 16, 16);`\
490+ glPushMatrix;
491+ glRotatef(60 * T, 0, 1, 0);
492+ glTranslatef(-3, 0, 9);
493+ glRotatef(50 * T, 0, 1, 0);
494+ glColor3f(0, 1, 0);
495+ glutWireSphere(1, 16, 16);
467496
468-`    glPushMatrix;`\
469-`      glRotatef(360 * T, 0, 1, 0);`\
470-`      glTranslatef(-1.7, 0, 0);`\
471-`      glRotatef(50 * T, 0, 1, 0);`\
472-`      glColor3f(0, 0, 1);`\
473-`      glutWireSphere(0.4, 10, 10);`\
474-`    glPopMatrix;`\
497+ glPushMatrix;
498+ glRotatef(360 * T, 0, 1, 0);
499+ glTranslatef(-1.7, 0, 0);
500+ glRotatef(50 * T, 0, 1, 0);
501+ glColor3f(0, 0, 1);
502+ glutWireSphere(0.4, 10, 10);
503+ glPopMatrix;
475504
476-`  glPopMatrix;`\
505+ glPopMatrix;
477506
478-`  glutSwapBuffers;`\
479-`end;`
507+ glutSwapBuffers;
508+end;
509+```
480510
481511![](/wiki-images/5/51/FullScreenAnimationPic1.jpg) glPushMatrix i glPopMatrix 가 매트릭스의 상태를 저장하고 복원하는데 시용된다. 이제 매트릭스 상태를 저장하였고, 오브젝트를 올바른 위치에 그리기 위해 매트릭스를 변경하고 다시, 이전의 매트릭스 상태를 복원한다.
482512
483513T변수가 무엇인지 궁금할 것이다. 이것은 애니메이션 속도를 결정하기 위해 사용된다. 시간에 따른 모든 변화는 T와 곱해진다.그 방법으로 애니메이션 속도는 각 프레임 레이트에서 일정하게 유지된다.
484514
485515glutGet 함수는 GLUT_ELAPSED_TIME 파라메터 일 때 glutInit의 호출로 부터 밀리초 단위의 시간을 되돌려 준다. 이 값을 1000으로 나누어 초단위의 시간을 얻는다.
486516
487517glRotatef 함수는 회전 매트릭스이다. 첫 파라메터는 각도(도)이고 다음 세 파라메터는 회전을 하는 축이다. 각과 T를 곱했기 때문에 오브젝트는 정확히 1초당의 각도로 회전할 것이다.
488518
489519소스코드, 리눅스 실행파일 및 윈도우즈 실행 파일은 다음에서 다운로드할 수 있다 [Lazarus CCR SourceForge](http://sourceforge.net/project/showfiles.php?group_id=92177&package_id=199145).
490520
491521# 조명(Light)
492522
493523이 튜토리얼은 장면(scene)에 조명하는 것을 소개한다. 회전하는 육면체를 만들고 장면에 사실감을 부여하는 조명 하나를 만들고자 할 것이다 먼저 몇몇 유틸리티 유닛을 만들어 보자.
494524
495525이것은 다음의 작업을 도와줄 기초적인 함수들을 가지고 있어 현재 시간과 한가지 렌더링과 다음번 렌터링 콜 사이의 시간(delta) 및 초당 프레임 수를 계산해 준다.
496526
497-`unit utils;`\
527+``` pascal
528+unit utils;
498529
499-`{$mode objfpc}{$H+}`\
530+{$mode objfpc}{$H+}
500531
501-`interface`\
532+interface
502533
503-`uses`\
504-`  glut;`\
534+uses
535+ glut;
505536
506-`function GetTotalTime: Single;`\
507-`function GetDeltaTime: Single;`\
508-`procedure FrameRendered(Count: Integer = 1);`\
509-`function GetFPS: Single;`\
537+function GetTotalTime: Single;
538+function GetDeltaTime: Single;
539+procedure FrameRendered(Count: Integer = 1);
540+function GetFPS: Single;
510541
511-`implementation`\
542+implementation
512543
513-`var`\
514-`  OldTime: Integer = 0;`\
515-`  FPSTime: Integer = 0;`\
516-`  FPSCount: Integer = 0;`\
544+var
545+ OldTime: Integer = 0;
546+ FPSTime: Integer = 0;
547+ FPSCount: Integer = 0;
517548
518-`function GetTotalTime: Single;`\
519-`begin`\
520-`  Result := glutGet(GLUT_ELAPSED_TIME) / 1000;`\
521-`end;`\
549+function GetTotalTime: Single;
550+begin
551+ Result := glutGet(GLUT_ELAPSED_TIME) / 1000;
552+end;
522553
523-`function GetDeltaTime: Single;`\
524-`var`\
525-`  NewTime: Integer;`\
526-`begin`\
527-`  NewTime := glutGet(GLUT_ELAPSED_TIME);`\
528-`  Result := (NewTime - OldTime) / 1000;`\
529-`  OldTime := NewTime;`\
530-`end;`\
554+function GetDeltaTime: Single;
555+var
556+ NewTime: Integer;
557+begin
558+ NewTime := glutGet(GLUT_ELAPSED_TIME);
559+ Result := (NewTime - OldTime) / 1000;
560+ OldTime := NewTime;
561+end;
531562
532-`procedure FrameRendered(Count: Integer);`\
533-`begin`\
534-`  Inc(FPSCount, Count);`\
535-`end;`\
563+procedure FrameRendered(Count: Integer);
564+begin
565+ Inc(FPSCount, Count);
566+end;
536567
537-`function GetFPS: Single;`\
538-`var`\
539-`  NewTime: Integer;`\
540-`begin`\
541-`  NewTime := glutGet(GLUT_ELAPSED_TIME);`\
568+function GetFPS: Single;
569+var
570+ NewTime: Integer;
571+begin
572+ NewTime := glutGet(GLUT_ELAPSED_TIME);
542573
543-`  Result := FPSCount / ((NewTime - FPSTime) / 1000);`\
574+ Result := FPSCount / ((NewTime - FPSTime) / 1000);
544575
545-`  FPSTime := NewTime;`\
546-`  FPSCount := 0;`\
547-`end;`\
576+ FPSTime := NewTime;
577+ FPSCount := 0;
578+end;
548579
549-`end.`
580+end.
581+```
550582
551583이 유닛에 복잡한 것은 전혀 없다. 단순히 호출 간격의 시간을 저장하고차이를 되돌려 준다. FrameRendered 는 장면이 그려지는 매 시간마다 불러야하며 그래야 함수가 FPS를 계산할 수 있다.
552584
553585이제 조명을 가지고 재미있게 지내보자.
554586
555587OpenGL은 몇가지 종류의 라이트가 있다... ambient, diffuse, point, spot, specular 및 emissive 등 이다.
556588
557589Ambient 라이트는 태양과 유사한 것이다. 햇빛이 방에 있는 창을 통과해 비추면 빛은 벽에 부딪치고 반사되고 모든 다른 방향으로 산란되어 평균적으로 방 전체를 밝게 해준다. 모든 버텍스는 ambient 조명으로 밝게 된다.
558590
559591Diffuse 라이트는 아주 멀리서 오는 평행광으로 간주 된다. 이것은 조명원 방향의 버텍스만 밝게 된다.
560592
561593Point 라이트는 모든 방향으로 빛을 비춘다. 이것은 불덩이 같아서 모든 방향으로 빛을 발산하고 조명원 방향으로 있으며 가까이 있는 버텍스들을 비춘다.
562594
563595Spot 라이트는 플레쉬 라이트에서 오는 조명으로 좁은 반경의 점 광원이다. 콘의 내부에 있는 모든 버텍스는 충분히 가까워 밝게 비춰 진다.
564596
565597Diffuse 라이트와 같이 Specular 라이트는 방향이 있는 라이트이다. 이것은 하나의 특별한 방향에서 온다. 두개의 차이라면 specular 라이트는 표면에서 단일한 방법과 날카롭게 반사한다. specular 라이트를 렌더링하는 것은 관찰자와 광원의 각에 따라 달라진다.관찰자의 관점에서 specular 라이트는 보이는 오브젝트의 표면영역에 specular 하이라이트 또는 specular 반사라는 밝게 빛나는 구역을 만들어 낸다.
566598
567599Emissive 라이트는 이전에 절명한 라이트 와는 약간 차이가 있다. 이 라이트는 그린 오브젝트에서 나오며가까이 있는 다른 오브젝트를 비추지 않는다.
568600
569601간단하게 이 튜토리얼에서는 diffuse 라이트만을 사용할 것이다. 추후에는 몇몇 다른 라이트도 튜토리얼에 나올 수 있다 :)
570602
571603장면에서 라이트를 사용가능하게하는 방법을 알아보자:
572604
573-`const`\
574-`  DiffuseLight: array[0..3] of GLfloat = (0.8, 0.8, 0.8, 1);`\
605+``` pascal
606+const
607+ DiffuseLight: array[0..3] of GLfloat = (0.8, 0.8, 0.8, 1);
575608
576-`  glEnable(GL_LIGHTING);`\
577-`  glLightfv(GL_LIGHT0, GL_DIFFUSE, DiffuseLight);`\
578-`  glEnable(GL_LIGHT0);`
609+ glEnable(GL_LIGHTING);
610+ glLightfv(GL_LIGHT0, GL_DIFFUSE, DiffuseLight);
611+ glEnable(GL_LIGHT0);
612+```
579613
580614보듯이 OpenGL에서 라이트를 사용가능하게 했으므로 라이트는 렌더링한 장면에 영향을 준다. 라이트 파라메터를 glLightfv 함수에서 설정한다. 3개의 파라메터를 가지며 하나는변화를 주고자 하는 라이트의 수(OpenGL은 8개의 라이트를 지원한다.), 다음은 변화를 주고자 하는 라이트 파라메터를 OpenGL에 알려 주는 것이고 마지막은라이트를 위한 새로운 파라메터이다. 이 튜토리얼에서는 diffuse 컬러만을 설정할 것이다. 그 후, 라이트를 사용가능하게 하면 장면에 라이트가 보일 것이다.. 그러나 이것이 다는 아니다.
581615
582616glLightfv에 관한 더많은 정보는 다음에 있다: <http://www.opengl.org//documentation/specs/man_pages/hardcopy/GL/html/gl/light.html>
583617
584618만약 라이트를 사용하길 원한다면 버텍스에 대해서만 컬러를 설정할 수는 없다... 반드시 버텍스에 재질(material)을 설정해야 한다. 드로잉을 위해 재질을 설정해 보자:
585619
586-`glEnable(GL_COLOR_MATERIAL);`\
587-`glColorMaterial(GL_FRONT, GL_AMBIENT_AND_DIFFUSE);`
620+```text
621+glEnable(GL_COLOR_MATERIAL);
622+glColorMaterial(GL_FRONT, GL_AMBIENT_AND_DIFFUSE);
623+```
588624
589625![](/wiki-images/e/ed/LightPic1.jpg) 괭장히 복잡한 것을 기대했을 지도 모른다.. 그렇죠 :) 좋다. 이 코드가 버텍스에 재질을 설정하기 위해 사용하는 glColor 를 사용할 수 있게 해준다. glEnable 함수와 GL_COLOR_MATERIAL 플래그를 사용하여, 무슨 재질 특성이 glColor 를 변화하게 하는지를 정의 할 수 있다. glColorMaterial(GL_FRONT, GL_AMBIENT_AND_DIFFUSE) 은 OpenGL 에게 glColor 가 ambient 하고 diffuse한 재질을 변경하도록 알려준다. 다음의 튜토리얼에서 재질에 관해서 더 이야기할 것이다.
590626
591627라이트를 사용할 때 중요한 것이 하나 더 있다. 모든 버텍스는 라이트와 normal하게 연관이 있어야만 하는 것이다. Normal은 버텍스의 방향을 알아내는데 사용되므로 적절하게 게산될 수 있다. 육면체를 그리기 위해 GLUT함수를 이용할 수 있으며 이것에서 normal을 알수 있으므로 지금 부터 normal을 가지고 작없을 시작할 것이다.
592628
593629모든것이 설정 된 후 라이트는 육면체를 및나게 할 것이다:)
594630
595631텍스트의 일부분은 다음에서 복사해왔다 [The OpenGL Light Bible](http://www.falloutsoftware.com/tutorials/gl/gl8.htm)
596632
597633소스코드와 리눅스 실행파일 및 윈도우즈 실행파일은 다음에서 다운로드할 수 있다[Lazarus CCR SourceForge](http://sourceforge.net/project/showfiles.php?group_id=92177&package_id=199145).
598634
599635# 비트맵 폰트
600636
601637게임과 프로그램음 종종 스크린에 어떤 텍스트를 써야할 때가 있다. GLUT는 플랫폼에 독립적으로 문자를 그릴 수 있는 몇몇 함수를 제공한다.
602638
603639먼저 디폴트 비트맵 폰트를 사용하는 법을 보여줄 것이다. 대부분의 추가적인 코드는 utils.pas 유닛에 만들어질 것이다.
604640
605641텍스트는 2D에서 그려진 것이기 때문에 viewpoint...의 폭과 높이를 알아야 한다. 그러므로 이를 위해 2개의 함수를 작성할 것이다:
606642
607-`function glGetViewportWidth: Integer;`\
608-`var`\
609-`  Rect: array[0..3] of Integer;`\
610-`begin`\
611-`  glGetIntegerv(GL_VIEWPORT, @Rect);`\
612-`  Result := Rect[2] - Rect[0];`\
613-`end;`\
643+``` pascal
644+function glGetViewportWidth: Integer;
645+var
646+ Rect: array[0..3] of Integer;
647+begin
648+ glGetIntegerv(GL_VIEWPORT, @Rect);
649+ Result := Rect[2] - Rect[0];
650+end;
614651
615-`function glGetViewportHeight: Integer;`\
616-`var`\
617-`  Rect: array[0..3] of Integer;`\
618-`begin`\
619-`  glGetIntegerv(GL_VIEWPORT, @Rect);`\
620-`  Result := Rect[3] - Rect[1];`\
621-`end;`
652+function glGetViewportHeight: Integer;
653+var
654+ Rect: array[0..3] of Integer;
655+begin
656+ glGetIntegerv(GL_VIEWPORT, @Rect);
657+ Result := Rect[3] - Rect[1];
658+end;
659+```
622660
623661방금 왼쪽/오른쪽, 윗쪽/아래쪽을 얻었으므로 각각을 빼서 폭/높이를 계산한다.
624662
6256632D 모드에 진입하고 나오는 함수가 필요하다:
626664
627-`procedure glEnter2D;`\
628-`begin`\
629-`  glMatrixMode(GL_PROJECTION);`\
630-`  glPushMatrix;`\
631-`  glLoadIdentity;`\
632-`  gluOrtho2D(0, glGetViewportWidth, 0, glGetViewportHeight);`\
665+``` pascal
666+procedure glEnter2D;
667+begin
668+ glMatrixMode(GL_PROJECTION);
669+ glPushMatrix;
670+ glLoadIdentity;
671+ gluOrtho2D(0, glGetViewportWidth, 0, glGetViewportHeight);
633672
634-`  glMatrixMode(GL_MODELVIEW);`\
635-`  glPushMatrix;`\
636-`  glLoadIdentity;`\
673+ glMatrixMode(GL_MODELVIEW);
674+ glPushMatrix;
675+ glLoadIdentity;
637676
638-`  glDisable(GL_DEPTH_TEST);`\
639-`end;`\
677+ glDisable(GL_DEPTH_TEST);
678+end;
640679
641-`procedure glLeave2D;`\
642-`begin`\
643-`  glMatrixMode(GL_PROJECTION);`\
644-`  glPopMatrix;`\
645-`  glMatrixMode(GL_MODELVIEW);`\
646-`  glPopMatrix;`\
680+procedure glLeave2D;
681+begin
682+ glMatrixMode(GL_PROJECTION);
683+ glPopMatrix;
684+ glMatrixMode(GL_MODELVIEW);
685+ glPopMatrix;
647686
648-`  glEnable(GL_DEPTH_TEST);`\
649-`end;`
687+ glEnable(GL_DEPTH_TEST);
688+end;
689+```
650690
6516912D 모드로 들어갈 때 현재 매트릭스를 저장하고 gluOrtho2D 함수를 사용하여 2D 매트릭스를 설정한다.100,100 위치에 어떤것을 이런 방법으로 그린다면 윈도우의 왼쪽 모서리에서 정확히 100 픽셀, 아래에서 100 픽셀(Y는 윗쪽으로 증가한다) 의 위치에 그릴 것이다. 또한 ZBuffer를 사용불능으로 할 것이다. 2D모드로 진입할 떄 현재 매트릭스는 저장하고 gluOrtho2D 함수로 2D 매트릭스를 절정한다. 이방법으로 100, 100 위치에 어떤 것을 그리면 윈도우의 왼쪽에서 100 픽셀, 아래에서 100 픽셀(Y축은 위로 증가한다) 위치에 장확히 그려질 것이다. 또한 ZBuffer를 사용불능으로 만든다. 이 방법으로 ZBuffer를 변경할 수는 없다.
652692
6536932D모드를 벗어나면 이전의 매트릭스를 반환하고 ZBuffer를 가능토록 한다.
654694
655695이제 텍스트를그리는 함수를 만들어 보자:
656696
657-`procedure glWrite(X, Y: GLfloat; Font: Pointer; Text: String);`\
658-`var`\
659-`  I: Integer;`\
660-`begin`\
661-`  glRasterPos2f(X, Y);`\
662-`  for I := 1 to Length(Text) do`\
663-`    glutBitmapCharacter(Font, Integer(Text[I]));`\
664-`end;`
697+``` pascal
698+procedure glWrite(X, Y: GLfloat; Font: Pointer; Text: String);
699+var
700+ I: Integer;
701+begin
702+ glRasterPos2f(X, Y);
703+ for I := 1 to Length(Text) do
704+ glutBitmapCharacter(Font, Integer(Text[I]));
705+end;
706+```
665707
666708glutBitmapCharacter 는 선택된 폰트로 한개의 문자를 만들어 낼 뿐이다. 첫번째 파라메터는 원하는 폰트로 다름과 같은 것이 있으며, (GLUT_BITMAP_9_BY_15, GLUT_BITMAP_8_BY_13, GLUT_BITMAP_TIMES_ROMAN_10, GLUT_BITMAP_TIMES_ROMAN_24, GLUT_BITMAP_HELVETICA_10, GLUT_BITMAP_HELVETICA_12 or GLUT_BITMAP_HELVETICA_18), 다른 하나는 문자이다.
667709
668710문자는 현재 래스터 위치에서 그려진다. 원하는 래스터 위치를 설정하기 위해 glRasterPos 함수를 콜한다. glRasterPos는 glVertex 함수와 같이 각기 다른 수와 타입의 파라메터를 인수를 갖는다. 지정한 좌표는 모델과 프로젝션 매트리스에 의해 변환되어 새로운 래스터 위치가 될 2D위치를 얻는다. 2D모드에 있기 때문에 X, Y 좌표는 그림이 그려지는 실제 2D 좌표이다.
669711
670712이 새로운 함수는 텍스트 그리기를 쉽게 해 줄것이다:
671713
672-`procedure DrawGLScene; cdecl;`\
673-`begin`\
674-`  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);`\
714+``` pascal
715+procedure DrawGLScene; cdecl;
716+begin
717+ glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
675718
676-`  glLoadIdentity;`\
677-`  glTranslatef(0, 0, -5);`\
678-`  glRotatef(GetTotalTime * 10, 0, 0.5, 0.5);`\
719+ glLoadIdentity;
720+ glTranslatef(0, 0, -5);
721+ glRotatef(GetTotalTime * 10, 0, 0.5, 0.5);
679722
680-`  glColor3f(1, 0, 0);`\
681-`  glutSolidCube(2);`\
723+ glColor3f(1, 0, 0);
724+ glutSolidCube(2);
682725
683-`  glEnter2D;`\
726+ glEnter2D;
684727
685-`  glColor3f(0.2, 0.8 + 0.2 * Sin(GetTotalTime * 5), 0);`\
686-`  glWrite(20, glGetViewportHeight - 20, GLUT_BITMAP_8_BY_13,`\
687-`    Format('OpenGL Tutorial :: Bitmap Fonts :: FPS - %.2f FPS', [FPS]));`\
728+ glColor3f(0.2, 0.8 + 0.2 * Sin(GetTotalTime * 5), 0);
729+ glWrite(20, glGetViewportHeight - 20, GLUT_BITMAP_8_BY_13,
730+ Format('OpenGL Tutorial :: Bitmap Fonts :: FPS - %.2f FPS', [FPS]));
688731
689-`  glColor3f(1, 1, 1);`\
690-`  glWrite(50, glGetViewportHeight - 60, GLUT_BITMAP_9_BY_15, 'GLUT_BITMAP_9_BY_15');`\
691-`  glWrite(50, glGetViewportHeight - 90, GLUT_BITMAP_8_BY_13, 'GLUT_BITMAP_8_BY_13');`\
692-`  glWrite(50, glGetViewportHeight - 120, GLUT_BITMAP_TIMES_ROMAN_10, 'GLUT_BITMAP_TIMES_ROMAN_10');`\
693-`  glWrite(50, glGetViewportHeight - 150, GLUT_BITMAP_TIMES_ROMAN_24, 'GLUT_BITMAP_TIMES_ROMAN_24');`\
694-`  glWrite(50, glGetViewportHeight - 180, GLUT_BITMAP_HELVETICA_10, 'GLUT_BITMAP_HELVETICA_10');`\
695-`  glWrite(50, glGetViewportHeight - 210, GLUT_BITMAP_HELVETICA_12, 'GLUT_BITMAP_HELVETICA_12');`\
696-`  glWrite(50, glGetViewportHeight - 240, GLUT_BITMAP_HELVETICA_18, 'GLUT_BITMAP_HELVETICA_18');`\
732+ glColor3f(1, 1, 1);
733+ glWrite(50, glGetViewportHeight - 60, GLUT_BITMAP_9_BY_15, 'GLUT_BITMAP_9_BY_15');
734+ glWrite(50, glGetViewportHeight - 90, GLUT_BITMAP_8_BY_13, 'GLUT_BITMAP_8_BY_13');
735+ glWrite(50, glGetViewportHeight - 120, GLUT_BITMAP_TIMES_ROMAN_10, 'GLUT_BITMAP_TIMES_ROMAN_10');
736+ glWrite(50, glGetViewportHeight - 150, GLUT_BITMAP_TIMES_ROMAN_24, 'GLUT_BITMAP_TIMES_ROMAN_24');
737+ glWrite(50, glGetViewportHeight - 180, GLUT_BITMAP_HELVETICA_10, 'GLUT_BITMAP_HELVETICA_10');
738+ glWrite(50, glGetViewportHeight - 210, GLUT_BITMAP_HELVETICA_12, 'GLUT_BITMAP_HELVETICA_12');
739+ glWrite(50, glGetViewportHeight - 240, GLUT_BITMAP_HELVETICA_18, 'GLUT_BITMAP_HELVETICA_18');
697740
698-`  glColor3f(0.5, 0.5, 1);`\
699-`  glWrite(`\
700-`    glGetViewportWidth - glutBitmapLength(GLUT_BITMAP_9_BY_15, LazText) - 5,`\
701-`    10, GLUT_BITMAP_9_BY_15, LazText);`\
741+ glColor3f(0.5, 0.5, 1);
742+ glWrite(
743+ glGetViewportWidth - glutBitmapLength(GLUT_BITMAP_9_BY_15, LazText) - 5,
744+ 10, GLUT_BITMAP_9_BY_15, LazText);
702745
703-`  glLeave2D;`\
746+ glLeave2D;
704747
705-`  glutSwapBuffers;`\
748+ glutSwapBuffers;
706749
707-`  FrameRendered;`\
708-`end;`
750+ FrameRendered;
751+end;
752+```
709753
710754![](/wiki-images/b/ba/BitmapFontsPic1.jpg) 빨간 정육면체를 그리고 회전시키며 텍스트를 여러가지 폰트로그리는 방법을 보여줄 것이다. glutBitmapLength 함수가 문자열의 폭을 알아내는데 사용되어 우측 정렬을 할 수 있게 한다. 중심에 텍스트가 오도록 코드를 쉽게 바꿀 수 있다.
711755
712756Note: 라이트가 없을 때 정육면체가 어떻게 보이나 알아보라.
713757
714758소스코드와 리눅스 실행파일 윈도우 실행파일은 다음에서 다운로드 할 수 있다 [Lazarus CCR SourceForge](http://sourceforge.net/project/showfiles.php?group_id=92177&package_id=199145).
715759
716760# 텍스쳐
717761
718762이제 텍스쳐를 사용할 시간이군 :)
719763
720764이 튜토리얼은 텍스쳐된 다각형을 그리는 방법과 멀티패스 기법을 사용하여 텍스쳐를 섞는 방법을 보여 줄 것이다. OPenGL은 텍스쳐를 로딩하는 내장 메카니즘이 없기 때문데 외부 라이브러리를 이용할 것이다: [Vampyre Imaging Library](http://imaginglib.sourceforge.net/). OpenGL 도움 함수를 사용할 것이며 이것은 다른 일을 하기에도 간편한 라이브러리라는 것을 알 수 있을 것이다.
721765
722766시작해 볼까요.... 텍스쳐된 사작형을 그리기 위해 디스플레이 리스트를 만들 것이다:
723767
724-`procedure CreateList;`\
725-`begin`\
726-`  glNewList(LIST_OBJECT, GL_COMPILE);`\
727-`    glBegin(GL_QUADS);`\
728-`      glTexCoord2f(1, 0);`\
729-`      glVertex3f( 2, 2, 0);`\
730-`      glTexCoord2f(0, 0);`\
731-`      glVertex3f(-2, 2, 0);`\
732-`      glTexCoord2f(0, 1);`\
733-`      glVertex3f(-2,-2, 0);`\
734-`      glTexCoord2f(1, 1);`\
735-`      glVertex3f( 2,-2, 0);`\
736-`    glEnd;`\
737-`  glEndList;`\
738-`end;`
768+``` pascal
769+procedure CreateList;
770+begin
771+ glNewList(LIST_OBJECT, GL_COMPILE);
772+ glBegin(GL_QUADS);
773+ glTexCoord2f(1, 0);
774+ glVertex3f( 2, 2, 0);
775+ glTexCoord2f(0, 0);
776+ glVertex3f(-2, 2, 0);
777+ glTexCoord2f(0, 1);
778+ glVertex3f(-2,-2, 0);
779+ glTexCoord2f(1, 1);
780+ glVertex3f( 2,-2, 0);
781+ glEnd;
782+ glEndList;
783+end;
784+```
739785
740786glTexCoord 함수를 주목해 보다. 이 함수는 텍스쳐의 어느 부분이 버텍스에 할당되었는지 지정하는 데 사용한다. 이 함수에서 정의된 좌표는 0에서 1까지 이다( 1보다 큰 값도 가능하지만 결과는 많은 차이를 가져온다). 0 은 첫 픽셀이고 1 은 마지막 픽셀이다. 그러므로 0.5 는 텍스쳐의 중간이 맞을 것이다.
741787
742788텍스쳐 로딩은 뱀파이어(Vampyre) 이미징 라이브러리를 사용한다면 매우 쉽다:
743789
744-`var`\
745-`  Tex1, Tex2: GLuint;`\
790+``` pascal
791+var
792+ Tex1, Tex2: GLuint;
746793
747-`procedure InitializeGL;`\
748-`begin`\
749-`  glClearColor(0, 0, 0, 0);`\
750-`  Tex1 := LoadGLTextureFromFile('ashwood.bmp');`\
751-`  Tex2 := LoadGLTextureFromFile('Flare.bmp');`\
752-`  glEnable(GL_TEXTURE_2D);`\
753-`end;`
794+procedure InitializeGL;
795+begin
796+ glClearColor(0, 0, 0, 0);
797+ Tex1 := LoadGLTextureFromFile('ashwood.bmp');
798+ Tex2 := LoadGLTextureFromFile('Flare.bmp');
799+ glEnable(GL_TEXTURE_2D);
800+end;
801+```
754802
755803LoadGLTextureFromFile 은 텍스쳐를 파일에서 읽어들이고 그 ID를 반환한다. 텍스쳐가 로드되면 이는 렌더링을 위한것은 거의 설정 된 것이다. 마지막 라인은 2D 텍스쳐를 가능하게 하는 것이다.
756804
757805텍스쳐된 다각형을 그리기 위해 텍스쳐를 연결하고 텍스쳐 좌표를 설정하여야 한다(텍스쳐 좌표는 이 튜토리얼에서는 디스플레이 리스트 내에서 설정 되었다):
758806
759-`  ...`\
760-`  glLoadIdentity;`\
761-`  glTranslatef(-5, 0, -15);`\
762-`  glBindTexture(GL_TEXTURE_2D, Tex1);`\
763-`  glCallList(LIST_OBJECT);`\
764-`  ...`
807+```text
808+ ...
809+ glLoadIdentity;
810+ glTranslatef(-5, 0, -15);
811+ glBindTexture(GL_TEXTURE_2D, Tex1);
812+ glCallList(LIST_OBJECT);
813+ ...
814+```
765815
766816glBindTexture 함수는 텍스쳐를 선택하는데 사용된다. 다각형을 그릴 때 그 위에 입힐 텍스쳐를 선택할 수 있다. 아주 쉽다 :)
767817
768818그러므로 하나의 텍스쳐를 사용하는 것은 쉽다... 그런 두 텍스쳐는 어떻게 섞을까. 기본적으로 하나의 텍스쳐에 다각형을 한번 그릴 수 있고, 블렌딩 파라메터를 설정하고 다른 텍스쳐를 가지고 다각형을 한번도 그린다. 이런 방법으로 수만흥 텍스쳐를 블렌드 할 수 있다. 그럼 이를 위한 코드는 어떤가 보자:
769819
770-`  ...`\
771-`  glLoadIdentity;`\
772-`  glTranslatef(5, 0, -15);`\
773-`  glBindTexture(GL_TEXTURE_2D, Tex1);`\
774-`  glCallList(LIST_OBJECT);`\
820+```text
821+ ...
822+ glLoadIdentity;
823+ glTranslatef(5, 0, -15);
824+ glBindTexture(GL_TEXTURE_2D, Tex1);
825+ glCallList(LIST_OBJECT);
775826
776-`  glEnable(GL_BLEND);`\
777-`  glBlendFunc(GL_ZERO, GL_SRC_COLOR);`\
778-`  glLoadIdentity;`\
779-`  glTranslatef(5, 0, -15);`\
780-`  glBindTexture(GL_TEXTURE_2D, Tex2);`\
781-`  glCallList(LIST_OBJECT);`\
782-`  glDisable(GL_BLEND);`\
783-`...`
827+ glEnable(GL_BLEND);
828+ glBlendFunc(GL_ZERO, GL_SRC_COLOR);
829+ glLoadIdentity;
830+ glTranslatef(5, 0, -15);
831+ glBindTexture(GL_TEXTURE_2D, Tex2);
832+ glCallList(LIST_OBJECT);
833+ glDisable(GL_BLEND);
834+...
835+```
784836
785837다각형은 이미 알고 있는 방법으로 첫번째에 그려진다. 두번째 그려지기 전 glEnable(GL_BLEND)를 콜하여 블렌딩이 가능하게 한다. 블렌딩은 마지막 픽셀 컬러를 이렇게 계산한다:
786838
787-`DrawingColor * SRCBLEND + BackgroundColor * DESTBLEND`
839+```text
840+DrawingColor * SRCBLEND + BackgroundColor * DESTBLEND
841+```
788842
789843SRCBLEND 와 DESTBLEND 은 glBlendFunc 함수를 사용하여 정의한다. 이 튜토리얼에서 SRCBLEND 을 GL_ZERO (zero)로, DESTBLENT 는 GL_SRC_COLOR (DrawingColor)로 설정하면 마지막 색상은 다음과 같다:
790844
791-`DrawingColor * 0 + BackgroundColor * DrawingColor`
845+```text
846+DrawingColor * 0 + BackgroundColor * DrawingColor
847+```
792848
793849![](/wiki-images/d/d4/TexturesPic1.jpg)
794850
795851이것은어두운 색상으로 그릴 떄 배경은 더 어두워지고 백색으로 배경을 그리면 배경은 변경되지 않는다는 것을 의미한다. 결과는 이와 같다.
796852
797853다음에는 싱글패스로 멀티 텍스쳐를 하는 방법을 익스텬션을 사용하여 보여 줄것이다.
798854
799855소스코드 리눅스 실행파일 및 윈도우 실행파일은 다음에서 다운로드 할 수 있다.[Lazarus CCR SourceForge](http://sourceforge.net/project/showfiles.php?group_id=92177&package_id=199145).
800856
801857# 멀티 텍스쳐(확장)
802858
803859복수 처리(multipass)에 의한 멀티 텍스쳐를 알고 있다면 단일 처리(singlepass)는 매우 쉬울 것이다. 텍스쳐를 입히는 것은 각 단계별로 분리되어 있다. 첫 단계는 설정하고 첫번째 텍스쳐를 그리고, 두번 째 단계는 다른 것을 그리고...등등. 해야할 것들은 텍스쳐 단계를 설정하고 오브젝트를 그리는 것이 전부이다.
804860
805861코드가 어떻게 되는지 보자:
806862
807-`procedure InitializeGL;`\
808-`begin`\
809-`  Load_GL_ARB_multitexture;`\
810-`  glClearColor(0, 0, 0, 0);`\
811-`  Tex1 := LoadGLTextureFromFile('Lazarus.bmp');`\
812-`  Tex2 := LoadGLTextureFromFile('Mask.bmp');`\
813-`  glActiveTextureARB(GL_TEXTURE0_ARB);`\
814-`  glEnable(GL_TEXTURE_2D);`\
815-`  glBindTexture(GL_TEXTURE_2D, Tex1);`\
816-`  glActiveTextureARB(GL_TEXTURE1_ARB);`\
817-`  glEnable(GL_TEXTURE_2D);`\
818-`  glBindTexture(GL_TEXTURE_2D, Tex2);`\
819-`end;`
863+``` pascal
864+procedure InitializeGL;
865+begin
866+ Load_GL_ARB_multitexture;
867+ glClearColor(0, 0, 0, 0);
868+ Tex1 := LoadGLTextureFromFile('Lazarus.bmp');
869+ Tex2 := LoadGLTextureFromFile('Mask.bmp');
870+ glActiveTextureARB(GL_TEXTURE0_ARB);
871+ glEnable(GL_TEXTURE_2D);
872+ glBindTexture(GL_TEXTURE_2D, Tex1);
873+ glActiveTextureARB(GL_TEXTURE1_ARB);
874+ glEnable(GL_TEXTURE_2D);
875+ glBindTexture(GL_TEXTURE_2D, Tex2);
876+end;
877+```
820878
821879먼저 복수 처리를 가능케 하는 함수를 사용하기 위한 OpenGL 확장을 로드하는 것이 필요하다. Load_GL_ARB_multitexture 는 이 확정판을 로드할 것이고 만약 작동이 성공적이라면 TRUE를 되돌려 줄 것이다.
822880
823881원하는 작업을 수행 할 텍스쳐 단계를 선택하기 위해서는 glActiveTextureARB 함수를 사용해라. 이 함수는 원하는 단계를 정의하는 한개의 파라메터만을 필요로 한다. 이후 모든 텍스쳐 함수(enabling, disabling, binding, creating...)가 그 단계에 영향을 끼친다.
824882
825883초기화 함수에서 모든 것을 설정하므로 우리가 해야 할 것은 오브젝트를 그리기만 하는 것이다:
826884
827-`procedure DrawGLScene; cdecl;`\
828-`begin`\
829-`  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);`\
885+``` pascal
886+procedure DrawGLScene; cdecl;
887+begin
888+ glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
830889
831-`  glLoadIdentity;`\
832-`  glTranslatef(0, 0, -5);`\
890+ glLoadIdentity;
891+ glTranslatef(0, 0, -5);
833892
834-`  glBegin(GL_QUADS);`\
835-`    glMultiTexCoord2fARB(GL_TEXTURE0_ARB, 1, 0);`\
836-`    glMultiTexCoord2fARB(GL_TEXTURE1_ARB, 1, 0);`\
837-`    glVertex3f(2.516, 2, 0);`\
838-`    glMultiTexCoord2fARB(GL_TEXTURE0_ARB, 0, 0);`\
839-`    glMultiTexCoord2fARB(GL_TEXTURE1_ARB, 0, 0);`\
840-`    glVertex3f(-2.516, 2, 0);`\
841-`    glMultiTexCoord2fARB(GL_TEXTURE0_ARB, 0, 1);`\
842-`    glMultiTexCoord2fARB(GL_TEXTURE1_ARB, 0, 1);`\
843-`    glVertex3f(-2.516,-2, 0);`\
844-`    glMultiTexCoord2fARB(GL_TEXTURE0_ARB, 1, 1);`\
845-`    glMultiTexCoord2fARB(GL_TEXTURE1_ARB, 1, 1);`\
846-`    glVertex3f(2.516,-2, 0);`\
847-`  glEnd;`\
893+ glBegin(GL_QUADS);
894+ glMultiTexCoord2fARB(GL_TEXTURE0_ARB, 1, 0);
895+ glMultiTexCoord2fARB(GL_TEXTURE1_ARB, 1, 0);
896+ glVertex3f(2.516, 2, 0);
897+ glMultiTexCoord2fARB(GL_TEXTURE0_ARB, 0, 0);
898+ glMultiTexCoord2fARB(GL_TEXTURE1_ARB, 0, 0);
899+ glVertex3f(-2.516, 2, 0);
900+ glMultiTexCoord2fARB(GL_TEXTURE0_ARB, 0, 1);
901+ glMultiTexCoord2fARB(GL_TEXTURE1_ARB, 0, 1);
902+ glVertex3f(-2.516,-2, 0);
903+ glMultiTexCoord2fARB(GL_TEXTURE0_ARB, 1, 1);
904+ glMultiTexCoord2fARB(GL_TEXTURE1_ARB, 1, 1);
905+ glVertex3f(2.516,-2, 0);
906+ glEnd;
848907
849-`  glutSwapBuffers;`\
850-`end;`
908+ glutSwapBuffers;
909+end;
910+```
851911
852912![](/wiki-images/5/52/MultitexturePic1.jpg) 차이는 텍스쳐 좌표를 정희하는 것 뿐이다. 이제 사용할 함수는 glMultiTexCoord2fARB로서 텍스쳐 단계와 텍스쳐 좌표를 취한다. 다른 모든 것은 변화가 없다.
853913
854914오늘날의 거의 모든 그래픽 카드는 최소한 2 단계를 지원한다. 단일처리에 의한 복수텍스쳐는 복수처리 할 때보다 더 빠른데 이는 오브젝트를 한번만 그리기 때문이다. 하드웨어가 단일처리 복수 텍스쳐를 지원한다면(Load_GL_ARB_multitexture는 TRUE를 되돌린다) 그것을 상용해라.
855915
856916소스코드와 리눅스 실행파일 및 윈도우 실행파일은 다음에서 다운로드할 수 있다 [Lazarus CCR SourceForge](http://sourceforge.net/project/showfiles.php?group_id=92177&package_id=199145).
857917
858918# 텍스쳐에 렌더링하기
859919
860920이부분은 간단하다. OpenGL은현재 장면을 텍스쳐에 캡춰해서 다른 오브젝트(TV스크린, 거울 또는 다른 것들)를 텍스쳐하기 위해 사용할 수 있다. 장면을 텍스쳐에 런더링하고 회전면에 적용할 수 있다.
861921
862922먼저, 캡쳐한 장면에 사용할 빈 텍스쳐를 하나 생성해야만 한다:
863923
864-`procedure SetupRenderTexture;`\
865-`var`\
866-`  Data: Pointer;`\
867-`begin`\
868-`  GetMem(Data, 256*256*3);`\
869-`  glGenTextures(1, @RenderTexture);`\
870-`  glBindTexture(GL_TEXTURE_2D, RenderTexture);`\
871-`  glTexImage2D(GL_TEXTURE_2D, 0, 3, 256, 256, 0, GL_RGB, GL_UNSIGNED_BYTE, Data);`\
872-`  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);`\
873-`  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);`\
874-`  FreeMem(Data);`\
875-`end;`
924+``` pascal
925+procedure SetupRenderTexture;
926+var
927+ Data: Pointer;
928+begin
929+ GetMem(Data, 256*256*3);
930+ glGenTextures(1, @RenderTexture);
931+ glBindTexture(GL_TEXTURE_2D, RenderTexture);
932+ glTexImage2D(GL_TEXTURE_2D, 0, 3, 256, 256, 0, GL_RGB, GL_UNSIGNED_BYTE, Data);
933+ glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
934+ glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
935+ FreeMem(Data);
936+end;
937+```
876938
877939256*256 RGB 이미지를 위한 버퍼가 만들어지고 2D 텍스쳐를 설정한다.
878940
879941주요한 부분은 그리기 함수내에 있다:
880942
881-`procedure DrawGLScene; cdecl;`\
882-`var`\
883-`  TotalTime: Single;`\
884-`begin`\
885-`  glClearColor(0, 0, 0, 0);`\
886-`  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);`\
887-`  glEnable(GL_LIGHTING);`\
888-`  glDisable(GL_TEXTURE_2D);`\
889-`  glViewport(0, 0, 256, 256);`\
943+``` pascal
944+procedure DrawGLScene; cdecl;
945+var
946+ TotalTime: Single;
947+begin
948+ glClearColor(0, 0, 0, 0);
949+ glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
950+ glEnable(GL_LIGHTING);
951+ glDisable(GL_TEXTURE_2D);
952+ glViewport(0, 0, 256, 256);
890953
891-`  TotalTime := GetTotalTime;`\
954+ TotalTime := GetTotalTime;
892955
893-`  glLoadIdentity;`\
894-`  glTranslatef(0, 0, -5);`\
895-`  glRotatef(50 * TotalTime, 1, 0, 0);`\
896-`  glRotatef(100 * TotalTime, 0, 1, 0);`\
897-`  glRotatef(50 * TotalTime, 0, 0, 1);`\
956+ glLoadIdentity;
957+ glTranslatef(0, 0, -5);
958+ glRotatef(50 * TotalTime, 1, 0, 0);
959+ glRotatef(100 * TotalTime, 0, 1, 0);
960+ glRotatef(50 * TotalTime, 0, 0, 1);
898961
899-`  glColor3f(1, 1, 1);`\
900-`  glutSolidCube(2);`\
962+ glColor3f(1, 1, 1);
963+ glutSolidCube(2);
901964
902-`  glCopyTexImage2D(GL_TEXTURE_2D, 0, GL_RGB, 0, 0, 256, 256, 0);`\
965+ glCopyTexImage2D(GL_TEXTURE_2D, 0, GL_RGB, 0, 0, 256, 256, 0);
903966
904-`  glClearColor(0.18, 0.20, 0.66, 0);`\
905-`  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);`\
906-`  glDisable(GL_LIGHTING);`\
907-`  glEnable(GL_TEXTURE_2D);`\
908-`  glViewport(0, 0, AppWidth, AppHeight);`\
967+ glClearColor(0.18, 0.20, 0.66, 0);
968+ glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
969+ glDisable(GL_LIGHTING);
970+ glEnable(GL_TEXTURE_2D);
971+ glViewport(0, 0, AppWidth, AppHeight);
909972
910-`  glLoadIdentity;`\
911-`  glTranslatef(0, 0, -7);`\
912-`  glRotatef(20 * TotalTime, 1, 0, 0);`\
913-`  glRotatef(50 * TotalTime, 0, 1, 0);`\
973+ glLoadIdentity;
974+ glTranslatef(0, 0, -7);
975+ glRotatef(20 * TotalTime, 1, 0, 0);
976+ glRotatef(50 * TotalTime, 0, 1, 0);
914977
915-`  glBegin(GL_QUADS);`\
916-`    glTexCoord2f(1, 0);`\
917-`    glVertex3f(2, 2, 0);`\
918-`    glTexCoord2f(0, 0);`\
919-`    glVertex3f(-2, 2, 0);`\
920-`    glTexCoord2f(0, 1);`\
921-`    glVertex3f(-2,-2, 0);`\
922-`    glTexCoord2f(1, 1);`\
923-`    glVertex3f(2,-2, 0);`\
924-`  glEnd;`\
978+ glBegin(GL_QUADS);
979+ glTexCoord2f(1, 0);
980+ glVertex3f(2, 2, 0);
981+ glTexCoord2f(0, 0);
982+ glVertex3f(-2, 2, 0);
983+ glTexCoord2f(0, 1);
984+ glVertex3f(-2,-2, 0);
985+ glTexCoord2f(1, 1);
986+ glVertex3f(2,-2, 0);
987+ glEnd;
925988
926-`  glutSwapBuffers;`\
927-`end;`
989+ glutSwapBuffers;
990+end;
991+```
928992
929993![](/wiki-images/6/6e/RenderToTexturePic1.jpg) 먼저, 캡쳐되는 장면을 위해 모든것이 설정 되었다. 뷰포트는 256*256 크기로 줄어들어 텍스쳐에 맞출 수 있으며 장면이 그려질 수 있게 된다. glCopyTexImage2D 가 현재 선택된 텍스쳐에 장면을 캡쳐하는데 사용된다.
930994
931995텍스쳐에 캡쳐된 장면이 있을 때, 모든 것이 다시 지워지고, 뷰포트는 원래의 크기로 줄어들며, 마지막 장면은 텍스쳐로된 이전 장면을 사용해 그려진다.
932996
933997P.S. 캡쳐된 텍스쳐는 SaveGLTextureToFile 함수를 사용해서 저장된다[Vampyre Imaging Library](http://imaginglib.sourceforge.net/).
934998
935999소스코드와 리눅스 실행파일, 윈도우 실행파일을 다음에서 다운로드한다 [Lazarus CCR SourceForge](http://sourceforge.net/project/showfiles.php?group_id=92177&package_id=199145).
9361000
9371001# 버텍스 배열
9381002
9391003OpenGL 은 glVertex 를 부르지 않고 버퍼 내부에 저장된 데이터를 사용해서 기본적인 것을 렌더링 할 수 있다. 버퍼는 버텍스, 텍스쳐 죄표, 색상(인덱스와 RGBA), 노멀과 에지 플래그를 정의한다.
9401004
9411005이 튜토리얼에서 버텍스와 컬러 버퍼만을 사용할 것이다. 그리고 비-인텍스된 것과 인데스된 드로잉을 보여 줄 것이다. 비-인덱스 모드는 버퍼를 스트림으로 그린다. 인덱스 코드는 인덱스 버퍼에 정의된 순서대로 버퍼 요소를 그린다. 코딩을 시작해 보자.
9421006
9431007먼저, 몇몇 타입과 상수를 정의하자:
9441008
945-`type`\
946-`  TVertex3f = record`\
947-`    X, Y, Z: Single;`\
948-`  end;`\
1009+``` pascal
1010+type
1011+ TVertex3f = record
1012+ X, Y, Z: Single;
1013+ end;
9491014
950-`  TColor3f = record`\
951-`   R, G, B: Single;`\
952-`  end;`\
1015+ TColor3f = record
1016+ R, G, B: Single;
1017+ end;
9531018
954-`  VertexBuffer: array [0..5] of TVertex3f = (`\
955-`    (X : 1; Y : 1; Z : 0),`\
956-`    (X : -1; Y : 1; Z : 0),`\
957-`    (X : -1; Y : -1; Z : 0),`\
958-`    (X : 1; Y : 1; Z : 0),`\
959-`    (X : -1; Y : -1; Z : 0),`\
960-`    (X : 1; Y : -1; Z : 0)`\
961-`  );`\
962-`  ColorBuffer: array [0..5] of TColor3f = (`\
963-`    (R : 1; G : 0; B : 1),`\
964-`    (R : 0; G : 0; B : 1),`\
965-`    (R : 0; G : 1; B : 0),`\
966-`    (R : 1; G : 0; B : 1),`\
967-`    (R : 0; G : 1; B : 0),`\
968-`    (R : 1; G : 1; B : 0)`\
969-`  );`
1019+ VertexBuffer: array [0..5] of TVertex3f = (
1020+ (X : 1; Y : 1; Z : 0),
1021+ (X : -1; Y : 1; Z : 0),
1022+ (X : -1; Y : -1; Z : 0),
1023+ (X : 1; Y : 1; Z : 0),
1024+ (X : -1; Y : -1; Z : 0),
1025+ (X : 1; Y : -1; Z : 0)
1026+ );
1027+ ColorBuffer: array [0..5] of TColor3f = (
1028+ (R : 1; G : 0; B : 1),
1029+ (R : 0; G : 0; B : 1),
1030+ (R : 0; G : 1; B : 0),
1031+ (R : 1; G : 0; B : 1),
1032+ (R : 0; G : 1; B : 0),
1033+ (R : 1; G : 1; B : 0)
1034+ );
1035+```
9701036
9711037두개의 버퍼가 있다. 하나는 버텍스 좌표를 위한 것이고 하나는 버텍스 컬러를 위한 것이다. 이 6개의 버텍스는 2개의 삼각형을 정의하여 사각형을 만든다.
9721038
9731039버퍼를 이용하여 기초적인 모양을 그리는 것은 쉽다:
9741040
975-`  glEnableClientState(GL_VERTEX_ARRAY);`\
976-`  glEnableClientState(GL_COLOR_ARRAY);`\
977-`  glVertexPointer(3, GL_FLOAT, 0, @VertexBuffer[0]);`\
978-`  glColorPointer(3, GL_FLOAT, 0, @ColorBuffer[0]);`\
1041+```text
1042+ glEnableClientState(GL_VERTEX_ARRAY);
1043+ glEnableClientState(GL_COLOR_ARRAY);
1044+ glVertexPointer(3, GL_FLOAT, 0, @VertexBuffer[0]);
1045+ glColorPointer(3, GL_FLOAT, 0, @ColorBuffer[0]);
9791046
980-`  glDrawArrays(GL_TRIANGLES, 0, Length(VertexBuffer));`\
1047+ glDrawArrays(GL_TRIANGLES, 0, Length(VertexBuffer));
9811048
982-`  glDisableClientState(GL_VERTEX_ARRAY);`\
983-`  glDisableClientState(GL_COLOR_ARRAY);`
1049+ glDisableClientState(GL_VERTEX_ARRAY);
1050+ glDisableClientState(GL_COLOR_ARRAY);
1051+```
9841052
9851053먼저 glEnableClientState 함수를 사용하여 사용하기를 원하는 버퍼를 사용가능하게 한다. 그리고 사용하기 원하는 버퍼를 선택할 수 있다. 각 버퍼 타입 (glColorPointer, glEdgeFlagPointer, glIndexPointer, glNormalPointer, glTexCoordPointer, glVertexPointer) 등을 선택하기 위한 각각의 함수를 가지고 있다. 이 함수의 첫번째 파라메터는 얼마나 많은 요소를 가지고 있는가를 정의한다. 예를 들어, 버텍스 버퍼를 가정해 보자. 만약 이 파라메터가 2라면 버퍼의 각 요소는 x와 y 좌표를 갖는다.예를 들어 이 파라메터가 4라면, 각 요소는 x, y, x 및 w 좌표를 갖는다. 다음 파라메터는 어떤 형태의 요소가 포함되어 있는지(GL_BYTE, GL_UNSIGNED_BYTE, GL_SHORT, GL_UNSIGNED_SHORT, GL_INT, GL_UNSIGNED_INT, GL_FLOAT or GL_DOUBLE) 정의한다. 다음 하나는 각 요소 사이에 얼마나 많은 요소가 있는 지를 정의한다. 이런 방법으로 버텍스 좌표와 데이터를 가진 버퍼를 갖게 된다. 임의의 데이터 타입을 위해서 이 파라메터는 다음과 같이 계산할 수 있다:
9861054
987-`type`\
988-`  TBufferData = record`\
989-`    DataBefore: TDataBefore;`\
990-`    Vertex: TVertex;`\
991-`    DataAfter: TDataAfter;`\
992-`  end;`\
1055+``` pascal
1056+type
1057+ TBufferData = record
1058+ DataBefore: TDataBefore;
1059+ Vertex: TVertex;
1060+ DataAfter: TDataAfter;
1061+ end;
9931062
994-`요소 사이의 바이트 = SizeOf(TDataBefore) + SizeOf(TDataAfter)`\
1063+요소 사이의 바이트 = SizeOf(TDataBefore) + SizeOf(TDataAfter)
1064+```
9951065
9961066마지막 파라메터는 포인터라면 버퍼를 가르킨다.
9971067
9981068버퍼가 선택되면, glDrawArrays 를 사용하여 드로잉 할 수가 있다. 모든 사용가능한 버퍼는 기본적인 모양을 그리기 위해 사용된다. 어떤 종류의 다각형이 생성되는지는 첫번째 파라메터에 정의되어 있다(glBegin 함수 처럼). 다음 두 개는 드로잉(시작과 카운트)을 위해 사용되는 버퍼의 서브셋이다
9991069
10001070버퍼가 불필요할 때는 사용 불능으로 할 수 있다.
10011071
10021072인덱스 모드를 설명하기 위해 외부 파일에서 버텍스와 컬러, 인스 데이터를 로드할 수 있는 간단한 메쉬 클래스를 만들었다:
10031073
1004-`type`\
1005-`  TMesh = class`\
1006-`  private`\
1007-`    FVertices: array of TVertex3f;`\
1008-`    FColors: array of TColor3f;`\
1009-`    FIndices: array of Integer;`\
1010-`    procedure FreeBuffers;`\
1011-`  public`\
1012-`    constructor Create;`\
1013-`    destructor Destroy; override;`\
1014-`    procedure LoadMesh(FileName: String);`\
1015-`    procedure DrawMesh;`\
1016-`  end;`
1074+``` pascal
1075+type
1076+ TMesh = class
1077+ private
1078+ FVertices: array of TVertex3f;
1079+ FColors: array of TColor3f;
1080+ FIndices: array of Integer;
1081+ procedure FreeBuffers;
1082+ public
1083+ constructor Create;
1084+ destructor Destroy; override;
1085+ procedure LoadMesh(FileName: String);
1086+ procedure DrawMesh;
1087+ end;
1088+```
10171089
10181090FVertices 는 버텍스에 관한 데이터를 가지고, FColors 데이터는 색상에 관한 것을, FIndices 는 외부 파일이 로드 될 때의 인덱스를 가지고 있다.
10191091
10201092번저 클래스를 생성하고 소멸하기위한 코드를 작성해 보자:
10211093
1022-`procedure TMesh.FreeBuffers;`\
1023-`begin`\
1024-`  FVertices := nil;`\
1025-`  FColors := nil;`\
1026-`  FIndices := nil;`\
1027-`end;`\
1094+``` pascal
1095+procedure TMesh.FreeBuffers;
1096+begin
1097+ FVertices := nil;
1098+ FColors := nil;
1099+ FIndices := nil;
1100+end;
10281101
1029-`constructor TMesh.Create;`\
1030-`begin`\
1031-`  FreeBuffers;`\
1032-`end;`\
1102+constructor TMesh.Create;
1103+begin
1104+ FreeBuffers;
1105+end;
10331106
1034-`destructor TMesh.Destroy;`\
1035-`begin`\
1036-`  FreeBuffers;`\
1037-`  inherited Destroy;`\
1038-`end;`
1107+destructor TMesh.Destroy;
1108+begin
1109+ FreeBuffers;
1110+ inherited Destroy;
1111+end;
1112+```
10391113
10401114메쉬 데이터를 가진 파일은 간단한 텍스트 파일이다. 먼저 행은 버텍스의 수를 포함하며, 공백 문자로 나뉘어진 인덱스를 가진다. 행 다음에는 각 버텍스와 색상을 가진 행이 온다. X, Y, Z, R, G 및 B 모두는 공백문자에 의해 나뉘어진다. 마지막은 인덱스를 위한 행이며... 각 인덱스 숫자는 각자의 행안에 씌여있다. 그러므로 하나의 삼각형을 위해서, 데이터 파일은 다음고 같을 것이다:
10411115
1042-`3 3`\
1043-`-1 -1 0 1 1 1`\
1044-`1 -1 0 1 1 1`\
1045-`0 1 0 1 1 1`\
1046-`0`\
1047-`1`\
1048-`2`
1116+```text
1117+3 3
1118+-1 -1 0 1 1 1
1119+1 -1 0 1 1 1
1120+0 1 0 1 1 1
1121+0
1122+1
1123+2
1124+```
10491125
10501126이것은 3개의 버텍스와 3개의 인덱스가 파일에 정의 되어있음을 의미한다. 첫번째 버텍스는 -1, -1, 0 이고 색상은 1, 1, 1 이런식이다. 인덱스는 버텍스가 그려지는 순서를 정의한다(이 경우에서는, 버넥스는 정의된 것과 같은 순서로 그려진다).
10511127
10521128이 데이터를 로딩하기 위한 코드는 다음과 같을 것이다:
10531129
1054-`procedure TMesh.LoadMesh(FileName: String);`\
1055-`var`\
1056-`  MeshFile: TextFile;`\
1057-`  VertexCount, IndexCount: Integer;`\
1058-`  iV, iI: Integer;`\
1059-`begin`\
1060-`  FreeBuffers;`\
1130+``` pascal
1131+procedure TMesh.LoadMesh(FileName: String);
1132+var
1133+ MeshFile: TextFile;
1134+ VertexCount, IndexCount: Integer;
1135+ iV, iI: Integer;
1136+begin
1137+ FreeBuffers;
10611138
1062-`  AssignFile(MeshFile, FileName);`\
1063-`  Reset(MeshFile);`\
1139+ AssignFile(MeshFile, FileName);
1140+ Reset(MeshFile);
10641141
1065-`  ReadLn(MeshFile, VertexCount, IndexCount);`\
1142+ ReadLn(MeshFile, VertexCount, IndexCount);
10661143
1067-`  SetLength(FVertices, VertexCount);`\
1068-`  SetLength(FColors, VertexCount);`\
1069-`  SetLength(FIndices, IndexCount);`\
1144+ SetLength(FVertices, VertexCount);
1145+ SetLength(FColors, VertexCount);
1146+ SetLength(FIndices, IndexCount);
10701147
1071-`  for iV := 0 to VertexCount - 1 do`\
1072-`    ReadLn(MeshFile,`\
1073-`      FVertices[iV].X, FVertices[iV].Y, FVertices[iV].Z,`\
1074-`      FColors[iV].R, FColors[iV].G, FColors[iV].B);`\
1148+ for iV := 0 to VertexCount - 1 do
1149+ ReadLn(MeshFile,
1150+ FVertices[iV].X, FVertices[iV].Y, FVertices[iV].Z,
1151+ FColors[iV].R, FColors[iV].G, FColors[iV].B);
10751152
1076-`  for iI := 0 to IndexCount - 1 do`\
1077-`    ReadLn(MeshFile, FIndices[iI]);`\
1153+ for iI := 0 to IndexCount - 1 do
1154+ ReadLn(MeshFile, FIndices[iI]);
10781155
1079-`  CloseFile(MeshFile);`\
1080-`end;`
1156+ CloseFile(MeshFile);
1157+end;
1158+```
10811159
10821160데이터를 로딩한 후 그리기 위한 여러가지를 할 수 있다:
10831161
1084-`procedure TMesh.DrawMesh;`\
1085-`begin`\
1086-`  glEnableClientState(GL_VERTEX_ARRAY);`\
1087-`  glEnableClientState(GL_COLOR_ARRAY);`\
1088-`  glVertexPointer(3, GL_FLOAT, 0, @FVertices[0]);`\
1089-`  glColorPointer(3, GL_FLOAT, 0, @FColors[0]);`\
1162+``` pascal
1163+procedure TMesh.DrawMesh;
1164+begin
1165+ glEnableClientState(GL_VERTEX_ARRAY);
1166+ glEnableClientState(GL_COLOR_ARRAY);
1167+ glVertexPointer(3, GL_FLOAT, 0, @FVertices[0]);
1168+ glColorPointer(3, GL_FLOAT, 0, @FColors[0]);
10901169
1091-`  glDrawElements(GL_TRIANGLES, Length(FIndices), GL_UNSIGNED_INT, @FIndices[0]);`\
1170+ glDrawElements(GL_TRIANGLES, Length(FIndices), GL_UNSIGNED_INT, @FIndices[0]);
10921171
1093-`  glDisableClientState(GL_VERTEX_ARRAY);`\
1094-`  glDisableClientState(GL_COLOR_ARRAY);`\
1095-`end;`
1172+ glDisableClientState(GL_VERTEX_ARRAY);
1173+ glDisableClientState(GL_COLOR_ARRAY);
1174+end;
1175+```
10961176
10971177거의 모든 것이 비-인덱스된 드로잉과 같다. 다만 실제 그리는 함수만 제외하고 말이다. 이 경우에는 glDrawElements 함수를 사용하였다. 이것 하나를 위해 어떤 다각형을 원하는지 지정하였고, 인덱스 버퍼에 얼마나 많은 인덱스가 있는지, 인텍스 버퍼에는 데이터 타입이 얼마나 있는지 그리고 인덱스 버퍼의 시작에 대한 포인터를 지정하였다. ![](/wiki-images/7/77/VertexArrayPic1.jpg) 풀 소스코드는 메쉬데이터 파일과 같이 있으며 비-인덱스 모드를 사용하여 그려진 것과 동일한 사각형을 만들어 낼 수있다. 메쉬 데이터 파일은 다음과 같을 것이다:
10981178
1099-`4 6`\
1100-`1 1 0 1 0 1`\
1101-`-1 1 0 0 0 1`\
1102-`-1 -1 0 0 1 0`\
1103-`1 -1 0 1 1 0`\
1104-`0`\
1105-`1`\
1106-`2`\
1107-`0`\
1108-`2`\
1109-`3`
1179+```text
1180+4 6
1181+1 1 0 1 0 1
1182+-1 1 0 0 0 1
1183+-1 -1 0 0 1 0
1184+1 -1 0 1 1 0
1185+0
1186+1
1187+2
1188+0
1189+2
1190+3
1191+```
11101192
111111934개의 버텍스와 6개의 인텍스를 위한 데이터가 있다. 그러므로 첫 삼각형은 버텍스 0, 1, 2로 정의되고, 두번째 버텍스는 0, 2, 3으로 정의된다. 인덱스 모드를 사용하여 버텍스를 복제할 수는 없다.
11121194
11131195소스코드, 리눅스 실행파일, 윈도우즈 실행파일은 다음에서 다운로드 할 수 있다 [Lazarus CCR SourceForge](http://sourceforge.net/project/showfiles.php?group_id=92177&package_id=199145).
11141196
11151197------------------------------------------------------------------------
11161198
11171199[[Creating bindings for C libraries]]
11181200
11191201---
11201202*From the Free Pascal wiki, page "OpenGL Tutorial/ko", as it stood on 2020-02-23 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*

Back to history