WWW.DISSERS.RU

БЕСПЛАТНАЯ ЭЛЕКТРОННАЯ БИБЛИОТЕКА

   Добро пожаловать!

Pages:     | 1 || 3 | 4 |

«Михаил Краснов OpenGL ГРАФИКА В ПРОЕКТАХ DELPHI Дюссельдорф • Киев • Москва • Санкт-Петербург Книги посвящена использованию стандартной графической OpenGL в Delphi. Начиная с самой минимальной ...»

-- [ Страница 2 ] --

Прямое обращение к пикселам экрана Библиотека располагает командами, позволяющими осуществить непосредственный доступ к пикселам экрана. Разберем проект из подката лога Ех42 — простой пример на вывод блока пикселов на экран вызовом двух команд:

gl Rast er ?os2f 0. 25) ;

ght, BYTE, Image) ;

Первая команда задает базовую точку для выводимого блока, вторая осу ществляет собственно вывод массива пикселов. Высота при выводе может и 74 Графика в проектах Delphi отличаться от реального размера массива, т. е. быть меньше, ширину же для корректного вывода желательно не брать меньше действительного размера массива.

В этом простом примере выводимый массив заполняется значениями RGB так, что в результате получается шахматная доска с сине-красными клетками:

const = 64;

64 ;

Image : Array [0.. ImageHeight-!, 0.. ImageWidth — 0.. 2 ] of Создание образа шахматной procedure var i, j : Integer;

begin For i := 0 to ImageHeight — 1 do For j := 0 to ImageWidth — 1 do begin If ({i and 8) = 0) xor ((j and S) 0) then begin := 0;

// красный := 0;

// зеленый 255;

// синий end else begin := 255;

// красный := 0;

// зеленый [2] := 0;

// синий end;

end;

end;

В развитие темы разберем более интересный пример (подкаталог Ех43), где выводимый массив заполняется следующим образом: создается объект клас са в который загружается растр из bmp-файла, последовательно считываются пикселы объекта, и соответствии со значениями каж дого пиксела заполняются элементы массива. Все просто, только надо обра тить внимание, что ось Y битовой карты направлена вниз, поэтому ты массива заполняются в обратном порядке:

va r i, j Integer;

:

Глава 2. Двумерные построения Bitmap :

Bitmap := Create;

Bitmap. LoadFromFile ( For i := 0 to — 1 do For j := 0 to — 1 do begin PixCoi := [j, i];

перевод цвета из TColor в цвет для команд - i - 1][j][0] and SFF;

- i - := (PixCoi and $FF00) 8;

i - 1][j][2] := (PixCoi and shr 16;

end;

Bitmap.Free;

end;

Обратите внимание на строку, задающую выравнивание пикселов — без нее массив пикселов будет выводиться некорректно:

glPixelStorei I) ;

Возможно, при знакомстве с файлом справки вы обратили внимание на команду специально предназначенную для вывода битовых мас сивов. Растр в таком случае может быть монохромным, а не 24-битным.

Обычно эта команда используется для вывода текста, мы рассмотрим ее в главе 6.

Выводимые массивы пикселов легко масштабируются вызовом команды аргументы которой — масштабные множители X и Y.

Для иллюстрации посмотрите проект из подкаталога Ех44, где нажатием клавиш и 'Y' можно управлять масштабом по соответствующим осям.

Обратите внимание, что при отрицательном значении множителей изобра жение переворачивается по соответствующей оси.

Этот пример демонстрирует также еще одно возможное использование команды glPixelStorei, позволяющей, в частности, прокручивать изобра жение по вертикали или горизонтали, что в нашей программе осуществляет ся нажатием клавиш 'R' и 'Р'.

Замечание j Учтите, что при прокрутке изображения на величину, превышающую половину растра, происходит аварийное завершение программы.

Команда позволяет копировать часть экрана текущей пози В проекте из подкаталога Ех45 я воспользовался этой командой следующим образом: при нажатой кнопке мыши вслед за указателем мыши перемешает Графика в проектах Delphi ся копия левого нижнего угла экрана. восстанавливается при каждой перерисовке экрана.

Здесь надо обратить внимание, что, в отличие от всех остальных примеров данной главы, флаги окна не включают двойную буферизацию и что кон текст воспроизведения занимается приложением сразу по началу работы и не освобождается до завершения работы. Обработка движения мыши закан чивается не перерисовкой окна, а командой giFiush.

Команда позволяет задавать режимы вывода пикселов.

частности, задавать цветовые фильтры. В примере, располагающемся в подкаталоге Ех46, нажатием клавиш можно изменить составляю щую долю соответствующего цвета.

Замечание Надо отметить, что команды непосредственного доступа к пикселам экрана ра ботают сравнительно медленно, поэтому используются только в исключитель ных случаях.

Команда позволяет считывать содержимое всего экрана или части его. Это одна из самых важных для нас команд, мы еще неоднократно будем к ней обращаться.

Для иллюстрации ее работы я подготовил проект (подкаталог Е.\47), вы водящий на экран простейшие стереокартинки. Одна из них показана на рис. 2.14.

2.14. Если вы умеете смотреть на стереокартинки, то увидите здесь парящий квадрат. Картинка рассчитана на размеры монитора, не ручаюсь, что в книге эффект повторится В примере реализован следующий алгоритм: экран заполняется множеством маленьких черно-белых квадратиков, создающих хаос. Затем небольшая Глава 2. Двумерные построения ласть экрана размером 50x50 пикселов массив и последова тельно копируется восемь раз, в две строки по четыре квадрата впритык.

Вот фрагмент кода для первой копии:

Pixel : Array [0..50, 0..50, 0..2] of // считываем в массив часть образа экрана вблизи центра • bO, 50, 0.0);

// устанавливаем точку вывода 50, GL RGB, вывод В принципе, достаточно однократного копирования, но тогда требуется осо бое мастерство для того, чтобы увидеть объемное изображение.

Чтобы скрыть уловку, можно еще набросать на экране немного точек или линий, но разглядеть после этого спрятанный квадрат становится труднее.

При нажатии клавиши <пробел> экран перерисовывается, так что у вас есть возможность подобрать наиболее удачную картинку.

Команда Вы, наверное, обратили внимание, изучая справки по командам-расши что приложение может получить информацию об имеющихся рас ширениях OpenGL с помощью команды Из соответствующей справки выясняем, что результат работы команды строка типа а может быть одна из четырех констант.

В зависимости от используемой константы строка содержит информацию о фирме-производителе или способе воспроизведения, версии OpenGL и имеющихся расширениях стандарта.

На основе использования этой функции построен пример, располагающийся в подкаталоге Ех48. Результат работы программы представлен на рис. 2.15.

/ Компания-производитель: NVIDIA Способ воспроизведения: TNT/AGP Версий: 1 1. Расширения GL_EXT_bgra Gl I Пример получения информации с помощью команды При разборе программы обратите внимание на две вещи:

Использовать команду точно так же, как и любую другую функцию OpenGL, мы можем только тогда, когда установлен контекст 78 Графика в проектах Delphi воспроизведения, хоть в данном случае не осуществляется никакого вос произведения вообще.

Результат работы этой функции — длинная строка, заканчивающаяся ну лем, поэтому для использования в модуле Delphi конвертируем ее с по мощью функции strPas.

Этот пример дает еще одну подсказку, как распознать наличие графического акселератора: при отсутствии такового с аргументом ВОЗВращаеТ СТрОКу Generic'.

В файле справки можно также прочитать, что с аргументом возвращает строку, где через пробел перечисляются поддер живаемые соединением расширения.

В часТНОСТИ, СОГЛаСНО КОМаНДОЙ только если в расширениях присутствует Это одно из спорных мест, потому что я с успехом применяю расширение мас сива вершин, хотя в указанном списке ссылка на его наличие отсутствует.

Поэтому я бы не советовал полностью доверяться возвращаемому списку.

Не стоит и в программах сразу же прекращать выполнение, если опирае тесь на расширение стандарта OpenGL, которое не определяется. По-моему, в такой ситуации достаточно просто предупредить пользователя о возмож ных сбоях в работе программы.

Обработка ошибок Использующее OpenGL приложение по ходу работы может выполнять не корректные действия, приводящие к ошибкам в работе. Часть ошибок носит фатальный характер, ведущий к аварийному завершению работы приложе ния. Другие могут и не приводить к такому финалу, но код ния, содержащий ошибку, не выполняется. Пример такой ошибки, который я уже приводил — неверная константа в качестве аргумента функции или неверное количество вершин для воспроизведения примитива. Конеч но, компилятор не может и не должен распознавать подобные ошибки, но и OpenGL не может отработать такие указания клиента. В документации по OpenGL к каждой команде прикладывается раздел содержащий ука зания, какие ошибки могут возникнуть при использовании этой команды.

Команда OpenGL возвращает информацию об ошибке в виде од ной из семи констант. Обратите внимание, что в свою очередь эта команда сама может генерировать ошибку, если вызывается внутри командных ско бок На использовании этой функции построен располагающийся в подкаталоге В программе из-за заведомо неверного аргумента функции генерируется ошибка библиотеки OpenGL типа Глава 2. Двумерные построения Соответствующее сообщение выводится в заголовке окна, использовать диа логовые окна такой ситуации нежелательно, поскольку это приведет к пе рерисовке окна, т. е. снова будет сгенерирована ошибка.

В программе также введена пользовательская функция, возвращающая стро ку с описанием ошибки:

function GetError : String;

begin Case of : : GL Л : Result := значение : Result := 'Неверная операция!';

OVERFLOW : Result стека!';

: Result := 'Потеря значимости : Result := хватает : Result := 'Нет ошибок.';

end;

end;

Масштабирование Мы уже знаем, что границы области вывода лежат до I.

Это может привести к неудобству при подготовке изображений. К счастью.

OpenGL предоставляет удобное средство на этот случай — масштабирование.

Разберем его на примере программы построения фигуры, показанной на рис. 2.8. Для изменения масштаба используется команда с тремя аргументами, представляющими собой масштабные множители для каждой из осей.

Например, если перед командными скобками вставим строку:

1. 0! ;

, то будет нарисована уменьшенная два раза фигура (готовый проект распо лагается в подкаталоге Ех50).

После команд рисования необходимо восстановить нормальный масштаб, т. е. в данном случае добавить строку:

g l S c a l e f ( 2. 0, 2. 0, 1. 0 } ;

.

Есть и другой способ запоминания/восстановления текущего масштаба, но о нем мы поговорим позднее.

Восстанавливать масштаб необходимо для того, чтобы каждое последующее обращение к обработчику перерисовки экрана не приводило бы к последо вательному уменьшению/увеличению изображения. В принципе, можно Графика в проектах Delphi пользовать и флаги для того, чтобы обратиться к строке единственный раз в ходе работы приложения.

Масштабные множители могут иметь отрицательные значения, при этом изображение переворачивается по соответствующей оси. Иллюстрирующий это свойство проект находится в подкаталоге Ех51.

При двумерных построениях значение коэффициента по оси Z единица взята без особых соображений.

Поворот Для поворота используется команда с четырьмя аргументами: угол поворота, градусах, и вектор поворота, три вещественных числа.

Для двумерных построений нагляден поворот по оси Z, чем я и пользуюсь в приводимых примерах.

В предыдущем примере перед командными скобками вставьте строку:

0. 0, 0. 0, 1. 0);

И СОЗДаЙТе Обработчик СОбыТИЯ С еДИНСТВеННОЙ КОМаНДОЙ Теперь при нажатии любой клавиши окно перерисовывается, при этом каж дый раз фигура поворачивается на пять градусов по оси Z (проект из подка талога Ех52).

Здесь надо обратить внимание на вещи: на то, что при положительном значении компоненты вектора поворот осуществляется против часовой стрелки и то, что важно не само значение компоненты, а знак и равенст во/неравенство ее нулю.

Хотя мы пока ограничиваемся плоскостными построениями, поворот по любой из сказывается на воспроизводимой картинке. Проверьте: при повороте по осям X и Y мы получаем правильную картинку в проекции с учетом поворота по осям.

Поворот часто используется при построениях, поэтому важно разобраться в нем досконально. Точно так же, как было с масштабом, поворот действует на все последующие команды воспроизведения, так что при необходимости текущее состояние восстанавливается обратным поворотом.

Например, если надо нарисовать повернутый на 45 градусов квадрат, т. с.

ромб, то код должен выглядеть так (готовый проект можете взять в подката логе Ех53):

(45, 0.0, 0.0, 1.0);

;

glVertex2f -0.1);

giVertex2f (-0.6, 0.4);

Глава 2. Двумерные построения 0.4);

•- G. 1) ;

(-45, 0.0, 0.0, 1.0);

