[angvelem]

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

[Alegun]

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

[angvelem]

Блин забыл вложить.

[Alegun]

Без него тоже работает, но приложил к проекту на всякий пожарный

[angvelem]

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

А точки появляются?

[Alegun]

Точек нет. Возник вопрос - а как можно здесь скорость отрисовки регулировать, это заметно шустрая версия получилась (уже не на вертолёте облёт происходит, а прям на ракете) - может это из-за таймера что был в оригинале, это случайно не animTick за отрисовку отвечает?

З.Ы. Меняю значение этой переменной, но замедления не происходит, к сожалению

[angvelem]

От таймера я избавился, но можно и добавить. Только какой смысл?

Хочешь изменить скорость, наиди строку

Код:

        angle  := angle + 0.1;

в GetKeyPress и поменяй числовое значение, например на 0.05.

[Alegun]

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

[angvelem]

Симотри выше, я там дописал.

AnimTick в основном за баннеры отвечает.

[Alegun]

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

[angvelem]

Мне и 0.05 хватило. Видать действительно у тебя не машина, а ракета.

[Alegun]

Извиняюсь за очепятку, замедлилось при 0.01, с ещё одним нулём еле ползает гласманки - до ракеты далеко :-)

[Pilot_Red]

Сообщение от angvelem

Ну если сам куб не нужен, то у меня давно так работает и исходный код (форматированный) выложен.
Кстати нет глюков в изображениии, что заметны у Мэда.

Етишкин кот, я думал КАКОГО ху..КУБА, у тебя не работает, а оказывается ты просто ждал появление мифического куба
Швы на стыковках граней, у Мэда появились из-за того, что в loadTexture не прописываются параметры текстуры

а именно

glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S,GL_CLAMP_TO_EDGE_EXT);
glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T,GL_CLAMP_TO_EDGE_EXT);

Дайте эту таблеточку перед вызовом loadtexture, швы пройдут!

[angvelem]

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

[Alegun]

Наиболее заметная разница в этих версиях, так это размер исполняемого файла - от оригальных 672х Кб до 33.5 Кб в варианте на API, что выложил angvelem, причём без потери функциональности: точно есть повод задуматься

З.Ы.

Сообщение от Pilot_Red

...Дайте эту таблеточку перед вызовом loadtexture, швы пройдут!

Она помогает лишь для основного ландшафта, на обезьянке иногда всё же проскакивают светлые точки, но это наверное уже не вылечить поскольку её образ в shar.obj не изменить. Или можно?