0026619: Tolerances of operands are modified using bop
[occt.git] / tests / boolean / bsection / M3
1 restore [locate_data_file GEN758_nofog.rle] a
2 explode a f
3
4 # see issue #26777
5 set GoodNbCurv 1
6
7 set log [bopcurves a_1 a_2 -2d -p 0.20639206339545224 0.69260832843385300 0.0 0.017002507022347624]
8 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Tolerance_Reached NbCurv
9
10 set expected_Tolerance_Reached 2.2797192759881918e-005
11 set tol_abs_Tolerance_Reached 0.0
12 set tol_rel_Tolerance_Reached 1.0e-2
13 checkreal "Tolerance Reached" ${Tolerance_Reached} ${expected_Tolerance_Reached} ${tol_abs_Tolerance_Reached} ${tol_rel_Tolerance_Reached}
14
15 if {${NbCurv} != ${GoodNbCurv}} {
16   puts "Error: ${GoodNbCurv} curves are expected but ${NbCurv} are found!"
17 }
18
19 smallview
20 clear
21
22 if {${NbCurv} == 1} {
23   display c_1
24   fit
25 } else {
26   for { set i 1 } { ${i} <= ${NbCurv} } {incr i} {
27     bounds c_$i u1 u2
28     cvalue c_$i u2 xx yy zz
29     point p$i xx yy zz
30   }
31   
32   fit
33   
34   for { set i 1 } { ${i} <= ${NbCurv} } {incr i} {
35     erase p$i
36     display c_$i
37   }
38 }
39
40 xwd ${imagedir}/${casename}_curv.png
41
42 donly a_1 a_2
43
44 bsection result a_1 a_2
45
46 checkprops result -l 22.2575
47 checksection result