0030082: Intersection algorithm returns curve with big tolerance value
[occt.git] / tests / bugs / modalg_7 / bug29293_2
1 puts "========"
2 puts "OCC29293"
3 puts "========"
4 puts ""
5 #################################################
6 # Boolean Operations algorithm does not preserve the orientations of the faces
7 #################################################
8
9 brestore [locate_data_file bug29293_etchable_face_compound.brep] a
10 brestore [locate_data_file bug29293_top_shell.brep] b
11
12 explode a f
13 explode b f
14
15 shape bsh Sh
16 add b_25 bsh
17
18 bclearobjects
19 bcleartools
20 baddobjects a_7
21 baddtools bsh
22 bfillds
23 bbop result 0
24
25 checkshape result
26 checkprops result -s 13460
27 checknbshapes result -vertex 4 -edge 4 -wire 1 -face 1 -shell 1
28
29
30 smallview
31 don result
32 fit
33
34 # Check that the normal directions have been preserved.
35 # Both input faces faces have normals
36 # directed stricly to the top (0, 0, 1). So, it is necessary to check
37 # that the reuslting face has the same normal direction.
38
39 if {![regexp "(0, 0, 100)" [normals result -length 100 -print]]} {
40   puts "Error: the orientation is changed"
41 }
42
43 checkview -screenshot -2d -path ${imagedir}/${test_image}_1.png