1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-04 13:13:25 +03:00
occt/tests/bugs/moddata/buc60623_3
2012-12-07 16:29:17 +04:00

31 lines
691 B
Plaintext
Executable File

puts "========================"
puts "BUC60623"
puts "========================"
restore [locate_data_file buc60623a.brep] a
puts [checkshape a]
restore [locate_data_file buc60623b.brep] b
puts [checkshape b]
mksurface S1 a
mksurface S2 b
intersect I1 S1 S2
regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection I1] full cs2
if { $cs2 != 0 } {
puts " Faulty : Intersection is not correct"
} else {
puts "Intersection of S1 and S2 is correct"
}
intersect I2 S2 S1
regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection I2] full cs2
if { $cs2 != 0 } {
puts " Faulty : Intersection is not correct"
} else {
puts "Intersection of S2 and S1 is correct"
}
set 2dviewer 0