WWW.DISSERS.RU

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

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

Pages:     || 2 | 3 | 4 | 5 |
-- [ Страница 1 ] --

Михаил Краснов O p e n G L ГРАФИКА В ПРОЕКТАХ DELPHI CattJUfl-JEetfiefiJtffa Дюссельдорф • Киев • Москва •

Санкт-Петербург УДК 681.3.06 Книги посвящена использованию стандартной графической библиотеки OpenGL в проектах Delphi. Начиная с самой минимальной программы, последовательно и подробно рассматриваются все основные принципы программирования компьютер ной графики: двумерные и трехмерные построения, анимация, работа с текстурой, визуальные эффекты и др. Большое внимание уделяется вопросам оптимизации и ускорения приложений. Изложение построено на многочисленных примерах, среди которых есть и такие сложные, как многофункциональный графический редактор и CAD-система визуализации работы робототехнической установки, что облегчает усвоение материала и прививает хороший стиль программирования.

Для широкого круга программистов, интересующихся графикой Группа подготовки издания:

Главный редактор Екатерина Кондукова Зав. редакцией Наталья Таркова Редактор Ирина Агафонова Компьютерная верстка Ольги Сергиенко Корректор Зинаида Дмитриева Дизайн обложки Ангелины Лужиной Зав. производством Николай Тверских Краснов М. В.

OpenGL. Графика в проектах Delphi. — СПб.:

БХВ-Петербург, 2002. - 352 с: ил.

ISBN 5-8206-0099- © М. В. Краснов, © Оформление, издательство "БХВ — Санкт-Петербург", OpenGL are registered trademarks of Silicon Graphics, Inc.;

Delphi are registered trademarks of inprise, Inc.;

Windows are registered trademarks of Microsoft, Inc.

OpenGL является зарегистрированным товарным знаком Silicon Graphics;

Delphi является зарегистрированным товарным знаком Inprise;

Windows является зарегистрированным товарным знаком Microsoft.

Лицензия ИД Ne 02429 от 24.07.00. Подписано в печать 23.11.01.

Формат 70х1001/16. Печать офсетная. Усл. печ. л. 28, Доп. тираж 5000 экз. Заказ "БХВ-Петербург", 198005, Санкт-Петербург, Измайловский пр..'29.

Гигиеническое заключение на продукцию, товар, № 77.99.1.953.П.950.3. от 01.03.1999 г. выдано Департаментом ГСЭН Минздрава России.

Отпечатано с готовых диапозитивов в Академической типографии "Наука" РАН 199034, Санкт-Петербург, 9 линия, Содержание Введение Глава ]. Подключение OpenGL Событие, сообщение, ссылка Почему приложения Delphi имеют большой размер Программирование на Delphi без VCL Минимальная Windows-программа Вывод с использованием функций GDI Перехват сообщений Работа с таймером Работа с мышью и клавиатурой DLL Контекст устройства и контекст воспроизведения Минимальная программа OpenGL Формат пиксела Решение проблем Вывод на компоненты Delphi средствами OpenGL Стили окна и вывод OpenGL Полноэкранные приложения Типы OpenGL Тип ТСо/оги цвет в OpenGL Подробнее о заголовочном файле opengl.pas Глава 2. Двумерные построения Точка Команда gIScissor Совместный вывод посредством функций GDI и OpenGL Отрезок Треугольник Многоугольник Команда glEdgeFlag Массивы вершин Прямое обращение к пикселам экрана Содержание Команда gl Get String Обработка ошибок Масштабирование Попорот Перенос Сохранение и восстановление текущего положения Первые шаги в пространстве Глава 3. Построения в пространстве Параметры вида Матрицы OpenGL Буфер глубины Источник света Объемные объекты Надстройки над OpenGL Qimdric-объекты библиотеки glu Сплайны и поверхности Безье NURBS-поверхности Дисплейные списки Tess-объекты Таймеры и потоки Глава 4. Визуальные эффекты Подробнее об источнике света Свойства материала Вывод на палитру в 256 цветов Подробнее о поверхностях произвольной формы Использование патчей Буфер трафарета Смешение цветов и прозрачность.' Подробнее о пикселных: операциях Буфер накопления Туман Тень и отражение Шаблон многоугольников Текстура Глава 5. Пример CAD-системы: визуализация работы робота Постановка задачи Структура программы Модули приложения Обмен данными с DLL Дополнительные замечании Глава 6. Создаем свой редактор Выбор элементов Буфер выбора Содержание Вывод текста Связь экранных координат с пространственными Режим обратной связи Трансформация объектов Постановка задачи Структура программы Несколько сонетов Заключение Приложение 1. OpenGL в Интернете Приложение 2. Содержимое прилагаемой дискеты и требования к компьютеру Список литературы Предметный указатель Введение Эта книга посвящена компьютерной графике, а именно тому, как использо вать OpenGL в Delphi.

OpenGL — это стандартная библиотека для всех 32-разрядных операционных систем, в том числе и для операционной системы Windows.

OpenGL — не отдельная программа, а часть операционной системы. Это означает, что откомпилированное приложение, использующее OpenGL, не нуждается ни в каких дополнительных программах и модулях, кроме стан дартных, содержащихся на любом компьютере с установленной операцион ной системой Windows 95 версии OSR2 и выше.

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

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

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

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

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

В книге вы также встретите множество оригинальных программ. Кроме то го, я по мере возможностей старался приводить и рекомендации профес OpenGL. Графика в проектах Delphi сионалов, содержащиеся в учебных программах пакета OpenGL SDK (Software Design Kit) и других учебных курсов, поскольку многие читатели не имеют возможности самостоятельно перенести эти программы на Delphi и, думаю, нуждаются в некоторой помощи.

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

Хотелось бы отметить следующие особенности книги.

1. Отсутствует описание математического аппарата компьютерной графики.

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

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

3. Главный упор делается на практические примеры. Все проекты я предос тавляю в виде исходных файлов. Примеров в книге более двухсот, и ос тановился я тогда, когда исчерпал объем дискеты. В среде программистов бытует мнение, что документацию следует читать только тогда, когда что то не получается, и многие из них знакомство с новым средством разра ботки начинают сразу с попытки написания программы. Именно для та ких специалистов книга подойдет как нельзя кстати. (При таком обилии примеров читателю, наверное, будет непросто восстановить в памяти, в каком из них содержится необходимый кусок кода. Поэтому главное назначение иллюстраций в книге — помочь в навигации по примерам.) 4. Это учебник, а не справочник. Материал книги я построил в расчете на то, что читатель будет знакомиться с ним последовательно. Хотя матери ал и разбит на тематические разделы, ко многим темам я обращаюсь многократно. Если первоначальное знакомство с какой-либо темой ока залось трудным, у читателя будет возможность разобраться с ней позднее.

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

В главе 1 книги описываются базовые механизмы операционной системы.

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

Умудренные опытом программисты со стажем, пришедшие к Delphi после изрядной практики в Turbo Pascal, вряд ли найдут в этой главе что-то новое.

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

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

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

Глава 2 посвящена примитивам OpenGL — базовым фигурам, из которых строятся объекты сцены. Собственно с этой главы и начинается рисование.

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

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

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

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

Глава 6 освещает некоторые дополнительные темы использования OpenGL.

такие как вывод текста и выбор. Здесь же содержится еще один пример сравнительно большой программы — модельера, позволяющего и-s набора базовых объектов создавать сложные системы и автоматизировать ПОДГОТОВ КУ кода для таких систем.

ГЛАВА Подключение OpenGL В этой главе дается представление о том, как в действительности работает Windows-приложение. Для понимания действий, требуемых для подключе ния OpenGL, необходимо иметь представление о важнейших понятиях опе рационной системы Windows, завуалированных в Delphi и напрямую обычно не используемых программистом. В качестве примера подробно разбирается минимальная программа, использующая OpenGL.

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

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

Событие, сообщение, ссылка С понятием "событие" знаком каждый программист, использующий Delphi.

Термин "сообщение" напрямую в концепции Delphi не используется.

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

Код, написанный в проекте Delphi как обработчик события onCreare, вы полняется при получении приложением сообщения WM_CRKATE, сообщению WM_PAINT COOTBeTCTByeT Событие OnPaint И Т. Д.

Такие события — аналоги сообщений операционной системы — используют мнемонику, сходную с мнемоникой сообщений, т. е. сообщения начинаются с префикса "WM_" (Windows Message), а аналогичные события начинаются с префикса "on".

Для того чтобы операционная система могла различать окна для осуществ ления диалога с ними, все окна при своем создании регистрируются в one •\2 OpenGL. Графика в проектах Delphi рационной системе и получают уникальный идентификатор, называемый "ссшка на окно". Тип этой величины в Delphi — HWND (Handle WiNDow). Си нонимом термина "ссылка" является дескриптор.

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

Попробуем проиллюстрировать смысл ссылки на окно на несложном при мере.

Откомпилируйте минимальное приложение Delphi и начните новый проект.

Форму назовите Form.2, разместите на ней кнопку. Обработчик события на жатия кнопки onclick приведите к следующему виду (готовый проект рас полагается на дискете в подкаталоге ExOl каталога Chapter 1):

procedure TForm2.ButtonlClick(Sender: TObject);

var H : HWND;

// ссылка на окно begin И := FindWindow ('TForrol', 'Forml');

// ищем окно If H <> 0 then ShowMessage ('Есть Forml!') // окно найдено else ShowMessage ('Нет Forml!') // окно не найлено end;

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

Здесь мы используем функцию Findwindow, возвращающую величину типа H N — ссылку на найденное окно либо ноль, если такое окно не найдено.

WD Аргументы функции — класс окна и его заголовок. Если заголовок искомого окна безразличен, вторым аргументом нужно задать nil.

Итак, ссылка на окно однозначно определяет окно. Свойство Hand: e формы и есть эта ссылка, а тип THandie в точности соответствует типу HWND, так что в предыдущем примере переменную Н можно описать как переменную типа THar.die.

