Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60882
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
10 catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
11
12 restore [locate_data_file BUC60882_samepar.brep] result
13
14 set che [checkshape result]
15
16 if { [regexp {Faulty} $che ] == 1 } {
17     puts "Warning BUC60882: Source shape is NOT correct. It was detected by Checkshape command"
18 } else {
19     puts "BUC60882 OK: Source shape is valid"
20 }
21
22 puts "*** Before : "
23
24 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTol
25
26 puts "MaxTolerance = $MaxTol"
27 if { $MaxTol > 1 } {
28     puts "Warning : Tolerance of Source edge is more then 1.0"
29 } else {
30     puts " Tolerance of source edge is less then 1.0"
31 }
32
33 fsameparameter result 1e-5
34
35 puts "*** After : "
36 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTol_1
37
38 puts "MaxTolerance = $MaxTol_1"
39 if { $MaxTol_1 > $MaxTol } {
40     puts [format "Faulty BUC60882 : Tolerance of Result edge increased and it is equal to %s" $MaxTol_1]
41 } else {
42     puts " BUC60882 OK: Tolerance of Result edge is less or equal to tolerance of Sourse edge."
43 }
44
45 set length 1768.53
46 set 2dviewer 0