puts "============" puts "OCC25354" puts "============" puts "" ####################################################################### # Intersection operation ####################################################################### # Case 50 set aLS {} box b 10 10 10 ttranslate b -5 -5 -5 set N 41 for {set i 0} {$i < $N} {incr i} { psphere b{$i} [expr $i * 0.1 + 5.] explode b{$i} f lappend aLS b{$i}_1 } eval compound $aLS q bclearobjects bcleartools baddobjects b baddtools q bfillds -t bbop result 4 -t checknbshapes result -vertex 530 -edge 524 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 1055 checkview -display result -2d -path ${imagedir}/${test_image}.png