- procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- var
- viewport : TViewPortarray;
- modelview : T16dArray;
- projection: T16dArray;
- xo,yo,zo: PGLdouble;
- Y_new: real;
- begin
- glGetDoublev(GL_MODELVIEW_MATRIX, @modelview );
- glGetDoublev(GL_PROJECTION_MATRIX, @projection );
- glGetIntegerv(GL_VIEWPORT, @viewport );
- gluUnProject(X,Y,5,modelview,projection,viewport,xo,yo,zo);
- end;