- procedure WorldPosToScreenPos(wx,wy,wz : double;var sx,sy,sz : gldouble);
- var
- x,y,z : GLDouble;
- viewport : TGLVectori4;
- modelview : TGLMatrixd4;
- projection : TGLMAtrixd4;
- begin
- //Bildschirmkoordinaten ermitteln
- glGetDoublev(GL_MODELVIEW_MATRIX,@modelview);
- glGetDoublev(GL_PROJECTION_MATRIX,@projection);
- glGetintegerv(GL_VIEWPORT, @Viewport);
- //showmessage(floattostr(wx));
- if gluProject(wx,wy,wz,
- Modelview,Projection,Viewport,
- @x, @y,@z) = GL_FALSE then showmessage('ERROR: gluProject sent an error.');
- sx := x;
- sy := y;
- sz := z;
- end;