ftp.nice.ch/pub/next/graphics/3d/geomview.1.4.1.s.tar.gz#/Geomview/src/bin/geomutil/math2oogl/Geomview.m

This is Geomview.m in view mode; [Download] [Up]

(*
 * Geomview.m selects Geomview graphics as the default for Show
 * of 3D graphics objects.  Others still use the default system.
 * To restore normality, load <<GL.m or <<X11.m or etc.
 *)

Needs["OOGL`"];

ClearAll[$DisplayFunction];

$DisplayFunction[g_Graphics3D] := Geomview[g];
$DisplayFunction[g_SurfaceGraphics] := Geomview[g];
$DisplayFunction[g_] := Display[$Display, g];

If[ !MemberQ[$CommandLine, "-noprompt"],
   ( Print[" -- Geomview graphics initialized -- "];
     If[(DisplayHost /. Options[Geomview]) != "",
	Print["Geomview.m: graphics will display remotely on ",
		DisplayHost /. Options[Geomview]];
	Print["To change this, see DisplayHost in Options[Geomview]."]
      ]
   )
  ];

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.