Этот пример очень занимателен и вот почему. Удалим восстановление угла поворота и запустим приложение. Увидим не ромб, а квадрат. При тельном рассмотрении обнаружим, что квадрат был повернут дважды. Про изошло это потому, что сразу после появления окна па экране AP I п р о и с х о д и т е г о п е р е р и с о в к а ( ф у н к ц и я API Если вы были внимательны, то могли что такой же эффект на блюдался и в предыдущем примере.

При выполнении операции поворота можно спросить: поворачивается изо бражение или точка зрения? Мы будем для ясности считать, что поворачи вается именно изображение. Следующий пример пояснит это.

( Замечание Точный ответ такой: все объекты в рисуются в точке отсчета системы координат, а команда осуществляет поворот системы координат.

Нарисуем две фигуры: квадрат и ромб, причем ромб получим путем поворо та квадрата. Текст программы будет такой (проект из подкаталога (45, 0.0, 0.0, 1.0);

glBegin ;

-0.1};

(-0.6, 0.4) ;

glVertex2f (-0.1, (-4 5, 0.0,0.0, glBegin (GL POLYGON);

0 -0.1);

glVertex2f 0.4) ;

(0.6, 0.4) ;

-0 ;

Точно так же нам придется поступать когда на экране несколько объектов, повернутых относительно друг друга: перед рисованием очередного объекта осуществлять поворот, а после рисования — возвращать точку зрения или осуществлять следующий поворот с учетом текущего по ложения точки зрения.

Пожалуйста, будьте внимательны! Начинающие пользователи OpenGL по стоянно задают вопрос, как повернуть не поворачивая остальные примитивы. Еще один раз перечитайте абзац.

Графика в проектах Delphi В заключение разговора о повороте рассмотрите проект (подкаталог Ех55).

основанный на примере с диском. При нажатой кнопке или движении кур сора происходит перерисовка окна и поворот диска на 60 градусов.

Чтобы вы могли оценить преимущества использования "низкоуровневых" приемов, окно перерисовывается в этих случаях по-разному:

procedure var Key: Char);

Refresh procedure (Sender: TObject;

X, Y:

begin (Handle, nil, False);

end ;

При нажатии кнопки хорошо видно мерцание на поверхности окна, кото рого не появляется при движении указателя мыши по его поверхности.

Перенос Перенос точки зрения (системы координат) осуществляется командой с тремя аргументами — величинами переноса для каждой из осей.

Все сказанное по поводу восстановления точки зрения справедливо и в от ношении переноса.

Рассмотрите пример из подкаталога Ех56, иллюстрирующий использование переноса системы координат. особых пояснений здесь потребу поэтому перейдем к вопросу о совместном использовании поворота и — это чаще всего и используется при построениях.

Программа из подкаталога Ех57 строит узор, показанный па рис.

Стоит разобрать этот пример подробнее. В цикле шесть раз происходит пе ренос и поворот системы координат:

(-0.3, 0.3, 0.01;

(60, 0, 0, 1) Кружочки рисуются в текущей точке отсчета системы координат, относи тельно которой происходят каждый раз преобразования. По завершении цикла точка зрения возвращается точно в начальное положение, поэтому дополнительных манипуляций с системой координат не требуется.

Перед циклом делаем перенос для выравнивания картинки на экране:

(0.4, 0.1, Глава 2. Двумерные построения Рис. 2.17. Еще один пример Рис. 2.16. Пример на комбинацию на поворот и перенос поворота и переноса После цикла, конечно, требуется восстановить первоначальное положение системы координат:

glTransIatef (-0.4, -0.1, 0.0);

Разобравшись с этим примером, перейдите к примеру, располагающемуся в следующем подкаталоге, Ех58. Здесь строятся шесть квадратов по кругу, как показано на рис. 2.17.

Как и все предыдущие, этот пример тоже не отличается особой сложностью.

В цикле перед рисованием очередного квадрата смещаем и поворачиваем систему координат:

0.7 sin (Pi i / 3}, 0.0! ;

glTranslatef (-0. • cos (Pi * О, 1);

а после рисования очередного квадрата делаем обратные действия:

* i, 0, 0, ;

(0.7 * cos (Pi -0. Все, надеюсь, просто и понятно. Здесь только надо хорошенько уяснить, что порядок манипуляций с системой координат поменять вначале пе ренос, затем поворот, по окончании рисования — в обратном порядке: по ворот, затем перенос. Если поменять порядок в любой из пар этих действий либо в обеих парах, будет рисоваться другая картинка — обязательно про верьте это самостоятельно.

Сохранение и восстановление текущего положения По предыдущим примерам вы должны были очень хорошо уяснить, на сколько важно восстанавливать текущую систему координат. При каждой 84 OpenGL. Графика в проектах Delphi следующей перерисовке окна она сдвигается и поворачивается, поэтому нам приходится постоянно следить, чтобы после рисования координат вернулась в прежнее место. Для этого мы пользовались обратными поворо тами и перемещениями. Такой подход неэффективен и редко в примерах и профессиональных программах, т. к. приводит к потерям ско рости воспроизведения. Если вы прочитаете справку по функциям и то узнаете, что эти функции реализуются как перемножение текущей матрицы на матрицы попорота и переноса, соответственно.

Обычно в состоянии, к которому потребуется затем вернуться, запоминают значение текущей матрицы. Вместо того чтобы заново перемножать матри цы и тратить время на операции, связанные с математическими расчетами, возвращаемся сразу к запомненному значению.

Команды и позволяют запомнить и восстановить текущую матрицу. Эти команды оперируют со стеком, то есть, как всегда в подобных случаях, можно запоминать (проталкивать) несколько величин, а при каждом восстановлении (выталкивании) содержимое стека поднима ется вверх на единицу данных.

Использование этих функций делает код более читабельным, а воспроиз ведение более быстрым, поэтому во всех оставшихся примерах мы. как правило, не будем малоэффективные действия по обратному перемножению матриц, а будем опираться на использование рассмотренных команд.

Для большей ясности рассмотрите пример из подкаталога Ех59 — модифика цию примера на шесть квадратов. В цикле перед операциями поворота и пе реноса запоминаем текущую систему координат (обращаемся к а после рисования очередного квадрата — восстанавливаем ее (вызываем Надеюсь, понятно, что в стек помещается и извлекается из пего пять раз одна и та же матрица, причем в этой программе в стеке со держится всегда не больше одной матрицы.

Библиотека OpenGL позволяет запоминать и возвращать не только текущую систему координат, но и остальные параметры воспроизведения.

Посмотрите документацию по функции а конкретно, список моди фикаций этой функции, различающихся но типу аргумента в зависимости от запоминаемого параметра. Обратите внимание, что второй аргумент функ ции всегда указатель на переменную соответствующего типа, поэтому все функции заканчиваются на "v". Первый аргумент — символическая констан указывающая, какой параметр запоминаем.

Закрепим изученный материал разбором проекта из подкаталога Рисуем три точки, первую и третью одинаковым цветом. Код следующий:

( 1. 0, 0.0);

CURRENT COLOR, @Col ox);

Глава 2. Двумерные построения glBegin (-0.25, glColor3f (0.0, O.G, ;

(-0.25, 0.25);

glCclor3f (Color Color ;

(0.25, Для сохранения текущего цвета используется переменная (массив трех вещественных чисел). В качестве пояснения напом ню, что вторым аргументом быть на в которой сохраняется значение параметра.

Первые шаги в пространстве Во всех предыдущих примерах для задания вершин мы сию команды с указанием двух координат вершин. коорди ната, по оси Z, устанавливалась нулевой.

Для дальнейшего знакомства с нам необходимо выяснить одну важную вещь, для чего попробуем рисовать примитивы с заданием координаты, не равной нулю.

Взгляните па пример из подкаталога Ех61. Здесь рисуется треугольник со значением координаты вершин Z равным текущему значению перемен ной h. При нажатии клавиш значение этой увеличивается на единицу, если нажимать просто то переменной на единицу уменьшается. Значение переменной в заголовке окна. После этого картинка перерисовывается.

Поработав с этим вы можете обнаружить, что пока a по оси Z не превышает по модулю единицу, треугольник виден лю. Вы можете уменьшить шаг изменения переменной повысить достоверность вывода, но результат окажется таким же: как прпмпгпв выходит за пределы воображаемого куба с координатами вершин, имеющи ми по модулю единичное значение, примитив перестает пилимым.

Точнее, нам становится не видна часть примитива, выходящая за пределы этого куба. В примере из подкаталога Ех62 мы координатой только одной из вершин треугольника, остальные не перемешаются и рас полагаются точно на плоскости. При движении третьей вершины в про странстве мы видим только ту часть треугольника, которая помещается Этот пример иллюстрирует еще одну важную Помимо треугольник;

"!, здесь строится квадрат. Первым строится квадрат, вторым — треугольник.

Треугольник частично перекрывает квадрат так. как если бы ом был нарисо ван сверху. Если поменять порядок рисования примитивов, ся "выше" треугольника.

8 6 O p e n G L. Графика в проектах Delphi Замечание Итак, OpenGL воспроизводит только те части примитивов, координаты которых не превышают по модулю единицу. Примитивы с одинаковыми координатами рисуются по принципу: "каждый последующий рисуется поверх предыдущего".

Если вы не теряли внимание по ходу наших уроков, то должны были убедиться в правильности второго вывода, еще разбираясь с примером на связанные четырехугольники.

Последний пример этой главы достоин того, чтобы разобраться с ним под робнее. Обратите внимание, что при отрицательном значении переменной h треугольник строится все равно "выше" квадрата, т. е. пока мы не можем получить действительно пространственных построений, учитывающих вза имное положение примитивов в пространстве.

ГЛАВА Построения в пространстве Главной темой этой главы является трехмерная графика. Начнем мы с обзо ра методов, позволяющих достичь объемности получаемых образов, а в кон це главы будут описаны методы построения анимационных программ.

Глава завершает базовый курс изучения основ OpenGL, и после ее изучения читатель сможет создавать высококачественные трехмерные изображения.

Примеры к главе помещены на дискете в каталоге Chapter3.

Параметры вида В предыдущей главе мы убедились, что объем сцены ограничен кубом с ко ординатами точек вершин по { — 1, и (1, 1, 1). Начнем дальнейшее изучение с что увеличим объем этого пространства. Про ект из подкаталога нам поможет. На сцене присутствует все тот же треугольник, одну из вершин которого можно перемещать по оси Z нажати ем клавиши <пробел>, значение координаты вершины выводится в заголов ке окна. Теперь мы видим треугольник целиком в пределах большего, чем раньше, объема.

Код перерисовки окна выглядит так:

(Canvas. Handle, ;

(0, 0, glPushMatrix;

(-1, 1, -1, 1, 3, 10);

// задаем перспективу 0.0, -5.0);

// перенос объекта по оси Z glClearColor (0.5, 0.5, 0.75, 1.0);

glClear COLOR BUFFER BIT);

OpenGL. Графика в проектах Delphi -1, glVertex3f {-1, 1, 0) ;

(1, 0, (Canvas.

(0, 0) ;

Основная последовательность действий заключена между командами и Если этого не то при каждой ке например, при размеров, сцена будет уменьшаться в размерах.

Здесь встречается новая для нас команда — задающая параметры вида, в частности, определяющие область воспроизведения в пространстве.

Все, что выходит за пределы этой области, будет отсекаться при воспроизве дении. Первые два аргумента задают координаты плоскостей отсечении сле ва и справа, третий и четвертый параметры определяют координаты плоско стей отсечения снизу и сверху. Последние аргументы задают расстояния до ближней и дальней плоскостей отсечения, значения этих двух параметров должны быть положительными — это не координаты плоскостей, а ния от глаза наблюдателя до плоскостей отсечения.

Замечание Старайтесь переднюю и заднюю плоскости отсечения располагать таким обра зом, чтобы расстояние между ними было минимально возможным: чем мень ший объем ограничен этими плоскостями, тем меньше вычислений приходится производить OpenGL.

все, что рисуется с нулевым значением координаты Z, не будет вид но наблюдателю, поскольку ближнюю плоскость отсечения мы расположи ли на расстоянии трех единиц от глаза наблюдателя, располагающегося в точке 0. 0). Поэтому перед треугольника смещаем систему координат на пять единиц вниз.

Треугольник удалился от и его вершины располагаются уже не на границе окна, а сместились вглубь экрана.

Замечание В главе 6 мы узнаем, как соотнести пространственные и оконные координаты, если видовые параметры заданы с помощью команды Переходим к следующему примеру — проекту из подкаталога ЕхО2. Отличие ОТ СОСТОИТ В ТОМ. ЧТО И Глава 3. Построения в пространстве удалены, а перед вызовом команды стоит вызов команды Будем понимать это как действие "вернуться в исходное со стояние". При каждой перерисовке экрана перед заданием видовых пара метров это следует проделывать, иначе объем смены будет последовательно отсекаться из предыдущего.

Замечание Устанавливать видовые параметры не обязательно при каждой перерисовке экрана, достаточно делать это лишь при изменении размеров окна.

Это несложное предваряет следующий пример — проект из подкаталога ЕхОЗ. Для повышения надежности работы приложения пользу емся получаемой ссылкой на контекст устройства, а не значением свойства Сразу же после получения контекста воспроизведе ния делаем его текущим в обработчике события Create формы, а непосред ственно перед удалением освобождаем контекст в обработчике Destroy.

Теперь такие параметры как цвет фона и цвет примитивов, можно задавать единственный раз — при создании формы, а не выполнять это дей ствие каждый раз при перерисовке экрана. В отличие от всех предыдущих проектов, в данном появляется отдельный обработчик события, связанного с изменением размеров окна. Напомню, раньше при этом событии выпол нялся тот же код, что и при перерисовке окна.

Во всех оставшихся примерах, как будет присутствовать отдельный обработчик события, связанного с изменением размеров окна. В этом обра ботчике задается область вывода и устанавливаются параметры после чего окно необходимо перерисовать:

e (Sender ;

begin (0, 0, g.l (-1, // видовые —5.0);

начальный сдвиг ;

end;

Код, связанный с перерисовкой окна, теперь сокращается и становится бо лее читабельным:

procedure begin glClear BIT) ;

glBegin ;

(-]., -1, 0) ;

OpenGL Графика в проектах Delphi gIVertex3f (-1, 1, 0);

glVertex3f (1, 0, h);

end;

Хоть мы уже и рисуем пространственные картинки, однако почувствовать трехмерность пока не могли. Попробуем нарисовать что-нибудь действи тельно объемное, например, куб (проект из подкаталога ЕхО4).

работы программы — на рис. 3.1.

Пространство Рис. 3.1. В будущем мы получим более красивые картинки, начинаем же с самых простых Для придания трехмерности сцепе поворачиваем ее по осям:

procedure (0, 0, ;

(-1, 1, —1, 1, 3, // задаем перспективу // этот фрагмент нужен для придания трехмерности 0.0, / перенос объекта - ось (30.0, 1.0, 0.0, 0.0);

поворот объекта - ось X glRotatef 0.0, 1.0, 0.0);

поворот объекта - ось Y (Handle, nil, ;

Построение куба сводится к построению шести квадратов, отдельно для каждой стороны фигуры:

;

(1.0, 1.0, 1.0);

(-1.0, 1.0, (-1.0, -1.0, Глава 3. Построения в пространстве glBegin glVertex3i glVertex3f -1.0);

qlVertex3f glVertex3f (-1.0, 1.0, -1.0);

glBegin (-1.0, 1.0);

1.0, (-1. 0, -1. 0, - 1. 0) ;

glVertex3f (-1.0, -1.0, 1.0};

glBegin glVertex3f (1.0, 1.0, glVertex3f (1.0, -1.0, 1.0);

(1.0, -1.0);

(1.0, 1.0, glVertex3f (-1.0, 1.0, -1.0);

(-1.0, 1.0, 1.0);

glVertex3f 1.0, 1.0);

glVertex3f (1.0, 1.0, -1.0);

-1.0, --1.0);

glVertex3f -1.0, (1.0, —1.0, 1.0);

-1.0, 1.0);

glEnd;

Код получается громоздким, согласен.

Замечание Для некоторых базовых фигур мы сможем в будущем найти возможность кратить код, но в общем случае объемные объекты строятся именно так, т. е.

из отдельных плоских примитивов.

Я хочу предостеречь вас на случай, если вы желаете прямо сейчас роваться и нарисовать что-нибудь интересное. Пока что наши примеры сильно упрощены, могут быть только учебной иллюстрацией и не годятся в качестве шаблона или основы для построения более программ.

OpenGL. Графика в проектах Delphi Получившаяся картинка действительно трехмерная, но пространственность здесь только угадывается: куб залит монотонным из-за чего плохо попятно, нарисовано. Сейчас это не очень важно, мы только учимся видовые параметры. Для большей определенности в ближайших будем рисовать каркас куба, как, например, в следующем проекте из Пространство 3.2. Для ориентировки в пространстве будем рисовать каркасную модель куба Чтобы выводить только ребра куба, после установления контекста воспроиз задаем режим воспроизведения АНН По [учившаяся картинка иллюстрирует важную вещь: использование коман ды приводит к созданию перспективной проекции. Хорошо видно, ребра куба не параллельны друг другу и имеют точку схода на го ри Чтобы помочь вам лучше разобраться с одной из важнейших команд биб OpenGL, я написал пример, расположенный в подкаталоге В аргументы команды — переменные:

Нажатием пробел можно приблизить точку зрения к сцене, если при клавишу точка зрения будет удаляться.

точку зрения, варьируем с помощью первых четырех перспективы, уменьшая объем сцены, для удаления и пространстве проводим обратную операцию.

Затем обращаемся к обработчику Resize формы, чтобы установить перспективы в обновленные значения и перерисовать окно:

bog.: г:

in begi n нажат -• Глава 3. Построения в пространстве + 0.1;

:- — O.I;

vTop := 0.1;

end else // : + С. 1;

-• 0.1;

vBottom t- 0.1;

vTop vTop end;

end;

Аналогично клавишами управления курсором можно манипулировать зна чениями каждой из этих четырех переменных в а клавиши и отвечают за координаты ближней и дальней плоскостей отсечения.

Так, если чересчур близко к наблюдателю расположить залнюю плоскость отсечения, дальние ребра куба станут обрезаться (рис. 3.3).

Пространство 3.3. Вот что происходит с кубом, если заднюю плоскость приближать слишком близко Еще один способ приблизить к сцене точку зрения уменьшать значение координаты передней плоскости отсечения. Возможно, это более практич ный способ, поскольку у первого способа есть один недостаток: если при ближаться к сцене чересчур близко, картинка переворачивается и при даль нейшем "приближении" удаляется, оставаясь перевернутой.

Замечание Это в принципе два разных способа навигации в пространстве, и, если быть точным, оба они не перемещают точку зрения. Можно для этих нужд не изме нять параметры вида, а действительно смещать в пространстве систему коор динат.

OpenGL. Графика в проектах Delphi Теперь мы перейдем к другой проекции — Посмотрим проект из подкаталога ЕхО7, результат работы которого показан на рис. 3.4.

3.4. Великий Леонардо нашел бы эту картинку нелепой, но чертежник должен быть довольным Отличается эта проекция от перспективной именно отсутствием перспекти вы. В обработчике изменения размеров окна видовые параметры задаются с помощью команды procedure 0, gl Ortho 2, -2, 2, 0, 15. 0);

// видовые параметры 0.0, // перенос системы координат по оси Z (30.0, 0. 0, 0. 0);

// поворот системы по оси X gi Rot at ef (60.0, CO, 1.0, // поворот системы координат го оси Y nil, False;

;

end;

Аргументы КОМаНДЫ gl Ortno ИМеЮТ ТОЧНО ТаКОЙ СМЫСЛ, ЧТО И но последние два аргумента могут иметь отрицательное значение.

Помимо этих двух команд, OpenGL предоставляет еще несколько возмож ностей установки видовых параметров, например, библиотека содержит команду Эта команда имеет четыре аргумента, смысл которых такой же, как и у По своему она эквивалентна вызову giortho с указанием значения расстояния до ближней плоскости отсечения равным минус единице, и расстоянием до дальней плоскости отсечения равным единице..

Как при такой проекции выглядит куб из предыдущих примеров, показано на рис. 3.5, а проект находится в подкаталоге ЕхО8.

Глава 3. Построения в пространстве Пространство 3.5. Командой следует Рис. 3.6. Так работает команда пользоваться с осторожностью, но с точки зрения скорости воспроизведения она является оптимальной Обратите внимание, что отсутствует начальный сдвиг по оси Z:

begin (0, 0, ientHei ght) ;

(-2, 2, —2, 2);

// задаем перспективу (30.0, 1.0, 0.0, 0.0);

// поворот объекта -- ось X (60.0, O.G, 1.0, 0.0);

// поворот объекта - ось Y nil, False);

end;

Куб рисуется вокруг глаза наблюдателя и проецируется на плоскость экрана.

Согласно установкам этой команды передняя и задняя части нашего куба частично обрезаются.

Следующая команда, которую мы рассмотрим, пожалуй, наиболее популяр на в плане использования для первоначального задания видовых ров. Команда как ясно из ее названия, также находится в библиотеке Проект примера содержится в подкаталоге ЕхО9, а полу чающаяся в результате работы программы картинка показана на рис. 3.6.

Смысл аргументов команды поясняется в комментариях:

procedure begin 0, ClientHeight);

Графика в проектах Delphi перспективу ;

30. 0, / / видимости в оси Y Width / // видимости в направлении оси X i.0, // от до ближней плоскости отсечения расстояние от наблюдателя до дальней плоскости отсечения (0.0, -10.0);

// перенос - ось Z (30,0, 1.0, 0.0, 0.0) ;

/ / поворот — ось X 0. С, 1. 0, 0. 0 ) ;

/ / поворот (Handle, Fa.se;

;

Замечание В главе 4 мы узнаем, как соотносятся аргументы команд и С перспективами, надо попрактиковаться. Настоятельно реко мендую с примером из подкаталога ЕхЮ. Клавиши управления курсором позволяют манипулировать значениями двух аргументов При уменьшении первого аргумента происходит приближение глаза наблюдателя к уменьшение второго аргумента при водит к растягивается в поперечном направлении Замечание Как в качестве значения второго аргумента команды так называемого задают отношение ширины и высоты области вывода.

В проекте из подкаталога я объединил все примеры на изученные команды установки видовых параметров (рис. Вы имеете возможность уяснить различия между этими способами подготовки сцены.

Рис. Изменения в видовых установках Рис. 3.8. Команды задания к объектов видовых параметров Глава 3. Построения в пространстве Библиотека располагает еще одной вспомогательной командой, щей отношение к рассматриваемой теме — У нее девять тов: координаты позиции глаза наблюдателя в пространстве, координаты точки, располагающейся в центре экрана, и направление вектора, задаю щего попорот сцены (вектор "up").

При использовании этой команды можно обойтись без начальных операций со сдвигом и поворотом системы координат. Ее работу демонстрирует проект из подкаталога Ех12 (рис. 3.9).

3.9. Командой gluLookAt: удобно пользоваться при перемещениях точки зрения в пространстве Рис. 3.10. Команду gluLookAt нужно изучить основательно При задании параметров вида ограничиваемся минимумом команд:

gluPerspective (50.0, / 2.0, 4 98 Графика в проектах Delphi (2.7, 2, 2.5, 0.4, 0.5, 0.5, 0, 0, 1);

nil, False);

На 3.10 показаны экранные формы, выдаваемые программой из подка талога В них можно менять значения всех аргументов команды и по скольку этих аргументов сравнительно много, я создал вспомогательную форму, в полях редактирования которой выводятся и задаются пользовате лем координаты всех девяти аргументов. Рекомендую обязательно попрак тиковаться с этим примером, чтобы "почувствовать" работу параметров. Об ратите внимание, что, как подчеркивается в документации, вектор "up" не должен быть параллельным линии, соединяющей точку зрения и контроль ную точку.

Матрицы OpenGL и giTranslatef МЫ ВНИ мание на то, что их действие объясняется с позиций линейной На про команду giTranslatef в соответствующем файле справки гово рится, что эта команда умножает текущую матрицу на матрицу переноса.

Аналогично glRotatef сводится к операции перемножения текущей матрицы на матрицу поворота. Многие изученные нами команды, действие которых я объяснял по их функциональному смыслу, в действительности описываются с помощью базовых понятий раздела математики, изучающего вопросы, свя занные с геометрическими операциями, например, такими, как проекция.

Надеюсь, отсутствие ссылок на линейную алгебру нисколько не помешало вам при изучении предыдущего материала. Если я говорю, что команда является командой масштабирования (и умалчиваю о том. что она сводится к операции перемножения матриц), то рассчитываю на то, что читателю данной информации будет вполне достаточно для успешного ис пользования этой команды на практике.

Я сознательно не включил в книгу изложение математических основ для всех подобных команд, поскольку замыслил ее прежде всего как практиче ское руководство по компьютерной графике. Мне кажется, что многие чита тели не очень хотели бы особо углубляться в дебри формул. Это отнюдь значит, что я пытаюсь принизить значение математической грамотности.

Просто мой опыт преподавания подсказывает, что очень многие програм мисты предпочитают руководства, делающие упор на практике.

К счастью, существует масса литературы по компьютерной ляющей много внимания математике, где подробно рассказывается об опера циях перемножения матриц и прочих подобных вопросах. Если вы испытаете необходимость в более основательной теоретической подготовке, найти подходящее пособие не составит труда.

Глава 3. Построения в пространстве Однако и в нашей практической книжке без представления о некоторых специальных терминах не обойтись. Ограничимся самым необходимым.

В OpenGL имеется несколько важных матриц. Матрица модели matrix") связана с координатами объектов. Она используется для того, чтобы в пространстве построить картину как бы видимую глазу наблюдателя. Дру гая матрица, матрица проекций ("projection matrix"), связана с построением проекций пространственных объектов на плоскость.

Матрица проекций, имея координаты точки зрения, строит усеченные ("clip") координаты, по которым после операций, связанных с перспективой, вычисляются нормализованные координаты в системе координат устройства ("normalized device coordinates"). После трансформаций, связанных с об ластью вывода, получаются оконные координаты.

Координаты вершин в пространстве и на плоскости проекций четырехмер ные, помимо обычных координат есть еще w-координата. Поэтому матрица модели и матрица проекций имеют размерность 4x4.

Перенос и поворот системы координат сводится к операции перемножения матриц, связанных с текущей системой координат, и матриц переноса и по ворота. Библиотека OpenGL располагает набором команд, связанных с эти ми операциями, а также имеет универсальную команду для перемножения матриц: При желании и наличии математической подготовки этой командой можно заменить команды переноса, поворота и ряд других.

Посмотрим, как это делается.

В проекте из подкаталога Ех14 команда начального переноса заменена коман дой Для этого введен массив 4x4, хранящий матрицу переноса:

: Array [ 0.. 3, 0.. 3] of GLf l oat ;

Матрица переноса заполняется нулями, кроме элементов главной диагона ли, которые должны быть единицами, и последней строки, содержащей век тор переноса. В примере перемещение осуществляется только по оси 2:

[О, 1;

:= [2, 2] 1;

[3, 3] 1;

mt [3, 2] := -8;

Стартовый сдвиг теперь осуществляется так:

(@rnt) ;

Если надо вернуться к исходной позиции, текущая матрица заменяется мат рицей с единицами по диагонали и равными нулю всеми остальными эле ментами, единичной матрицей. Это и есть действие команды giLcadidentity.

Она является частным случаем более универсальной команды Графика в проектах Delphi для замены текущей матрицы на заданную, ссылка на ко торую передается в качестве аргумента.

примера эти команды не усвоить, поэтому загляните в подкаталог Ех15.

Массив аналогичен единичной матрице. Команда отсут ствует, вместо ее вызова используется явная загрузка единичной матрицы:

;

После знакомства с матричными операциями становится яснее технический смысл команд и запоминающих в стеке текущую матрицу и извлекающих ее оттуда. Такая последовательность манипуляций выполняется быстрее, чем вызов же самое можно сказать и по поводу т. е. единичная матрица загружается быстрее Замечание Чем реже вы пользуетесь командами манипулирования матрицами, тем быст рее будет работать программа. Но учтите, что если на сцене присутствует не больше пары десятков объектов, все манипуляции с матрицами съедают один кадр из тысячи.

Узнать, какая сейчас установлена можно с помощью команды Во всех наших предыдущих примерах мы задавали параметры вида применительно к матрице, установленной по умолчанию. Определим, какая это матрица.

Подкаталог содержит проект, который нам в этом поможет. Обработчик формы дополнен выводом в заголовке окна имени текущей матрицы:

T wrk :

;

сазе wrk of GL : Capt i on : = ' ;

GL_ PROJECTION : i on := ;

Запустив проект, выясняем, что умолчанию в OpenGL установлена рица модели.

Итак, во предыдущих примерах операции производились над матрицей модели.

В любой момент мы можем выяснить этой матрицы. Проиллюст рируем примером проектом из подкаталога Ех17. При создании формы массив 4x4 заполняется матрицей модели:

MATRIX, Глава 3. Построения в пространстве При выборе пункта меню появляется вспомогательное окно, в котором вы водится текущая матрица модели (рис.

Вывод содержимого матрицы модели При первом появлении окна эта матрица совпадает с единичной по главной диагонали все остальные элементы равны нулю. Коман да в этой программе также заменена явной загрузкой матрицы.

В проекте имеется возможность варьировать загружаемую матрицу, по тию на кнопку она устанавливается в модели.

Сейчас у вас имеется прекрасная возможность попрактиковаться в матрич ных операциях. Например, числа на главной являются масштаб ными множителями по осям. Поменяйте первые из этих двух чисел произ вольно для масштабирования по осям X и Y.

( Замечание Для одного из примеров следующей главы нам важно уяснить, что нулевое значение первого или второго из диагональных элементов приведет к проекции сцены на плоскость.

Если вы внимательно прочитали этот раздел, то полученных знаний о мат рицах теперь достаточно для того, чтобы нарисовать все что угодно.

лось узнать еще одну команду — Она позволяет установить текущую матрицу.

Проекты всех предыдущих примеров подходят только для простейших странственных построений, таких как рисование каркаса кубика. Для более сложных программ они не годятся из-за одного упрощения.

Для корректного вывода пространственных фигур параметры вида задаются при установленной матрице проекции, после чего необходимо переключить Графика в проектах Delphi ся в пространство модели. То есть обычная последовательность здесь, на пример, такая:

(0, ClientHeight);

(-1, 1, 1, 3, Замечание На простейших примерах мы не почувствуем никакой разницы и не поймем, что же изменилось. Позже я попробую показать, с чем связана необходимость вы полнения именно такой последовательности действий.

Напоминаю, что параметры вида обычно помещаются в обработчике изме нения размеров окна. Стартовые сдвиги и повороты обычно располагают ся здесь а код воспроизведения сцены заключается между командами И Иногда поступают иначе: код воспроизведения начинается с а далее идут стартовые трансформации и собственно код сцены.

Замечание Поскольку программы профессионалов, как правило, основываются на первом подходе, именно его я буду использовать в большинстве примеров этой книги.

Сейчас мы рассмотрим пару примеров на темы предыдущей главы, которые мы не могли рассмотреть раньше из-за того, что них используются коман ды задания вида. Начнем с проекта из подкаталога Ех18 — модификации классической программы, поставляемой в составе OpenGL SDK. Программа рисует точку и оси системы координат (рис. 3.12).

3.12. Результат работы проекта Point Test Глава 3. Построения в пространстве Клавишами управления курсором можно передвигать нажатием кла виши 'W размер точки можно уменьшать, если же нажимать эту клавишу вместе с , то размер точки увеличивается. Первая цифровая клавиша задает режим сглаживания точки. Обратите внимание, что при установлен ном режиме сглаживания размер получающегося кружочка ограничен неко торыми пределами, для точек больших размеров он не вписывается точно в квадрат точки. Если точнее, то в примере рисуется две точки — вторая рисуется зеленым цветом посередине первой. Вторая точка не изменяется в размерах и всегда выводится несглаженной, но с единичным размером.

Пример можно использовать в качестве простого теста, скорость передви жения большой по размеру точки позволяет оценить возможности тера.

Посмотрите внимательно, как в этом примере задаются видовые параметры.

Здесь интересно то, что плоскости отсечения привязаны к текущим разме рам окна:

0, glMatrixMode ;

glLoadldentity;

Теперь при изменении размеров окна картинка не масштабируется, а изме няются размеры видимой части пространства. Если точку поставить вблизи границы окна, при уменьшении его размеров точка пропадает, выходит за пределы видимости. В примерах предыдущей главы в такой ситуации точка перемешалась внутрь окна пропорционально его размерам.

Координаты точки хранятся в массиве трех вещественных чисел, вершина воспроизведения задается командой с окончанием V. Аргументом в этом случае является указатель на массив:

;

glVertex3fv (@point);

Замечание Напоминаю, что эта — векторная — форма команд является оптимальной по скоростным показателям.

Следующий пример, проект из подкаталога Ех19, тоже может использовать ся в качестве простого теста скоростных характеристик компьютера.

Здесь рисуется серия отрезков прямых, наподобие разметки циферблата часов. В начале и в конце каждого отрезка рисуются точки.

OpenGL. Графика в проектах Delphi В примере видовые параметры опираются на конкретные числа:

Viewport (0, 0, С! ;

17Ь, -175, 175);

Поэтому при изменении размеров окна картинка масштабируется так, что вся всегда вписывается в экран.

Клавиша 'W все так же позволяет регулировать ширину линий, первые две цифровые клавиши отведены для управления двумя режимами воспроизве дения: первый режим включает штриховку линий, второй задаст сглажива ние отрезков.

Управляя этими тремя параметрами, можно получать разнообразные кар тинки, например такую, как приведена на рис. 3.13.

3.13. Получить такие узоры на самом деле легко Поработав с данным вы должны уяснить для себя, что и для сглаженных отрезков есть ограничение — по ширине.

Также полезно разобраться, как в этом примере рисуется система отрезков.

Два массива залают координаты начала и конца единственного отрезка, этот рисуется в цикле, и каждый раз происходит поворот на пять градусов:

(size) ;

// ширина отрезка Г" // режим, задающий штриховку отрезков /,' использовать штриховку else // не штриховку // режим, задающий сглаженность отрезков then (GL /7 сглаживать отрезки else glD.i sable ;

// не использовать сглаженность // запоминаем систему Глава 3. Построения в пространстве For i := 0 to do begin цикл рисования отрезков 0, 0, 1);

// поворот на пять 0.0);

// цвет отрезков - // примитив - отрезок gIVertex3fv // указатель на начало // указатель на конец отрезка 1.0, 0.0);

// цвет точек — зеленый ;

// примитив - ;

// точка в начале отрезка // точка в конце end;

// возвращаемся в первоначальную систему Буфер глубины При создании контекста воспроизведения в число параметров формата пик селов входят размеры разделов памяти, предоставляемой для нужд или буферов. Помимо буферов кадра, в OpenGL присутствуют еще три фера: буфер глубины, буфер трафарета и вспомогательный буфер.

Для специальных нужд могут использоваться еше буфер выбора и буфер ратной связи, они подготавливаются пользователем по мере надобности.

Работа с буферами будет нами подробно изучена в соответствующих разде лах книги. В этом разделе мы познакомимся с буфером глубины.

Как ясно из его он используется для передачи пространству. При воспроизведении каждого пиксела в этот буфер записывается информация о значении координаты Z пиксела, так называемая оконная Z. Если на сел приходится несколько точек, на экран выводится точка с наименьшим значением этой координаты.

При пространственных построениях отказ от использования буфера глуби ны приводит к неверной передаче пространства. в чем тут дело.

Для удобства отладки я написал процедуру, строящую оси координат и по мечающую оси буквами X, Y и Z:

procedure Axes;

Color ;

Array [1..4] of GLFloat;

begin Графика в проектах Delphi glGetFloatv @Color) (0.5, 0.5, 0.5);

glColor3f 1, 0);

(0, 0, 0);

glVertex3f (3, 0, 0);

glVertex3f (0, 0, 0);

{0, 3, glVertex3f {0, 0, 0);

gIVertex3f (0, 0, 3);

// буква X ;

glVertex3f (3.1, -0.2, 0.5);

glVertex3f (3.1, 0.2, glVertex3f (3.1, -0.2, 0.1);

(3.1, glVertex3f 0.5);

glEnd;

// буква Y gIBegin glVertex3f (0.0 0.0) ;

glVertex3f 3.1 -0 1, ;

(0. 3. (0.0 0.

0);

glVertex3f 3. (0.1 0.

glVertex3f 3.1 0.0);

(0.0, glVertex3f (-0.1, 3.1, // буква Z gIBegin (0.1, 3.1);

gIVertex3f (-0.1, -0.1, 3.1);

giVertex3f (0.1, 0.1, 3.1) ;

(-0.1, 0.1, 3.1);

-0.1, 3.1);

glVertex3f (0.1, 3.1);

// Восстанавливаем значение текущего цвета (Color [1], Color [2], Color [3];

end;

Глава 3. Построения в пространстве Обратите внимание, что оси рисуются зеленым цветом, а установ ки запоминаются во вспомогательном массиве, по которому они ливаются в конце работы процедуры.

Оси выходят из точки (0. 0, 0) и визуализируются лишь в положительном направлении. Проект находится в подкаталоге Ех20. В качестве основы взят пример в который добавлен вызов вышеописанной процедуры и убрано контурное отображение куба. Результат работы программы приведен на рис. 3.14. Видно, что пространство передается некорректно, куб пол ностью загораживает оси координат, хотя оси должны протыкать грани куба.

Пространство Пространство 3.14. Без использования буфера Рис. 3.15. Теперь правильно:

глубины пространство сцены оси протыкают грани куба передается некорректно В следующем примере, проекте из подкаталога Ех21, та же сцена выводится верно (рис. 3.15).

После получения контекста воспроизведения сообщаем системе OpenGL о том, что необходимо корректировать построения в соответствии с глубиной:

// включаем режим тестирования глубины Код сцены начинается с очистки двух буферов: буфера кадра и буфера глу бины:

glClear or // буфер Точно так же, как перед очередным построением необходимо очистить верхность рисования, для корректного воспроизведения требуется очистить буфер пространства. Эти действия, которые мы впервые выполнили в этом будут использоваться в большинстве последующих примеров.

Замечание О содержимом буфера глубины мы будем говорить еще неоднократно.

Графика в проектах Delphi С буфером Две КОМаНЛЫ: И они применяются довольно редко, представление о них не помешает.

Первая из этих команд задает правило, по которому происходит сравнение значения оконного Z перед выводом пиксела. По умолчанию установлено значение — выводить на экран точки с минимальным значением оконной Z. Остальные значения приводят чаще всего к тому, что вообще ничего не будет выведено.

Вторая команда задает распределение оконной координаты Z при из нормализованных координат в оконные. На рис. 3.16 приведен результат работы программы (проект из подкаталога Ех22), где такое установлено в обратное принятому по умолчанию:

glDepthRange (1, Пространство Рис. 3.16. В любой момент 3.17. На сцене появился можно увидеть то, что скрыто источник света от глаза наблюдателя Источник света Предыдущие примеры вряд ли могут удовлетворить кого-либо в силу своей невыразительности. Рисуемый кубик скорее все грани покрыты монотонным цветом, за которым теряется пространство. Теперь мы подо шли к тому, чтобы увеличить реализм получаемых построений.

Вот в следующем примере кубик рисуется более реалистично рис 3 проект из подкаталога Ех23.

При создании окна включается источник света:

// разрешаем работу освещеннос (GL LIGHTO);

// включаем источник Глава 3. Построения в пространстве Это минимальные действия для включения источника света. Теперь в сцепе присутствует один источник спета с именем 0.

При необходимости можно "установить" несколько источников, для этого точно так же используется команда glEnabie, например:

glEnabie // включаем источник света Пока нет смысла использовать дополнительные источники света, это никак не повлияет на получаемые картинки, поскольку все источни ки света используют установки, принятые по умолчанию, и ничем не отли чаются друг от друга.

При рисовании каждой стороны куба задается вектор нормали, используе мый для расчета цветовых параметров каждого пиксела. Для сокращения кода из шести сторон куба я оставил три непосредственно видимые наблю дателю.

glBegin 1.0);

1.0, 1.0) ;

1.0, 1.0) ;

-1.0, -1.0, 1.0);

glEnd;

0.0, 0.0);

1.0, 1.0);

1.0, -1.0);

-1.0, -1.0);

1.0);

1.0, 0.0) ;

1. -1. 0);

0, 1. 0, 1.0);

1.0, -1.0);

Теперь поговорим о некоторых деталях.

Во-первых, выясним, какое максимальное число источников света мы мо жем использовать. Проект из подкаталога Ех24 в заголовке окна выводит это число, получаемое при создании окна, с помощью команды ;

Caption := Графика в проектах Delphi Вектора нормалей строятся перпендикулярно каждой стороне куба. В силу того, что наш кубик строится вокруг точки (0, 0, 0), аргументы в данном случае совпадают с точкой пересечения диагоналей каждой грани куба. Чтобы уяснить, насколько важно верно задавать вектор нормали, посмотрите пример, располагающийся в подкаталоге Ех25.

Здесь рисуется только передняя грань кубика, тремя клавишами управления курсором можно менять координаты вектора нормали. При этом меняется вид картинки: освещенность площадки передается в соответствии с текущим значением вектора нормали.

Вектор нормали не обязательно должен исходить именно из середины пло щадки, достаточно того, чтобы он был параллелен действительному вектору нормали к площадке. Это иллюстрирует проект из подкаталога Ех26, где теми же клавишами можно передвигать площадку в пространстве, а вектор нормали задается единожды при создании окна:

0.0, 0.0);

Где бы ни располагалась в пространстве площадка, она освещается образно.

Замечание По умолчанию источник света располагается где-то в бесконечности, поэтому освещенность площадки не меняется вместе с ее перемещением.

В примере из подкаталога Ех27 клавишей <курсор влево> задается поворот площадки в пространстве вокруг оси Y, чтобы можно было взглянуть на площадку с разных точек зрения. Если мы смотрим на заднюю сторону площадки, то видим, что она окрашивается черным цветом. В некоторых ситуациях необходимо, чтобы при таком положении точки зрения наблюда теля примитив не отображался вообще, например, при воспроизведении объектов, образующих замкнутый объем, нет необходимости тратить время на воспроизведение примитивов, заведомо нам не видимых, раз они повер нуты к нам задней стороной. Запомните, как это делается, разобрав проект из подкаталога Ех28.

Здесь площадка не рисуется, если повернута к наблюдателю задней сторо ной. Для этого необходимо включить отсечения задних сторон многоуголь ников:

glEnable FACE);

Команда позволяет задавать, какие стороны при этом подверга ются отсечению, передние или задние. Понятно, что по умолчанию пред лагается отсекать задние стороны. Противоположное правило отсечения можно установить так:

Глава 3. Построения в пространстве Объемные объекты Подчеркну еше раз, что для объемных построений используются все те же десять изученных нами во второй главе примитивов.

В следующем примере строится объемный объект на базе тестовой фигуры, знакомой нам по первой главе (рис. 3.18). Проект расположен в подкатало ге Ех29.

Рис. 3.18. Теперь деталь стала объемной Шестнадцать отдельных многоугольников образуют то, что наблюдателю представляется единым объемным объектом.

В проекте введена переменная, ответственная за режим воспроизведения детали:

mode : POINT, LIKE, FILL) LINE;

В зависимости от значения этой переменной устанавливается режим рисо вания многоугольников:

case of POINT :

LINE : glPolygonMode ;

FILL : glPolygonMode GL_FILL);

end;

Режим можно менять, нажимая на первые три цифровые клавиши, а кла виши управления курсором позволяют изменять положение точки зрения в пространстве.

В этом примере деталь получается разноцветной. При включенном источ нике света для того, чтобы включить учет текущего цвета примитивов, необ ходимо вызвать команду с соответствующим аргументом:

glEnable Графика в проектах Delphi Попутно обращу ваше внимание на то, что если объект приближается черес чур близко к глазу наблюдателя и пересекает ближнюю плоскость отсечения, в нем появляется дырка, сквозь которую можно заглянуть внутрь объекта.

Замечание Необходимо сказать, что при рисовании очень больших объектов происходят сильные искажения, связанные с перспективой, поэтому рекомендуется объек ты масштабировать таким образом, чтобы их линейные характеристики лежали в пределах Надстройки над OpenGL Существует несколько надстроек над OpenGL, представляющих собой набор готовых команд для упрощения кодирования. Стандартной надстройкой, поставляемой вместе с OpenGL, является библиотека физически рас полагающаяся в файле glu32.dll. Мы уже изучили несколько команд этой библиотеки, и в дальнейшем продолжим ее изучение. Помимо этой стан дартной надстройки наиболее популярной является библиотека glut. Для программистов, пишущих на языке С, эта библиотека особенно привле кательна, поскольку является независимой от операционной системы. Ее значительно упрощает кодирование программ, поскольку вся черновая работа по созданию окна, заданию формата получению контекстов и пр. выполняется с помощью вызовов библиотечных функций.

Вот пример начальной части программы, где с использованием функций библиотеки glut создается окно с заданными параметрами:

j GLUT DEPTH);

400);

(50, 50) ;

Программисты, работающие с Delphi, также могут пользоваться этой биб лиотекой. В приложении я привожу адрес, по которому можно получить заголовочный файл для подключения библиотеки. Однако при программи ровании на Delphi мы не получим независимости от операционной систе мы, а из команд библиотеки чаще всего программистов интересует только набор функций для построения некоторых объемных фигур.

Поэтому вместо нестандартной библиотеки я предпочитаю использовать модуль — перенос на Delphi исходных файлов библиотеки glut.

Во многих последующих примерах будут встречаться обращения к этому модулю, соответствующие команды начинаются с префикса glut. Например, для рисования куба с единичной длиной ребра вместо двух десятков строк теперь достаточно одной:

Глава 3. Построения в пространстве Помимо куба, модуль (и библиотека) содержит команды воспроизведения сферы, тора, конуса и некоторых правильных многогранников, таких как тетраэдр и додекаэдр. Есть здесь и команда для рисования классического объекта для тестовых программ машинной графики — чайника.

Правильные многогранники строятся как совокупность многоугольников.

о том, как создаются остальные объекты этой библиотеки, мы поговорим позднее.

Для получения представления о модуле DGLUT разберите несложный при мер, проект из подкаталога ЕхЗО.

По выбору пользователя можно построить любой объект модуля в одном из режимов: точками, линиями или сплошной поверхностью. Для задания типа объекта и режима воспроизведения введены переменные типа "перечис ление":

mode : (POINT, LINE, FILL) FILL;

: (CUBE, SPHERE, CONE, TORUS, DODECAHEDRON, ICOSAHEDRON, TETRAHEDRON, TEAPOT) = CUBE;

По умолчанию заданы значения, соответствующие кубу со сплошными нями. При воспроизведении сцены устанавливается режим и производится обращение к нужной команде:

case mode of POINT :

LINE : glPolygonMode GL_LINE);

FILL : glPolygonMode GL_FILL);

end;

case glutobj of TEAPOT : glutSolidTeapot (1.5);

CUBE : glutSolidCube (.1.5);

SPHERE : glutSoiidSphere (1.5, 20, 20);

CONE : 1.5, 20, 20);

TORUS : glutSolidTcrus (0.5, 1.5, 20, 20);

DODECAHEDRON :

:

TETRAHEDRON : glutSolidTetrahedron;

end;

Нажимая на первые три цифровые клавиши, можно задавать режим, четвер тая клавиша позволяет переключать тип объекта:

If Key 52 then begin // установить следующее значение If glutobj > High (glutobj) then glutobj := Low (glutobj);

nil, False);

end;

OpenGL. Графика в проектах Delphi Параметр команды, рисующей чайник, такой же смысл, что и для ку ба, — размер объекта. Для сферы необходимо указать радиус и количество линий разбиения по широте и по долготе.

Г Замечание Чем больше эти числа, тем более гладкими получаются объекты, но тем боль ше времени требуется для их воспроизведения. Если все предыдущие реко мендации по оптимизации скоростных характеристик дают малоощутимый эф фект, то детализация поверхностей является одним из самых важных факто ров, влияющих на скорость воспроизведения.

Для конуса задаются радиус основания, высота и пара задающих гладкость построений.

У тора параметры следующие: внутренний и радиусы и все те же два числа, задающих, насколько плавной будет поверхность рисуемой В этом примере режим задается способом, знакомым нам по предыдущим примерам — командой Для каркасного изображения объектов модуль располагает серией команд, аналогичных тем, что мы используем ЭТОМ Примере, НО С ПрИСТавКОЙ glutWire ВМеСТО Следующий пример показывает, как можно манипулировать объектами ис ходного набора, чтобы получить другие объемные фигуры. В подкаталоге Ех31 содержится проект, представляющий модификацию классической про граммы из SDK. В программе моделируется рука робота в виде двух парал лелепипедов 3.19).

3.19. В программе рукой манипулятора можно управлять Я не стал расписывать каждый параллелепипед по шести граням, а просто задал масштаб по трем осям перед воспроизведением куба так, чтобы вытя нуть его в нужную фигуру:

( - 1. 0, 0. 0, 0. 0 ) ;

( s h o u l d e r, 0. 0, 0. 0, 1. 0 ) ;

( 1. 0, 0. 0, 0. 0 ) ;

Глава 3. Построений в пространстве // запомнить масштаб glScaief (2.0, 0.4, // для вытягивания куба в параллелепипед ;

// в действительности — параллелепипед // вернуть обычный масштаб // вторая часть руки робота glTranslatef (1.0, 0.0, 0.0);

(elbow, 0.0, 0.0, glTranslatef (1.0, 0.0, 0.0);

glPushMatrix;

glScaief 0.4, 1.0);

glPopMatrix;

В программе клавишами , , и можно зада вать относительное положение "суставов" руки, эмулируя управление рукой робота. Первой цифровой клавишей можно менять режим воспроизведения, клавишами управления курсором можно менять положение точки зрения наблюдателя.

библиотеки Библиотека предоставляет набор команд, без которых, в принципе, мож но обойтись, но с их использованием решение многих задач сильно упро щается.

Для упрощения построений некоторых поверхностей второго порядка вво дится серия команд, основой которых являются квадратичные (quadric) объекты — собственный тип этой библиотеки.

Как и раньше, познакомимся с новой темой на примерах, для чего откройте проект в подкаталоге Ех32. То, что получается в результате рабо ты программы, изображено на рис. 3.20. Пример этот является переложени ем на Delphi классической программы из набора примеров SDK.

Прежде всего обратите внимание, что видовые параметры задаются в зави симости от пропорций окна, чтобы при любых значениях габаритов окна сцена не выходила за его пределы:

If ClientWidth ClientHeight then (0,0, 50.0, 0.0, 50.0 * ClientHeight / -1.0, e l s e g l Or t no ( 0. 0, 50. 0 Cl i e nt Wi d t h / 0. 0, 1. 0, Для работы с командами библиотеки glu вводится переменная специального типа:

quadObj :

OpenGL. Графика в проектах Delphi Рис. 3.20. Проект иллюстрирует использование При создании окна вызываем команду, создающую без этого действия обращение к объекту приведет к исключениям:

•= КОМаНДОЙ первым аргументом команды указывается имя quadric-объекта. По умолча нию стиль задается сплошным, так что чаще всего нет надобности вызывать эту команду. Она также является аналогом команды и всегда может быть ею заменена, за исключением случая использования с аргумен том При установлении такого режима рисуется только гра ничный контур фигуры, отдельные сектора не рисуются, как это сделано при рисовании третьего диска рассматриваемого примера.

Диск строится с помощью команды Помимо имени объекта се ар гументами задаются внутренний и внешний радиусы, затем два числа, за дающих число разбиений диска по оси Z и число концентрических окруж ностей при разбиении диска. Смысл этих величин хорошо виден при кар касном режиме воспроизведения, когда в получающейся паутинке хорошо видны отдельные сектора диска.

В этом примере показано, как нарисовать дугу диска, сектор, "кусок пиро га". Это делается с помощью команды первые пять парамет ров которой полностью аналогичны параметрам а остальные задают угол и развертки. Углы задаются в градусах.

По окончании работы память, используемую quadric-объектами, необходимо освобождать. Сделать это нужно до освобождения контекста воспроизведения:

// объекта (О, О);

fhrc) ;

Глава 3. Построения в пространстве Замечание Согласно файлу справки, обращение к удаленному объекту невозможно. Может быть, вы столкнетесь здесь с тем же неожиданным явлением, что и я: поставь те вызов этой команды сразу же за его созданием и запустите программу.

У меня не возникло никаких исключений, что меня удивило и озадачило. Тем не менее, я все же порекомендую не забывать удалять quadric-объекты.

Библиотека имеет средства работы с возможными исключениями, для этого предназначена команда Первый аргумент, как обычно, имя quadric-объекта, вторым аргументом может быть только кон станта третий аргумент адрес функции, вызываемой при ис ключении.

В заголовочном файле отсутствует описание константы вместо нее можно использовать присутствующую там константу либо самому определить такую константу.

Замечание Точнее, описание константы не отсутствует, а закомментировано.

Без примера, конечно, не обойтись, им станет проект из подкаталога ЕхЗО.

В примере описаны процедура, которая будет вызываться в случае ошибки, и нужная константа:

procedure {'Ошибка при работе с quadric-объектом!');

end;

const GLU ERROR GLU TESS ERROR;

Замечание Процедура, используемая в таких ситуациях, не может присутствовать в описа нии класса. При описании подобных процедур рекомендую использовать клю чевое СЛОВО stdcal l.

Сразу после создания задается функция, вызываемая при исключениях;

здесь передаем адрес пользовательской процедуры:

;

Для того чтобы протестировать программу, создается исключение указанием заведомо неверной константы в команде установки режима:

GL_LINE};

Теперь при запуске программы работает наша тестовая процедура (рис. 3.21).

Графика в проектах Delphi Рис. Пример на использование команды Замечание Исключение при этом не снимается, так что после этого сообщения появляется сообщение операционной системы об аварийной ситуации. Можно вать защищенный режим, чтобы такого сообщения не появлялось, Если при обращении к команде в качестве адреса функ ции задать значение, равное nil, возникающие исключения будут снимать ся, а выполнение программы будет продолжаться со строки, следующей за строкой, породившей исключение.

Помимо диска, библиотека располагает командами рисования еще некоторых объектов, например, команда предназначена для цилиндров и конусов. Параметры команды следующие: имя объекта, радиусы основания и верхней части и два числа, задающих частоту разбиения.

Команда как ясно из ее имени, упрощает построение сферы. У нее четыре аргумента, второй аргумент является радиусом сферы, остальные па раметры для этой серии команд.

Все объекты библиотеки я собрал в одном проекте, располагающемся в подкаталоге Ех34. Этот пример аналогичен примеру на объекты библиоте ки glut: по выбору пользователя рисуется объект заданного типа.

Здесь также демонстрируется действие команды за дающей направление нормали к поверхности внутрь или Еще можно выяснить, как сказывается на виде объекта работа команды определяющей, строятся ли нормали для каждой верши ны, для всего сегмента либо вообще не строятся.

Нажимая на первые четыре цифровые клавиши, можно задавать значения параметров: режим, тип объекта, ориентацию и правило их по строения.

В проекте введены соответствующие перечисления:

mode : LINE, FILL, SILHOUETTE) FILL;

