5 #######################################################################
6 # Wrong value of tolerance for the intersection curve.
7 #######################################################################
11 puts "Load first shape ..."
12 restore [locate_data_file bug23218_b1] b1
14 puts "Load second shape ..."
15 restore [locate_data_file bug23218_b4] b2
17 puts "Start project operation ..."
18 set result [bopcurves b1 b2]
20 puts "Finish project operation ..."
22 set GoodToleranceReached 6.3315853638232248e-007
23 regexp {Tolerance Reached=([-0-9.+eE]+)} $result full ToleranceReached
25 proc GetPercent {Value GoodValue} {
27 if {${GoodValue} != 0.} {
28 set Percent [expr abs(${Value} - ${GoodValue}) / abs(double(${GoodValue})) * 100.]
29 } elseif {${Value} != 0.} {
30 set Percent [expr abs(${GoodValue} - ${Value}) / abs(double(${Value})) * 100.]
39 set ToleranceReached_percent [expr abs ( [GetPercent ${ToleranceReached} ${GoodToleranceReached}] ) ]
41 if {${ToleranceReached_percent} > ${percent_max}} {
42 puts "${BugNumber}: Faulty"
44 puts "OK ${BugNumber}"