NLYR is the number of vertical C layers to be used in rendering the simple surface. C and the number of shades of those colors that you can generate. C C Declare a local array to hold the triangle list and a couple of C temporary variables to be used in sorting the list. C C Declare variables to hold labels. C ANG1 is a bearing angle, ANG2 is an elevation angle, and RMUL is a C multiplier of the length of the diagonal of the data box, specifying C the distance from the center of the box to the eye.
C C Double the line width.
C C Define the background color and the basic foreground color. IF C C Define the primary colors. Now we need a bunch more colors. Each of the NLYR layers of the C simple surface is to be a different color and the isosurface is C to be made yet another color. Additionally, we want to vary the C shading of each surface layer and of the isosurface as implied by C the angle between the line of sight and the local normal.