Copyright (C) 1992, Digital Equipment Corporation
All rights reserved.
See the file COPYRIGHT for a full description.
by Steve Glassman, Mark Manasse and Greg Nelson
Last modified on Fri Nov 6 14:30:30 PST 1992 by msm
modified on Mon Feb 24 13:59:53 PST 1992 by muller
<*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.