mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
58 lines
1.3 KiB
Plaintext
58 lines
1.3 KiB
Plaintext
puts "========================"
|
|
puts " 0033171: Modeling Algorithms - Invalid result of faces unification"
|
|
puts "========================"
|
|
puts ""
|
|
|
|
# make two solids
|
|
box b1 10 10 5
|
|
box b2 10 0 0 5 5 5
|
|
# make shared
|
|
bclearobjects
|
|
bcleartools
|
|
baddobjects b1 b2
|
|
bfillds
|
|
bbuild r
|
|
|
|
checkshape r
|
|
if {![regexp "This shape seems to be OK" [bopcheck r]]} {
|
|
puts "Error: invalid shape after fuse"
|
|
}
|
|
|
|
# try to unify faces in the result compound
|
|
unifysamedom ru1 r
|
|
unifysamedom ru2 r +i
|
|
|
|
checkshape ru1
|
|
checkshape ru2
|
|
|
|
checknbshapes ru1 -ref [nbshapes r -t] -t
|
|
checknbshapes ru2 -ref [nbshapes r -t] -t
|
|
|
|
if {![regexp "This shape seems to be OK" [bopcheck ru1]]} {
|
|
puts "Error: invalid shape after faces unification"
|
|
}
|
|
if {![regexp "This shape seems to be OK" [bopcheck ru2]]} {
|
|
puts "Error: invalid shape after faces unification"
|
|
}
|
|
|
|
# make compound of shells
|
|
eval compound [explode r] shs
|
|
|
|
unifysamedom shsu1 r
|
|
unifysamedom shsu2 r +i
|
|
|
|
checkshape shsu1
|
|
checkshape shsu2
|
|
|
|
checknbshapes shsu1 -ref [nbshapes shs -t] -t
|
|
checknbshapes shsu2 -ref [nbshapes shs -t] -t
|
|
|
|
if {![regexp "This shape seems to be OK" [bopcheck shsu1]]} {
|
|
puts "Error: invalid shape after faces unification"
|
|
}
|
|
if {![regexp "This shape seems to be OK" [bopcheck shsu2]]} {
|
|
puts "Error: invalid shape after faces unification"
|
|
}
|
|
|
|
checkview -display ru2 -2d -path ${imagedir}/${test_image}.png
|