1puts "============"
2puts "OCC26431"
3puts "============"
4puts ""
5###############################
6## Can't cut a sphere from a cylinder
7###############################
8
9restore [locate_data_file bug26431_Body.brep] b1
10restore [locate_data_file bug26431_Sphere.brep] b2
11
12bop b1 b2
13bopcut result
14
15checkshape result
16
17decho off
18dlog reset
19dlog on
20
21bopargcheck result #F
22
23set info [dlog get]
24dlog reset
25dlog off
26decho on
27
28set MessageList {
29"Faulties for FIRST  shape found : 9"
30"Shapes are not suppotrted by BOP: NO"
31"Self-Intersections              : NO"
32"Check for SI has been aborted   : NO"
33"Too small edges                 : NO"
34"Bad faces                       : NO"
35"Too close vertices              : DISABLED"
36"Too close edges                 : DISABLED"
37"Shapes with Continuity C0       : YES  Cases\\(9\\)  Total shapes\\(9\\)"
38"Invalid Curve on Surface        : NO"
39"Faulties for SECOND  shape found : 0"
40}
41for {set i 1} {$i <= 11} {incr i} {
42   set str [ lindex ${MessageList} [expr $i - 1] ]
43   if { [regexp ${str} ${info}] == 1  } {
44      puts "OK : There is #$i message"
45   } else {
46      puts "Error : There is not #$i message"
47      puts $str
48   }
49}
50
51checkprops result -s 14.4399
52
53set nbshapes_expected "
54Number of shapes in shape
55 VERTEX    : 7
56 EDGE      : 20
57 WIRE      : 7
58 FACE      : 6
59 SHELL     : 1
60 SOLID     : 1
61 COMPSOLID : 0
62 COMPOUND  : 1
63 SHAPE     : 43
64"
65checknbshapes result -ref ${nbshapes_expected} -t -m "solid construction"
66checkview -display result -3d -path ${imagedir}/${test_image}.png
67