1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
occt/tests/bugs/modalg_5/bug25124_6
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
746 B
Plaintext

puts "========"
puts "OCC25124"
puts "========"
puts ""
######################################################
# Removal of continuity checks for offset geometries
######################################################
smallview
restore [locate_data_file OCC25124_a_2999.draw] a1
getsurfcontinuity a1
offset o1 a1 20
getsurfcontinuity o1
set bug_info_1 [dump a1]
set bug_info_1 [string range $bug_info_1 39 [expr {[string length $bug_info_1] -1}]]
set bug_info_2 [dump o1]
set bug_info_2 [string range $bug_info_2 39 [expr {[string length $bug_info_2] -1}]]
if {[string compare $bug_info_1 $bug_info_2] == 0} {
puts "ERROR: OCC25124 is reproduced (a1 = o1)."
}
donly a1 o1
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png