LINSEQ plots line curves using software generated line types. Cubic spline interpolation is used in the generation of the specified long dash/short dash sequence. The cubic spline "smoothing" prior to plotting may also be specified. Closed curves and loops are permitted. A word of caution: due to the limitations of cubic splines, the plotted curve may not exactly represent the underlying function. The code used by this routine is an adaptation of the COSMIC routine LAR-11123.
LINSEQ can be used to plot the same curve at different locations by first calling LINSEQ with the desired data, then calling LINSEQ again with n set to zero and h changed.
CALL LINSEQ (x,y,z,n,ns,h,s,l1,l2,l3,l4,l5)
x (R): array containing the x coordinates
y (R): array containing the y coordinates
z (R): working array dimensioned at least z(3*n+3)
n (I): number of points in x,y arrays
if n=0 then arc parameters from the last
call to LINESEQ are used again
(used to replot the same curve at different location)
ns (I): number of smoothing passes (normally 0)
h (R): x axis plotting offset (normally 0). Setting h <> 0
and n=0 permits replotting last curve, shifted right
the specifed amount.
s (R): approximate interval between interpolated points on
curve. Actual interval is internally computed.
If s<0 pre-interpolation to 2*n-1 points is done.
l1-l5 (I): dash pattern control flags
l1 = Number of INTERVALS BETWEEN dashes
l2 = Number of LONG dashes per CYCLE
l3 = Number of INTERVALS per LONG dash
l4 = Number of SHORT dashes per CYCLE
l5 = Number of INTERVALS per SHORT dash
Note: if l1=0, l2-l5 are ignored and a solid curve is drawn
if l4=0, l5 is ignored. All dashes same length.