[occt.git] / tests / bugs / vis / bug27477

puts "============"
puts "OCC27477"
puts "============"
puts ""
####################################################################################
# Visualization - Select3D_SensitiveCircle always return infinite depth value in boundary mode
####################################################################################

proc check_output {theInfo} {
  set aSize [llength $theInfo]
  for {set i 0} {$i < $aSize} {incr i} {
    if {[string equal [lindex $theInfo $i] "Depth:"]} {
      set aDepth [lindex $theInfo [expr $i + 1]]
      if {[string equal $aDepth "17.5691"]} {
        return 1
      } else {
        return $aDepth
      }
    }
  }

  return 0
}

pload VISUALIZATION

vinit View1
vpoint radP1 0 0 0
vpoint radP2 50 50 0
vpoint radP3 100 0 0
vcircle circle radP1 radP2 radP3 0
vfit

vmoveto 177 285
set anOut [split [vstate -entities] "\n"]
set anInfo [split [lindex $anOut 1] " "]
set aResult [check_output $anInfo]
if {$aResult == 1} {
  puts "OK"
  } else {
    puts "ERROR: the depth value is incorrect: should be 17.5691, but is equal to:"
    puts $aResult
  }

set only_screen 1
Commit	Line	Data
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