%N pgwedg %F $MIR/src/pgwedg.f
%D Annotate an image plot with a wedge
%B
      SUBROUTINE PGWEDG(SIDE, DISP, WIDTH, FG, BG, LABEL)
      CHARACTER *(*) SIDE,LABEL
      REAL DISP, WIDTH, FG, BG

 Plot an annotated grey-scale or color wedge parallel to a given axis
 of the the current viewport. This routine is designed to provide a
 brightness/color scale for an image drawn with PGIMAG or PGGRAY.
 The wedge will be drawn with the transfer function set by PGSITF
 and using the color index range set by PGSCIR.

 Arguments:
  SIDE   (input)  : The first character must be one of the characters
                    'B', 'L', 'T', or 'R' signifying the Bottom, Left,
                    Top, or Right edge of the viewport.
                    The second character should be 'I' to use PGIMAG
                    to draw the wedge, or 'G' to use PGGRAY.
  DISP   (input)  : the displacement of the wedge from the specified
                    edge of the viewport, measured outwards from the
                    viewport in units of the character height. Use a
                    negative value to write inside the viewport, a
                    positive value to write outside.
  WIDTH  (input)  : The total width of the wedge including annotation,
                    in units of the character height.
  FG     (input)  : The value which is to appear with shade
                    1 ("foreground"). Use the values of FG and BG
                    that were supplied to PGGRAY or PGIMAG.
  BG     (input)  : the value which is to appear with shade
                    0 ("background").
  LABEL  (input)  : Optional units label. If no label is required
                    use ' '.