Рассмотрим подробнее некоторые выводы. Класс окна минимального при ложения, созданного в Delphi, имеет значение 'TForml1, что полностью со ответствует названию класса формы в проекте. Следовательно, то, как мы называем формы в проектах Delphi, имеет значение не только в период про ектирования приложения, но и во время его работы. Начните новый проект, нр-ювите форму каким-нибудь очень длинным именем и откомпилируйте проект. Сравните размер откомпилированного модуля с размером самого Глава 1. Подключение OpenGL первого проекта, и убедитесь, что он увеличился — вырос только за счет длинного имени класса.

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

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

Окно может и, не имея фокус, получать сообщения и реагировать на них.

Проиллюстрируем это на примере.

Обработчик события onMouseMove формы приведите к следующему виду (проект находится в подкаталоге ЕхО2):

p r o c e d u r e TForm2.FormMouseMove(Sender: TObjecr;

S h i f t : T S h i f e s t a t e ;

X, Y: I n t e g e r ) ;

begin Caption := ' x = ' + I n t T c S t r {X;

> ', y=' + I n t T o S t r ;

Y) // X, Y /'/ координаты курьера end;

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

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

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

Изменим код обработки щелчка кнопки (проект из подкаталога ЕхОЗ):

procedure TForm2.ButtonlCiick(Sender: TObject};

var H : HWND;

begin H := FindWindow ( ' T F o n n l ', ' F o n n i ' ) ;

If H <> 0 t h e n Sc-ndMessage (H, WM_CLOSE, 0, 0}//закрыть найденной окно end;

Если имеется окно класса 'TForml1 с заголовком "Formi1, наше приложение посылает ему сообщение W CLOSE — пытается закрыть окно. Для посылки M OpenGL. Графика в проектах Delphi сообщения используем функцию операционной системы (функцию API) sendMessage. Функция PostMessage имеет сходное назначение, но отличается тем, что не дожидается, пока посланное сообщение будет отработано. У этих функций четыре аргумента — ссылка на окно, которому посылаем сообще ние, константа, соответствующая посылаемому сообщению, и два параметра сообщения, смысл которых определяется в каждом конкретном сообщении по-своему. Параметры сообщения называются wParam и lParam. При обра ботке сообщения WM_CLOSE эти значения никак не используются, поэтому здесь их можно задавать произвольно.

Заметим, что одновременно могут быть зарегистрированы несколько окон класса 'TFomi1, и необходимо закрыть их все. Пока наше приложение за крывает окна поодиночке при каждом нажатии на кнопку. Автоматизиро вать процесс можно разными способами, простейший из них используется в проекте подкаталога ЕхО4 и заключается в том, что вызов Findwiridow за ключен в цикл, работающий до тех пор, пока значение переменной Н не станет равным нулю:

procedure TForm2.ButtonlClick(Sender: TObject];

var H : HWND;

begin Repeat H : = FindWindow { 'TForml', 'Forml');

If H <> 0 then SendMessage (, WM_CLOSE, 0, 0) H Until H = 0;

end;

Ну а как работать с приложениями, класс окна которых не известен, по скольку у нас нет (и не может быть) их исходного кода?

Для решения подобных проблем служит утилита Ws32, поставляемая с Delphi.

Например, с помощью этой утилиты я выяснил, что класс окна главного окна среды Delphi имеет значение 'TAppBuilder. Узнав это, я смог написать проект, где делается попытка закрыть именно это окно (находится в подка талоге Ех05).

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

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

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

Глава 1. Подключение OpenGL Для того чтобы минимизировать окно, ему посылается сообщение соответствующее действию пользователя "выбор системного WM_SYSCOMMAND, меню окна". Третий параметр функции sendMessage для минимизации окна необходимо установить в значение SCMINIMIZE.

Работа с функциями API, сообщения Windows — темы весьма объемные.

Пока мы рассмотрели только самые простейшие действия — закрыть и ми нимизировать окно.

В заключение раздела необходимо сказать, что ссылки, в зависимости от версии Delphi, соответствуют типам integer или Lcngword и описываются в модуле windows.pas.

Почему приложения Delphi имеют большой размер Этот вопрос часто задают начинающие программисты при сравнении при ложений, созданных в различных средах программирования. Действительно, минимальное приложение, созданное в различных версиях Delphi, может достигать от 170 до 290 Кбайт. Это очень большая цифра для операционной среды Windows, в компиляторах C++ она составляет порядка 40 Кбайт. Ко нечно, это не катастрофическая проблема, когда емкости накопителей из меряются гигабайтами, и средний пользователь, как правило, не обращает внимания на размер файла. Неудобства возникают, например, при распро странении приложений по сети.

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

Краткий ответ на вопрос, поставленный в заголовке раздела, состоит в том, что большой размер откомпилированных приложений является платой за невероятное удобство проектирования, предоставляемое Delphi. Архитектура среды программирования, RTTI, компонентный подход — все это превра щает Delphi в поразительно мощный инструмент. С помощью Delphi легко написать приложения, в которых, например, динамически создаются ин терфейсные элементы любого типа (класса).

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

Однако откомпилированный модуль содержит в себе весь тот код, благодаря которому в Delphi так легко производить манипуляции со свойствами и ме 16 OpenGL. Графика в проектах Delphi годами объектов. К примеру, если просмотреть содержимое откомпилиро ванного модуля, то мы встретим в нем фразы, имеющие к собственно опе рационной системе косвенное отношение, например, "OnKeyDcDwn" или дру гие термины Delphi.

Дело здесь не в несовершенстве компилятора, компилятор Delphi оптими зирует код превосходно, дело в самой идеологии Delphi.

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

К сожалению, это сделать невозможно. Кардинально проблема решается только через отказ от использования библиотеки классов Delphi, т. е. про граммирование без VCL.

Программирование на Delphi без VCL После того как мы прикоснулись к основополагающим терминам и поняти ям операционной системы Windows "сообщение" и "ссылка на окно", мы сможем опуститься ниже уровня объектно-ориентированного программиро вания, VCL и RAD-технологий. Требуется это по четырем причинам.

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

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

В-третьих, для понимания приемов, используемых для увеличения скорости воспроизведения, нужно иметь представление о подлинном устройстве Windows-программы. Например, чтобы команды перерисовки окна выпол нялись быстрее, МЫ будем Избегать ИСПОЛЬЗОВанИЯ МеТОДОВ Refresh И Paint формы.

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

Минимальная Windows-программа Посмотрите на проект из подкаталога ЕхО7 — код минимальной программы Windows. Минимальной она является в том смысле, что в результате получа Глава 1. Подключение OpenGL 17_ ется просто пустое окно. Также ее можно назвать минимальной программой потому, что откомпилированный модуль занимает всего около 16 Кбайт.

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

program p;

uses Windows;

