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_3
ski 5747059b21 0026833: Create command checkview containing all viewer types
Created command checkview for displaying shapes.
2016-02-05 11:14:37 +03:00

33 lines
1.1 KiB
Plaintext

puts "========"
puts "OCC25124"
puts "========"
puts ""
######################################################
# Removal of continuity checks for offset geometries
######################################################
smallview
set ver_info_1 "\n\n*********** Dump of ss *************\nRectangularTrimmedSurface\nParameters : 1 5.5 -0.8 0.5\nBasisSurface :\nOffsetSurface\nOffset : 10\nBasisSurface :\nRectangularTrimmedSurface\nParameters : 1 5.5 -0.8 0.5\nBasisSurface :\nSphericalSurface"
set ver_info_2 "\n\n*********** Dump of os *************\nOffsetSurface\nOffset : 20\nBasisSurface :\nRectangularTrimmedSurface\nParameters : 1 5.5 -0.8 0.5\nBasisSurface :\nSphericalSurface"
sphere ss 30
trim ss ss 0.5 6 -1 1
offset os ss 10
trim ss os 1 5.5 -0.8 0.5
set bug_info_1 [dump ss]
offset os ss 10
set bug_info_2 [dump os]
if {[string first $ver_info_1 $bug_info_1] == -1} {
puts "ERROR: OCC25124 is reproduced (dump of ss)."
}
if {[string first $ver_info_2 $bug_info_2] == -1} {
puts "ERROR: OCC25124 is reproduced (dump of os)."
}
donly os ss
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png