puts "================"
puts "OCC331: Dark spot on a sphere after nurbsconvert"
puts "================"
puts ""

pload MODELING VISUALIZATION
box b -5 -5 -5 10 10 10
psphere s 6
bfuse res2 s b
nurbsconvert result res2

vinit View1
tclean result
vsetdispmode 1
vdisplay result
vfit

checkprops result -s 619.595 
checkshape result
vdump $imagedir/${casename}.png