begin MessaceBeep(mb_ok!

Единственное, что делает эта программа, — подача звукового сигнала.

Однако вернемся к коду проекта из подкаталога ЕхО7. Первое, на что необ ходимо обратить внимание: в списке uses указаны только два модуля — windows и Messages. Это означает, что в программе используются исключи тельно функции API, и как следствие — длинный С-подобный код. И дей ствительно, перенести эту и подобные ей программы на С потребует не много усилий.

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

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

В оконной функции задается реакция приложения на сообщения Windows.

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

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

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

Значение переменной-результата обнуляется в начале описания оконной функции для предотвращения замечания компилятора о возможной неини циализации переменной.

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

Термин "структура", перешедший в Delphi из языка С, соответствует терми •\Q OpenGL. Графика в проектах Delphi ну "запись". Термин "класс окна" имеет к терминологии объектно-ориенти рованного программирования скорее приближенное, чем непосредственное отношение.

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

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

В примере я анализирую результат, возвращаемый функцией Registerciass.

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

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

При создании окна мы уточняем его некоторые дополнительные свойства — заголовок, положение, размеры и прочее. Значения этих свойств задаются аргументами функции createwindow, возвращающей внимание, величину типа HWND — ту самую ссылку на окно, что в Delphi называется Hand._e.

После создания окна его можно отобразить — вызываем функцию 3r.3wwirici.iw.

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

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

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

К сожалению, версии Delphi 3 и 4 поставляются с системой помощи, не на строенной должным образом для получения информации по функциям API и командам OpenGL. Если судить по содержанию помощи, то может сло житься впечатление, что эти разделы в ней вообще отсутствуют.

Глава 1. Подключение OpenGL Можно либо настраивать справочную систему самостоятельно, либо, что я и предлагаю, пользоваться контекстной подсказкой — для получения сведе ний по любой функции API достаточно поставить курсор на соответствую щую строку и нажать клавишу .

Замечание В пятой версии Delphi система помощи настроена вполне удовлетворительно, а сами файлы помощи обновлены.

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

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

Замечание Итак, в приложениях Windows на самом деле управление постоянно находится в цикле обработки сообщений, событийно-ориентированная схема как таковая отсутствует. При получении окном очередного сообщения управление переда ется оконной функции, в которой задается реакция на него, либо вызывается функция API DefWindowProc для реакции, принятой по умолчанию.

Приведенный пример лишь отдаленно напоминает то, что мы имеем в Delphi — событийно-ориентированное программирование, основанное на объектах. Конечно, совершить путь, обратный исторически пройденному, нелегко. Отказаться от библиотеки VCL при написании программ на Delphi для многих оказывается непосильным. Вознаграждением здесь может стать миниатюрность полученных программ: как мы видим, минимальная про грамма уменьшилась минимум в десять раз, быстрее загружается, выполня ется и быстрее выгружается из памяти.

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

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

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

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

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

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

Для начала попробуем рисовать на поверхности родного окна.

Разместите еще одну кнопку, обработку щелчка которой приведите к сле дующему виду (проект из подкаталога ЕхО9):

procedure TForm2.Button2Click(Sender: TObject);

var dc : HDC;

// ссылка на контекст устройства begin dc := GetDC (Handle);

// задаем значение ссылки Rectangle (dc, 10, 10, 110, 110);

// рисуем прямоугольник ReleaseDC (Handle, dc);

// освобождение ссыпки DelereDC (dc);

// удаление ссылки, освобождение памяти end;

Запустите приложение. После щелчка на добавленной кнопке на поверхно сти окна рисуется квадрат.

Для рисования в этом примере используем низкоуровневые функции вывода Windows, так называемые функции GDI (Graphic Device Interface, интер фейс графического устройства). Эти функции требуют в качестве одного из своих аргументов ссылку на контекст устройства.

Тип такой величины — нос (Handle Device Context, ссылка на контекст уст ройства), значение ее можно получить вызовом функции API Getoc с аргу ментом-ссылкой на устройство вывода. В нашем примере в качестве аргу мента указана ссылка на окно.

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

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

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

Глава 1. Подключение OpenGL 2Т_ Теперь попробуем порисовать на поверхности чужого окна, для чего изме ним только что написанный кол (готовый проект находится в подкаталоге ЕхЮ):

procedure TForm2.Buttor.2Click (Sender: TObject);

var dc : hDC;

Window : HWND;

begin Window := FindWindow ('TForml', 'Forml');

If Wirdow <> 0 then begin // окно найдено dc := GetDC (Window);

// ссылка на найденное окне Rectangle (dc, 10, 10, 110, 110.) ;

// кзадрат на чужом окне ReieaseDC (Window, dc);

// освобождение ссыпки DeleteDC (dc);

// удаление ссыпки end;

end;

Теперь при щелчке на кнопке, если в системе зарегистрировано хотя бы од но окно класса 'TForml' с заголовком 'Forml', вывод (рисование квадрата) будет осуществляться на него.

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

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

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

( Замечание J Следует обратить внимание на то, что мы не можем рисовать на поверхности вообще любого окна. Например, не получится, поменяв имя класса окна на 'TAppBuilder', поставить "кляксу" на главном окне среды Delphi.

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

procedure TForm2.Button2Ciick(Sender: TObject);

var dc : HDC;

22 OpenGL. Графика в проектах Delphi begin dc := GetDC (0);

// получаю ссыпку на рабочий стог.

= Rectangle (dc, 10, 10, 110, 110);

ReleaseDC (Handle, d c } ;

DeleteDC (DC);

end;

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

Разберем основные детали вывода с помощью функций GDI. В проекте из подкаталога Ех12 оконная функция минимальной программы дополнилась обработкой сообщения WM^PAINT. ВЫВОД заключен между строками с вызо вом функций BeginPaint и EndPaint, первая из которых возвращает ссылку на контекст устройства, т. е. величину типа нос, требуемую для функций вывода GDI. Еще раз повторю, что после использования ссылки ее необхо димо освободить и удалить по окончании работы — это необходимо для корректной работы приложения.

Смысл ссылки на контекст устройства мы подробно обсудим немного позже.

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

Перехват сообщений Большинство событий формы и компонентов являются аналогами соответ ствующих сообщений операционной системы.

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

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

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

Для начала обратимся к проекту из подкаталога Ех13, где мы опять будем программировать без VCL. Задача состоит в том, чтобы при двойном щелчке левой кнопкой мыши выводились текущие координаты указателя. Прежде всего обратите внимание, что в стиль окна добавилась константа cs_3biciks, чтобы окно могло реагировать на двойной щелчок, а оконная функция до полнилась обработкой сообщения wn LButtonDbicik, в которой выводятся i координаты курсора.

Теперь создадим обработчик этого же сообщения в проекте Delphi обычного типа (проект располагается в подкаталоге Ех14).

Описание класса формы я дополнил разделом protected, в который помес тил forward-описание соответствующей процедуры:

procedure MesDblClick ;

a MyMessage : TWMMouse);

message vr wm_LBu11 onDblС1k;

Замечание Как правило, перехватчики сообщений для повышения надежности работы приложения описываются в блоке p r o t e c t e d.

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

Служебное слово message указывает на то, что процедура будет перехваты вать сообщение, мнемонику которого указывают за этим словом. Тип аргу мента процедуры-перехватчика индивидуален для каждого сообщения. Имя аргумента произвольно, но, конечно, нельзя брать в качестве имени служеб ное С О О message.

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

Чтобы решить эту задачу для сообщения w LBut^onDoicik, я просмотрел все m вхождения фразы "LButtonDblClk" в файле messages.pas и обнаружил строку, подсказавшую решение:

TWMLButtDnDblClk - TWMMcuse;

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

Итак, в рассматриваемом примере перехватывается сообщение "двойной щелчок левой кнопки мыши". Событие Dblciick формы наступает точно в такой же ситуации. Выясним, какая из двух процедур, перехватчик сообще ния или обработчик события, имеет преимущество или же они равноправ ны. Создайте обработчик события onobiciick формы — вывод любого тесто вого сообщения (можете воспользоваться готовым проектом из подкаталога Ех15). Запустите проект, дважды щелкните на форме. Процедура-пере хватчик среагирует первой и единственной, до обработчика события очередь не дойдет.

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

В проекте из подкаталога Ех1б создан обработчик сообщения мг paint — перерисовка окна:

protected procedure WMPaintfvar Msg: TWMPaint);

message WM_PAINT;

procedure TForml.WMPaint(var Msg: TWMPaint);

var ps : TPaintStruct;

begin BeginPaint(Handle, ps);

Rectangle (Canvas.Handle, 10, 10, 100, 100);

EndPaint(Handle, ps);

end;

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

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

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

Глава 1. Подключение OpenGL Работа с таймером В этом разделе мы разберем, как использовать таймер, основываясь только на функциях API. Поскольку вы наверняка умеете работать с компонентом класса TTimer, вам легко будет уяснить, как это делается на уровне функ ций API.

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

СОПЗ 'С AppName = 'WinPaint';

id Timer = 100;

// идентификатор таймера Идентифицировать таймер необходимо потому, что у приложения их может быть несколько. Для включения таймера (то, что в привычном антураже со ответствует Timerl. Enabled :- Trae) ВЫЗЫВаеТСЯ фунКЦИЯ API ЗсгЗЧпел, Г С Д задается требуемый интервал таймера:

SetTimer (Window, idTimer, 200, nil) ;

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

wm_Timer : InvalidatcRect (Window, nil, False);

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

В моем примере каждые 200 миллисекунд окно перерисовывается вызовом функции API invaiidateRect. Запомните этот прием, потом мы не раз будем его использовать. Изменение цвета кружочка достигается тем, что при каж дой перерисовке объект "кисть" принимает новое значение:

Brush ;

