mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-11 01:58:22 +08:00
19 lines
456 B
Plaintext
Executable File
19 lines
456 B
Plaintext
Executable File
puts "============"
|
|
puts "CR23471"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Intersection algorithm produces overlapping intersection curves
|
|
#######################################################################
|
|
|
|
restore [locate_data_file OCC22790-cx.brep] b
|
|
|
|
explode b
|
|
mksurface s1 b_1
|
|
mksurface s2 b_3
|
|
intersect res s1 s2
|
|
|
|
if ![info exists res] {
|
|
puts "Error : there are more then 1 curve"
|
|
}
|