mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
40 lines
1.0 KiB
Plaintext
Executable File
40 lines
1.0 KiB
Plaintext
Executable File
puts "========="
|
|
puts "CR26038"
|
|
puts "========="
|
|
puts ""
|
|
###############################
|
|
## Wrong result done by extrema for the circle and plane
|
|
###############################
|
|
|
|
restore [locate_data_file bug26038_f.brep] f
|
|
restore [locate_data_file bug26038_e.brep] e
|
|
|
|
mksurface s f
|
|
mkcurve c e
|
|
|
|
extrema c s
|
|
regexp {The length ext_1 is +([-0-9.+eE]+)} [length ext_1] full ext_1_length
|
|
set good_length 1.0e-7
|
|
set tol_abs 1.0e-6
|
|
set tol_rel 1.0e-6
|
|
checkreal "length of ext_1" ${ext_1_length} ${good_length} ${tol_abs} ${tol_rel}
|
|
|
|
trim ct c 3.0050016686511065 3.2781836385284797
|
|
extrema ct s
|
|
regexp {The length ext_1 is +([-0-9.+eE]+)} [length ext_1] full ext_1_length
|
|
set good_length 1.0e-7
|
|
set tol_abs 1.0e-6
|
|
set tol_rel 1.0e-6
|
|
checkreal "length of ext_1" ${ext_1_length} ${good_length} ${tol_abs} ${tol_rel}
|
|
|
|
dlog reset
|
|
dlog on
|
|
xdistcs c s 3.140212946671221 3.142972360508366 10
|
|
set Log [dlog get]
|
|
|
|
set List [split ${Log} {TD= \t\n}]
|
|
set Tolerance 1.0e-6
|
|
set D_good 0.
|
|
set Limit_Tol 1.0e-6
|
|
checkList ${List} ${Tolerance} ${D_good} ${Limit_Tol}
|