mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
b045e6a40b
Modified intersection of two conical surfaces with almost the same axis of revolution Test cases for issue CR24142
32 lines
851 B
Plaintext
32 lines
851 B
Plaintext
puts "============"
|
|
puts "OCC24035"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# Intersector is not symmetrical
|
|
######################################################
|
|
|
|
restore [locate_data_file bug24035_face1] face1
|
|
restore [locate_data_file bug24035_face2] face2
|
|
|
|
decho off
|
|
set info1 [checkshape face1]
|
|
set info2 [checkshape face2]
|
|
decho on
|
|
|
|
set status 0
|
|
if { [regexp "Faulty shapes in variables faulty_1 to faulty_2" $info1] != 1 } {
|
|
puts "Error : There is no 2 mistakes by checkshape on face1"
|
|
set status 1
|
|
}
|
|
if { [regexp "Faulty shapes in variables faulty_1 to faulty_2" $info2] != 1 } {
|
|
puts "Error : There is no 2 mistakes by checkshape on face2"
|
|
set stauts 1
|
|
}
|
|
|
|
if { $status != 0 } {
|
|
puts "Error : Intersector is not symmetrical"
|
|
} else {
|
|
puts "OK : Intersector is symmetrical"
|
|
}
|