c23d37040d9fbf0f74459beed7d429c265cc4dda
[occt.git] / tests / bugs / moddata_1 / bug21121
1 puts "TODO OCC11111 ALL: Faulty OCC21121"
2 puts "TODO OCC11111 ALL: Error : The area of result shape is"
3
4 puts "============"
5 puts "OCC21121"
6 puts "============"
7 puts ""
8 #######################################################################
9 # Triangulation on face is not built
10 #######################################################################
11
12 set BugNumber OCC21121
13
14 restore [locate_data_file OCC21121.brep] result
15
16 tclean result
17
18 set Deflection 0.1
19 catch {incmesh result ${Deflection} }
20
21 set tri_info [trinfo result]
22 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
23 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
24 regexp {deflection +([-0-9.+eE]+)} $tri_info full defl
25
26 if { [string compare $tcl_platform(platform) "windows"] == 0 }  {
27    puts "OS = Windows NT"
28    set good_tri  1555
29    set good_nod  1475
30    set good_defl 3.5015692105840144e-06
31 } else {
32    puts "OS = Linux"
33    set good_tri  1555
34    set good_nod  1475
35    set good_defl 3.5015692105840144e-06
36 }
37
38 proc GetPercent {Value GoodValue} {
39     set Percent 0.
40     if {${GoodValue} != 0.} {
41         set Percent [expr abs(${Value} - ${GoodValue}) / abs(double(${GoodValue})) * 100.]
42     } elseif {${Value} != 0.} {
43         set Percent [expr abs(${GoodValue} - ${Value}) / abs(double(${Value})) * 100.]
44     } else {
45         set Percent 0.
46     }
47     return ${Percent}
48 }
49
50 set percent_max 0.1
51 set status 0
52
53 set triangle_percent [GetPercent ${tri} ${good_tri}]
54 puts "triangle_percent = ${triangle_percent}"
55 if { ${triangle_percent} > ${percent_max} } {
56    puts "triangle: Faulty ${BugNumber}"
57    set status 1
58 } else {
59    puts "triangle: OK ${BugNumber}"
60 }
61
62 set node_percent [GetPercent ${nod} ${good_nod}]
63 puts "node_percent = ${node_percent}"
64 if { ${node_percent} > ${percent_max} } {
65    puts "node: Faulty ${BugNumber}"
66    set status 1
67 } else {
68    puts "node: OK ${BugNumber}"
69 }
70
71 set deflection_percent [GetPercent ${defl} ${good_defl}]
72 puts "deflection_percent = ${deflection_percent}"
73 if { ${deflection_percent} > ${percent_max} } {
74    puts "deflection: Faulty ${BugNumber}"
75    set status 1
76 } else {
77    puts "deflection: OK ${BugNumber}"
78 }
79
80 # Resume
81 puts ""
82 if { ${status} != 0 } {
83    puts "Faulty ${BugNumber}"
84 } else {
85    puts "OK ${BugNumber}"
86 }
87
88 checkprops result -s 0
89 checkview -display result -2d -path ${imagedir}/${test_image}.png