0023905: Clean obsolete test commands

[occt.git] / tests / bugs / moddata_1 / buc60622_3

puts "=================================="
puts "BUC60622"
puts "=================================="
puts "There was an infinity of solutions and also c1, c2 and c3 are solutions"
puts ""
puts "It takes visual check for this BUG"
puts "=================================="
puts ""

set len_ch1 1570
set len_ch2 785
set len_ch3 785
set len_ch4 523
set len_ch5 523

circle c3 500 3000 250
circle c2 375 3000 125
circle c1 625 3000 125
cirtang result c1 c2 c3

set info1 [length $result_1]
set info2 [length $result_2]
set info3 [length $result_3]
set info4 [length $result_4]
set info5 [length $result_5]

regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1
regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2
regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3
regexp {The length result_4 is +([-0-9.+eE]+)} $info4 full len4
regexp {The length result_5 is +([-0-9.+eE]+)} $info5 full len5

set len_int1 [expr int($len1)]
set len_int2 [expr int($len2)]
set len_int3 [expr int($len3)]
set len_int4 [expr int($len4)]
set len_int5 [expr int($len5)]

if { ${len_int1} != ${len_ch1} 
   || ${len_int2} != ${len_ch2}
   || ${len_int3} != ${len_ch3}
   || ${len_int4} != ${len_ch4}
   || ${len_int5} != ${len_ch5} } {
   puts "Error : Length is invalid"
}