mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
49 lines
1.0 KiB
Plaintext
Executable File
49 lines
1.0 KiB
Plaintext
Executable File
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 1
|
|
|
|
checknbshapes result -vertex 1808 -edge 3392 -wire 1586 -face 1586 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 8375
|
|
checkview -display result -3d -path ${imagedir}/${test_image}.png
|