PSPLOT (LINE Graphics)
psopn, plots, plote, pscls | plot, scisor, factor, where | newpen, penatr | wrect, wpolyg, wcirc

PSOPN, PLOTS, PLOTE, PSCLS
NAME
    psopn - Open PostScript(PS) output file
    plots - Start a PS page
    plote - End a PS page
    pscls - Close PS output file

SYNOPSIS

      call psopn(pfile, sheet)
  pfile   [char]  PS filename to create or renew
                  If NULL string, PostScript data are output to STDOUT.
  sheet   [char]  Define sheet size (3 characters)
                   1st char: 'A' | 'B';  2nd char: '4' | '3' | '2' | '1' | '0';
                   3rd char: 'P' | 'L'; (P: portrait, L: landscape)
                   4th char 'E' may be added for EPS output )

      call plots(xo, yo)
  xo, yo  [float] Initial origin of coordinates (in cm)

      call plote

      call pscls

PLOT, SCISOR, FACTOR, WHERE
NAME
    plot   - Move pen to specified point with/without drawing
              may change origin
    scisor - Define valid range to draw (no effect on 'wcirc'/'wrect')
    factor - Define scaling factor to draw
    where  - Inform pen location and scaling factor

SYNOPSIS

      call plot(xp, yp, md)
  xp, yp  [float] Coordinates (in cm) of point where to move
  md      [int]   If +2 or -2, draw line to (xp,yp), else only move.
                  If minus, origin is changed to the point.

      call scisor(xl, yl, xsz, ysz)
  xl, yl  [float] Bottom left corner coordinates (in cm) of scisoring range
  xsz     [float] Width (in cm) of scisoring range
  ysz     [float] Height (in cm) of scisoring range
        If xsz = ysz = 0., scisoring is disabled.

      call factor(fac)
  fac     [float] Scaling factor
        If specified, actual drawing is magnified/reduced by this factor.

      call where(xw, wy, wfac)
  wx, wy  [float] Variables in which coordinates of pen location are given
  wfac    [float] Variable in which current scaling factor is given

NEWPEN, PENATR
NAME
    newpen - Specify pen number to use
    penatr - Define line specification to a pen number
              There are 8 pen numbers 1-8. Pens 1-4 are initially specified as
              black solid line with thickness 0.01 / 0.03 / 0.06 / 0.10 cm, 
              while pens 5-8 black broken lines.

SYNOPSIS

      call newpen(npen)
  npen    [int]   Select pen number (1-8) to use drawing

      call penatr(jpen, icol, ityp, thick)
  jpen    [int]   Pen number (1-8) to define specification
  icol    [int]   Color value (RGB color or Gray level)
                  0 thru 16777215 : 24bit color code, 8 bit each for R,G,B
                  0 thru -255 : monochromatic gray level from black to white
                   [ 0 : black ; -255,16777215 : white]
  ityp    [int]   Line species
                   [ 0: solid; 1: broken; 2: dotted; 3: chained ]
  thick   [float] Line thickness (in cm)
        Selecting jpen=0 may be used to define temporal definition of line
         specification, which is valid until redefinition of pen number by
         `call penatr(0, ... )` or `call newpen(n)`.

WRECT, WPOLYG, WCIRC
NAME
    wrect  - Draw a rectangle along axes
    wpolyg - Draw a polygon
    wcirc  - Draw a circle/arc
        using current pen specification

SYNOPSIS

      call wrect(xl, yl, xsz, ysz)
  xl, yl  [float] Coordinates (in cm) of base point (usually lower left corner)
                   of the rectangle.
  xsz     [float] Width (in cm)
                  If minus, drawn on the left side of base point.
  ysz     [float] Height (in cm)
                  If minus, drawn on the bottom side of base point.

      call wpolyg(xm, ym, npt, inc)
  xm, ym  [float] Arrays containing coordinates of polygon corners
  npt     [int]   Number of corners (must be 3 or higher)
  inc     [int]   Increment to retrieve coordinates data (must be positive)

      call wcirc(xc, yc, ra, a1, a2)
  xc, yc  [float] Coordinates (in cm) of circle center
  ra      [float] Radius (in cm)
  a1, a2  [float] Starting and ending angle (in degrees) 
                  Angles are measured counterclockwise from +X (to right)
                   direction.
                  If a1>a2, no circle/arc is drawn.