mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
04cbc9d384
Added new parameter for checking whether the plane and cylinder are parallel - the height of the cylinder. This parameter is needed for the cases when angle between AXIS and plane's normal is very close to PI, but the "height" is big enough that point, translated from intersection point between cylinder's axis and plane on the "height" distance in the direction of cylinder's axis, does not belong to the plane. Such plane and cylinder cannot be considered as parallel. Add test case for this fix
28 lines
525 B
Plaintext
Executable File
28 lines
525 B
Plaintext
Executable File
puts "========"
|
|
puts "OCC23985"
|
|
puts "========"
|
|
puts ""
|
|
##########################################
|
|
## There is no section between attached faces
|
|
##########################################
|
|
|
|
set BugNumber 23985
|
|
|
|
restore [locate_data_file bug23985_b1.brep] b1
|
|
restore [locate_data_file bug23985_b2.brep] b2
|
|
|
|
bsection result b1 b2
|
|
|
|
set expl [explode result]
|
|
|
|
set length [llength $expl]
|
|
puts "Result is $length section edge"
|
|
|
|
if {$length > 0} {
|
|
puts "${BugNumber} OK"
|
|
} else {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
|
|
set 2dviewer 0
|