SUBROUTINE INIT3DH

   INIT3DH sets the relative  origin and  scale  factor of the 3-d package which includes hidden line removal. These functions are distinct from the functions of PLOT or PLOT3D. INIT3DH may be called at any time to reset these functions without closing the plot package. However, a call to INIT3DH resets the internal SKETCH list of polygons. The plot package must be opened with FRAME prior to a call INIT3DH. INIT3DH must be called prior to SKETCH or PLT3DH.  SKETCH uses an internal common block for storage of its internal list. The user must provide sufficient common block storage space. This common block is defined:

        COMMON /GO/ ISIZE, WORK(ISIZE)
where
        ISIZE >=(25 + 5*MNE + 4*(2+MNE+2*MNH))*NPOLYS
        MNE   = maximum number of edges per polygon
        MNH   = maximum number of edges per polygon
        NPOLYS= maximum number of polygons

The angles ya,ro,pi are defined as the sequence of rotations ya-ro-pi (yaw, roll, and pitch) where ya is the angle or rotation about the z axis (positive is from x to y). ro is the angle of rotation about the x axis (positive is from y to z). pi is the angle of roation about the y axis (positive is from z to x).

CALL INIT3DH (x,y,z,ya,ro,pi,zom,ds,mne,mnh)

x,y,z    (R): coordinates of relative origin
ya,ro,pi (R): yaw, roll, pitch angles (Eulerian) in degrees
              (see above for angle definitions)
zom      (R): relative scale factor
ds       (R): viewing distance (9999. = infinity or no pespective)
mne,mnh  (I): maximum number of edges and holes on one polygon