2 puts "0024437: Visualization - silhouette edges based on OpenGL"
3 puts "Draw box and sphere primitives"
7 pload MODELING VISUALIZATION
11 vbackground -color GAINSBORO
17 vdisplay -dispMode 1 b s
20 vaspects b s -setDrawSilhouette 1 -setEdgeColor RED -setEdgeWidth 4 -setFaceBoundaryDraw 1 -setFaceBoundaryColor BLUE -setFaceBoundaryWidth 1 -setInteriorStyle HIDDENLINE
21 vdump $::imagedir/${::casename}_0.png
23 vaspects b s -setDrawSilhouette 1 -setEdgeColor RED -setEdgeWidth 4 -setFaceBoundaryDraw 1 -setFaceBoundaryColor RED -setFaceBoundaryWidth 4 -setInteriorStyle HIDDENLINE
24 vdump $::imagedir/${::casename}_1.png