- CreateSolidBrush (RGB (random (255), random ( 5 3, t a d e ( b 5 i } ;

;

2';

: ncn Как всегда в Windows, созданные объекты должны по окончании работы удаляться, дабы не поглощали ресурсы. Для удаления таймера вызываем ФУНКЦИЮ K i l l T i m e r В обработчике СООбщеНИЯ wm_ Destroy:

KillTimer (Window, id Timer);

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

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

Проект из подкаталога Ех!8 является примером на обработку остальных со общений, связанных с мышью. При нажатой левой кнопки мыши за ука зателем остается след. Оконная функция дополнилась обработчиками со общений wm_LButtonDown, wmL3uttor.Up И wm_Mo'JseMove. Для определения КО ординат курсора пользуемся тем, что поле lParam подобных сообщений со держит эти самые координаты.

wm._Create : Down :- False;

w n LButtonDown, wm_LButtonUp : Down : = n r Down;

r o.

WT MouseMove : begin II If Down then begin xpos :- LoWord f LParam! ;

ypos := HiWord ( LParam};

InvalidateRect fWindow, nil, False i ;

end;

end;

wm_Paint: begin If Down then begin dc := BeginPaint (Window, MyPaint;

;

Ellipse fdc, xPos, yPos, xPos + 2, ypos - 2);

EndPaint (Window, MyPaint);

ReleaseDC (Window, dc) ;

end;

end;

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

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

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

wm_Char: // анализ нажатой клавиши case wParam of $58, $78 : If HiWord (GetKeyState (vk_S"nift)) = 0 { Shift \ then MessageBox(Window, 'X', 'Нажата клавиша', MB OK] else MessageBox (Window, 'X вместе с Shift', 'Нажата клавиша, l-V-i OK);

end;

// wm char Глава 1. Подключение OpenGL При нажатии клавиши 'X' выводится сообщение, в котором указано, нажата ли одновременно клавиша . Я использовал шестнадцатиричное пред ставление кода клавиши, но, конечно, можно использовать и десятичное.

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

DLL Файлы DLL (Dynamic Link Library, библиотека динамической компоновки) являются основой программной архитектуры Windows и отличаются от ис полняемых файлов фактически только заголовком.

( Замечание J Но это не означает, что если переименовать DLL-файл, то он станет исполняе мым: имеется в виду заголовочная информация файла.

Для загрузки операционной системы необходимо запустить файл win.com.

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

Помимо кода, DLL-файлы могут хранить данные и ресурсы. Например, при изменении значка (ярлыка) пользователю предлагается на выбор набор значков из файла SHELL32.DLL.

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

windows и Messages. Первый из этих файлов содержит прототипы функций API и GDI, Посмотрим на прототип одной из них:

function CreateDC;

external gdi32 name 'CreateDCA';

Здесь величина gdi32 — константа, описанная в этом же модуле:

const gdi32 - - - - ' g d i 3 2. d l l ' ;

Таким образом, функция createoc физически размещена в файле gdi32.dll и каждое приложение, использующее функции GDI. обращается к этой библиотеке.

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

Обратите внимание, что в этом же файле находится описание константы opengi32.

28 OpenGL. Графина в проектах Delphi Использование DLL, в частности, позволяет операционной системе эконо мить память.

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

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

Библиотека OpenGL физически также размещена в виде двух DLL-файлов:

opengl23.dll и glu32.dll. Первый из этих файлов и есть собственно библиотека OpenGL. Назначение его — осуществление взаимодействия с акселератором или программная эмуляция ускорителя за счет центрального процессора.

Поддержка ЗО-акселерации осуществляется с помощью полного (устанавли ваемого) клиентского драйвера (Installable Client Driver, ICD) и мини-драйвера (Mini-Client Driver, MCD).

Библиотека OpenGL реализована по клиент-серверной схеме, т. е. ее одно временно может использовать несколько приложений при единственной копии сервера в памяти или вообще при удаленном расположении сервера (сервер в принципе может располагаться и не на компьютере клиента).

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

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

Для использования утилиты tdump скопируйте ее и необходимый dll-файл в отдельный каталог. Запустите его с параметрами <имя анализируемого файла> и <имя файла-результата>, например:

TDUMP.EXE opengl32.dll opengl.txt В файле opengl.txt будет выдана информация, извлеченная утилитой из заго ловка библиотеки, аналогичная той, что выводится утилитой быстрого про смотра. Информация группируется по секциям, среди которых наиболее Глава 1. Подключение OpenGL часто программисту требуется секция экспортируемых функций для уточне ния содержимого библиотеки.

Итак, чаше всего DLL представляет собой набор функций и процедур. Как говорится в справке Delphi no DLL, "динамические библиотеки являются идеалом для многоязыковых проектов". Это действительно так: при исполь зовании OpenGL совершенно безразлично, в какой среде созданы сама биб лиотека и вызывающие ее модули.

Контекст устройства и контекст воспроизведения Мы уже знаем, что ссылка на контекст устройства — это величина типа нос.

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

Ссылке на контекст устройства соответствует свойство canvas.]Handi-e фор мы, принтера и некоторых компонентов Delphi.

Каков же все-таки смысл контекста устройства, если он и так связан с од нозначно определенным объектом — окном, областью памяти или принте ром, и зачем передавать дополнительно какую-то информацию об одно значно определенном объекте?

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

Строки программы Forml.Canvas.Ellipse (0, 0, 100, :00);

И Printer.BeginDoc;

Printer.Canvas.Ellipse {0, 0, 100, 100};

Printer.EndDoc;

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

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

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

Справочный файл Win32 Programmer's Reference фирмы Microsoft, постав ляемый в составе Delphi, о контексте устройства сообщает следующее:

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

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

Графическая система OpenGL, как и любое другое приложение Windows (хоть и размещенное в DLL), также нуждается в ссылке на устройство, на которое будет осуществляться вывод. Это специальная ссылка на контекст воспроизведения — величина типа HGLRC (Handle openGL Rendering Context, ссылка на контекст воспроизведения OpenGL).

Замечание Контекст устройства Windows содержит информацию, относящуюся к графиче ским компонентам GDI, а контекст воспроизведения содержит информацию, относящуюся к OpenGL, т. е. играет такую же роль, что и контекст устройства для GDI.

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

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

Во-первых, обратите внимание на то, что список uses дополнен модулем OpenGL — это программист должен сделать сам.

Раздел private описания класса формы содержит строку hrc: HGLRC;

// ссылка на контекст веспооизведения Глава 1. Подключение OpenGL Смысл этой величины мы рассмотрели в предыдущем разделе.

Обработчик события onCreatc формы содержит следующие строки:

SetDCPixelFormat (Canvas. Handle) ;

//задаем формат пиксела hrc :— vglCreateContext(Canvas.Handle);

//создаем контекст воспроизведения Первая строка — обращение к описанной в этом же модуле пользователь ской процедуре, задающей формат пиксела:

procedure SetDCPixel Format (ndc : HOC;

;

var pfci : '."'PixelFormatDescriptor ;

nPixelFormat : I n t e g e r ;

begin FillCn^r (pfd, SizeOf (pfd), 01;

nPixel Format := Choose Pixel Format (fide, @pfrij ;

SetPixelFormat (hdc, nPixelFormat, @pfdj;

end;

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

Во второй строке обработчика encreate, как ясно из комментария, задается величина типа HGLRC, Т. е. создается контекст воспроизведения. Аргументом функции wglCreateContext является ссылка на контекст устройства, на кото рый будет осуществляться вывод. Сейчас устройством вывода служит окно формы. Для получения этого контекста OpenGL необходима величина типа нес. Здесь, как и во многих других примерах, мы используем факт, что canvas.Handle и есть ссылка на контекст устройства, связанная с окном формы.

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

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

Функция wglCreateContext физически размещается в файле opengl32.dll, а прототип ее находится в файле windows.pas. В этот файл также помещены прототипы всех функций и процедур, имеющих отношение к реализации OpenGL под Windows, а прототипы собственно команд OpenGL расположе ны в файле opengl.pas.

32 OpenGL. Графика в проектах Delphi Функции и процедуры, имеющие отношение только к Windows-версии OpenGL, обычно имеют приставку wgi, как, например, wgicmaueccntext, по могут и не иметь такой приставки, как, например, swapB-^ffers. Собственно команды OpenGL имеют приставки gi или giu в зависимости от размеще ния в библиотеках opengl32.dll и glu32.dll, соответственно.

Итак, контекст воспроизведения создан, и теперь можно осуществлять вы вод командами OpenGL. Обработка события onPainc выглядит следующим образом:

wgLMakeCurrent (Canvas.Handle, hrc);

// установить контекст glClcarColor (0.5, 0.5, 0.75, 1.0);

// цвет фона glC]aar (GLCOLOR RUFFER_BIT);

// очистка буфера ц е _ а в- wglMakeCnrrent (0,0);

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

Замечание Согласно справке, для освобождения контекста воспроизведения оба парамет ра должны быть установлены в NULL, НО ХОТЯ компилятор и пропустит такие значения, во время выполнения получим ошибку "Invalid variant type conver sion", так что будем всегда для освобождения контекста задавать эти значения нулевыми.

Обработка события OnDestroy формы состоит из одной строки:

wglDeleteContext(hrc);

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

Замечание Очень важно запомнить, что процедуры и функции, имена которых начинаются на g l или giu, т. е. команды OpenGL, имеют какой-либо результат только при установленном контексте воспроизведения.

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

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

±carr:Gioi имеют тип GLciampf, соответствующий вещественным числам в пределах от нуля до единицы. О типах OpenGL подробнее поговорим ниже.

Глава 1. Подключение OpenGL 33_ Теперь обратитесь к проекту из подкаталога Ех21, представляющему собой еще один вариант минимальной программы Delphi, использующей OpenGL.

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

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

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

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

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

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

Эти характеристики хранятся в специальной структуре, тип которой — TPixeiFormatDescriptor (описание формата пиксела). Формат пиксела опре деляет конфигурацию буфера цвета и вспомогательных буферов.

Наберите в тексте модуля фразу "PixelFormatDcscnptor". нажмите клавишу , и вы получите подробную информацию об этом типе. Обращаю вни мание: мы видим раздел справки Microsoft, рассчитанной на программистов, использующих С или C++, поэтому описание содержит термины и стилисти ку именно этих языков. По традиции Delphi имена типов начинаются с пре фикса Т. НО Нам Не удастСЯ Н Й И П М Щ ПО ТерМИНу TPixo i FormatDescriptor.

аТ ОО Ь 34 OpenGL. Графика в проектах Delphi К сожалению, это не единственное неудобство, которое придется испытать.

Например, если мы заглянем в файл windows.pas и найдем описание записи TPixelFormatDescnptor, то обнаружим, что в файле помощи не указаны не которые константы, имеющие отношение к этому типу, а именно:

PFD SWAP_LAYER_BUFFER8, PFD GENERIC^ACCELERATED и PFD_DEPTHDCHTCARE.

А константа, названная PFD_DOUBLE_BUFFER_DONTCARE, по-видимому, соответ ствует константе, описанной в модуле windows.pas как PFD_DOUELEBUFFt:R_ DONTCARE.

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

В проекте Я Привел Описание Всех ПОЛеЙ Структуры TPixelFo mat Descriptor на русском языке (в момент их первоначального заполнения). Делается это в процедуре setocpixeiFormat, вызываемой между получением ссылки на контекст устройства и созданием ссылки на контекст воспроизведения OpenGL.

Посмотрим подробнее, что там делается. Полям структуры присваиваются желаемые значения, затем вызовом функции choosePixeiFonr.a^ осуществля ется запрос системе, поддерживается ли на данном рабочем месте выбран ный формат пиксела, и, наконец, вызовом функции Set Pixel Format, устанав ливается формат пиксела в контексте устройства.

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

Заполнив поля структуры TPixel Format Descriptor, мы определяемся со своими пожеланиями к графической системе, на которой будет происходить работа приложения, OpenGL подбирает наиболее подходящий к нашим по желаниям формат и устанавливает уже его в качестве формата пиксела для последующей работы. Наши пожелания корректируются сервером OpenGL применительно к реальным характеристикам системы.

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

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

Обратим внимание на поле структуры "битовые флаги", dwFiags. To, как мы зададим значение флагов, может существенно сказаться на работе нашего Глава 1. Подключение OpenGL приложения, и наобум задавать эти значения не стоит. Тем более что неко торые флаги совместно "не уживаются", а некоторые присутствуют только в паре с определенными флагами.

В рассматриваемом примере я присвоил флагам значение ?FD_:-RAW TO_ WINDOW or PFD_SUPPORT_OPENGL, сообщив тем самым системе, что собираюсь осуществлять вывод в окно и что моя система в принципе поддерживает OpenGL (рис. 1.1). Я ограничился всего двумя константами из обширного списка, приведенного в модуле windows.pas. (В файле справки почти для каждой из них имеется детальное описание.) Так, константа PFD_DOUBLEBLTFFER включает режим двойной буферизации, когда вывод осуществляется не на экран, а в память, затем содержимое бу фера выводится на экран. Это очень полезный режим: если в любом приме ре на анимацию убрать режим двойной буферизации и все связанные с этим режимом команды, то при выводе кадра будет заметно мерцание. Во всех последующих примерах, начиная со второй главы, я буду использовать этот режим, кроме некоторых специально оговариваемых случаев.

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

Константу PFD_GENERICACCELERATED имеет смысл устанавливать только в случае, если компьютер оснащен графическим акселератором.

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

Со всеми остальными полями и константами я предоставляю вам возмож ность разобраться самостоятельно. Отмечу, что поле iLayerType, описанное в windows.pas как имеющее тип Byte, может, согласно справке, иметь три значения: PFD_MAIN_PLANE, PFD_OVERLAY_PLANE И PFD_CJNDERLAY_PLANE. однако константа PFD_UNDERLAY_PLANE имеет значение — 1, так что установить такое значение для величины типа Byte не удастся.

OpenGL позволяет узнать, какой же формат пиксела он собирается исполь зовать. ДЛЯ Э О О Необходимо ИСПОЛЬЗОВаТЬ фуНКЦИЮ DescribePixelFormat, ТГ заполняющую величину типа TPixelFormatDescrip^or установленным фор матом пиксела.

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

В примере битовым флагам задаем все возможные значения одновременно, числовым полям задаем заведомо нереальное значение 64, и смотрим на вы OpenGL. Графика в проектах Delphi бор формата пиксела, сделанный OpenGL. Результат, который вы получите для выбранного OpenGL формата пиксела, я предсказать не могу: он инди видуален дли каждой конкретной конфигурации компьютера и текущих на строек. Скорее всего окажется, что режим двойной буферизации не будет установлен. (Напоминаю: многие флаги устанавливаются только в опреде ленных комбинациях с другими.) !

1, * Формат пикселей jcH-t' t =b-iiH i Type j.STEREO.DRAW TO W\CQ\V Dn^w' TO Bt'^Ai.Od'-JF^ " -L-1MA". N L ;

J F,CLi L >.SvAV-0-OK, 5^A ;

5 _uu''FR R fF'-t-.--.

DEPTH [).~НГГАЕЕ Рис. 1.1. По умолчанию > режим двойной буферизации не установлен Наше приложение позволяет менять параметры формата пиксела и устанав ливать его заново, а чтобы видеть воспроизведение, небольшая площадка на экране при каждом тестировании окрашивается случайным цветом, исполь зуя функции OpenGL. Поэкспериментируйте с этим приложением, напри мер, определите комбинацию флагов для установления режима двойной бу феризации. Посмотрите значение числовых полей формата при различной палитре экрана: 16 бит, 24 бита, 32 бита, если у вас есть такой режим, но не в палитре с 256 цветами. О выводе OpenGL при палитре экрана в 256 цветов у пас будет отдельный разговор.

Это приложение, в частности, дает ответ на вопрос, как определить, осна щен ли компьютер графическим акселератором. Сделать это можно после ВЫЗОВа фуНКЦИИ DescribePixelFcrmat следующим образом:

i, ;

: Integer;

;

i :=•-- ptci.dwFIags and L FD_GE:NER.[C_ACCI1.EPATED;

: :

- pfd.dwFiags and EJFD_GENEkIC_FO?.KAT;

I f (i - 0) and (j - 0) tneri / / полноценный ICD-драйвер г. функциями ускорения e l s e If (i - 1) and (j = 1} Глава 1. Подключение OpenGL then // MCD-драйвер, аппаратно реализуется // только часть функций ускорения else // режим программной эмуляции, всю работу выполняет центральный // процессор В следующей главе мы узнаем еше один способ определения наличия аксе лератора.

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

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

If hrc=0 then ShowMessage('Отсутствует контекст воспроизведения OpenGL');

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

FillChar (pfd, SizcOf (pfd), 0);

nPixelFormat := CnoosePixelFormat (hdc, @pfd);

Set Pixel Format (hdc, nPixelFormat, r p d ;

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

Я не встречал ситуаций, когда бы такой подход не срабатывал, не считая случаев с использованием других, нежели фирмы Microsoft, версий OpenGL, но поручиться за то, что он будет работать для всех графических карт, не могу. Возможно, проблемы возникнут также из-за некорректной работы драйверов (стандартная отговорка, не правда ли?).

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

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

Функция API FormatMessage позволяет преобразовать сообщение об ошибке в формат, пригодный для вывода:

lpMsgBuf: PChar;

FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER or FORMAT_MESSAGE_FROM_SY3TEM, nil, GetLastError(), LANG_NEUTRAL, SlpMsgBuf, 0, nil);

MessageBox(Window, lpMsgBuf, 'GetLastError', MB_OK);

Сообщение выводится в осмысленной форме и на языке, соответствующем локализации операционной системы. В данном случае выводится фраза "Неверный дескриптор".

Если убрать знаки комментария со строки с получением ссылки, а заком ментировать СТрОКу С В З В М фуНКЦИИ SetPixelForma-c, сообщение об ЫО О ошибке будет выглядеть как "Неправильный формат точки" (подразуме вается "Неверный формат пиксела").

Полный список системных ошибок, связанных с использованием OpenGL, можно посмотреть в файле windows.pas, в разделе "OpenGL Error Code".

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

Замечание Во второй главе мы познакомимся с еще одним способом диагностирования ошибок, стандартным для OpenGL.

Вывод на компоненты Delphi средствами OpenGL Теоретически с помощью функций OpenGL можно осуществлять вывод не только на поверхность формы, но и на поверхность любого компонента, если у него имеется свойство canvas.Handle, для чего при получении ссыл Глава 1. Подключение OpenGL ки на контекст воспроизведения необходимо указывать ссылку на кон текст устройства, ассоциированную с нужным компонентом, например, Tmagel. Canvas. Handle. О д н а к о чаще ВСеГО ЭТО ПрИВОДИТ К НеустОЙЧИВОЙ ра боте, вывод то есть, то нет, хотя контекст воспроизведения присутствует и не теряется.

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

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

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

dc := GetDC {Panell.Handle);

SetDCPixelFormat (etc) ;

hrc := "/jglCreateContext (dc) ;

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

Для вывода на компонент класса Timage можете записать:

dc := ImageI.Canvas.Handle;

И удаЛИТЬ СТРОКИ B e g i n P a i n t и EndPaint, ПОСКОЛЬКУ КЛЭСС Timage He Имеет свойства Handle, т. е. не создает отдельного окна.

Однако вывод на компоненты, подобные компонентам класса Timage, т. е.

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

Почему это происходит, выясним в следующем разделе.

Стили окна и вывод OpenGL В проекте из подкаталога Ех25 я немного модифицировал пример мини мальной программы OpenGL таким образом, что получилось простое MDI приложение, в котором каждое дочернее окно окрашивается случайным об разом с использованием команд OpenGL (рис. 1.2).

Проект из подкаталога Ех26 отличается от предыдущего только тем, что по лучается SDI-приложение (рис. 1.3).

Из этих примеров видно, что приложение может иметь сколько угодно кон текстов воспроизведения. Однако следует иметь в виду, что каждое окно OpenGL. Графика в проектах Delphi может иметь только один контекст воспроизведения, чем. в частности.

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

Рис. 1.2. Приложение для вывода командами OpenGL может иметь сколько угодно окон Рис. 1.З. Для вывода командами OpenGL можно использовать любой интерфейс приложений В справке по функции setPixe:Format говорится о том, что вывод сред ствами OpenGL. не может быть осуществлен на окно совершенно произ вольного стиля, класс окна должен включать стили "WS_CLIPCHILD?EN и:-л ws ci IFSIBLINGS". Это соответствует обычным окнам Delphi— и родитель ским, и дочерним. Также говорится и о том, что атрибуты класса окна не могут включать стиль "C3_PAREHTDC", ЧТО является полным ответом на вопрос о неустойчивости вывода средствами OpenGL на поверхность компонентов ТИПа Класса TImagc.

Глава 1. Подключение OpenGL В примере из подкаталога Ех27 по сравнению с проектом минимальной программы OpenGL я поменял значение свойства Borders^yie окна формы на bsNone, т. е. осуществил вывод на окно без рамки.

Я не встречал ситуации, когда бы подобные проекты с выводом на окно без рамки или MDI-приложения с выводом средствами OpenGL на дочерние окна работали некорректно или неустойчиво, независимо от текущих уста новок или используемого акселератора, если свойство wiindowstate имеет Значение wsNormal.

Более вероятно возникновение проблем в случае полноэкранных приложении.

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

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

К сожалению, мне придется сообщить о наличии здесь некоторых проблем, впрочем, мы их успешно разрешим. Вернитесь к последнему примеру — проекту из подкаталога Ех27, где вывод средствами OpenGL осуществляется на окно без рамки и области заголовка. Поменяйте свойство windowstate формы на wsMaximized, чтобы окно после запуска раскрывалось на весь экран. Запустите проект или откомпилированный модуль. Что у вас полу чится, я предсказать не могу, он зависит от конкретной конфигурации ма шины. Если на вашем компьютере все происходит в ожидаемом режиме, т. е. весь экран занят окном голубоватого цвета, вы избавлены от множества проблем, если только не собираетесь распространять свои приложения. Де ло в том, что я тестировал подобные проекты на компьютерах самой раз личной конфигурации и обнаружил, что чаще всего результат получается обескураживающий и неприятный: окно раскрывается некорректно, пе пол ностью занимая экран. Причем неприятности появляются именно в связи с использованием OpenGL, простые проекты вполне справляются с задачей раскрывания на весь экран. Возможно, корень проблемы в несогласованно сти работы драйверов (как всегда!) или ошибках операционной системы.

Однако решение проблемы оказывается совсем простым.

Посмотрите пример из подкаталога Ех28. Это тот же пример, что и преды дущий, только немного измененный. Свойство windowstate окна формы установлено в wsNormal, а обработчик события onCred-e дополнился строкой:

Windowstste := wsMaximized;

42 OpenGL. Графика в проектах Delphi Теперь все работает превосходно, окно действительно раскрывается на весь экран.

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

Другое решение проблемы очень похоже на предыдущее. Посмотрите при мер Ех29 — модифицированный пример вывода на поверхность панели. Па нель занимает всю клиентскую область окна (свойство Align имеет значение aiciient), а окно формы максимизировано и не имеет рамки.

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

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

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

Пример ПОСТроен на ИСПОЛЬЗОВанИИ фуНКПИИ API ChangeDisplaySettir.gs, первый аргумент которой — структура, описывающая требуемый режим.

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

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

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

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

Глава 1. Подключение OpenGL 43_ Приведу еще один пример на полноэкранный режим работы (проект из подкаталога Ех31). Здесь для переключения в различные режимы использу ется DirectDraw, все необходимые модули для его использования находятся также в этом подкаталоге.

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

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

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

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

Типы OpenGL Библиотека OpenGL является переносимой 'по отношению к платформам, операционным системам и средам программирования.

Для обеспечения этой независимости в ней, в частности, определены собст венные типы. Их префикс — "GL", например, GLint.

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

Заголовочный файл Delphi opengl.pas начинается с определения знакомого нам типа HGLRC:

type HGLRC = THandle;

Далее следует описание всех остальных типов OpenGL, например, наиболее "ходовой" тип GLfioat соответствует типу single:

GLfloat = Single;

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

Однако вернемся к типам OpenGL. He все из них удается точно перевести.

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

Будьте внимательны с целыми числами: помимо типа GLint имеется тип GL'Jint — целое без знака, соответствующее типу Cardinal.

В ряду типов OpenGL особо надо сказать о типе C, o l a - BYTEBOOL;

Iboen Соответственно, определены две константы:

GL_FAI,SE = 0;

GL_TRUE - 1;

Константы эти имеют непосредственное отношение к типу GLbooiean, одна ко их значения, как вы понимаете, не соответствуют типу BYTEBCOL. Из-за ошибки в описании типа (или определении констант) не удастся использо вать стандартный для OpenGL код, поэтому вместо констант <.у, FALSE И GL_TRUE будем ИСПОЛЬЗОВаТЬ F a l s e И 7rue, СООТВеТСТВСННО.

Конечно, можно самому скорректировать описание типа, например, так:

GLbooiean - 0.. 1;

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

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

TGLArrayf4 = array [0..3] of GLFloat;

TGLArrayf3 = array [0..2] of GLFloat;

TGLArrayi4 - array [0..3] of GLint;

Глава 1. Подключение OpenGL Это сделано, по-видимому, для удобства кодирования и повышения чита бельности кода, поскольку нигде больше в этом модуле указанные типы не встречаются.

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

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

Вообще, должен сказать, что OpenGL наиболее приспособлен для програм мирования на С, поэтому некоторые моменты будут вызывать некоторые неудобства при использовании Delphi (уже упоминавшаяся система справок лишь одно звено в этой цепи). Тем не менее, это не помешает нам успешно освоить программировании на Delphi с использованием этой библиотеки.

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

Однако это не должно отпугнуть вас от дальнейшего изучения использова ния OpenGL в проектах Delphi, поскольку здесь как раз тот случай, коида скорость работы самого приложения не так уж и важна. Основную долю работы берет на себя сервер OpenGL, а приложению достается роль транс лятора команд серверу, поэтому нет особых потерь производительности, ес ли вместо языка C++ мы используем Pascal и Delphi.

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

Delphi имеет свои неоспоримые достоинства — прежде всего это несравни мая ни с каким другим средством скорость разработки и компиляции.

Именно поэтому, а также из-за "скрытого обаяния" Delphi (вы понимаете, о чем я говорю) мы и выбрали эту замечательную систему в качестве основы для изучения OpenGL.

46 OpenGL. Графика в проектах Delphi Тип TColorv\ цвет в OpenGL Разберем еще одну версию нашей первой программы, использующей OpenGL — пример из подкаталога Ех32. Здесь на форму помещена кнопка, при нажатии которой появляется стандартный диалог Windows выбора цве та. После выбора окно окрашивается в выбранный цвет, для чего использу ются команды OpenGL. Поскольку такой прием мы активно будем приме нять в будущем, разберем подробно, как это делается.

Цвет, возвращаемый диалогом, хранится в свойстве color компонента класса TCoiorDiaiog. Согласно справке, значение SOOFFFFFF ЭТОГО свойст ва соответствует белому цвету, $OOFFOOQO — синему, $OCOOFFOO — зеленому, $OOOOOOFF — красному. То есть для выделения красной составляющей цвета необходимо вырезать первый слева байт, второй байт даст долю зеленого, третий — синего. Максимальное значение байта — 255, минимальное — ноль. Цвета же OpenGL располагаются в интервале от нуля до единицы.

В нашем примере я ввел пользовательскую процедуру, определяющую трой ку составляющих цветов для OpenGL по заданному аргументу типа TCcior:

procedure TfrmGL.ColorToGL (с : TCoIor;

var R, G, В : GLFloat) ;

begin R := (c mod S100) / 255;

G := ((c div $100) mod $100) / 255;

Б := (с div $10000) / 255;

end;

Из аргумента вырезаются нужные байты и масштабируются в интервал [0;

1].

Замечание Те же действия можно сделать и другим, более "продвинутым" способом:

R := (с and $FF) / 255;

G :=((cand$FF00)shr8)/255;

В := {(с and SFFOOOO) shr 16) / 255.

Эта процедура используется в обработчике нажатия кнопки:

If ColorDialogl.Execute then begin ColorToGL (ColorDialogl.Color, R, G, B);

Refresh;

end;

В примере для простоты окно перекрашивается обычным для Delphi спосо бом — через вызов метода Refresh формы.

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

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

procedure glCIearColor (red, green, blue, alpha: GLclampf);

stdcall;

В секции implementation модуля собственно описание процедуры выглядит так:

procedure glCIearColor;

external opengl32;

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

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

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

Здесь opengi32 — константа, определяемая, как я отмечал раньше, в другом модуле — в windows.pas:

opengl32 - 'opengl32.dll';

Константа, соответствующая второй используемой библиотеке, содержится в модуле opengl.pas:

const glu32 - 'glu32.dll';

Содержательная часть модуля opengl, соответствующая его инициализации, содержит единственную строку:

Set8M87CW($133F);

В справке по этой процедуре можно прочитать, что она служит для включе ния/выключения исключений при проведении операций с плавающей точ кой. Здесь же отмечается, что для OpenGL рекомендуется эти исключения отключать.

Разброс описаний констант и некоторых функций и процедур по разным модулям объясняется тем, напомню, что информация, относящаяся к реал и ^ 48 OpenGL. Графика в проектах Delphi зации OpenGL под Windows, помешена в заголовочный файл windows.pas.

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

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

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

Следующая возможная ситуация — использование других, нежели произ водства фирмы Microsoft, библиотек, например, версии OpenGL фирмы SGI, которую отличают более высокие скоростные характеристики по неко торым показателям. В приложении "OpenGL в Интернете" я указан адрес, по которому вы можете найти ее дистрибутив. Правда, эту версию OpenGL имеет смысл использовать только на компьютерах, не оснащенных акселе ратором, поскольку она не может самостоятельно использовать драйверы ICD и MCD, а переадресует все вызовы в Microsoft OpenGL, чем сводятся на нет все ее достоинства. В свое время SGI обещала в следующей версии устранить этот недостаток, однако планы этой корпорации по поддержке операционной системы Windows и сотрудничеству с Microsoft, по-видимому, изменились, так что эта работа, возможно, не будет завершена.

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

Здесь я смогу только обозначить эти тонкости. Хотя я и нашел решение проблемы подключения других версий OpenGL, но не имею возможности поделиться им — файл windows.pas лаже в сжатом виде имеет очень боль шой размер, поэтому па одной дискете модифицированные версии этого файла не разместить {для всех версий Deiphi).

Первое, с чего надо начать, — это изменить значения констант opengi32 и giu.32 в заголовочных файлах и установить имена соответствующих файлов библиотек. Если вас не страшит то, что модифицируются стандартные мо дули Deiphi, можете сразу компилировать проекты. Если же вы модифици руете копии стандартных модулей, то придется учитывать, что почти каж дый из стандартных модулей Delphi в списке uses подключает модуль windows, и, возможно, придется переставлять порядок модулей в списке uses.

Обязательно посмотрите с помощью утилит быстрого просмотра или tdump заголовочную информацию откомпилированного приложения для того, что Глава 1. Подключение OpenGL 49_ бы убедиться, что оно использует только те библиотеки, которые подразуме вались. При наличии нескольких библиотек невозможна ситуация, когда функции берутся вперемешку из разных библиотек.

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

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

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

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

Примеры располагаются на дискете в каталоге Chapter2.

Точка Для начала скажем, что в OpenGL левый нижний угол области вывода имеет координаты [-1;

—1], правый верхний — [I, 1].

Начнем наше знакомство с примитивами OpenGL с самого простого из них — точки. Нарисуем на экране пять точек, четыре по углам окна и одну в центре (проект располагается в подкаталоге ЕхО1).

Обработчик события onPair.t формы дополнился следующими строками:

glViewPort (0, 0, ClientWidth, ClientHeight);

// область вывода glPointSize (20);

// размер точек glColor3f (1.0,1.0,1.0);

// цвет прим^тхзоь (GL_POItJTS) ;

// открываем командную с < г ? у то,:

giVertex2f (-1,-1) ;

I •' левый нижний угол // левый верхний угол glVertex2 (-1, 1);

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

// центр окна gIVertex2f (1, - I ) ;

// правый верхний угол glVertex2f (I, 1);

// правый нижний угол glEnd;

// закрываем командную скобку SwapBuffers(Canvas.Handle);

// содержимое буфера — на экран Разберем каждую из строк программы подробно.

Первая строка задает область вывода указанием координат левого нижнего и правого верхнего углов (в пикселах, в оконных координатах). Я взял в каче стве области вывода всю клиентскую часть окна. Если третий параметр про цедуры giviewPort записать как round (ciientwidth / 2), то картинка вдвое сузится, но окрашено будет все окно (проект из подкаталога ЕхО2).

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

На примере команды gicoior3f разберем синтаксис команд OpenGL.

Из справки по этой команде вы узнаете, что она принадлежит к целому на бору команд gicoior с различными окончаниями: зь, 41 и прочие. Цифра в окончании соответствует количеству требуемых аргументов, а следующая цифрой буква показывает требуемый тип аргументов. То есть gicoior3f требует в качестве аргументов тройку вещественных (float) чисел, а glColor3i — тройку целых (int.) чисел.

Аналогичный синтаксис мы встретим у многих других команд OpenGL.

Здесь же, в справке, выясняем, что при записи функции в вещественной форме аргументы лежат в интервале [0;

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

glColoc3i (2147483647, 2147483647, 2147483647);

/ / ц в е т примитивов где максимальное 8-битное целое без знака соответствует предельному зна чению интервала.

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

Исключения оговариваются в файле справки.

Замечание Если имя команды заканчивается на v (векторная форма), то аргументом ее служит указатель на структуру, содержащую данные, например, массив. То есть, например, если последние три символа в имени команды 3fv, то ее аргу мент — адрес массива трех вещественных чисел. Использование такой формы команды является самым оптимальным по скоростным характеристикам.

Далее в программе следуют функции (командные скобки) giBegin и qiEnd, между которыми заключены собственно процедуры рисования.

52 OpenGL. Графика в проектах Delphi Разберемся подробнее с функциями glBegin и giEnd ввиду их особой важ ности: большинство графических построений связано с использованием именно этой пары функций.

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

Во-вторых, внутри этих скобок могут находиться любые операторы языка Pascal и почти любые функции OpenGL (вернее, очень многие). Включен ные в скобки команды OpenGL отрабатываются так же, как и за пределами этих скобок. Главное назначение командных скобок — это задание режима (примитива) для команд givortox (вершина), определяющих координаты вершин для рисования примитивов OpenGL.

В рассмотренном примере аргументом функции glBegin я взял символиче скую константу GL_POINTS. Из файла справки выясняем, что в этом случае все встретившиеся до закрывающей скобки giEnd вершины (аргументы givertex) задают координаты очередной отдельной точки. Команду giver-ex я взял в форме с двумя вещественными аргументами. Получив справку по givertex, вы можете убедиться, что и эта команда имеет целый ворох разновидностей.

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

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

Обработчик СОбыТИЯ OnResize форМЫ ТОТ ж е, ЧТО И у СОбыТИЯ OnPsmt.

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

Если надо нарисовать десять точек по диагонали, то можно написать так (пример располагается в подкаталоге ЕхОЗ):

glBegin (GL_POINTS) ;

For i := 0 to 9 do glVertex2f (i / 5 - 1, I / 5 - 1);

glEr.d;

Hy а следующий код нарисует сотню точек со случайными координатами и цветами (пример из подкаталога ЕхО4):

glBegin (GL_POINTS);

For i := 1 to 100 do begin Глава 2. Двумерные построения 53_ giColor3f (random, random, random);

gLVertex2f (random * 2 — 1, random * 2 — 1 ) ;

end;

glEnd;

Из этого примера мы видим, что команда, задающая цвет примитивов, мо жет присутствовать внутри командных скобок OpenGL. Вызов же команды gipointsize между командными скобками безрезультатен и будет генериро вать внутреннюю ошибку OpenGL. Так что если мы хотим получать точки случайных размеров, цикл надо переписать так (проект из подкаталога ЕхО5):

For i := 1 to 100 do begin glCclor3f (random, random, random);

glE'cintSize (random (20) ) ;

// обязательно за пределами скобок glEegin {GL_POINTS) ;

glVertex2f (random * 2 — 1, random * 2 — 1 ) ;

glEr.d;

end;

Скорее всего, вас удивило то, что точки рисуются в виде квадратиков. Что бы получить точки в виде кружочков, перед giBegin вставьте строку:

glEnable (GL_J-?OINT_SMOOTH) ;

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

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

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

Команда g i c i e a r с аргументом G L _ C O L O R B U F F E R _ B I T очищает текущий буфер вывода.

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

54 OpenGL. Графика в проектах Delphi ( Замечание J В большинстве примеров этой книги я не использую вызов g] F i n i s : : или g i F i u s h, ускорение от них получается микроскопическим. Но в программах, не применяющих двойную буферизацию, эти команды должны вызываться обяза тельно, иначе на экране может оказаться "недорисованная" картинка.

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

Приведу еще одну иллюстрацию — занятный пример на использование по лученных знаний. В разделе private опишите две переменные:

xpos : GLfloat;

// координаты курсора в системе координат OpenCL ypos : GLfloat;

Создайте следующий обработчик события MouseMove формы:

xpos := 2 * X / ClientWidth - 1;

ypos := 2 * (ClientHeight - Y) / CliencHeight - I;

Refresh;

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

For i := 1 to 40 do begin // сорок точек glColcr3f (random, random, random);

// случайного цвета glPointSize (random (10));

// случайного размера glBegin ( L _ POINTS) ;

//со случайными координатами вокруг куэсора G_ glVertex2f (xpos + 0.2 * random * sin (random (360)), ypos + 0.2 * random * cos (random (360)));

glEnd;

end;

Если все сделано правильно, при движении курсора по поверхности формы в районе курсора появляется облачко разноцветных точек (готовый проект я поместил в подкаталог ЕхОб). Разберитесь в этом примере с масштабиро ванием значения переменных xpos и ypcs и обратите внимание, что обра ботчик движения мыши заканчивается вызовом Refresh — принудительной перерисовкой окна при каждом движении курсора.

Предлагаю также разобрать простой пример из подкаталога ЕхО7 — по строение синусоиды средствами OpenGL:

procedure TfrmGL.FormPaint(Sender: TObjcct);

const a- —Pi;

// начало интервала b- Pi;

// конец интервала num = 200;

// количество точек на интервале var х: GLfloat;

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

begin wglMakeCurrent(Canvas.Handle, hrc);

glViewPort (0, 0, ClientWidth, ClientHeight);

glClearColor (0.5, 0.5, 0.75, 1.0J;

glClear (GL_COLOR_BUFFER_BIT};

glEnable (GL_POINT_SMOOTH);

glColor3f (1.0, 0.0, 0.5);

glBegin (GL_POINTS) ;

For i := 0 to num do begin x :^a t i r (b — a) / num;

glVertex2f (2 * [x — a) I (b — a) - 1.0, ainixj ~ 0. ;

i;

;

end;

glEnd;

SwapBuffers(Canvas.Handle);

wglMakeCurrent(0, 0);

end;

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

dc := GetDC (0);

Для завершения работы приложения нажмите клавиши + или . Обратите внимание, что по завершении работы приложения перери совываем рабочий стол:

I nva I i da t eRe с t '. 0, n i l, Fa 1 s e j ;

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

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

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

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

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

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

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

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

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

glEnable(GL_SCISSOR_TEST);

После использования вырезки этот режим необходимо отключить парной Командой glDisable.

Разберите проект из подкаталога ЕхО9 (второй пример этой главы), допол ненный строками включения режима вырезки и командой, задающей об ласть вырезки:

glEnable(GL_SCISSOR_TEST);

// включаем режим использования вырезхи gIScissor (0, 0, round (ClientW.idth/2), ClientHeight) ;

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

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

Глава 2, Двумерные построения 57_ Совместное использование поверхности окна возможно при условии, что канва будет доступна для вывода, т. е. в этом случае надо обязательно осво бождать контексты.

С \ Замечание Многое также зависит от графической карты компьютера.

Посмотрите несложный пример из подкаталога ExlO, где код перерисовки окна первого примера данной главы дополнен строками:

Canvas.3rush.Color : clGreen;

= Canvas.Ellipse (10, 10, 50, 50);

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

Отрезок От точек перейдем к линиям. Разберем следующий возможный аргумент команды giBegin — константу GL_MNES, задающий примитив "независимый отрезок".

Для этого примитива следующие в командных скобках вершины (т. е. функ ции givertex) задают попарно координаты начала и конца каждого отрезка прямой. Снова вернемся к первому примеру с точками и подправим код ри сования следующим образом (готовый проект можете найти в подкаталоге ЕхП):

glBegir. ( L LINES) ;

G glVerr.ex2f ( 1 i) ;

-, glVertox2f (1,-1);

glVertex2f {-1,-1);

glVerLex2f (1, 1};

glEnd;

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

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

glLineWMth ( 2. 5) ;

Эта функция также должна выноситься за командные скобки.

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

OpenGL. Графика в проектах Delphi glLineWidth (15) ;

glEnable (GL_LINE_SMOOTH);

glBegin (GL_LINES);

glVertex2f ( 0 7 0.7);

-., и посмотрите результаты работы программы с вызовом и без вызова g l E n a b l e (GL_LINE_SMOOTH).

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

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

giBegin (GL_LINE STRIP);

glVertex2f ( 1 -1);

-, glVertex2f ( 1 1);

-, glVertex2f (1, 1);

glVertex2f (1, -1);

glEnd;

Результат — буква П по границе окна (проект из подкаталога Ех13).

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

В примерах на отрезки мы пока использовали непрерывную линию. Для рисования пунктирной линией перед командными скобками добавьте сле дующие строки (проект из подкаталога Ех15):

glLineStipple (I, $FOF0);

glEnable (GL_LINE_STIPPLE);

У функции glLineStipple первый аргумент — масштабный множитель, вто рой аргумент задает шаблон штриховки {побитовым способом).

Разберем проект из подкаталога Ех1б — еще один пример на использование штриховки (рис. 2.1).

Пользовательская процедура drawOneLine вызывается для воспроизведения каждого отдельного отрезка:

procedure TfrmGL. drawOneLine (xl, yl, x2, y2 : GLfloat.);

begin g[Begin(GL LINES);

Глава 2. Двумерные построения glVertex2f (2 xl / CiientWidth - 1.0, yl / ClientHeight - 0.5);

glVertex2f (2 x2 / Client-Width - 1.0, y2 / CiientHeight:

- 0.5);

glEnd;

end;

Р и с. 2. 1. Несколько готовых шаблонов штриховых линий Содержательная часть кода перерисовки окна выглядит так:

glColor3f (1.0, 1.0, 1.0);

все отрезки рисуются оелым // вторая строка: рисуется 3 отрезка, все с различной штриховкой glEnable (GL_LINE_STIPPLE);

glLineStipple (1, $0101);

// точечный drawOneLine (50.0, 125.0, 150.0, 125.0);

glLineStipple (1, $00FT) ;

// штрихи drawOneLine (150.0, 125.0, 250.0, 125.0);

glLineStipple (1, $1C47);

// штрихпунктир drawOneLine (250.0, 125.0, 350.0, 125.0);

// третья строка: рисуется три широких отрезка с той же штриховкой glLineWidth (5.0);

// задаем ширину линии glLineStipple (1, $0101);

drawOneLine (50.0, 100.0, 150.0, 100.0);

glLineStipple (1, $00FF);

drawDneLine (150.0, 100.0, 250.0, 100.0);

glLineStipple (1, $1C47);

drawOneLine (250.0, 100.0, 350.0 100.0) ;

glLineWidth {1.0);

// Б перзой строке рисуется 6 отрезков, шаблон "пунктир/точка/пунктир", // как части одного длинного отрезка, без вызова процедуры drawOneLi :ш glL.meSti.pple {1, S1C47);

glBegin (GL_LINE_STRIP);

for i := 0 to 6 do glVertex2f ( 2 * (50.0 + (i * 50.0)) / CiientWidth - 1.0, 75.0 / CiientHeight);

giEnd;

// четвертая строка — аналогичный результат, но 6 отдельных отрезков for л := 0 to 5 do drawOneLine (50.0 + i * 50.0, 50,0, 50.0 •• (it-1) v 50.0, 50.0>, + 60 _ _ _ OpenGL. Графика в проектах Delphi II пятая строка — рисуется один штрихпунктирный отрезок, множитель - Ч glLineStipple (5, $1С47);

drawOneLine (50.0, 25.0, 350.0, 25.0);

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

glEnable (GL_LINE_STIPPLE);

For i := 1 to 100 do begin glColor3f (random, random, random);

glLineStipple (random (5), random ($FFFF));

glBegin (GL_LINES);

glVertex2f (xpos, ypos);

glVertex2f (xpos + 0.5 * random * sin (random (360)), ypos + 0.5 * random * cos (random ;

3 O ) ;

;

'6) glEnd;

end;

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

Следующий код служит иллюстрацией рисования одного треугольника (проект из подкаталога Ех18).

glBegin (GL_TRIANGLES);

glVertex2f ( 1 -1);

-, glVertex2f ( 1 1);

-, glVertex2f (1, 0);

glEnd;

Для рисования правильного шестиугольника из отдельных треугольников код должен выглядеть так (готовую программу можете найти в подкаталоге Ех19):

glBegin (GL_TRIANGLES);

For i : 0 to J> do begin = glVertex2f (0, 0);

glVertex2f (0.5 * cos ( * Pi * i i 6), i 0.5 * sin ( * Pi i, 6) ) 2 ' Глава 2. Двумерные построения / 6) gIVertex2f (0.5 * cos ( * Pi * ( i^ 1).

2k i 0.5 * sin (2 Pi * ( -г 1).

i' / 6) end;

qlEnd;

В качестве опорных точек выбраны шесть точек на окружности.

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

Проект из подкаталога Ех20 нарисует флажок, образованный наложением двух треугольников (рис. 2.2):

glBegin (GL TRIANGLE S'IRIP);

glVertex2f ( 1, 1 ) ;

glVertex2f { - 1, 1 ) ;

glVertex2f ( - i, - D ;

glVertex2f ( l, - 1 ) ;

glEnd;

/ GL_T R IAN G LE_S TR IP Р и с. 2. 2. Флаг получается наложением Р и с. 2. 3. Эту картинку попробуйте двух отдельных треугольников нарисовать самостоятельно А сейчас для тренировки попробуйте изменить код так, чтобы была нарисо вана такая же картинка, как на рис. 2.3.

Попробуем поэкспериментировать с нашей программой: будем рисовать треугольники разного цвета (проект из подкаталога Ех21):

glBegin (GL_TRIANGLE_STRIP);

glColor3f (0.0, 0.0, 1.0);

glVer-ex2f (1, 1);

glVertex2f ( 1 1;

;

-, OpenGL. Графика в проектах Delphi glColor3f (1.0, 0.0, С О ) ;

glVertox2f ( 1 -1) ;

-, glVertex2f (1, - 1 ) ;

glEnd;

Результат окажется неожиданным и живописным: у фигуры возникнет плавный переход синего цвета в красный (рис. 2.4).

Вызов перед командными скобками функции gishadeModei (GL, /ZJ\T:, "за дающей правило тонирования, избавит от градиентного заполнения фигуры, но результат все равно будет неожиданным — оба треугольника станут крас ными, т. е. цвета второго из них (проект находится в подкаталоге Ех22). Оз накомившись со справкой по этой команде, мы обнаружим, что для связан ных треугольников наложение цветов происходит именно по правилу стар шинства цвета второго примитива. Здесь же узнаем, что по умолчанию тонирование задается плавным, как и получилось в предыдущей программе.

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

glBegin (GL_TRIANGLE_STRIP);

glVertex2f {random * 2 - 1, random * 2 - 1 ) ;

For i := 0 to 9 do begin glColor3f (random, random, random);

glVertex2f (random * 2 - 1, random * 2 - 1 ) ;

glVertex2f (random * 2 - 1, random * 2 - 1 ) ;

end;

gE.;

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

/ G _ RA G C S RP LT I N L _ T I '•:*№ Рис. 2. 4. Плавный переход цвета Р и с. 2. 5. Результат работы программы из каталога Chapter2\Ex Глава 2. Двумерные построения 63_ Предлагаю вам создать обработчик нажатия клавиши, включающий в себя вызов функции Refresh, тогда по нажатию любой клавиши картинка будет меняться (в подкаталоге Ех23 можете взять готовый проект).

Теперь добавьте в программу вызов gishadeModei с аргументом GL^FLA? И обратите внимание, что треугольники окрашиваются попарно одинаковым цветом. Позже мы поговорим о том, по какому правилу отображаемые при митивы накладываются друг на друга, а пока просто понаблюдайте, как ри суется подобие смятой бумажной змейки (треугольники последовательно накладываются друг на друга).

Рисование шестиугольника путем наложения треугольников может быть реализовано с помощью следующего кода (пример располагается в подката логе Ех24):

glBegin ( L _ R A G E _ T I ) ;

G_TINL_SRP For i := 0 to 6 do begin c l o o 3 (random, random, random) ;

rClrf glVertex2f (0, 0) ;

civertex2f (. * cos (2 * Pi * i / 6}, 0.5 * sin ( * Pi * i / 6) ) ;

end;

glEnd;

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

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

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

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

Для построения шестиугольника с использованием такого примитива цикл надо переписать так (проект находится в подкаталоге Ех26):

glBegin iGL_TRIANGLE_FAN);

glVertex2f (0, 0} ;

// вершина, общая для всех треугольников For i :- 0 to б do begin glColor3f (random, random, random);

glVertex2f (0.5 + cos (2 * Pi * i / 6}, 0.5 * sin (2 * Pi * i / 6)};

end;

glEnd;

64 OpenGL. Графика в проектах Delphi Теперь поговорим о режимах вывода многоугольников.

Для устранения ступенчатости многоугольников используется команда g l E n a b l e С аргументом GL_POLYGON_SMOOTH.

Если в примеры на треугольники перед командными скобками поместить строку giPolygonMode(GL_FRONT_AND_BACK, GL_LINE);

то треугольники будут рисоваться контурно — только линии границ (проект находится в подкаталоге Ех27).

Замечание Запомните, что команда giPolygonMode задает режим воспроизведения для всех типов многоугольников.

Ширину линий контура можно варьировать с помощью giLineWidrh, пунк тирные Л Н И КОНТура задаются командой glLineStipple.

ИИ Команда giPolygonMode позволяет выводить вместо заполненных и контур ных многоугольников только их вершины, если ее вторым аргументом взять константу GL_POINT (не путать с GL_POINTS!). Размеры точек верит и и на личие сглаживания у них можно задавать так же, как и для обычных точек.

По умолчанию многоугольники строятся заполненными (включен режим GL_FILL).

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

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

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

Контурный режим, включенный для лицевой стороны вызовом giPolygonMode(GL_FRONT, GLJLINE);

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

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

Мы изучили примитивы "точка", "линия", "треугольник". В принципе, этих примитивов вполне достаточно, чтобы нарисовать все что угодно, пусть Глава 2. Двумерные построения 65_ подчас и чересчур громоздким способом. Даже более того, остальные при митивы фактически являются усовершенствованными треугольниками и строятся из треугольников, чем и вызваны их некоторые ограничения. По строения на основе треугольников являются оптимальными по своим ско ростным показателям: треугольники строятся наиболее быстро, и именно этот формат чаще всего предлагается для аппаратного ускорения.

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

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

Многоугольник Для рисования прямоугольника на плоскости можно воспользоваться коман дой giRectf. Это одна из версий команды giRect. Ее аргументом являются координаты двух точек — противоположных углов рисуемого прямоугольни ка. Посмотрите проект, располагающийся в подкаталоге Ех29 — простой пример на построение прямоугольника с использованием этой команды.

' Замечание j При использовании gLRecc необходимо помнить, что координата по оси Z в те кущей системе координат для всех вершин равна нулю.

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

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

glBegin ' G J U D ) ;

'L2AS glColor3f (random, random, random) ;

glVertex2f ( 0 6 0.2);

-., glVertex2f ( 0 7 0.7);

-., glVertex2f (0.1, 0.65);

glVertex2f (0.25, -0.78);

glColor3f (random, random, random) ;

glVertex2f (0.3, -0.6);

glVertex2f (0.45, 0Л);

glVertex2f (0.8, 0.65);

glVertex2f (0.9, -0.8);

glEnd;

Злк OpenGL. Графика в проектах Delphi Результат работы программы иллюстрирует рис. 2.6.

Pages:     || 2 | 3 | 4 | 5 |



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

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