puts "========"
puts "0024437: Visualization - silhouette edges based on OpenGL"
puts "Draw bottle sample"
puts "========"
puts ""

pload MODELING VISUALIZATION

# test for creation of bottle as in tutorial (script is in samples)
source $env(CSF_OCCTSamplesPath)/tcl/bottle.tcl

vbackground -color WHITE
vzbufftrihedron -type wireframe -colorLabels BLACK
vaspects bottle -setDrawSilhouette 1 -setEdgeColor BLACK -setFaceBoundaryDraw 1 -setMostContinuity c0 -setFaceBoundaryColor BLACK -setInteriorStyle HIDDENLINE 
vrenderparams -rendScale 2

vcamera -ortho
vfit
vaspects bottle -setDrawSilhouette 0
vdump $::imagedir/${::casename}_ortho0.png

vaspects bottle -setDrawSilhouette 1
vdump $::imagedir/${::casename}_ortho1.png

vcamera -persp
vfit
vaspects bottle -setDrawSilhouette 0
vdump $::imagedir/${::casename}_persp0.png

vaspects bottle -setDrawSilhouette 1
vdump $::imagedir/${::casename}_persp1.png
