mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
26 lines
417 B
Plaintext
26 lines
417 B
Plaintext
puts "========"
|
|
puts "OCC25887"
|
|
puts "========"
|
|
puts ""
|
|
#############################
|
|
# Invalid pipe construction
|
|
#############################
|
|
|
|
restore [locate_data_file OCC25887_shape.brep] a
|
|
|
|
smallview
|
|
|
|
explode a
|
|
|
|
pipe res a_1 a_2 1
|
|
|
|
donly res
|
|
fit
|
|
|
|
set bug_info [checkshape res]
|
|
if {[string compare $bug_info "This shape seems to be valid"] != 0} {
|
|
puts "ERROR: OCC25887 is reproduced."
|
|
}
|
|
|
|
set only_screen_axo 1
|