7d46a9ed |
1 | puts "============" |
2 | puts "OCC27477" |
3 | puts "============" |
4 | puts "" |
5 | #################################################################################### |
6 | # Visualization - Select3D_SensitiveCircle always return infinite depth value in boundary mode |
7 | #################################################################################### |
8 | |
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]] |
949c9b7f |
14 | if {[string equal $aDepth "17.5691"]} { |
7d46a9ed |
15 | return 1 |
16 | } else { |
17 | return $aDepth |
18 | } |
19 | } |
20 | } |
21 | |
22 | return 0 |
23 | } |
24 | |
25 | pload VISUALIZATION |
26 | |
27 | vinit View1 |
28 | vpoint radP1 0 0 0 |
29 | vpoint radP2 50 50 0 |
30 | vpoint radP3 100 0 0 |
31 | vcircle circle radP1 radP2 radP3 0 |
32 | vfit |
33 | |
34 | vmoveto 177 285 |
35 | set anOut [split [vstate -entities] "\n"] |
36 | set anInfo [split [lindex $anOut 1] " "] |
37 | set aResult [check_output $anInfo] |
38 | if {$aResult == 1} { |
39 | puts "OK" |
40 | } else { |
949c9b7f |
41 | puts "ERROR: the depth value is incorrect: should be 17.5691, but is equal to:" |
7d46a9ed |
42 | puts $aResult |
43 | } |
44 | |
45 | set only_screen 1 |