1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-03 17:56:21 +03:00
occt/tests/bugs/modalg_2/bug23031
ski 5747059b21 0026833: Create command checkview containing all viewer types
Created command checkview for displaying shapes.
2016-02-05 11:14:37 +03:00

28 lines
633 B
Plaintext
Executable File

puts "========"
puts "OCC23031"
puts "========"
puts ""
###########################################################
# Empty result for the extrema between a circle and a line.
###########################################################
set BugNumber OCC23031
restore [locate_data_file OCC23031-b1.brep] b1
restore [locate_data_file OCC23031-b2.brep] b2
mkcurve c1 b1
mkcurve c2 b2
set extrema_res [extrema c1 c2]
set extrema_length [llength ${extrema_res} ]
if {${extrema_length} != 1 } {
puts "${BugNumber}: Faulty"
} else {
puts "${BugNumber}: OK"
}
checkview -display result -3d -path ${imagedir}/${test_image}.png