Delphi и OpenGL - низкая дальность отрисовки

[Useroid]

Всем привет!

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

Как избавиться от этой проблемы? Пробовал gluPerspective, не сработало.

[Пепел Феникса]

1)не нужно заоблачных цифр, все относительно.
2)попробуйте более простые функции, по типу glOrtho

[Useroid]

Пепел Феникса, glOrtho тоже не сработал

[Пепел Феникса]

выложите код, пожалуйста.

[Rin]

Вы лучше картинку покажите, так нагляднее. Могу предположить, что отсекаются плоскости вашего куба, т.к. они выходят за границы сцены. Представьте на секунду 3D-пространство внутри монитора. Представили? Хорошо. Теперь представьте невидимый квадратный туннель в перспективе. А теперь представьте, что внутри туннеля построили 2 стены (ближнюю и дальнюю), что получился невидимый куб (Сцена). И от вас зависит где именно строить стены. А отвечает за это функция glFrustum. Ваш объект может быть не на весть экран, но передняя плоскость отсечения может по координатам пересекаться с ним. Вот отсюда и обгрызанный кусок.
Скорей всего вам поможет такой вот кусок кода:

procedure resize_app;
var w, h, fLength, fInvLength: real;
begin
 glMatrixMode(GL_PROJECTION);//
glLoadIdentity();//

w := Form1.width;
h := Form1.height;

    fLength := sqrt( w * w + h * h);

    if fLength > 0.00001 then
    begin
      fInvLength := 1.0 / fLength;
      w := w * fInvLength;
      h := h * fInvLength;
    end;

w := w / 2;
h := h / 2;

glFrustum(-w, w, -h, h, 1, 100);
glTranslated(0, 0, -10);

glViewPort(0,0,Form1.width,Form1.Height);
  InvalidateRect(Handle, nil, False);
end;

Вызывайте его при изменении размеров формы.

[Useroid]

Пепел Феникса, во вложении кусок исходника, там сама отрисовка и функция DrawCube.

scw=screen.Width
sch=screen.Height

Rin, скрин выложить не могу, но могу описать как все происходит. Устанавливаю синий фон, куб красный. Если длина грани - 100, то куб отрисовывается без ошибок, а если длина грани - 200 или 300, то, как я понял, часть куба заходит за границу и просто не отображается. Поэтому возникает вопрос, как отдалить эти границы, чтобы куб даже при размере 500 отрисовывался нормально?

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

[Rin]

А зачем вообще устанавливать параметр в 500? Чего вы хотите добиться?
Думаю ,что не лишним будет прочесть главу из книги Краснова. По коду могу сказать, что glFrontFace(), glEnable(),glMaterialFv(),glColorMa terial() и glLightFv(), если в процессе не меняете параметры освещения, цвета, и не вЫключаете то, что включили, лучше закидывать в FormCreate, чтобы не вызывалось при каждом RefrashForm, т.к. впустую отрабатывает мильён раз.
Ваш код не могу воспроизвести на данный момент, т.к. delphi не инсталирована.

[Useroid]

Rin, за ссылку спасибо. Размер 500 устанавливаю как пример того, что сцена ничтожно мала, а хотелось бы побольше. Кстати, 500 - это проценты, если что

В OnFormCreate пытался все написать, но вместо этого выдавалось чистое, белое поле.

[Rin]

Когда читал Краснова, то из его исходников сделал себе трафарет. Он во вложении. 500 мы воспринимать можем и как проценты, а для OpenGL 500 в данном случае - это координаты. Если вы отрисовываете лишь один объект или хотите поменять масштаб всей сцены, то есть замечательная функция glScale(x,y,z). Я всегда все настройки сцены описывал в onCreate, и всегда все отрисовывалось.
Есть ещё более интересная книга про OpenGL - "Red Book OpenGL". Только она для С++.

[Useroid]

Ну, я из книг читал "OpenGL Суперкнига" Райт-мл и Липчак. Она тоже на C++, но переписать данные там строки кода под Delphi было достаточно просто.

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

Насчет glScale(x,y,z), от этого придется уменьшать размеры объектов?