a87752f3 |
1 | puts "============" |
2 | puts "BUC60882" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | ## The edge is corrupted after applying command "fsameparameter": tolerance is increased up to 1e+50 |
7 | ####################################################################### |
8 | |
9 | pload XDE |
a87752f3 |
10 | |
11 | restore [locate_data_file BUC60882_samepar.brep] result |
12 | |
13 | set che [checkshape result] |
14 | |
15 | if { [regexp {Faulty} $che ] == 1 } { |
16 | puts "Warning BUC60882: Source shape is NOT correct. It was detected by Checkshape command" |
17 | } else { |
18 | puts "BUC60882 OK: Source shape is valid" |
19 | } |
20 | |
21 | puts "*** Before : " |
22 | |
23 | regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTol |
24 | |
25 | puts "MaxTolerance = $MaxTol" |
26 | if { $MaxTol > 1 } { |
27 | puts "Warning : Tolerance of Source edge is more then 1.0" |
28 | } else { |
29 | puts " Tolerance of source edge is less then 1.0" |
30 | } |
31 | |
32 | fsameparameter result 1e-5 |
33 | |
34 | puts "*** After : " |
35 | regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTol_1 |
36 | |
37 | puts "MaxTolerance = $MaxTol_1" |
38 | if { $MaxTol_1 > $MaxTol } { |
39 | puts [format "Faulty BUC60882 : Tolerance of Result edge increased and it is equal to %s" $MaxTol_1] |
40 | } else { |
41 | puts " BUC60882 OK: Tolerance of Result edge is less or equal to tolerance of Sourse edge." |
42 | } |
43 | |
44 | set length 1768.53 |
45 | set 2dviewer 0 |