OpenGL в Delphi
Еще один пример
glTranslatef (-0. 3, 0. 3, 0. 0);
glRotatef (60, 0, 0, 1);
Кружочки рисуются в текущей точке отсчета системы координат, относительно которой происходят каждый раз преобразования. По завершении цикла точка зрения возвращается точно в начальное положение, поэтому дополнительных манипуляций с системой координат не требуется. Перед циклом делаем перенос для выравнивания картинки на экране:
glTranslatef (0. 4, 0. 1, 0. 0);
После цикла, конечно, требуется восстановить первоначальное положение системы координат:
glTranslatef (-0. 4, -0. 1, 0. 0);
Разобравшись с этим примером, перейдите к примеру, располагающемуся в следующем подкаталоге, Ex58. Здесь строятся шесть квадратов по кругу, как показано на Рисунок 2. 17.