;

(SPHERE, CONE, CYLINDER, DISK) = SPHERE;

Глава 3. Построения в пространстве orientation : (OUTSIDE, INSIDE) = OUTSIDE;

normals : (NONE, FLAT, SMOOTH) = SMOOTH;

Первым аргументом всех команд является имя все возмож ные константы перечисляются в конструкциях case:

case mode of // режим воспроизведения POINT : // точки LINE : gluQuadricDrawStyle (quadObj, //линии FILL : gluQuadricDrawStyle (quadObj, GLU_FILL);

// сплошным SILHOUETTE : gluQuadricDrawStyle (quadObj, // контур end;

case orientation of // направление нормалей INSIDE : gluQuadricOrientation (quadObj, ;

// внутрь OUTSIDE : gluQuadricOrientation {quadObj, // наружу end;

case normals of // правило построения нормалей NONE : (quadObj, // не строить FLAT : gluQuadricNormals (quadObj, ;

// для сегмента SMOOTH : gluQuadricNormals (quadObj, для каждой end;

case of// тип объекта SPHERE : gluSphere (quadObj, 1.5, 10, 10);

// сфера CONE : gluCylinder (quadObj, 0.0, 1.0, 1.5, 10, 10);

// конус CYLINDER : gluCylinder (quadObj, 1.0, 1.0, 1.5, 10, // цилиндр DISK : gluDisk (quadObj, O.O, 1.5, 10, 5);

