0031404: Modeling Algorithms - BOP Fuse produces a self-interfering or a good shape...
[occt.git] / tests / bugs / modalg_7 / bug31404
1 puts "======================================================="
2 puts "0031404: Modeling Algorithms - BOP Fuse produces a self-interfering or a good shape depending on the order of arguments"
3 puts "======================================================="
4 puts ""
5
6 psphere sph1 25
7 plane pln2 32, 68, -27
8 psphere sph2 pln2 75
9 bfuse f1 sph1 sph2
10 savehistory h1
11 bfuse f2 sph2 sph1
12 savehistory h2
13
14 explode sph1 f
15 modified ff1 h1 sph1_1
16 modified ff2 h2 sph1_1
17
18 foreach r {f1 f2} {
19   checkshape $r
20   if {![regexp "OK" [bopcheck $r]]} {
21     puts "Error: the $r is a self-interfering shape"
22   }
23   if { [checkmaxtol $r] > 2.e-7 } {
24     puts "Error: $r has bad tolerance"
25   }
26 }
27
28 checknbshapes f1 -wire 3 -face 2 -edge 9 -vertex 6
29 checknbshapes f2 -wire 3 -face 2 -edge 9 -vertex 6
30
31 checkprops f1 -s 74192.6
32 checkprops f2 -s 74192.6
33
34 view 1 -2D-  0 200 500 300
35
36 pcurve ff1
37 pcurve ff2 
38 2dtranslate ff2_6 pi 0
39 donly ff1_6 ff2_6
40 2dfit
41
42 checklength ff1_6 -l 7.167
43 checklength ff2_6 -l 7.167
44
45 checkview -screenshot -2d -path ${imagedir}/${test_image}.png
46