mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
19 lines
745 B
Plaintext
19 lines
745 B
Plaintext
puts "========"
|
|
puts "0032850: Modeling Algorithms - Surface Surface Intersect Lost one line"
|
|
puts "========"
|
|
puts ""
|
|
|
|
cylinder s1 25.8071575178163 0 -373.974517822281 0 1 0 -1.73024882663956e-06 0 0.999999999998503 408.974517822893
|
|
trim s1 s1 0 0.0225015452057227 -146.010003766057 2146.01000376606
|
|
cylinder s2 0 1974.19284248218 -373.974517822281 1 0 0 -0 1.73024882663956e-06 0.999999999998503 408.974517822893
|
|
trim s2 s2 0 0.0225015452057227 -146.010003766057 946.010003766057
|
|
mkface f1 s1;
|
|
mkface f2 s2;
|
|
set log [bopcurves f1 f2]
|
|
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} $log full Toler NbCurv
|
|
if {$NbCurv != 4} {
|
|
puts "Error: Number of curves is wrong"
|
|
}
|
|
if { $Toler > 1.0e-12} {
|
|
puts "Error: Big tolerance value"
|
|
} |