// диск end;

На 3.22 приводится одна из возможных картинок, получаемых с по мощью этого проекта.

Следующие примеры этого раздела также являются переложением на Delphi классических примеров из SDK.

3.22. С помощью этого примера вы можете познакомиться со всеми Графика в проектах Delphi Первым делом посмотрите проект из подкаталога Ех35 — вступительный пример к нескольким следующим проектам и одновременно простейший пример на использование объектов библиотеки glu.

Здесь просто рисуется сфера, звезды, наблюдатель находится над полюсом (рис. 3,23).

Рис. 3.23. Упрощенная модель звезды Проект следующего примера располагается в подкаталоге а экранная форма приложении приведена на рис.

Здесь уже планетарная система, клавишами управления кур сором можно задавать положение планеты относительно звезды и угол по лорота ее вокруг собственной оси.

3.24. Добавилась планета Глава 3. Построения в пространстве Замечание Начинающим я рекомендую хорошенько разобраться с этим примером, здесь впервые для нас в пространстве присутствует несколько объектов, распола гающихся независимо друг от друга.

На базе одного -объекта можно строить сколько угодно фигур;

не обязательно для каждой из них создавать собственный объект, метры всех их идентичны.

В этом примере на базе одного объекта рисуется две сферы:

// рисуем солнце gluSphere 1.0, // рисуем маленькую (year, 0.0, 1.0, (2.0, 0.0, 0.0);

