- (*
- Eine kleine Routine, um Text an einer bestimmten Position auszugeben
- *)
- procedure ShowMessage(X, Y: float; S: String);
- begin
- glDisable(GL_LIGHTING);
- glEnable(GL_BLEND);
- glBlendFunc(GL_SRC_COLOR, GL_ONE);
- glMatrixMode(GL_MODELVIEW);
- glLoadIdentity;
- glTranslatef(X,Y,-1);
- glColor3f(1,1,1);
- glBindTexture(GL_TEXTURE_2D, 0);
- Write(S);
- glEnable(GL_LIGHTING);
- glDisable(GL_BLEND);
- end;