����� ��������� �������� �� ������ ���������� ���������. ����� ������������ ������� -
glScalef (������� ���������������) � glViewPort (������� ������ �����������) (�������� �� ������������ ��� ������� � ������ ��������� � � ������ ����� ����
�������� ��������� �������).
1. C������� ����� - OnCreate, � ����������� ����� ������� ��������� ��������� ������ - SetDCPixelFormat(Canvas.Handle) - ������ ������
������� ��������� � ��������� � ���� �� ������ ���������������� ��������� - procedure SetDCPixelFormat(hdc : HDC) - �� �������� ���������� ���
������ ������ ����� �� ������������-�������� OpenGL � ������������� ��� ���������. ����� ������� �������� ��������������� - wglCreateContext
(Canvas.Handle).
2. �������-����������� OnPaint
���������� �� ���������� �������� ��
����������� - ������� �� ����� ���������� -
���������� ��� ����� ������� - glViewPort � glScalef - ������ ��� � ��������� ���� ��� �������-�������� - �� �������������� �����
������� ����������� ����������. ���? - ������ ������. ������� glViewPort ������ ������ �����������-������������ ������� ������ ����������� -
�.�. �� ������� ������� ����� ��������� �����, ����� ����� ������ ������� ��������� �� ���������� ������� ������ ���������� - ��������� ���� -
��������� ������� �������� glTranslatef (��������� glViewPort �� ����������). ������� glScalef � ����������� ������� 1 ����������� ������ �������� ����������� � �������� 1:1,
��� ��������� ���������� ������� ���������� ��������������� ���� ����� �� ���� (��� ��� glScalef ����� ����� ��������� ������ �����������).
���� �������� glViewPort ������ � ���������� ���� �������� � �������� ������������� ��� ������ � ������� glScalef ��� ��������� 0.5 - ��
��������� ����������� ����������. ��� ��������� 3 ��������� ������� glScalef �� ���������� ��������� - ��� ��� ���������� 2-x ������ (X � Y), � ����
�������� �������� �� ���������� ����������� �� ��� Z.
����� ��� ������������ ��� ��������� ���� ��������. ��� ������������ ���������� �������� ��������� ���������.
3. ��� ���������� ���������� ������ ��������� OnDestroy ���������� �������� ��������� ��������������� - wglDeleteContext(hrc).
1 ������ (�����������):
1. ��������� ����� ��������� ��� ����� ������ � ������� TXT - ��������� / ��������� ��� ��������� - � ���������� ������ ������� "��� �����"
������� "��������� ���� (*.txt)".
2. ������� ���� ����� ��������� ���� � ����� ��������� � ����������� ���� ����� � ����� ������.
3. ��������� Delphi � ������ ����� ������ - ��� �������� ����� ���� �������� �� ���������, ������� ��� �� ������� �������� �� - ���
�����.
4. ������� �� ������� ������� Events � ��������� ������� ������ � ����� OnCreate, OnDestroy � OnPaint.
5. ������� � ������ ��������� Unit1, ������� ��� ���� � �� ��� ����� �������� ����� �� ������ ������, ����� ���������������
����������� ������ Ctrl+V.
6. ��������� ��� ����� ������ - F9.
2 ������ (�������):
1. ������� ����� ����� - ����� ����� ������ ��� ����� ������. �������� - PR1.
2. �� ����� Book3D\MY_KOD ����������� � ���� ����� ����� PR1 ���������� ����� N1-12 (��� ��� ������ � 1 �� 12).
3. ��������� ����� ��������� ��� ������ Unit1 � ������� TXT � PR1 - ��������� / ��������� ��� ��������� - � ���������� ������ ������� "��� �����"
������� "��������� ���� (*.txt)".
4. ������������� ���� Unit1.txt � Unit1.pas - �� ������ "�������� ����" - "��".
5. ��������� ���� Project1.dpr �� PR1 ��� ��������� Delphi � ������� ������ �� PR1 - Project1.dpr.
6. ��������� ��� ����� ������ - F9.
���� ��� ������� ��������� - �� �������� ��� �� ���������, ��� � � Book3D-���������.