glRotatef (day, 0.0, 1.0, 0.0);

gluSphere 0.2, 10, 10);

Следующий пример, проект из подкаталога Ех37, является небольшой мо дификацией предыдущего. Положение точки зрения изменилось так, что модель наблюдается под другим углом — рис. 3.25.

3.25. В этом примере смотрим на систему с другой точки зрения Этот пример служит хорошей иллюстрацией на использование команд и солнце и планета поворачиваются по отдельно сти относительно базовой системы координат:

glPushMatrix;

// рисуем солнце OpenGL. Графика в проектах Delphi (90.0, 1.0, 0.0, 0.0);

// поворачиваем прямо gluSphere (quadObj, 1.0, 15, glPopMatrix;

// рисуем маленькую планету glRotatef (year, 0.0, 1.0, 0.0);

(2.0, 0.0, 0.0);

glRotatef (day, 0.0, 1.0, 0.0);

glRotatef (90.0, 1.0, 0.0, 0.0);

// прямо gluSphere (quadObj, 0.2, 10, 10);

glPopMatrix;

Рано или поздно вам потребуется узнать, как в OpenGL можно получить вырезку пространственных фигур, например, полусферу. Следующий при мер (подкаталог Ех38) поможет узнать, как это делается. В нем рисуется четверть сферы — рис. 3.26.

Рис. 3.26. Совсем несложно получить полусферу или четверть сферы Для вырезки части пространства используется новая для нас команда Для вырезки можно использовать несколько плоскостей эта команда идентифицирует используемые плоскости. Первый символическое имя плоскости вырезки, второй адрес массива, задающего эту плоскость. Символические имена начинаются с GL_CLIP дальше следует цифра, нумерация начинается с нуля.

При каждой вырезке отсекается полупространство, массив задает остающуюся часть. Вектор не должен быть обязательно пер пендикулярен осям, как в нашем примере.

Для получения четверти сферы проделываем две вырезки: сначала обрезаем нижнее полупространство, удаляя все вершины с отрицательным значением координаты Y, затем отсекаем левое полупространство, т. е. удаляются вер шины с отрицательным значением координаты X:

const eqn : Array [0..3] of GLdouble = (0.0, Глава 3. Построения в пространстве eqn2 : Array [0..3] of = 0.0, 0.0, // удаление нижней половины, для у < giClipPlane идентифицируем плоскость отсечения CLIP // включаем плоскость // удаление левой половины, для х < (GL_CLIP_PLANEl, glEnatle // включаем вторую плоскость отсечения Если теперь вернуться к библиотеке то можно заметить, что сфера и конус в ней строятся на базе объектов библиотеки glu. Например, процедура для построения каркаса сферы выглядит так:

: GLdouble;

Slices : GLint;

Stacks : GLint);

begin ( glutWireSphere } if = nil then quadObj := Radius, Slices, Stacks);

end;

{ glutWireSphere } Здесь можно подсмотреть несложный прием для определения того, надо ли создавать Прием основан на том, что тип является указателем и его nil-значение соответствует тому, что объект пока еще не создан. Кстати, можете сейчас заглянуть в заголовочный файл opengl.pas, чтобы убедиться, что этот тип является указателем, указателем на пустую запись:

type record end;

Заключительным примером раздела станет проект из подкаталога Ех39 — модель автомобиля (рис. 3.27).

Клавишами управления курсором можно вращать модель по осям, клавиши > и служат для приближения/удаления модели. Пробелом и ввода можно задавать различные режимы воспроизведения.

В примере используются объекты библиотеки glu и модуля Нет смысла его подробно разбирать, остановимся только на некоторых моментах.

Напоминаю, что для воспроизведения объектов с различным пространст венным положением перед собственно воспроизведением каждого из них система координат перемещается в нужную точку в пространстве. Для удоб ства ориентирования в пространстве перед каждой трансформацией системы Графика в проектах Delphi координат текущую матрицу (систему координат) запоминаем вызовом команды затем возвращаемся в эту систему координат вызо вом Это будет выполняться быстрее, чем обратные переносы.

но было бы лучше вычислять координаты следующего объекта текущей системе координат.

Рис. 3.27. Мы можем строить модели и посложнее двух сфер Для разнообразия передние квадратные фары автомобиля строятся с ис пользованием команды если последние два аргумента команды за дать равными четырем, строится ромб, перед построением система коорди нат поворачивается:

0.0, 0.0, 1.0);

(quadObj, 0.0, 0.1, 4, 4);

Квадраты задних фар строятся с помощью команды мы изучали эту команду в предыдущей главе.

Для того чтобы нормаль квадрата была направлена в нужную сторону, пере ворачиваем систему координат:

1.0, 0.0, 0.0);

glRectf (0.1, 0.1, -0.1, -0.1);

Вместо этого можно было бы просто задать нужный вектор нормали:

(0, 0,-1);

Глава 3. Построения в пространстве Эту программу вы можете взять в качестве шаблона, чтобы поупражняться в построениях.

Проектировать системы из множества объектов без использования редакто ров может оказаться трудным делом для новичков. Могу посоветовать вос пользоваться приведенной выше процедурой построения осей текущей сис темы координат: обращайтесь к ней каждый раз, когда необходимо выяс нить, "где я сейчас нахожусь".

Сплайны и поверхности Безье Мы теперь можем без труда рисовать кубики, сферы, цилиндры и многие другие аналогичные фигуры, но, конечно, этого и рано или поздно возникнет потребность нарисовать поверхность фор мы. В этом разделе мы узнаем, как это сделать.

Подход, предлагаемый библиотекой OpenGL для криволиней ных поверхностей, для компьютерной графики: задаются ко ординаты небольшого числа опорных точек, определяющих вид искомой поверхности. В зависимости от способа расчета опорные точки могут лежать на получаемой поверхности, а могут и не располагаться на ней.

Сглаживающие поверхности называются сплайнами. Есть много способов построения сплайнов, из наиболее распространенных нас будут интересо вать только два: кривые Безье (Bezier curves, в некоторых книгах называются "сплайны Бежье") и В-сплайны (base-splines, базовые сплайны).

