1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
puts "========"
puts "0024905: Boolean cut produced invalid result"
puts "========"
puts ""
circle c1 0 0 0 0 -1 0 75
circle c2 0 0 0 0 -1 0 65
mkedge c1 c1
mkedge c2 c2
wire c1 c1
wire c2 c2
orientation c2 R
mkplane f1 c1 1
add c2 f1
prism p1 f1 0 1000 0
trotate p1 0 0 0 0 0 1 180
circle c3 50 500 -2000 0 0 1 50
mkedge c3 c3
wire c3 c3
mkplane f2 c3 1
prism p2 f2 0 0 4000
trotate p2 0 500 0 1 0 0 -77
trotate p2 0 0 0 0 0 1 180
bclearobjects
bcleartools
baddobjects p1
baddtools p2
bfillds
bbop r_0 0
bbop r_1 1
bbop r_2 2
bbop r_3 3
bbop r_4 4
for {set i 0} {$i <= 4} {incr i} {
checkshape r_$i
if {[regexp "Faulties" [ bopargcheck r_$i ]]} {
puts "Error: bopargcheck has found some faulties in r_$i"
}
}
checknbshapes r_0 -solid 1 -shell 1 -face 5 -wire 6
checkprops r_0 -s 196255 -v 857818
checknbshapes r_1 -solid 1 -shell 1 -face 9 -wire 13
checkprops r_1 -s 1.96453e+06 -v 3.49563e+07
checknbshapes r_2 -solid 1 -shell 1 -face 7 -wire 11
checkprops r_2 -s 742474 -v 3.54041e+06
checknbshapes r_3 -solid 2 -shell 2 -face 7 -wire 8
checkprops r_3 -s 1.41831e+06 -v 3.05581e+07
checknbshapes r_4 -vertex 8 -edge 8
checkprops r_4 -l 3965.07
checksection r_4 -r 0
# CUT
copy r_2 result
checkmaxtol result -min_tol 1.0e-4
checkview -display result -2d -path ${imagedir}/${test_image}.png
|
