- procedure WinKoorToObjectKoor(x, y, z: integer; var Ox, Oy,Oz: Single);
- var
- a,b : array [0..15] of glDouble;
- c : array [0..3] of glint;
- x1,y1,z1 : GLdouble;
- begin
- glGetFloatv(GL_MODELVIEW_MATRIX,@a[0]);
- glGetFloatv(GL_PROJECTION_MATRIX,@b[0]);
- glGetIntegerv(GL_VIEWPORT,@c[0]);
- gluUnProject(x,y,z,@a[0],@b[0],@c[0],x1,y1,z1);
- Ox := X1;
- Oy := y1;
- Oz := z1;
- end;