Copyright (C) 1994, Digital Equipment Corp.

INTERFACE MGRsrc;

<* PRAGMA LL *>

IMPORT Font, ScrnFont;

PROCEDURE ScaleableFont (family   : TEXT             := NIL;
                         pointSize                   := 12.0;
                         slant    : ScrnFont.Slant;
                         weightName: TEXT := ScrnFont.AnyMatch;
                         version   : TEXT := "";
                         foundry   : TEXT := ScrnFont.AnyMatch;
                         width     : TEXT := ScrnFont.AnyMatch;
                         spacing: ScrnFont.Spacing := ScrnFont.Spacing.Any;
                         charsetRegistry: TEXT := "ISO8859";
                         charsetEncoding: TEXT := "1"        ): Font.T;

returns a scaleable font that matches the specified font name. It works by finding a font on the server that matches the desired font characterstics and is close to the scaled size of the font.

CONST
  DefaultScaleableFont = Font.T{-8231955};
  (* a distinguisheable value for a default Font.T  An Mg.T with font =
     DefaultScaleableFont will actually use defaultScaleable as its font
  *)

VAR
  defaultScaleable: Font.T;

PROCEDURE ScaleFont(font: Font.T; scale: REAL);
  (* if "font" is a scaleable font, then ScaleFont(font, scale) will
     adjust "font" to display in a font close to the scaled size of
     "font" *)

END MGRsrc.