1 puts "============================================================================================="
2 puts "0031836: regression issue - boolean cut between a cone and a Torus is not done"
3 puts "============================================================================================="
6 pcone c 282.842712474619 100 300
8 ptorus t 80.2535587508467 19.7464412491533
33 foreach i {0 1 2 3 4 5} {
35 if {![regexp "OK" [bopcheck r_$i]]} {
36 puts "Error: r_$i is self-intersecting shape"
40 checkprops r_0 -s 51195.4 -v 308846
41 checknbshapes r_0 -wire 3 -face 2 -shell 1 -solid 1 -t
43 checkprops r_1 -s 716665 -v 3.74689e+07
44 checknbshapes r_1 -wire 4 -face 4 -shell 1 -solid 1 -t
46 checkprops r_2 -s 716665 -v 3.68513e+07
47 checknbshapes r_2 -wire 4 -face 4 -shell 1 -solid 1 -t
49 checkprops r_3 -s 51195.4 -v 308846
50 checknbshapes r_3 -wire 3 -face 2 -shell 1 -solid 1 -t
52 checkprops r_4 -l 1008.5
54 checknbshapes r_4 -edge 2
56 checkprops r_5 -s 819056 -v 3.74689e+07
57 checknbshapes r_5 -wire 7 -face 6 -shell 3 -solid 3 -t
59 checkview -display r_2 -2d -path ${imagedir}/${test_image}.png