Adding test cases from chl grid
[occt.git] / tests / bugs / modalg / bug22967
1 puts "============"
2 puts "OCC22967"
3 puts "============"
4 puts ""
5 ############################################################################################################
6 # Boolean operations between two cylinders with orthogonal axis generate a shape with big vertex tolerance
7 ###########################################################################################################
8
9 set BugNumber OCC22967
10 set check_value 1.04742e-05
11
12 restore [locate_data_file bug22967_Cylinder_1.brep] b1 
13 restore [locate_data_file bug22967_Scale_1.brep] b2 
14 bop b1 b2
15 bopfuse result
16 set info [ maxtolerance result ]
17
18 regexp {Edge[ \t]*:.*Max[ \t]*([-0-9.+eE]+)} $info full last1
19 regexp {Vertex[ \t]*:.*Max[ \t]*([-0-9.+eE]+)} $info full last
20
21 proc GetPercent {Value GoodValue} {
22     set Percent 0.
23     if {${GoodValue} != 0.} {
24         set Percent [expr abs(${Value} - ${GoodValue}) / abs(double(${GoodValue})) * 100.]
25     } elseif {${Value} != 0.} {
26         set Percent [expr abs(${GoodValue} - ${Value}) / abs(double(${Value})) * 100.]
27     } else {
28         set Percent 0.
29     }
30     return ${Percent}
31 }
32
33 set percent_max 5
34 set status 0
35
36 set Tolerance_percent [expr abs ( [GetPercent ${last} ${check_value}] ) ]
37 if {${Tolerance_percent} > ${percent_max}} {
38     set status 1
39 } else {
40     set status 0
41 }
42
43 set Tolerance_percent [expr abs ( [GetPercent ${last1} ${check_value}] ) ]
44 if {${Tolerance_percent} > ${percent_max}} {
45     set status 1
46 } else {
47     set status 0
48 }
49
50 # Resume
51 if {${status} > 0} {
52    puts "${BugNumber}: Faulty"
53 } else {
54    puts "OK ${BugNumber}"
55 }
56
57 set square 671262
58 set 2dviewer 0
59