(*
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;