mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
29 lines
591 B
Plaintext
29 lines
591 B
Plaintext
puts "============"
|
|
puts "OCC26431"
|
|
puts "============"
|
|
puts ""
|
|
###############################
|
|
## Can't cut a sphere from a cylinder
|
|
###############################
|
|
|
|
restore [locate_data_file bug26431_Body.brep] b1
|
|
restore [locate_data_file bug26431_Sphere.brep] b2
|
|
|
|
explode b1 f
|
|
explode b2 f
|
|
|
|
bsection result b1_3 b2_1
|
|
|
|
set log [checksection result]
|
|
|
|
if { [string compare -nocase $log " nb alone Vertices : 0\n\n"] } {
|
|
puts "ERROR: the section is not closed"
|
|
} else {
|
|
puts "The section is OK"
|
|
}
|
|
|
|
smallview
|
|
donly result
|
|
fit
|
|
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
|