2 puts "0024437: Visualization - silhouette edges based on OpenGL"
3 puts "Draw bottle sample"
7 pload MODELING VISUALIZATION
9 # test for creation of bottle as in tutorial (script is in samples)
10 source $env(CSF_OCCTSamplesPath)/tcl/bottle.tcl
12 vbackground -color WHITE
13 vzbufftrihedron -type wireframe -colorLabels BLACK
14 vaspects bottle -setDrawSilhouette 1 -setEdgeColor BLACK -setFaceBoundaryDraw 1 -setMostContinuity c0 -setFaceBoundaryColor BLACK -setInteriorStyle HIDDENLINE
15 vrenderparams -rendScale 2
19 vaspects bottle -setDrawSilhouette 0
20 vdump $::imagedir/${::casename}_ortho0.png
22 vaspects bottle -setDrawSilhouette 1
23 vdump $::imagedir/${::casename}_ortho1.png
27 vaspects bottle -setDrawSilhouette 0
28 vdump $::imagedir/${::casename}_persp0.png
30 vaspects bottle -setDrawSilhouette 1
31 vdump $::imagedir/${::casename}_persp1.png