Изучение этой темы начнем с простейшего, с двумерных кривых.

Операционная система располагает функциями GDI, позволяющими стро ить кривые Безье.

В примере — проекте из подкаталога Ех40 — модуль OpenGL не использует ся, это пример как раз на использование функций GDI. Он является моди фикацией одного из проектов первой главы, но теперь рисуется не квадрат и круг, а кривая Безье по четырем точкам — рис. 3.28.

Кривая Безье Рис. 3.28. GDI позволяют строить кривые Безье Опорные вершины заданы массиве четырех величин типа вводится в модуле OpenGL. Графика в проектах Delphi Const Array [0..3] of Points y:90;

;

y:5), (x:20;

Собственно рисование кривой состоит в вызове функции GDI первый аргумент которой — ссылка на контекст устройства, затем указыва ется массив опорных точек, последний аргумент — используе мых точек:

PolyBezier (dc, Points, 4) ;

Построение для большей наглядности дополнено циклом, в котором окруж ностями визуализируются опорные точки:

For i := G to 3 do — 3, Points — 3, Ellipse (dc, Points 3, Points [i] + 3);

Points В случае четырех опорных точек кривая всегда будет начинаться точно в первой точке и приходить в последнюю точку. Если их переставить места ми, вид кривой не изменится, что не произойдет и если переставить места ми вторую и третью опорные точки. Опорные точки могут располагаться в пространстве произвольно, т. е. не требуется, чтобы они, например, рав номерно располагались по интервалу. Если необходимо продолжить кривую, добавляется по три точки для каждого последующего сегмента.

Теперь посмотрим, как нарисовать кривую Безье, используя команды OpenGL. Откройте проект из подкаталога Ех41. Получаемая кривая показа на на рис. 3.29.

3.29. Кривая Безье, построенная с помощью функций библиотеки OpenGL В обработчике создания формы задаются параметры так называемого одномерного вычислителя, и включается этот самый 0.0, 3, 4, glEnable ;

Первый параметр команды символическая константа, значение соответствует случаю, когда каждая контрольная точка Глава 3. Построения в пространстве представляет собой набор трех вещественных чисел одинарной точности, т. е. координаты точки. Значения второго и третьего аргументов команды определяют конечные точки интервала предварительного образа рассчиты ваемой кривой. Величины ноль и один для них являются обычно исполь зуемыми, мы рассмотрим эти аргументы чуть ниже.

Четвертый параметр команды, "большой шаг", задает, сколько чисел содер жится в считываемой порции данных. Как говорится в документации, кон трольные точки могут содержаться в произвольных структурах лишь бы их значения располагались в памяти друг за другом.

Последние два параметра команды — число опорных точек и указатель па массив опорных точек.

Для построения кривой можно использовать точки или отрезки: вместо команды, задающей вершину, вызывается команда coord, возвраща ющая координаты рассчитанной кривой:

glBegin ;

For i := 0 to 30 do (i / 30.0);

Аргумент команды значение координаты и. В данном примере соединя ются отрезками тридцать точек, равномерно расположенных на кривой.

Теперь выясним правила отображения интервала. Если в этом примере тре тий параметр команды задать равным двум, то на экране получим половину первоначальной кривой. Для получения полной кривой надо при воспроизведении взять интервал в два раза больший:

For i := 0 to 60 do / 30.0);

Если же этот параметр задать равным 0.5, то при отображении интервала с в пределах от нуля до единицы получаемая кривая не будет останавливаться на последней опорной точке, а экстраполироваться дальше. Если в этом нет необходимости, конечное значение параметра цикла надо взять равным 15.

Чтобы действительно разобраться в подобных надо обязательно попрактиковаться, посмотреть, какие кривые строятся для различных набо ров опорных точек. Здесь вам поможет проект из подкаталога где сре ди четырех опорных точек имеется одна выделенная. Клавишами управле ния курсором можно менять положение выделенной точки, при нажатии на пробел выделенной становится следующая точка набора. точка рисуется красным.

128 Графика в проектах Delphi Обратите внимание, что простой перерисовки окна при изменении в масси ве опорных точек недостаточно, необходимо заново обратиться к командам, "заряжающим" вычислитель, чтобы пересчитать кривую:

If Key then begin // выделенной становится следующая точка набора selpoint selpoint + 1;

If selpoint > High (selpoint) then selpoint := Low (selpoint);

nil, False);

end;

If Key = then begin // сдвигаем выделенную точку влево ctrlpoints [selpoint, 0] 0] — 0.1;

// пересчитываем кривую измененному массиву опорных точек 0.0, 1.0, 3, 4, ;

nil, False);

// перерисовка окна end;

С помощью этого примитивного редактора можно построить замысловатые фигуры и заодно получить представление о кривых Безье.

{ Замечание Не получится расположить все четыре точки на кривой, если только это не ли нейная функция.

С помощью команды в любой момент можно получить полную информацию о текущих параметрах вычислителя. Не думаю, что вы часто будете обращаться к этой команде, но на всякий случай приведу пример на ее использование (проект из подкаталога Ех43). Клавишами и можно менять текущее значение параметра вычислителя в за головке окна выводятся значения и Эти значения приложение полу чает от OpenGL:

: Array [0..1] of begin giGetMapfv ;

Caption := FloatToStr +, ' + Из файла справки вы можете узнать, как получить значения всех остальных параметров вычислителя.

Построить кривую можно и другим способом. Посмотрим пример из подка талога Ех44, отличающийся от предыдущего примера на кривые Безье дующим: сразу после включения вычислителя вызывается команда, строя щая одномерную сетку, т. е. рассчитывающая координаты набора точек на интервале:

(30, 0, 1);

Глава 3. Построения в пространстве Первый аргумент количество далее координате и. После того как сетка построена, вывод ее осуществляется од ной командой:

;

Первый аргумент— режим воспроизведения, отрезками или точками, осталь ные аргументы задают номера первой и последней точек рассчитанной сетки.

Получив представление о кривых, мы можем перейти к поверхностям Безье.

Соответствующий пример располагается в Ех45, а результат боты программы показан на рис. 3.30.

3.30. Классический пример на построение поверхности Безье Массив опорных точек содержит координаты шестнадцати вершин. Работа программы начинается с установки параметров вычислителя:

0, 1, 3, 0, 1, (20, 0.0, 1.0, 20, 0.0, 1.0);

У команды аргументов больше, чем у но теперь нам легко понять их смысл. Первый аргумент константа, определяющая тип рассчи тываемых величин, в данном случае это координаты точек поверхности.

следний аргумент — указатель на массив контрольных точек поверхности.

Второй и третий параметры задают преобразования по координате и по верхности. Четвертый аргумент, как и в предыдущем случае, сколько вещественных чисел содержится в порции данных — здесь мы сообщаем, что каждая точка задана тремя координатами. Пятый аргумент — количество точек в строке структуры, хранящей данные.

Следующие четыре аргумента имеют смысл, аналогичный предыдущим че тырем, но залают параметры для второй координаты поверхности, коорди наты v. Значение восьмого аргумента равно двенадцати путем пере Графика в проектах Delphi множения количества чисел, задающих координаты одной вершины (3), на количество точек в строке массива (4).

После задания параметров вычислителя он включается вызовом команды после чего вызывается одна из пары команд, позволяющих по строить поверхность — команда рассчитывающая двумерную сетку. Первый и четвертый аргументы этой команды определяют количество разбиений по каждой из двух координат поверхности, остальные параметры имеют отношение к отображению интервалов.

Собственно изображение двумерной сетки, осуществляется вызовом второй команды из тандема:

(GL_FILL, О, 2G, 0, 20);

Первый аргумент команды задает режим воспроизведения, следующие две пары чисел задают количество подинтервалов разбиения по каждой коорди нате поверхности. В примере мы берем по 20 разбиений, столько же, ко задано в команде чтобы не выходить за пределы интервалов, но это не обязательно, можно брать и больше.

Если смысл параметров, связанных с отображением интервалов, вам кажет ся не совсем ясным, рекомендую вернуться к примеру по кривой Безье и раз его разобрать.

Замечу, что режим воспроизведения можно варьировать также с помощью Обратите внимание, что в рассматриваемом примере используется режим автоматического расчета нормалей к поверхности:

gl Enabl e Без этого режима поверхность выглядит невыразительно, но его использо вание допускается только в случае поверхностей, рассчитываемых вычисли телем, В проекте введены два режима: один управляет тем, как строится поверх ность — сплошной или линиями. Второй режим надо ли выводить опорные точки. Нажимая на клавиши ввода и пробела, можно менять теку щие значения этих режимов.

При нажатой кнопке мыши при движении курсора поверхность вращается по двум что позволяет хорошо рассмотреть ее с разных позиций. Для осуществления этого режима введен флаг, булевская переменная которая принимает истинное значение при удерживаемой кнопке мыши, и две вспомогательные связанные с экранными координатами указателя.

В момент нажатия кнопки запоминаются координаты курсора;

при движе нии курсора поворачивается по двум осям на угол, величина которого зависит от разницы текущей и предыдущей координат курсора:

Глава 3. Построения в пространстве procedure :

Y: Integer);

begin If Down then begin // кнопка мыши нажата (X - wrkX, 0.0, 1.0, поворот горизонтали экрана (Y - 1.0, 0.0, 0.0), поворот пс вертикали nil, False!;

// запоминаем координаты курсора wrkX := X;

wrkY := Y;

end;

end;

Но при изменении размеров окна система координат возвращается в начальное положение.

Точно так же, как и в случае с кривой Безье, для воспроизведения поверх ности МОЖНО КОМанДОЙ На рис. 3.31 приведен результат работы примера из подкаталога Ех46. где на основе все той же поверхности строится множество отрезков, наложение которых на экране приводит к получению разнообразных узоров, называе мых узорами муара.

3. 31. Узор получается наложением отрезков, лежащих на поверхности Безье Отрезки строятся по предоставленным вычислителем:

glBegin ;

For i 0 to 30 do For j := 0 to 30 do glEvalCoord2f (i / 30, j / 30);

OpenGL. Графика в проектах Delphi Мы уже изучили множество параметров команды задающей ре жимы воспроизведения и, в частности, позволяющей использовать вычис лители. Я должен обязательно привести пример на команду, позволяющую определить, включен сейчас какой-либо режим или вычислитель — коман ду Ее аргумент — константа, символ определяемого режима, а результат работы, согласно документации, имеет тип Мы знаем о небольшой проблеме Delphi, связанной с этим типом, так что для вас должно стать откровением то, что обрабатывать возвращаемое значение мы будем как величину булевского типа.

Приведу здесь простой пример, в котором до и включения режима окрашивания поверхностей выводится сообщение о том, доступен ли этот режим' TRUE then is enabled' ) el se ShowMessage is Соответствующий проект располагается в подкаталоге Ех47.

В этом разделе мы как в OpenGL строятся кривые и поверхно сти Безье, позже рассмотрим еще несколько примеров на эту тему.

NURBS-поверхности Один из классов рациональные задаваемые на не равномерной сетке (Non-Uniform Rational NURBS), является стан дартным для компьютерной графики способом определения параметриче ских кривых и поверхностей.

Библиотека предоставляет набор команд, позволяющих использовать этот класс поверхностей. Будем знакомиться с соответствующими команда ми непосредственно на примерах и начнем с проекта из подкаталога где строится NURBS-кривая по тем же опорным точкам, что и в первом примере на кривую Безье. Вид получающейся кривой тоже ничем не отли чается от приведенной на рис. 3.29.

Для работы с в библиотеке имеются переменные специального типа, используемые для идентификации объектов:

:

При создании окна объект, как обычно, создается:

с r;

А в конце работы приложения память, занимаемая объектом, высвобождается:

Глава 3. Построения в пространстве ( Замечание В отличие от удаленные действительно лее недоступны для использования.

Для манипулирования свойствами таких объектов предусмотрена специаль ная команда библиотеки, в примере она используется для задания гладкости поверхности и режима Гладкость кривой или поверхности задается допуском дискретизации: чем меньше это число, тем поверхность получается более гладкой:

В отличие от других объектов, NURBS-поверхности рассчитываются каж дый раз заново при каждом построении. В этом легко убедиться, например, следующим образом: увеличьте допуск дискретизации раз в десять и изме няйте размер окна. При каждой перерисовке кривая получается разной.

Собственно построение кривой осуществляется следующей командой:

(theNurb, 8, 3, Первый аргумент— имя вторым аргументом задается ко личество параметрических узлов кривой, третий аргумент — на массив, хранящий значения этих узлов. Следующий параметр — т. е. сколько вещественных чисел содержится в порции данных, далее следу ет указатель на массив опорных точек. Последний аргумент равен порядку (степени) кривой плюс единица.

В документации указывается, что количество узлов должно равняться коли честву опорных точек плюс порядок кривой. Количество опорных точек достаточно взять на единицу больше степени кривой, квадратичная кривая однозначно определяется тремя точками, кубическая — четырьмя и т. д.

Так что для построения квадратичной кривой необходимо задавать шесть узлов:

(theNurb, 6, @curveKnots, 3, @CtripointS, 3, ;

Значения параметрических узлов массиве или другой структуре, хранящей данные, должны быть упорядочены по неубыванию, т. с. каждое значение не может быть меньше предыдущего. Обычно значения первой половины узлов берутся равными нулю, значения второй половины задаются единич ными, что соответствует неискаженной кривой, строящейся на всем вале от первой до последней опорной точки.

Прежде чем мы сможем перейти к NURBS-поверхности, рекомендую стоятельно поработать с этим примером, посмотреть на вид кривой при раз личных значениях параметров. Не забывайте о упорядоченности этих Графика в проектах Delphi и приготовьтесь к тому, что их набор не может быть совершенно про извольным: в некоторых ситуациях кривая строиться не будет.

Теперь мы можем перейти к поверхностям, и начнем с проекта из подката лога Ех49 — модификации классического примера на эту тему, в котором строится холмообразная NURBS-поверхность (рис. 3.32).

3.32. Классический пример на использование NURBS-поверхности Первым делом замечу, что здесь появился новый для нас режим:

Сделано это из-за того, что поверхность при построении масштабируется, и чтобы автоматически рассчитанные нормали "не уплыли", и используется этот режим.

Режим воспроизведения меняется по нажатию клавиши ввода, для его уста новки ИСПОЛЬЗуеТСЯ Же gluNurbsProperty:

If solid then else POLYGON);

Команда собственно построения заключена в специальные командные скобки:

{theNurb);

(theNurb, S, 8, 4 * 3, 3, 4, ;

(theNurb}, Глава 3. Построения в пространстве В данном примере эти скобки не обязательны, поскольку они обрамляют единственную команду.

Если вы внимательно разобрали примеры предыдущего раздела, то шинство параметров команды не должны вызывать вопро сов, они аналогичны параметрам команд для построения Безье.

Так, шестой и седьмой параметры задают "большой шаг" по каждой нате, ассоциированной с поверхностью, т. е. сколько вещественных содержится в строке структуры данных и сколько вещественных чисел за дают отдельную точку. Восьмой параметр адрес массива контрольных то чек, а последним параметром задается символическая константа, опреде ляющая тип возвращаемых значений;

в данном случае ими являются трех мерные координаты вершин.

В примере задано шестнадцать контрольных точек, располагающихся рав номерно по координатам X и Y в пределах квадрата, третья координата для точек, лежащих на границе квадрата, равна —3, для внутренних опорных точек эта координата равна 7. Таким способом массив заполняется для по лучения холмообразной поверхности. Если по заданным опорным точкам построить поверхность Безье, то увидим точно такой же холмик, как и в рассматриваемом примере.

Отличает NURBS-поверхности то, что параметризируемы. Так, предпослед ние два параметра задают степень (порядок) поверхности по координатам и и v. Задаваемое число, как сказано в документации, должно быть на еди ницу больше требуемой степени. Для поверхности, кубической по этим ко ординатам, число должно равняться 4, как в нашем примере. Порядок нель зя задавать совершенно произвольным, ниже мы разберем имеющиеся огра ничения.

Второй параметр команды — количество узлов в параметризации по правлению, третьим параметром задается адрес массива, хранящего значе ния узлов. Третий и четвертый параметры команды имеют аналогичный смысл, но для второго направления.

Массивы узлов должны заполняться упорядоченными по не убыванию.

Как сказано в файле справки, при заданных коли чествах узлов, и порядках количество опорных точек должно равняться — uorder) x — Так что при изме нении порядка по координатам необходимо подбирать и все остальные па раметры поверхности.

Если вы хотите подробнее узнать о параметризации и ее параметрах, то об ратитесь к литературе с подробным изложением теории ностей.

В данном примере используется один массив для задания узлов по обоим направлениям, а в проекте из подкаталога Ех50 используется два отдельных OpenGL. Графика в проектах Delphi массива — для каждой координаты задаются свои значении узлов. По строится не на всем интервале, а на части его, т. с. происходит подобие отсечения.

Чаще всего используются "кубические" Для иллюст рации построения поверхностей других порядков предназначен проект из подкаталога где берется "квадратичная" поверхность.

Библиотека предоставляет также набор команд для вырезки Примером служит проект из подкаталога Ех52. Опор ные точки поверхности располагаются в пространстве случайно, а затем из поверхности вырезается звездочка — рис. 3.33.

3.33. Команды библиотеки glu позволяют строить невыпуклые многоугольники Для хранения точек на границе вырезаемой области звездочки — введен массив:

Array 0..1] of Массив заполняется координатами точек, лежащих поочередно на двух вло женных окружностях:

Integer;

For i 0 to 20 do If then begin // нечетные точки — на trim [i, 0] := 0.5 cos (i Pi / 10) + 0.5;

[i, :- 0.5 sin (i * Pi / 10) + 0.5;

end else begin // четные точки — на внутренней 0] := 0.25 cos (i Pi / + 0.5;

i] := 0.25 * p.i / Ю) + en':;

