Некорректная работа gluUnProject OpenGL

@Dev_Dev · Регистрация: 11.11.2012

Студворк — интернет-сервис помощи студентам

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure Tfrm.OpenGLControl1Paint(Sender: TObject);
begin
 
  glClearColor(0.0, 0.0, 0.0, 0.0);
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity ();
 
  glScaled(2.0, 2.0, 1.0);
 
  glColor3f(0.25, 0.25, 0.25);
  glBegin(GL_POLYGON);
  glVertex2d(0.0, 0.0);
  glVertex2d(1.0, 0.0);
  glVertex2d(1.1, 1.1);
  glVertex2d(0.0, 1.0);
  glEnd();
  glScaled(0.5, 0.5, 1.0);
  OpenGLControl1.SwapBuffers;
 
end;

Далее при нажатии кнопки мыши необходимо получить координаты OpenGL:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure Tfrm.OpenGLControl1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var viewport : array [0..3] of GLint;
    mvMatrix, mvProjMatrix :array [0..15] of TGLdouble;
    realY         : Integer;
    wx, wy, wz : PGLdouble;
    OpenGL_Y  : TGLDouble;
    zval : GLfloat;
    i:integer;
    str:string;
begin
  glGetIntegerv(GL_VIEWPORT, @viewport);
  glGetDoublev(GL_MODELVIEW, @mvMatrix);
  glGetDoublev(GL_PROJECTION, @mvProjMatrix);
 
  realY:=viewport[3]- Y;
  glReadPixels(x, realY, 1, 1, GL_DEPTH_COMPONENT, GL_FLOAT, @zval);
  gluUnProject(x, realY, zval, @mvMatrix, @mvProjMatrix, @viewport, wx, wy, wz);
 
  OpenGL_Y:=Double(wy);
 
  ShowMessage('OpenGL_Y is:'+FormatFloat(str, OpenGL_Y)+'  MouseY is  '+IntToStr(realY));
 
 
end;

По нажатию клавиши мыши я получаю сообщение с OpenGL координатами и физическими координатами окна. Происходит путаница, я получаю следующие координаты:
OpenGL_Y 7.1227 is MouseY is 583
OpenGL_Y 7.02 is MouseY is 579
OpenGL_Y 7.209 is MouseY is 95
OpenGL_Y 6.795 is MouseY is 405

Возникают два вопроса. Во первых почему щелкая в середину экрана я получаю OpenGL координаты не приближенные к 0, а в районе 7.... И почему они генерируются абсолютно рандомным образом, без какой либо логики. Может кто знает , ПОЖАЛУЙСТА

@snake32 · 10.01.2017, 12:20

Delphi
1
2
var wx, wy, wz : PGLdouble;
gluUnProject(x, realY, zval, @mvMatrix, @mvProjMatrix, @viewport, wx, wy, wz);

Указатель на Double это не тоже самое что просто Double.

Delphi
1
2
var wx, wy, wz : double;
gluUnProject(x, realY, zval, @mvMatrix, @mvProjMatrix, @viewport, @wx, @wy, @wz);

@Dev_Dev · 10.01.2017, 13:02 **[ТС]**

Но проблема так и не ушла

@snake32 · 10.01.2017, 13:50

Там ещё есть ошибка и скорее всего не одна.
1) буфер глубины включен?
2) есть ли вообще буфер глубины?
3) зачем после glEnd glScale? Матрица другая получается.

Добавлено через 2 минуты
4) realY немного не правильно считается -1 потерялся

Добавлено через 1 минуту
5) Кстати, где glViewport устанавливается?

Добавлено через 10 минут
6) О! А почему все изменения идут с матрицей GL_PROJECTION? Она для проекций только предназначена.
7) Где матрица GL_MODELVIEW?
8) Константы не правлиные

Delphi
1
2
  glGetDoublev(GL_MODELVIEW_MATRIX, @mvMatrix);
  glGetDoublev(GL_PROJECTION_MATRIX, @mvProjMatrix);

ЗЫ: Где такой код нашли? Забудьте тот адрес

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Dev_Dev 0 / 0 / 0 Регистрация: 11.11.2012 Сообщений: 78
	10.01.2017, 13:02 [ТС]
	Но проблема так и не ушла 0