tests/bugs/vis/bug27477

   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]]
  14       if {[string equal $aDepth "+17.569"]} {
  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 {
  41     puts "ERROR: the depth value is incorrect: should be +17.569, but is equal to:"
  42     puts $aResult
  43   }
  44
  45 set only_screen 1