end;

Глава 3. Построения в пространстве Внутри операторных скобок построения за коман дой задаем область вырезки:

giuPwlCurve (theNurb, 21, TRIM При задании области вырезки используются опять-таки специальные мандные скобки, собственно область задается командой Команда задает замкнутую кусочно-линейную кривую;

часть NURBS поверхности, не вошедшая внутрь этой области, не воспроизводится.

аргумент — количество точек границы, третий — адрес массива этих четвертым параметром является символьная константа, задающая тип резки.

В примере при каждом нажатии пробела вызывается процедура инициали зации поверхности, так что вид звездочки каждый раз получается случайным.

Следующий пример (подкаталог Ех53) также иллюстрирует вырезку NURBS-поверхности (рис. 3.34).

3.34. Вырезка внутри Здесь вырезается внутренняя область поверхности, для чего задаются две линии, связанные с вырезкой:

gluBeginTrim giuPwlCurve (theNurb, 5, 2, ;

(theNurb);

gluBeginTrim (theNurb);

(theNurb, 8, 2, 4, giuPwlCurve (theNurb, 3, 2, (theNurb} ;

OpenGL. Графика в проектах Delphi Первая линия охватывает весь интервал по обеим координатам в массиве указаны точки границы по часовой стрелке:

edgePt : Array 0..1] of GLfloat ((0.0, 0.0), 1.0), (0.0, 1.0), 0.0));

Теперь следующая область вырезки ограничивает внутреннюю вырезаемую область. В примере эта область состоит из двух кривых;

если это усложняет понимание программы, строку с вызовом можете удалить, а массив граничных точек дополните замыкающей точкой:

: Array [0..3, 0..1] of GLfloat = ((0.75, (0.25, (0.75, Вторым параметром теперь надо указать 4. После этих манипу ляций внутри поверхности вырезается — рис. 3.35.

3.35. Если предыдущий пример Рис. 3.36. "She eyes me like показался трудным, начните с более a piercer when am weak..."

простого примера Последний пример этого раздела также из ряда классических примеров.

Проект из подкаталога Ех54 после компиляции и запуска рисует на экране поверхность в форме карточного сердца — рис. 3.36.

Как и во многих предыдущих примерах, по нажатию пробела визуализиру ются опорные точки поверхности. Этот пример прекрасно как можно манипулировать параметрами для выявле ния преимуществ параметризации. Обратите внимание, что опорные точки заданы только для одной половины воспроизводимой симметричной фигуры.

Дисплейные списки В этом разделе мы познакомимся с одним из важнейших понятий Дисплейные списки представляют собой последовательность запо Глава 3. Построения в пространстве минаемых для последующего вызова. Они подобны подпрограммам и яв ляются удобным средством для кодирования больших систем со сложной иерархией.

Знакомство начнем с проекта из подкаталога Ех55, классического примера на эту тему. Работа приложения особо не впечатляет: рисуется десять тре угольников и отрезок (рис. 3.37).

Рис. 3.37. Первый пример на использование дисплейных списков В начале работы вызывается процедура где создается (опи сывается) дисплейный список:

const listNane : 1;

// идентификатор списка procedure init;

begin glNewList (listName, /7 начало описания glCoior3f (1.0, 0.0, 0.0);

glBegin ;

glvertex2f (0.0, 0.0) ;

glVertex2f (1.0, glVertex2f (0.0, 1.0) ;

glTranslatef 0.0);

glEndList;

// конец описания списка end;

Описание списка начинается с вызова команды первым аргумен том которой является целочисленный идентификатор имя списка (в при мере именем служит константа). Вторым аргументом команды является символическая константа;

здесь мы указываем системе OpenGL на то, что список компилируется для возможного последующего использования. Все следующие до glEndList команды OpenGL и образуют дисплейный список, единую последовательность.

В данном примере в списке задается красный цвет примитивов, далее сле дуют команды для построения одного заканчивается список переносом системы координат по оси X.

В коде воспроизведения кадра цвет примитивов задастся зеленым, затем де сять раз вызывается описанный список:

Графика в проектах Delphi (0.0, 1.0, 0.0);

// текущий цвет - зеленый // запомнили координат For : 0 to 9 do / / десять раз список с glCailList построить отрезок // вернулись в запомненную Списки вызываются командой единственным рой является идентификатор вызываемого списка.

В после каждого вызова списка номер один система координат смешается, поэтому на экране получается ряд треугольников, а отрезок ри суется вслед за последним треугольником. Хотя цвет примитивов задается зеленым, в списке он переустанавливается в красный, поэтому отрезок ри суется именно таким цветом.

Новички часто путаются, считая дисплейные списки полной аналогией подпрограмм. Отличает списки от подпрограмм то, что списки не имеют параметров, команды при вызове списка действуют точно так же, как и при создании списка. Если при описании списка используются переменные, то при вызове списка значения этих переменных никак не используются.

Впрочем, ряд команд, помещенных в список, при вызове будут отрабаты ваться каждый раз заново, в документации приведен список таких команд.

Замечание Я много раз встречал утверждение, что использование списков эффективно по причине того, что компиляция их приводит к более быстрому выполнению — в списке не запоминаются промежуточные команды. Если это и так, то ощутить "на глаз" ускорение работы приложения при использовании дисплейных спи сков как-то не получается. Тем не менее, я настоятельно рекомендую их пользовать, это приводит к повышению читабельности и упрощению кода.

По окончании работы память, запятую списками, необходимо освобождать, как это делается в этом примере:

• ;

Первый аргумент команды — имя первого удаляемого второй пара метр — количество удаляемых списков. Удаляются все списки, следующие за указанным. Стоит напомнить, что удалять списки необходимо до освобо ждения контекста воспроизведения.

В продолжение темы рассмотрим проект из подкаталога Ех56. Результат ра боты приложения приведен на рис. 3.38.

Пример иллюстрирует несколько аспектов, связанных с дисплейными спи сками.

Во-первых, это использование команды генерирующей имя для списка. В примере идентификатором используемого списка является Глава 3. Построений в пространстве а не константа. Перед списка значение ной подбирается системой OpenGL среди на момент значений:

(1);

Рис. 3.38. В этом примере цветовые настройки при использовании списка сбиваются То есть вы можете и не затрачивать усилий на то, чтобы самому следить за именами используемых списков, а полностью положиться в этом вопросе па OpenGL. Это особенно удобно при интенсинной работе со списками, фор мируемыми в программе динамически.

Во-вторых, обратите внимание, что каждый вызов списка не портит теку щие цветовые настройки. Корректность работы обеспечивается использова нием ПарЫ НОВЫХ ДЛЯ И glNewList ;

glPushAttrib запомнили текущие glBegin // отдельный треугольник (0.0, (1.0, 0.0);

(0.0, 1.0);

giEnd;

glTranslatef (1.5, 0.0, 0.0);

glPopAttrib;

восстановили запомненные glEndList;

Аналогично командам сохранения и восстановления системы координат, эта пара команд позволяет запоминать в отдельном стеке текущие и возвращаться к ним. Аргумент команды glPushAttrib — символическая кон станта — задает, какие атрибуты будут запоминаться (значение в примере соответствует запоминанию цветовых настроек). Из документации можно узнать, что существует целое множество возможных констант для этой команды: если вам покажется сложным разбираться со всеми то пользуйтесь универсальной константой В ЭТОМ случае в стеке атрибутов запомнятся разом все текущие установки.

При перерисовке окна текущая система координат запоминается перед вы зовом списков и восстанавливается перед прорисовкой отрезка:

Графика в проектах Delphi For i := 0 to 9 do glCallList Поэтому в примере отрезок рисуется поверх ряда треугольников.

Следующий пример, проект из подкаталога Ех57, является очень простой иллюстрацией на использование команды позволяющей узнать, существует ли в данный момент список с заданным именем. Аргумент команды — имя искомого списка, возвращает команда величину типа GLbooiean (как всегда в таких случаях, в Delphi обрабатываем результат как булевскую переменную):

If ('Список с именем listName существует') else ShowMessage ('Списка с именем listName не Теперь перейдем к проекту из подкаталога Ех58. Результат работы програм мы отличается от первого примера этого раздела только тем. что рисует ся восемь треугольников вместо десяти, но суть примера не в этом: здесь иллюстрируется то, что при описании списка можно использовать других списков. В примере описано три списка:

const // используемых списков listNamei : = 1;

: GLUint = 2;

: GLUint = 3;

procedure :

begin (listNamei, // список I 0.0, 0.0);

(0.0, СП) ;

glVertex2f (1.0, 0.0);

glVcrtex2f (0.0, 0.0, 0.0);

;

// список 2 — четыре i := 0 to 3 do (listNamei) ;

//' вызывается прежде список ] Глава 3. Построения в пространстве (listName3, // список 3 - четыре glCallList вызывается прежде описанный список Второй и третий списки используют прежде описанные но относится к тем командам, которые, будучи помещенными в при выполнении его выполняются независимо от дисплейного т. е. не компилируются. Так что в этом примере результат не изменится, если опи сания второго и третьего списков поменять местами.

В примере введен массив, содержащий имена двух списков:

const list : Array of = (2, 3) Этот массив используется при воспроизведении кадра в команде, позво ляющей вызвать сразу несколько дисплейных списков:

(2, Первый аргумент команды — количество вызываемых списков, второй ар гумент указывает смещение, третий аргумент — указатель на со держащую имена вызываемых списков. Смещение задано согласно описа нию используемого массива из указанного в файле справки списка возмож ных констант.

В примере вначале вызывается список с именем 2 и строятся первые четыре треугольника. Затем вызывается список с именем 3, который состоит во вторичном вызове списка номер 2.

( Замечание Подобный прием может показаться малополезным, но важно хорошо разо браться в этом и следующем примерах, поскольку используемые в них коман ды будут применяться в дальнейшем для вывода текста.

Последний пример этого раздела, проект из подкаталога Ех59, по своему функциональному действию ничем не отличается от предыдущего, однако для нас в нем интересна новая команда Смысл ее очень прост — она задает базовое смещение для имен вызываемых списков.

В примере это смещение задано единичным:

(1);

А массив имен вызываемых списков содержит значения на единицу чем в предыдущем примере:

list : Array [0..1] of GLUint (1, 2);

Графика в проектах Delphi При вызове списков командой к их именам прибавляется за данное смещение.

Tess-объекты Мозаичные — мозаичный) объекты являются последним нововве дением библиотеки glu, предназначены они для упрощения построений не выпуклых многоугольников.

того как мы изучили основные объекты библиотеки glu, нам будет освоиться с собственно tess-объектами.

Работа с ними в Delphi сопряжена с трудностями, возникающими из-за то что раздел заголовочного файла, посвященный этим содержит несколько ошибок.

Рис. 3.39 демонстрирует работу примера — проекта, расположенного в под каталоге ЕхбО.

3.39. Tess-объекты можно использовать для тех же целей, что и В программе определен особый тип для хранения координат одной точки:

= Array [0..2] of Для уверенной работы команд данного раздела следует использовать именно тип удвоенной точности.

В процедуре инициализации описана переменная специального вве денного для работы с мозаичными объектами. Она инициализируется при близительно так же, как другие объекты библиотеки glu, но, конечно, дру гой командой:

Глава 3. Построения в пространстве tobj :

tobj := Теперь посмотрим, как список для левой фигуры, квадрата с треугольным внутри.

С помощью команды giuTessCallback задаются адреса процедур, вызывае мых на различных этапах рисования tess-объекта, например:

gluTessCallback(tobj, // начало рисования При начале рисования объекта мы не планируем особых манипуляций, по этому просто передаем адрес процедуры Если же нам по сценарию потребуется выполнить какие-то дополнительные действия, необходимо описать пользовательскую несвязанную (не являю щуюся частью описания класса) процедуру, обязательно указав ключевое слово и передавать адрес этой процедуры.

Синтаксис описания подобных процедур описан в справке по команде giuTessCallback. Например, если мы хотим, чтобы перед воспроизведением примитива подавался бы звуковой сигнал, необходимо вызвать следующую процедуру:

procedure :

begin ;

end;

beginCailback);

Имя процедуры безразлично, но аргументы ее должны задаваться строго по указаниям, содержащимся в документации.

Внимательно посмотрите на следующие две строки кода:

// вершина giuTessCallback (tobj, @glEnd) ;

// конец рисования есть при обработке отдельной вершины и в конце рисования примитивов также не будет выполняться чего-то необычного.

Для диагностики ошибок, возникающих при работе с tess-объектами, ис пользуем пользовательскую процедуру:

procedure (errorCode : GLenum) ;

begin 146 Графика в проектах Delphi end;

// ошибка Команда gluErrorString возвращает строку с описанием возникшей ошибки.

Описание ошибки выдается на русском языке (на языке локализации опе рационной системы), так что с диагностикой проблем не будет.

Координаты вершин квадрата и треугольника вырезки хранятся в структу рах, единицей данных которых должна быть тройка вещественных чисел:

const rect : Array [0..3] of TVector = 50.0, 0.0), 50.0, 0.0), 200.0, 0.0), (50.0, 200.0, 0.0));

t r i : A r r a y [ 0.. 2 ] o f T V e c t o r = ( ( 7 5. 0, 7 5. 0, 0. 0 ), ( 1 2 5. 0, 1 7 5. 0, 0. 0 ), ( 1 7 5. 0, 7 5. 0, 0. 0 ) ) ;

Наша фигура строится приблизительно по таким же принципам, что и в примере на вырезку в 0.0, 1.0);

// цвет - синий nil);

// начался // зкешний контур — квадрат @rect(0], // вершины квадрата @rect [1]);

// следующие контуры задают вырезки :;

// треугольник gluTessVertex (tobj,, [1] ) ;

// закончили с glEndList;

При перерисовке окна просто вызывается список с именем 1.

После того как список описан, tess-объект можно удалить, это делается в конце процедуры инициализации:

Глава 3. Построения в пространстве Замечание Обратите внимание: при вызове списка сами объекты библиотеки уже не используются. Точно так же вы можете удалять сразу после описания всех списков, использующих их.

Надеюсь, с первой фигурой вам все понятно, и мы можем перейти ко вто рой фигуре, звездочке.

Здесь для наглядности перед вызовом каждой вершины текущий цвет меня ется, для чего описана специальная процедура, адрес которой задается вызо вом Команды procedure (vertex :

begin {random, random, random);

(vertex);

end;

GLUTE5S ;

Массив, хранящий координаты вершин звездочки, заполняется приблизи тельно так же, как в одном из предыдущих примеров на верхность. Многоугольник второго списка состоит из единственного конту ра. вершины, хранящиеся в массиве:

{2, gluTessBeginPolygon ;

i := 0 to 20 do (tobj, ], [ i j : ;

;

Прототип одной из используемых команд мне пришлось переписать:

procedure Pointer) ;

external что записано в стандартном заголовочном файле, расходится с докумен тацией и приводит к ошибке.

Мы рассмотрели простейший пример на использование и на вы смогли оценить, как удобно теперь становится рисовать невыпук льге многоугольники.

В качестве исследования можете задать контурный режим воспроизведения чтобы увидеть, как строятся получающиеся фигуры.

OpenGL. Графика в проектах Delphi Приведу еще несколько примеров на мозаичные объекты.

Подкаталог Ех61 содержит проект, где строится в виде звездочки (рис. 3.40).

3.40. Звездочка построена по координатам пяти вершин На первый взгляд вам может показаться, что этот пример проще предыду щего, однако это не так: звездочка задана координатами пяти вершин, пере числяемых в том порядке, в котором обычно дети рисуют звезды. Мне пришлось изрядно потрудиться, чтобы этот пример заработал.

Если попытаться в предыдущем примере задать вершины звезды именно по такому принципу, мы получим сообщение об ошибке "требуется составной ответный вызов" (на русском). То есть серверу надо как обраба тывать ситуации с пересечениями границ контура.

Почерпнув требуемую информацию из файла справки, я написал сле дующую процедуру и задал ее адрес для вызова обработчика пересечения:

Для того чтобы заполнить внутренности фигуры, я использовал команду, позволяющую определять свойства мозаичного объекта:

, GLU GLU TESS Обратите внимание, что значение первой символической константы в про грамме переопределено, в файле opengl.pas это значение задано неверно.

Предоставляю вам еще один пример на эту тему, проект из Ех62. Не стану разбирать этот пример, чтобы не испугать начинающих. Если он вам покажется трудным, можете отложить подробное изучение на потом — до того момента, когда вы будете чувствовать себя с OpenGL уверенно.

По ходу подготовки этого примера я обнаружил массу ошибок все том же заголовочном файле, так что мне самому он дался очень тяжело.

Глава 3. Построения в пространстве Таймеры и потоки В разделе мы познакомимся с различными способами создания анима ции. При этом нам сосредоточиться на вопросах, больше связан ных с операционной системой- чем с Для самых простейших задач вполне подходит использование обычного таймера Delphi.

Посмотрим проект из подкаталога Это немного модифицированный пример второй главы, в котором вокруг курсора рисовалось облачко отрез ков. Теперь это облачко постоянно меняется так, что картинка более напоминает бенгальский огонь.

Первое изменение в проекте заключается в том, что на форме появился таймер, обработчик которого заключается в том, что раз в секунду окно перерисовывается. При каждой перерисовке окна вокруг курсора рису ется множество отрезков со случайными координатами конца.

Важно обратить внимание на действия, позволяющие ускорить работу при ложения. Вместо традиционного для проектов Delphi вызова метода Refresh окно перерисовывается вызовом функции API (мы уже убедились, насколь ко это значимо):

procedure TObject);

begin end;

Цвет окна формы я намеренно задал ярко-синим, чтобы проиллюстриро вать, как важно в таких приложениях бороться за каждую миллисекунду.

Если обработчике таймера поставить Refresh, то при каждой окно мерцает, по нему пробегают синие полосы. Впрочем, может случиться и так, что на вашем компьютере такие эффекты не возникают, тут многое зависит от характеристик "железа".

Также для ускорения работы в этом примере вместо исполь зуется явно полученная ссылка на контекст устройства.

Код перерисовки окна максимально сокращен, в нем оставлено только то, что не переносится в другие обработчики. Включение режима штриховки и задание области вывода перемешены в обработчики oncreate и onResize формы, соответственно.

В таких приложениях также желательно использовать перехватчик сообще ния обрабОТЧИКа Это сделано в следующем примере, проекте из подкаталога в котором на экране двигаются по кругу шесть кубиков (рис. 3.41).

OpenGL. Графика в проектах Delphi Рис. 3. 41. При работе программы кубики вращаются по кругу Положения центров кубиков хранятся во вспомогательных массивах, запол няемых при начале работы приложения синусами и косинусами:

For i := 0 to 5 do begin wrkX [i] sin (Pi / 3 i);

wrkY [i] cos (Pi / 3 * i);

end;

Поворот всей системы с течением тем, что в обра ботчике таймера значение переменной, связанной с углом поворота, увели чивается, после чего экран Angle := Angle + 1;

// значение угла изменяется каждый "тик" If Angle 60.0 then Angle := 0.0;

nil, False);

Ядро кода воспроизведения кадра выглядит так:

glPushMatrix;

// запомнили начальную систему координат 0.0, 0.0, 1.0);

// поворот системы на угол Angle Z {Цикл рисования шести For i := 0 to 5 do begin glPushMatrix;

// запомнили систему координат [i], wrkY [i], 0.0);

// перенос системы координат i, 0.0, 0.0, 1.0};

// поворот кубика (0.5);

// рисуем кубик // вернулись точку end;

// вернулись в первоначальную систему координат Глава 3. Построения в пространстве Занятный результат получается, если поменять местами первые две строки этого кода, обязательно посмотрите, к чему это приведет.

( Замечание Приведет это к тому, что кубики будут вращаться все быстрее и быстрее: те перь они при каждом тике таймера поворачиваются на все более увеличиваю щийся угол Angle относительно предыдущего положения. Можно использовать более оптимальный прием в подобных примерах: не использовать управляю щую переменную (здесь это Angle), не использовать команды g.i и а код кадра начинать с поворота на угол, константу. С точки зрения скорости это оптимально, но может нарушать сценарий кадра: ведь при изменении размеров окна мы принудительно возвращаем объекты сцены в первоначальную систему координат, и кубики резко дергаются.

Использование системного таймера является самым простым за дачи, но имеет очевидные недостатки. На компьютерах уже этот пример выводит кадры рывками, а если количество объектов перевалит за два десятка, то удовлетворительную скорость можно бу дет получить только па очень хороших машинах.

Следующий пример, проект из подкаталога Ех65, является продолжением предыдущего, здесь рисуется пятьдесят параллелепипедов 3.42).

3.42. Эту систему мы возьмем в качестве тестовой для сравнения методов создания анимации Вся система вращается по двум осям, по оси Y происходит с удвоенной скоростью:

(2 Angle, О,. О, // по оси Y 0.0, 0.0, 1.0!;

// поворот оси Z Интернат таймера я задал равным 50 миллисекунд, т. е. экран должен об новляться двадцать раз в секунду. Попробуем выяснить, сколько кадров в секунду выводится в действительности.

Это делается в проекте из подкаталога Графика в проектах Delphi Введены переменные, кадров и количество кадров в секунду:

frameCount, :

: GLfloat;

При запуске приложения инициализируем значения:

lastCount f := Функция API возвращает миллисекунд, прошедших с начала сеанса работы операционной системы.

При воспроизведении кадра определяем, прошла ли очередная секунда, и вычисляем количество кадров, выведенных за эту секунду:

:= // текущее условнее // увеличиваем кадров J f - lastCount) > begin прошла секунда // определяем количество выведенных кадров fpsRate := * / - ;

/./ выводим в заголовке количество кадров Caption := - ' + FloatToStr (fpsRate);

newCount;

// текущее время frameCount := // обнуляем счетчик кадров end;

количество воспроизведенных кадров в секунду зависит от многих факторов, в первую очередь, конечно, от характеристик и я не могу предсказать, какую цифру получите именно вы. Будет совсем неплохо, если эта цифра будет в районе двадцати.

Но если задаться целью увеличить скорость работы этого примера, то выяс нится, что сделать это будет независимо от характеристик компьютера. Сколь бы малым не задавать интервал таймера, выдаваемая частота воспроизведения не изменится, системный таймер в принципе способен обрабатывать тики с интервалом менее пятидесяти миллисекунд.

Еще один недостаток такого подхода состоит в том, что если обработчик тика таймера не успевает отработать все действия за положенный интервал времени, то последующие вызовы этого обработчика становятся в очередь.

Это приводит к тому, что приложение работает с разной скоростью на раз личных компьютерах.

Мы не будем опускать руки, а поищем другие способы анимации, благо их существует несколько. Рассмотрим еще один из этих способов (я нахожу привлекательным), состоящий в использовании модуля System). Мультимедийный таймер позволяет обрабатывать события с любой частотой, настолько часто, насколько это позволяют сделать ресурсы ком пьютера.

Глава 3. Построения в пространстве Посмотрим на соответствующий пример — проект из подкаталога Ех67.

Здесь рисуются все те же пятьдесят но частота смены кадров существенно выше.

Список подключаемых модулей в секции дополнился моду лем uses MMSystem;

Мультимедийный таймер также нуждается в как и обыч ный системный, описываем его в разделе private класса формы:

:

А вот процедура, обрабатывающая тик таймера, не может являться частью класса:

procedure uMessage: awl, DWORD;

begin // значение угла изменяется каждый "тик" With do begin Angle Angle 360.0 :- 0.0;

(Handle, nil, False) ;

end;

При создании окна таймер запускается специальной функцией API:

:= timeSetEvent (2, 0, ;

По окончании работы приложения таймер необходимо если это не сделать, то работа операционной системы будет заметно замедляться:

Самым важным в этой цепочке действий является, конечно, команда уста новки таймера, Первый аргумент команды — интервал тайме ра в Второй аргумент — разрешение таймера, т. е. количест во миллисекунд, ограничивающее время на отработку каждого тика таймера.

Если это число задано нулем, как в нашем примере, то обработка таймера должна происходить с максимальной точностью.

В документации рекомендуется задавать ненулевое значение для уменьшения системных потерь.

Следующий параметр — адрес функции, ответственной за обработку каж дого тика. Четвертый параметр редко используется, им являются задаваемые пользователем данные возврата. Последним параметром является Графика в проектах Delphi ческам константа, при этом TIME соответствует обычному поведению таймера.

Итак, в примере каждые две миллисекунды наращивается угол поворота системы и перерисовывается экран.

за две миллисекунды экран не будет перерисован, однако те кад ры, которые компьютер не успевает не будут накапливаться.

При использовании мультимедийного таймера сравнительно легко планиро вать поведение приложения во времени: на любом компьютере и в любой ситуации система будет вращаться с приблизительно одинаковой скоростью, просто на маломощных компьютерах повороты будут рывками.

В продолжение темы посмотрите проект из подкаталога Е.\68. где все тот же мультфильм рисуется на поверхности рабочего стола, подобно экранным заставкам. Во второй главе мы уже рассматривали похожий пример, здесь добавлена анимация, а команда удалена, чтобы не ограничивать область вывода размерами окна приложения.

Замечание Напоминаю, что такой подход срабатывает не на каждой карте.

Наиболее распространенным способом построения анимационны,\ прило жений является использование фоновой альтернативы таймерам.

Разберем, как это делается.

В Delphi событие объекта соответствует режиму ожида ния приложением сообщений. Все, что мы поместим в обработчике этого события, будет выполняться приложением беспрерывно, пока оно находится в режиме ожидания.

Переходим к примеру, проекту из подкаталога Сценарий приложения не меняем, чтобы можно было сравнить различные способы. Отличает при мер то, что в нем отсутствуют какие-либо таймеры;

код, связанный с ани мацией, перешел в пользовательскую процедуру:

Idle ;

i r.

do begin Angle + If Angl e 360. 0 t hen Ancl e :--•• 0. 0;

Fa l s e ;

;

end;

end;

Второй параметр Done используется для того, чтобы сообщить тре буется ли дальнейшая обработка в состоянии простоя, или алгоритм завер шен. Обычно False, ЧТОбы Глава 3. Построения в пространстве При создании окна устанавливаем обработчик события объекта Application:

Idle;

Вот и все необходимые действия, можете запустить приложение и сравнить этот метод с предыдущим.

При тестировании на компьютерах, оснащенных ускорителем, этот способ наивысший показатель при условии обычной загруженности системы. На ком пьютере без акселератора цифры должны получиться одинаковые, однако примеры с мультимедийным таймером выглядят поживее.

При использовании последнего способа у нас нет никакого контроля над выполнением кода, есть только весьма приблизительное представление о том, сколько времени будет затрачено на его выполнение. Скорость рабо ты приложения в этом случае полностью зависит от загруженности системы, другие приложения могут с легкостью отнимать ресурсы, и тогда работа на шего приложения замедлится. Запустите одновременно приложения, со ответствующие мультимедийному таймеру и фоновой обработке. Активное приложение будет генерировать большую частоту кадров, но построенное на таймере, менее болезненно реагирует на потерю фокуса.

В таких случаях можно повышать приоритет процесса, этот прием мы рас смотрим в главе 5.

Замечу, что при запуске приложения или изменении его размеров требуется несколько секунд, чтобы работа вошла в нормальный режим, поэтому пер вые цифры, выдаваемые в качестве частоты воспроизведения, не являются особо надежными.

Теперь как реализовать фоновый режим в проектах, основанных только на функциях API. Это иллюстрирует проект из подкаталога Ех70.

Пользовательская функция содержит код, связанный с изменениями Для отслеживания состояния активности окна заведен флаг AppActive, а оконная функция обработчиком сообщения, с активацией окна:

If = or = AppActive True el se AppActive := False;

Кардинальные изменения коснулись цикла обработки сообщений, вместо которого появился вот такой вечный цикл:

Графика в Delphi While True do begin проверяем очередь на наличие 0, 0, NoRenove) begin присутствует какое-то сообщение not 0, 0, 0) then Break // сообщение QUIT, прервать вечный цикл else begin // обрабатываем spat sage (Message) ;

end;

else // очередь сообщений пуста AppAct i Idle // приложение активно, кадр else // приложение не активно, ничего не end;

Надеюсь, все понятно по комментариям, приведу только небольшие пояс нения.

Pages:     | 1 || 3 | 4 |



© 2011 www.dissers.ru - «Бесплатная электронная библиотека»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.