Previous: clpp3 Up: ../plot79_c.html Next: clppg2

CLPP4

       SUBROUTINE  CLPP4 (POINT,BOUND,CLIP,REJECT)
 C$    (4-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 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)