mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-18 07:57:31 +08:00
4bd102b84c
Small correction: one more tolerance variable has been added. Test case for this fix Small correction of test case
21 lines
435 B
Plaintext
Executable File
21 lines
435 B
Plaintext
Executable File
puts "========"
|
|
puts "CR23644"
|
|
puts "========"
|
|
|
|
##########################################
|
|
## Intersection between coaxial cones produces exception
|
|
##########################################
|
|
|
|
pcone cn1 10 0 20
|
|
pcone cn2 20 0 20
|
|
explode cn1 f
|
|
explode cn2 f
|
|
copy cn1_1 f1
|
|
copy cn2_1 f2
|
|
|
|
if [catch {bopcurves f1 f2} BOPLog] {
|
|
if { [regexp "Tolerance Reached=0\n has no 3d curve" ${BOPLog}] != 1 } {
|
|
puts "CR23644: Error"
|
|
}
|
|
}
|