Last: fitvxc Up: ../plot79_f.html Next: filpa2
SUBROUTINE FILBX (XMIN,XMAX,YMIN,YMAX, PDIST,NPDIST, BOX, THETA,
X PL2)
C$ (Fill Box)
C$ Fill a rectangular region with a user-defined pattern. The
C$ pattern is defined by a series of parallel lines with
C$ variable spacing and fixed slope. Two calls to this
C$ routine can be used to obtain cross-hatching. This routine
C$ should be useful in constructing histogram plots. The
C$ arguments are:
C$
C$ XMIN,XMAX.........Range of X in world coordinates
C$ (XMIN .LE. XMAX).
C$ YMIN,YMAX.........Range of Y in world coordinates
C$ (YMIN .LE. YMAX).
C$ PDIST(*)..........Array of world coordinate perpendicular
C$ distances between successive lines of the
C$ pattern. The sign of PDIST(K) is
C$ ignored. In order to prevent an
C$ excessive number of lines being drawn
C$ because of tiny PDIST(*) values (which
C$ might cause a pen plotter to cut through
C$ the paper), a minimal distance is
C$ enforced internally, corresponding to
C$ MAXLIN (=1000 in a DATA statement) lines
C$ across the box.
C$ NPDIST............Number of entries in PDIST(*) (.GE. 1).
C$ Line K will be spaced a distance PDIST(1
C$ + MOD(K-1,NPDIST)) from line K-1, so that
C$ PDIST(*) is used circularly. It is an
C$ error if NPDIST .LE. 0.
C$ BOX............... .TRUE. - Draw a box around the
C$ rectangular region.
C$ .FALSE. - do not draw a box.
C$ THETA.............Angle of lines (in degrees) measured
C$ counterclockwise from the X axis.
C$ PL2...............2-D pen movement routine, normally PL2CA.
C$
C$ (01-FEB-82)