- with Form1 do begin
- gluProject(w^.XPos,w^.level,ZOOM,ModelMat, ProjMat, Viewport, @X,@Y,@Z);
- Font.OrthoStart(Form1.Width, Form1.Height);
- Font.SetSize(600,600);
- Font.SetColor(1.0,1.0,1.0);
- Font.SetAlignment(haLeft,vaTop);
- Font.Print(X,Y,IntToStr(w^.data));
- Font.OrthoStop;
- end;