0026509: Intersection algorithm produces set of curves providing closed contour in...
[occt.git] / tests / bugs / modalg_7 / bug26509_6
1 puts "========"
2 puts "0026509: Wrong intersection curve(s) obtained for pair of faces."
3 puts "========"
4 puts ""
5
6 circle c1 0 0 0 0 -1 0 75
7 circle c2 0 0 0 0 -1 0 65
8 mkedge c1 c1
9 mkedge c2 c2
10 wire c1 c1
11 wire c2 c2
12 orientation c2 R
13 mkplane f1 c1 1
14 add c2 f1
15 prism p1 f1 0 1000 0
16 trotate p1 0 0 0 0 0 1 180
17 circle c3 50 500 -2000 0 0 1 50
18 mkedge c3 c3
19 wire c3 c3
20 mkplane f2 c3 1
21 prism p2 f2 0 0 4000
22 explode p1 f
23 explode p2 f
24 trotate p2_1 0 500 0 1 0 0 -77
25 trotate p2_1 0 0 0 0 0 1 180
26 trotate p1_2 0 0 0 1.22464679914735e-16 1 0 -1.57079632679489655800*180/pi
27 trotate p2_1 -49.9999999999998, 1448.74012957047, -449.90210868773 1.19325918102424e-16, 0.974370064785235, -0.224951054343865 -1.26610367277949897868*180/pi
28
29 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves p1_2 p2_1 -2d] full Toler NbCurv
30
31 checkreal Tolerance $Toler 3.6430300265667996e-07 0.0 0.1
32
33 if {$NbCurv != 1} {
34   puts "Error: Please check NbCurves for intersector"
35 }
36
37 puts "Check whether the intersection result is closed in 3D"
38 bsection result p1_2 p2_1
39
40 checksection result -r 0
41 checkmaxtol result -ref 4.0e-7
42 checkprops result -l 1881.92
43
44 checkview -display result -2d -path ${imagedir}/${test_image}.png