5 ####################################################################################
6 # Visualization - Select3D_SensitiveCircle always return infinite depth value in boundary mode
7 ####################################################################################
9 proc check_output {theInfo} {
10 set aSize [llength $theInfo]
11 for {set i 0} {$i < $aSize} {incr i} {
12 if {[string equal [lindex $theInfo $i] "Depth:"]} {
13 set aDepth [lindex $theInfo [expr $i + 1]]
14 if {[string equal $aDepth "17.5691"]} {
31 vcircle circle radP1 radP2 radP3 0
35 set anOut [split [vstate -entities] "\n"]
36 set anInfo [split [lindex $anOut 1] " "]
37 set aResult [check_output $anInfo]
41 puts "ERROR: the depth value is incorrect: should be 17.5691, but is equal to:"