mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
41 lines
978 B
Plaintext
Executable File
41 lines
978 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC26202"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Wrong result of chamfer on cylindrical surface: wrong value of chord
|
|
#######################################################################
|
|
|
|
restore [locate_data_file bug26202_shell.brep] b
|
|
|
|
explode b
|
|
explode b_2 e
|
|
|
|
smallview
|
|
donly b b_2_1
|
|
fit
|
|
xwd $imagedir/${test_image}_1.png
|
|
|
|
chamf q b b_2_1 b_2 0.02 0.01
|
|
explode q v
|
|
explode b v
|
|
|
|
donly b_2 q_1 q_5
|
|
fit
|
|
xwd $imagedir/${test_image}_2.png
|
|
|
|
donly q b b_2 q_1 q_5
|
|
xwd $imagedir/${test_image}_3.png
|
|
|
|
distmini dd b_2 q_5
|
|
dump dd_val
|
|
#dd_val is 0.013334, but must be 0.02
|
|
|
|
set info [dump dd_val]
|
|
regexp "\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\* Dump of dd_val \\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\n(\[-0-9*\.+eE\]+)" $info full Length
|
|
|
|
set expected_Length 0.02
|
|
set tol_abs_Length 1.0e-4
|
|
set tol_rel_Length 0.0001
|
|
checkreal "Length" ${Length} ${expected_Length} ${tol_abs_Length} ${tol_rel_Length}
|