Previous: vists Up: ../plot79_v.html Next: visws
SUBROUTINE VISTW (U1,V1,P1, K1, U2,V2,P2, K2, KI, VS, IDIR, PL2)
C$ (Twin Surface)
C$ Bound subroutine to be used with VISDO in drawing two
C$ separate surfaces which possibly intersect and cross over.
C$ The 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.............Vertical shear factor for separation option.
C$ VS .LE. 0.0 suppresses separation. For best
C$ results for separated views, VS should lie
C$ in the approximate range +0.1..+0.4.
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)