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

30 lines
740 B
Plaintext

puts "========"
puts "OCC26201"
puts "========"
puts ""
#############################################################################
# Wrong processing of dissymetric chamfer: order of chords unjustly changes
#############################################################################
smallview
restore [locate_data_file OCC26201_m.brep] m
copy m m_f
copy m m_e
explode m_f f
explode m_e e
copy m_e_47 e
copy m_f_7 f
donly m f e
chamf r m e f 0.02 0.01
explode r v
explode m v
donly r_19 m_41
fit
donly m r r_19 m_41
distmini dd r_19 m_41
set bug_info [dump dd_val]
if {[lindex $bug_info 5] > 0.01} {
puts "ERROR: OCC26201 is reproduced. Minimum distance is too large."
}
checkview -screenshot -2d -path ${imagedir}/${test_image}.png