5 #################################################################################################
6 # Result of Cells Builder algorithm becomes invalid after removal of internal boundaries on faces
7 #################################################################################################
9 circle c1 0 0 0 0 0 1 10
10 circle c2 10 0 0 0 0 1 10
11 circle c3 5 9 0 0 0 1 10
34 checknbshapes r1 -face 2
35 checkprops r1 -s 505.482
41 checknbshapes r2 -face 1
42 checkprops r2 -s 505.482
45 bcadd result f1 1 -m 1
46 bcadd result f2 1 f3 0 -m 1
47 bcadd result f3 1 f1 0 -m 2
50 set bcheck [bopcheck result]
51 if {![regexp {This shape seems to be OK.} $bcheck]} {
52 puts "Error: result shape is self intersected"
55 checknbshapes result -edge 8 -face 2
56 checkprops result -s 651.238