5 #######################################################################
6 ## The edge is corrupted after applying command "fsameparameter": tolerance is increased up to 1e+50
7 #######################################################################
11 restore [locate_data_file BUC60882_samepar.brep] result
13 set che [checkshape result]
15 if { [regexp {Faulty} $che ] == 1 } {
16 puts "Warning BUC60882: Source shape is NOT correct. It was detected by Checkshape command"
18 puts "BUC60882 OK: Source shape is valid"
23 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTol
25 puts "MaxTolerance = $MaxTol"
27 puts "Warning : Tolerance of Source edge is more then 1.0"
29 puts " Tolerance of source edge is less then 1.0"
32 fsameparameter result 1e-5
35 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTol_1
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]
41 puts " BUC60882 OK: Tolerance of Result edge is less or equal to tolerance of Sourse edge."
44 checkprops result -l 1768.53
47 checkview -display result -2d -path ${imagedir}/${test_image}.png