Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
21 ошибка прогр... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
ТЕХНОЛОГИИ ДОСТ... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Имитационное мо... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Реклама
Сейчас на сайте
Гостей: 12
На сайте нет зарегистрированных пользователей

Пользователей: 13,372
новичок: vausoz
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Информационная система - продуктовый магазин на Turbo Pascal (База данны...
База данных студентов на Turbo Pascal (Списки) + Пояснительная записка
База данных студентов на Delphi + Microsoft SQL Server

Визуальные аффекты
Визуальные аффекты
Bitmap. Free; end; end; end;
Это универсальная процедура и годится для любых форматов. Почитать так же последние новости вы можете тут: http://www.maxinews.net/.
В ней осуществляется сравнительно много действий, и вызывается она два раза — для подготовки рисования и планеты, и спутника. Используются дисплейные списки:
Quadric := gluNewQuadric; gluQuadricTexture (Quadric, TRUE); // обычные параметры текстуры
glTexParameteri (GL_TEXTURE_2D, GL_TEXTUBE_MIN_FILTER. GL_KEAEEST ; glTexParameteri (GL_TEXTUKE_2D, GL_TEXTURE_MftG_FILTER, GL_NEABEST) ; // включать режим текстуры для оптимизации надо было Сы в кадре glEnable(GL_TEXTURE_2D) I It список для Земли glNewList (Earth, GLJXIMPILE);
Preparelmage (*.. \earth.bmp* >; // подготавливаем образ
gluSphere (Quadric, 1.0, 24, 24); glEndList; // список для Луны glNewList (Moon, GLJXlMPILE);
Preparelmage ('. .\nioon.bmp'\; // образ другой
glPushMatrix; // будет перемещение
gITranslatef (1.3, 1.3, 0.3);
gluSphere (Quadric, 0.2, 24, 24];
glPopMatrix; // возвращаемся на место
glEndList;
Предлагаю вам срисовать звезды

Должен сразу извиниться перед астрономами за множество допущенных в этой модели ошибок, с позиций современной науки она совершенно безграмотная, и использовать ее для уроков астрономии нельзя!
В процедуру подготовки образа текстуры передается имя файла растра, создание образа текстуры включено в код процедуры:
procedure TfirnCL-Preparelmagefbrnap string ,
// тип для динамического массива, код подходит для всех версий Delphi type
PPixelArray - "TPixelArray; TPixelArray = array [0..0] of Byte; var
Bitunap : TBitmap;
Data : PPixelArray; // образ текстуры, размер заранее не оговариваем
BMInfo : TBitmapInfo; // заголовок файла
I, Imagesize : integer;// вспомогательные переменные
Temp : Byte; // для перестановки цветов
MemDC : HDC; // вспомогательный идентификатор
begin
Bitmap TBitmap.Create;
Bitmap.LoadFromFile (bmap); // считываем образ из файла with BMinfo.bmiHeader do begin
FillChar (BMInfo, SizeOf(BMInfo), 0); // считываем заголовок
biSize := sizeof (TBitmapInfoHeader);
biBitCount 24;
biWidth := Bitmap.Width;
biHeight := Bitmap.Height;
ImageSize biWidth * biHeight;
biplanes 1;
biCompression : BI RGB;
MemDC :=* CreateCompatibleDC {0>;
GetMem (Data, ImageSize * 3); // создаем динамический массив try
GetDIBits {MemDC, Bitmap.Handle, 0, biHeight, Data, // считываем
BMInfo, DIB_RGB_C0LORS\; // в DIB-формат растр
// ситового массива For I 0 to ImageSize — 1 do begin // переставляем цвета Temp := Data [I * 31; Data [I * 3] := Data [1*3+2]; Data [1*3*2] := Temp?
end;
glTexImage2d{GLJTEXTURE_2D, 0, 3, biWidth, // создаем образ biHeight, 0, GL_RGB, GL_UNSIGNED_BrTE, Data);
finally
FreeMem (Data); // освобождаем память DeleteDC (MemDC);
Опубликовал vovan666 September 19 2013 13:41:54 · 0 Комментариев · 3149 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Нет комментариев.
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
MxProtector
Программа "AutoRu...
Еext Editor
Учебник для продв...
Экранная лупа
TMS
ATComponents
UmEdit
Основы программир...
PrevInst
Программа предназ...
Голосование для ...
Proeffectimage
Импорт новостей ...
С. Г. Горнаков - ...
RSS Feeds
Degisy Data Acces...
DiskInfo
Современное проек...
Библия для програ...

Топ загрузок
Приложение Клие... 100813
Delphi 7 Enterp... 98111
Converter AMR<-... 20311
GPSS World Stud... 17091
Borland C++Buil... 14274
Borland Delphi ... 10395
Turbo Pascal fo... 7403
Калькулятор [Ис... 6100
Visual Studio 2... 5247
Microsoft SQL S... 3680
Случайные статьи
Пошаговое выполнен...
Офлайн-версия сайт...
Вернемся к пример...
Обработка исключит...
Странные эффекты
ресурсам Windows 2...
Что такое Internet...
Разработать прикла...
Элементы управлени...
Змейка на Visual P...
Стандартные числов...
Когда заказ сделан...
Табл. 4. Анализ тр...
Использование приз...
Функциональное зер...
Добавление в проек...
Процедура GetLineS...
Метафора
Применение техноло...
Поиск и установка ...
Как купить комнату...
Использование карк...
Универсальный шлюз...
Уборка после ремон...
Разработка скрипто...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?