5 ###############################
6 ## Precision degradation for Geom2dGcc_Circ2d2TanRad in OCCT6.6.0.
7 ###############################
13 set info1 [OCC24303 5]
14 regexp {Solutions +([-0-9.+eE]+)} ${info1} full Solution
15 regexp {Distance += +([-0-9.+eE]+)} ${info1} full Distance
17 if { [info exists Sol5] } {
19 regexp {Center +:([-0-9.+eE]+), +([-0-9.+eE]+)} ${info2} full CenterX CenterY
20 regexp {XAxis +:([-0-9.+eE]+), +([-0-9.+eE]+)} ${info2} full XAxisX XAxisY
21 regexp {YAxis +:([-0-9.+eE]+), +([-0-9.+eE]+)} ${info2} full YAxisX YAxisY
22 regexp {Radius +:([-0-9.+eE]+)} ${info2} full Radius
31 set SQDistCC [expr ($CenterX-$good_CenterX)*($CenterX-$good_CenterX)+($CenterY-$good_CenterY)*($CenterY-$good_CenterY)]
33 if { ${SQDistCC} > 1.0e-14 } {
34 puts "Faulty : Bad Center of the circle"
37 if { ${XAxisX} != ${good_XAxisX} } {
38 puts "Faulty : Bad XAxisX"
41 if { ${XAxisY} != ${good_XAxisY} } {
42 puts "Faulty : Bad XAxisY"
45 if { ${YAxisX} != ${good_YAxisX} } {
46 puts "Faulty : Bad YAxisX"
49 if { ${YAxisY} != ${good_YAxisY} } {
50 puts "Faulty : Bad YAxisY"
53 if { ${Radius} != ${good_Radius} } {
54 puts "Faulty : Bad Radius"
58 puts "Faulty : Bad solution"
62 if { ${status} != 0 } {
63 puts "Faulty : solution is wrong. Status = ${status}"
65 puts "OK : solution is correct"