%N pgscf %F $MIR/src/pgscf.f
%D Set character font
%B
      SUBROUTINE PGSCF (FONT)
      INTEGER  FONT

 Set the Character Font for subsequent text plotting. Four different
 fonts are available:
   1: (default) a simple single-stroke font ("normal" font)
   2: roman font
   3: italic font
   4: script font
 This call determines which font is in effect at the beginning of
 each text string. The font can be changed (temporarily) within a text
 string by using the escape sequences fn, fr, fi, and fs for fonts
 1, 2, 3, and 4, respectively.

 Argument:
  FONT   (input)  : the font number to be used for subsequent text
                    plotting (in range 1-4).
