Copyright (C) 1994, Digital Equipment Corp.
by Steve Glassman, Mark Manasse and Greg Nelson
<*PRAGMA LL*>
UNSAFE INTERFACE XScrnFont;
IMPORT ScrnFont, XScreenType, TrestleComm;
PROCEDURE NewOracle (scrn: XScreenType.T; depthOne := FALSE): ScrnFont.Oracle
RAISES {TrestleComm.Failure};
create a ScrnFont.Oracle suitable for use with an XScreenType.T. if
depthOne
is TRUE then the oracle will be suitable for a 1-bit font for
painting on screens of type XScreenType.T. See the description of bits
in ScreenType.i3
END XScrnFont.