9dfbbfe6 |
1 | puts "=========" |
2 | puts "CR26038" |
3 | puts "=========" |
4 | puts "" |
5 | ############################### |
6 | ## Wrong result done by extrema for the circle and plane |
7 | ############################### |
8 | |
9 | restore [locate_data_file bug26038_f1.brep] f |
10 | restore [locate_data_file bug26038_e1.brep] e |
11 | |
12 | mksurface s f |
13 | mkcurve c e |
14 | |
15 | extrema c s |
16 | regexp {The length ext_1 is +([-0-9.+eE]+)} [length ext_1] full ext_1_length |
17 | set good_length 1.0e-7 |
18 | set tol_abs 1.0e-6 |
19 | set tol_rel 1.0e-6 |
20 | checkreal "length of ext_1" ${ext_1_length} ${good_length} ${tol_abs} ${tol_rel} |
21 | |
22 | dlog reset |
23 | dlog on |
24 | xdistcs c s 1.57079 1.5708 10 |
25 | set Log [dlog get] |
26 | |
27 | set List [split ${Log} {TD= \t\n}] |
28 | set Tolerance 1.0e-6 |
29 | set D_good 0. |
30 | set Limit_Tol 1.0e-6 |
31 | checkList ${List} ${Tolerance} ${D_good} ${Limit_Tol} |