Previous: clpp2 Up: ../plot79_c.html Next: clpp4

CLPP3

       SUBROUTINE  CLPP3 (POINT,BOUND,CLIP,REJECT)
 C$    (3-Dimensional Point Clip)
 C$    Determine  whether  a  point  lies  within  the   specified
 C$    clipping boundaries.  Clipping may be requested against any
 C$    of the  6 viewing  pyramid faces.   The fourth  homogeneous
 C$    coordinate is assumed to be 1.0.  The arguments are:
 C$
 C$    POINT(*).......(X,Y,Z,H) coordinates of point.
 C$    BOUND(*).......Array containing the 6 clipping limits in the
 C$                   order: Left, Right, Bottom, Top, Near, Far.
 C$    CLIP(*)........LOGICAL array set .TRUE. in CLIP(K) if the
 C$                   K-th bound is to be clipped against.
 C$    REJECT.........LOGICAL value set .TRUE. if the point is
 C$                   rejected (i.e. invisible).  Return will occur
 C$                   immediately if REJECT is .TRUE. at entry.
 C$
 C$    Author: John Halleck, University of Utah Computing Center,
 C$            Salt Lake City, Utah 84112, USA
 C$    (03-APR-82)