puts "============"
puts "CR25071: Check that the selected wireframe representation uses exactly the same"
puts "discretization of face boundaries as the face outlines shown in shading mode"
puts "============"
puts ""

pload MODELING VISUALIZATION
vinit View1

# Computing wireframe without triangulation, then checking face boundaries and selection
pcone c 0 5 10
vdisplay c; vfit
vsetdispmode c 1
vaspects c -setFaceBoundaryDraw 1 -setFaceBoundaryColor 0.25 0.25 0
vselect 200 200

vdump $imagedir/${casename}_wf_no_triang.png

vremove c
vclose View1
vinit View1

# Computing wireframe after triangulation, then checking face boundaries and selection
vsetdispmode 1
vdisplay c; vfit
vaspects c -setFaceBoundaryDraw 1 -setFaceBoundaryColor 0.25 0.25 0
vselect 200 200

vdump $imagedir/${casename}_wf_with_triang.png
