Previous: plnr4 Up: ../plot79_p.html Next: plt00
SUBROUTINE PLNTR (X,Y,Z,N, X1,X2, Y1,Y2, Z1,Z2, T, ISEP, PL2)
C$ (3-D Polyline on Triple Surface)
C$ Draw a 3-D polyline on a triple surface display produced by
C$ HIDTR. The arguments are:
C$
C$ X(*),
C$ Y(*),
C$ Z(*)........3-D coordinates of polyline
C$ N...........number of points in polyline
C$ X1,X2.......Range of X values.
C$ Y1,Y2.......Range of Y values.
C$ Z1,Z2.......Span of surface values (arguments to HIDTR)
C$ T(4,4)......4-D transformation matrix defining orientation
C$ of the surfaces. The window coordinates of a
C$ point (X,Y,Z,1.0) are (U,V,W,H) = (X,Y,Z,1.0)
C$ T. X, Y, and Z are computed in the range 0..1,
C$ and Z is obtained from the function values by
C$ scaling the range Z1..Z2 onto 0..1. A point
C$ (U,V,W,H) is Visible If U/H, V/H, and W/H lie
C$ in the range 0..1.
C$ ISEP........ .EQ. 1 - surface 1 with SEP = .TRUE. to HIDTR
C$ .EQ. 2 - surface 2 with SEP = .TRUE. to HIDTR
C$ .EQ. 3 - surface 3 with SEP = .TRUE. to HIDTR
C$ .EQ. other - SEP = .FALSE. to HIDTR
C$ PL2.........2-D pen movement subroutine
C$ (11-JUL-89)