1 puts "======================================================="
2 puts "0030386: Modeling Algorithms - Unable to perform Cut operation"
3 puts "======================================================="
6 # prepare the first argument - compound of mutlti-dimensional shapes
11 mkface f p -15 15 -15 15
19 # second argument - solid
28 # it is allowed to perform only CUT and COMMON operations
35 if {![regexp "OK" [bopcheck $r]]} {
36 puts "Error: the $r is a self-interfering shape"
40 checknbshapes r0 -vertex 16 -edge 18 -wire 7 -face 7 -shell 1 -solid 1 -t
45 checknbshapes r2 -vertex 24 -edge 30 -wire 11 -face 10 -shell 1 -solid 1 -t
48 checkprops r2_1 -v 117
50 checkview -display r2 -2d -path ${imagedir}/${test_image}.png