- procedure TfrmMainMPV2.Button4Click(Sender: TObject);
- var
- hilfsmatrix2: TGLMatrixd4;
- puffstr: TGLMatrixd4str;
- begin
- wglmakecurrent(MYDC1,MYRC1);
- glmatrixmode(GL_MODELVIEW_MATRIX);
- glloadidentity; // matrix wiederherstellen
- glmatrixmode(GL_PROJECTION);
- glloadidentity;
- glGetDoublev(GL_MODELVIEW_MATRIX,@hilfsmatrix2 );
- // dann noch etwas zum ausgeben der matrix in ein feld mit TEdits.
- end;