TRIG3DH plots a 3-d surface specified by randomly scatted set of points as a triangular mesh with hidden line removal. The surface may be viewed from any angle. The input consists of a list of triplets defining the surface. The triplets are triangulated using TRIANGC. Each triangle is plotted using either SKETCH or PLT3DH permitting hidden line removal if desired. TRIG3DH calls INIT3DH to initialize the 3-d hidden line package. Default space is provided in the INIT3DH common block. The ISIZE variable will be reset to the internal size if its value is smaller than the internal size. Sufficient space is provided for very complex surfaces.
CALL TRIG3DH(x,y,z,n,s,p,t,dv,xl,yl,zl,iflag,ia,
xt,nxt,tx,sx,gx,fx,
yt,nyt,ty,sy,gy,fy,
zt,nzt,tz,sz,gz,fz,
xm,xx,ym,yx,zm,zx<,ic>)
x,y,z (R): array of point triplets (x,y,z)
n (I): number of points
s,p,t (R): yaw,roll,pitch angles of axes (see INIT3DH)
dv (R): perspective scale factor for INIT3DH
< 0 : no hidden lines in SKETCH, INIT3DH called
= 0 : INIT3DH not called to initialize 3d package,
(INIT3DH previously called)
> 0 : hidden lines in SKETCH, INIT3DH called
= 9999 : no perspective in INIT3DH
xl (R): x axis length in inches
yl (R): y axis length in inches
zl (R): z axis length in inches
iflag (I): option flag
< 0 : do not close LONGLIB after plotting
= 0 : close LONGLIB--no plot produced
> 0 : close LONGLIB after plotting
(magnitude) > 10000 : do not initialize LONGLIB before plotting
(1's digit) = 1 : do not use color array
= 2 : use color array
(10's digit) = 0 : hidden line removal for surface only
= 1 : hidden line removal for axis and surface
= 2 : no hidden line removal (SKETCH not used)
(100's) = 0 : Ask which screen device to use
<> 0 : Screen Device Number (see FRAME)
ia (I): axis option flag
< 0 : do not plot axes
> 0 : plot axes according to the code,
(1's digit) = 1 : plot z axis using computed scale
= 2 : plot z axis using computed, smoothed scale
= 3 : plot z axis using input scale
input scale variables accessed
= 4 : plot z axis using input, smoothed scale
(100's digit) = 1 : plot y axis using computed scale
= 2 : plot y axis using computed, smoothed scale
= 3 : plot y axis using input scale
input scale variables accessed
= 4 : plot y axis using input, smoothed scale
(100's digit) = 1 : plot x axis using computed scale
= 2 : plot x axis using computed, smoothed scale
= 3 : plot x axis using input scale
input scale variables accessed
= 4 : plot x axis using input, smoothed scale
xt (C): x axis title string
nxt (I): number of characters in x axis title
< 0 : axis ticks on top of x axis
= 0 : no axis
> 0 : axis ticks on bottom of x axis (normal)
tx (R): number and pattern of axis ticks (see AXIS3)
sx (R): size of axis labeling (see AXIS3)
< 0 auto exponent scaling (x10 to power) disabled
> 0 auto exponent scaling (x10 to power) enabled
gx (R): rotation angle for x axis (see AXIS3DH)
fx (R): format of axis number labeling (see AXIS3)
yt (C): y axis title string
nyt (I): number of characters in y axis title
< 0 : axis ticks on top of axis
= 0 : no axis
> 0 : axis ticks on bottom of axis (normal)
ty (R): number and pattern of axis ticks (see AXIS3)
sy (R): size of axis labeling (see AXIS3)
< 0 auto exponent scaling (x10 to power) disabled
> 0 auto exponent scaling (x10 to power) enabled
gy (R): rotation angle for y axis (see AXIS3DH)
fy (R): format of axis number labeling (see AXIS3)
zt (C): z axis title string
nzt (I): number of characters in z axis title
< 0 : axis ticks on top of axis
= 0 : no axis
> 0 : axis ticks on bottom of axis (normal)
tz (R): number and pattern of axis ticks (see AXIS3)
sz (R): size of axis labeling (see AXIS3)
< 0 auto exponent scaling (x10 to power) disabled
> 0 auto exponent scaling (x10 to power) enabled
gz (R): rotation angle for z axis (see AXIS3DH)
fz (R): format of axis number labeling (see AXIS3)
xm,xx (R): minimum, maximum value of x axis
ym,yx (R): minimum, maximum value of y axis
zm,zx (R): minimum, maximum value of z axis
ic (I): color array (accessed if 1's digit of iflag=2)
ic(1) : color of axis
ic(2) : surface color