mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
78 lines
1.5 KiB
Plaintext
Executable File
78 lines
1.5 KiB
Plaintext
Executable File
puts "================"
|
|
puts "OCC693"
|
|
puts "================"
|
|
puts ""
|
|
###################################################
|
|
## The boolean operations give incorrect result if one of shapes is compound
|
|
## consisting of several adjoint solids
|
|
####################################################
|
|
|
|
box h1 234 52 0 41 98 40
|
|
box v1 241 136 20 31 31 15
|
|
box h3 215 120 20 78 15 15
|
|
|
|
#mu4
|
|
#fit
|
|
|
|
compound h1 c1
|
|
compound v1 c2
|
|
|
|
tcopy c1 cc1
|
|
tcopy c2 cc2
|
|
bcommon int1 cc1 cc2
|
|
##########checkshape -top int1
|
|
checkshape -top int1
|
|
|
|
tcopy c1 cc1
|
|
tcopy c2 cc2
|
|
bcut cut1 cc1 cc2
|
|
checkshape -top cut1
|
|
|
|
tcopy c1 cc1
|
|
tcopy c2 cc2
|
|
bcut cut2 cc2 cc1
|
|
##########checkshape -top cut2
|
|
checkshape -top cut2
|
|
|
|
compound int1 cut1 cut2 comp3
|
|
##########checkshape -top comp3
|
|
checkshape -top comp3
|
|
#donly comp3
|
|
|
|
tcopy comp3 ccomp3
|
|
tcopy h3 ch3
|
|
bcommon int2 ccomp3 ch3
|
|
##########checkshape -top int2
|
|
checkshape -top int2
|
|
#donly int2
|
|
|
|
tcopy comp3 ccomp3
|
|
tcopy h3 ch3
|
|
bcut cut3 ccomp3 ch3
|
|
##########checkshape -top cut3
|
|
checkshape -top cut3
|
|
#donly cut3
|
|
|
|
tcopy comp3 ccomp3
|
|
tcopy h3 ch3
|
|
bcut cut4 ch3 ccomp3
|
|
##########checkshape -top cut4
|
|
checkshape -top cut4
|
|
|
|
compound int2 cut3 cut4 result
|
|
##########checkshape -top res
|
|
checkshape -top result
|
|
|
|
##########set che [checkshape -top res]
|
|
##########
|
|
##########set err [lindex $che [expr [llength $che] - 7]]
|
|
##########if { $err == "Faulty"} {
|
|
########## puts "Faulty OCC693"
|
|
##########} else {
|
|
########## puts "OCC693 OK "
|
|
##########}
|
|
|
|
checkprops result -s 33196
|
|
checkshape result
|
|
checkview -display result -2d -path ${imagedir}/${test_image}.png
|