OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-05 18:16:23 +03:00
Code Packages Releases Activity

0021750: Intersection of two cylindrical surfaces fails

Browse Source 
Adding test case
This commit is contained in:
bugmaster 2017-03-01 16:56:42 +03:00
parent 0d0c99de4d
commit e6afb53983
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
tests/bugs/modalg_6/bug21750 Normal file
View File

@ -0,0 +1,26 @@
puts "============"
puts "OCC21750"
puts "============"
puts ""
##################################
# Intersection of two cylindrical surfaces fails
##################################
cylinder c1 1031.3339148728076 -113.25868616662650 56.152387686082520 -0.86602540378443815 0.50000000000000089 0.0 -0.50000000000000089 -0.86602540378443815 0.0 76.499999999999986
cylinder c2 1017.0706583606553 -103.24955863669388 56.152387686082548 0.86602540378443915 -0.49999999999999933 0.0 0.49999999999999933 0.86602540378443915 0.0 76.499999999999986
if { [catch {set info [intersect r c1 c2 1e-7]} catch_result] } {
puts "Error: The intersection of two cylindrical surfaces causes an exception"
}
# Number of solutions check.
# There should be only 2 solution.
if {[llength $info] != 2} {
Error: Incorrect number of solutions.
}
smallview
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png