puts "================================="
puts "0032281: Visualization - add Select3D_SensitiveCylinder"
puts "Tests detecting Select3D_SensitiveCylinder"
puts "================================="

pload MODELING VISUALIZATION
vinit View1 -height 400 -width 600

pcylinder cyl 10 20
vdisplay cyl -dispmode 1
vfit
vmoveto 300 200
if { ![string match "*Select3D_SensitiveCylinder*" [vstate -entities]] } { puts "Error: cylinder should be detected" }
vremove cyl

pcone cone 10 0 20
vdisplay cone -dispmode 1
vfit
vmoveto 300 200
if { ![string match "*Select3D_SensitiveCylinder*" [vstate -entities]] } { puts "Error: cone should be detected" }
vremove cone

pcone tr_cone 10 5 10
vdisplay tr_cone -dispmode 1
vfit
vmoveto 300 200
if { ![string match "*Select3D_SensitiveCylinder*" [vstate -entities]] } { puts "Error: truncated cone should be detected" }
