appearances on NeXT geomview

[Dennis Roseman <roseman at dimension4.math.uiowa.edu>]

I want to look at some things in a certain way with csmooth shading.  
( Examples I am currently looking are as in my directory  
/u/roseman/mix3  as *.4off(.Z). ) 


Since I have to do this frequently, I have made a .geomview file  
listed below.  Everyting seems to work except the csmooth shading. 


 The inspector pannel indicates that csmooth shading has been  
selected, but the objects are seen with flat shading.  If I click on  
the (seemingly already selected) csmooth shading in the  
Inspector--the csmooth shading IS used.  


I am uncertain if this is a syntax problem with my file or a geomview  
problem.  In any case it is a minor problem.  


(In case it matters, I am using a black machine with NeXDStep 3.0.  I  
hope to be upgrading to 3.2 by the end of the week.) 


The .geomview file  :

(progn
  (backcolor allcams .5 .5 .5)
  (bbox-draw allgeoms off)
  (window default { size 500 500 })
  (emodule-define "warp" "/Max/roseman/gc/geomview/warp.app/warp")
  (emodule-define "TopDrawer" "/LocalApps/TopDrawer.app/TopDrawer")
  (dimension 4)
   (new-camera xyz)
  (camera "xyz" camera {
camtoworld transform {
             1             0             0             0
             0             1             0             0
             0             0             1             0
             0             0             3             1

}
	perspective 1  stereo 0
	fov 39.999996
	frameaspect 0.958438
	focus 3
	near 2.8
	far 2.9
}
) # camera "xyz" ...

   (ND-axes xyz cluster1 0 1 2)
   (ND-color xyz	# Color this way in window "xyz"
        (
          (
            # Projection axis (in camera space)
            # Points are colored by their inner product with this  
vector.
            ( 0 0 0 1 )

            # Then, a series of <projection value> <RGBA color>  
items.
           -.15       0  0  1  1
           -.1       0  1  1  1
           -.05      0  1  0  1
             0       1  1  1  1
             .05      1  1  0  1
             .1      1  0  0  1
             .15      1  0  1  1
          1e10          .3 .3 .3  1     # Need sentinel to work  
around code bug!
          )
        )
)

(merge-ap g0 appearance {
	*  shading csmooth
}
)
  (scale g0   .35)
  (transform g0 g0 g0  rotate  1.571 0 0 )
  (transform-incr  g0 g0 g0 rotate 0 0 1.5 20)
  (normalization World none)
  (load-path (. /roseman/gvcommands /LocalApps/Geomview.app/data/geom  
/Max/roseman/oneturnslices /roseman/gc/4d /roseman/gc/3d))
)