������� ���������� ����������: ���������������

����� ��������� �������� �� ������ ���������� ���������. ����� ������������ ������� - glScalef (������� ���������������) � glViewPort (������� ������ �����������) (�������� �� ������������ ��� ������� � ������ ��������� � � ������ ����� ���� �������� ��������� �������).


��� ������� ��������� ��������������� ���������� 3 ��������:

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).
� ���������� � ����������


��� �������� ���� ��������� � Delphi ���������� ��������� ��������� ��������:

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-���������.
� ���������� � ����������