Previous: visrb Up: ../plot79_v.html Next: vissl
SUBROUTINE VISSB (U1,V1,P1, K1, U2,V2,P2, K2, KI, VS, IDIR, PL2)
C$ (Solid Body)
C$ Bound subroutine for use with VISDO to display the upper
C$ and lower surface of a single "convex" solid body. The
C$ arguments are:
C$
C$ U1(*),V1(*)....U,V window coordinates (unit interval) for
C$ first surface.
C$ P1(*)..........Visibility flags for first surface.
C$ K1.............Index of last element used in U1(*), V1(*),
C$ and P1(*).
C$ U2(*),V2(*)....U,V window coordinates (unit interval) for
C$ second surface.
C$ P2(*)..........Visibility flags for second surface.
C$ K2.............Index of last element used in U2(*), V2(*),
C$ and P2(*).
C$ KI.............Index of first element used in the arrays
C$ (may be smaller or larger than K1 or K2).
C$ VS.............Dummy vertical shear factor for separation
C$ option. Ignored in this routine. It is
C$ included for argument compatibility with
C$ VISTW.
C$ IDIR...........Direction of pen movement (1 = forward, -1 =
C$ backward). This should be set to +1 before
C$ the first call, and left unchanged
C$ thereafter. It will be updated internally
C$ each time a horizon sweep does any plotting.
C$ PL2............2-D pen movement routine, possibly PL2CA.
C$ (09-APR-82)