- var
- winx,winy,winz:double;
- modelview,proj:array[0..15] of double;
- viewport:array[0..3] of integer;
- begin
- glgetdoublev(gl_modelview_matrix,@modelview);
- glgetdoublev(gl_projection_matrix,@proj);
- glgetintegerv(gl_viewport,@viewport);
- gluproject(sonne.x,sonne.y,sonne.z,modelview,proj,viewport,@winx,@winy,@winz);
- ...
- end;