mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
9bc5f5850a
The condition (workaround), which forbid to return the intersection curve, has been removed.
33 lines
661 B
Plaintext
33 lines
661 B
Plaintext
puts "========"
|
|
puts "OCC21494: Intersection between cone and sphere fails"
|
|
puts "========"
|
|
puts ""
|
|
|
|
pcone bc 15 0 10
|
|
psphere bs 10
|
|
explode bc f
|
|
explode bs f
|
|
|
|
set log [bopcurves bc_1 bs_1 -2d]
|
|
|
|
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} $log full Toler NbCurv
|
|
|
|
if { ![regexp {1 point\(s\) found} $log full] } {
|
|
puts "Error: Cone apex and Pole of sphere are excluded from the intersection result"
|
|
}
|
|
|
|
if {$NbCurv != 1} {
|
|
puts "Error: Please check NbCurves for intersector"
|
|
}
|
|
|
|
if { $Toler > 2.0e-7} {
|
|
puts "Error: Big tolerance value"
|
|
}
|
|
|
|
smallview
|
|
don c_* p_*
|
|
fit
|
|
disp bc bs
|
|
|
|
checkview -screenshot -2d -path ${imagedir}/${test_image}_3d.png
|