puts "============" puts "OCC25614" puts "============" puts "" ############################### ## Provide API access to the new functionalities of Boolean Components ############################### #==================== box b 10 10 4 ttranslate b 0 0 -2 set qs1 {} set N 11 for {set i 0} {$i < $N} {incr i} { for {set j 0} {$j < $N} {incr j} { tcopy b b_${i}_${j} ttranslate b_${i}_${j} [expr $i * 10] [expr $j * 10] 0. lappend qs1 b_${i}_${j} } } eval compound $qs1 b1 pcylinder b 6 10 ttranslate b 10 10 -5 set qs2 {} set N 10 for {set i 0} {$i < $N} {incr i} { for {set j 0} {$j < $N} {incr j} { tcopy b b_${i}_${j} ttranslate b_${i}_${j} [expr $i * 10] [expr $j * 10] 0. lappend qs2 b_${i}_${j} } } eval compound $qs2 b2 #==================== bclearobjects bcleartools baddcompound b1 baddctools b2 bapibop result 4 checknbshapes result -vertex 2700 -edge 6000 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 8701 checkview -display result -3d -path ${imagedir}/${test_image}.png