0030497: [REGRESSION] Mesh - wrong Poly_Polygon3D within local selection of located...
[occt.git] / tests / bugs / mesh / bug25364
1 puts "============"
2 puts "CR25364"
3 puts "============"
4 puts ""
5 ###################################################################################
6 # BRepMesh is not able to triangulate the shape with fine deflection
7 ###################################################################################
8
9 restore [locate_data_file bug25364_WT_Grundplatte.brep] result
10
11 set mem_private_1 [meminfo private]
12 set mem_swap_1 [meminfo swap]
13 set mem_swappeak_1 [meminfo swappeak]
14 set mem_wset_1 [meminfo wset]
15 set mem_wsetpeak_1 [meminfo wsetpeak]
16 set mem_virt_1 [meminfo virt]
17 set mem_heap_1 [meminfo heap]
18
19 incmesh result 0.002
20
21 set mem_private_2 [meminfo private]
22 set mem_swap_2 [meminfo swap]
23 set mem_swappeak_2 [meminfo swappeak]
24 set mem_wset_2 [meminfo wset]
25 set mem_wsetpeak_2 [meminfo wsetpeak]
26 set mem_virt_2 [meminfo virt]
27 set mem_heap_2 [meminfo heap]
28
29 if [catch { tricheck result } ] {
30   puts "Error : Problem of triangulation"
31 } else {
32   puts "OK : Triangulation is good"
33 }
34
35 set mem_private_1 [expr ${mem_private_1}/(1024 * 1024)]
36 set mem_swap_1 [expr ${mem_swap_1}/(1024 * 1024)]
37 set mem_swappeak_1 [expr ${mem_swappeak_1}/(1024 * 1024)]
38 set mem_wset_1 [expr ${mem_wset_1}/(1024 * 1024)]
39 set mem_wsetpeak_1 [expr ${mem_wsetpeak_1}/(1024 * 1024)]
40 set mem_virt_1 [expr ${mem_virt_1}/(1024 * 1024)]
41 set mem_heap_1 [expr ${mem_heap_1}/(1024 * 1024)]
42
43 puts "mem_private_1=${mem_private_1}"
44 puts "mem_swap_1=${mem_swap_1}"
45 puts "mem_swappeak_1=${mem_swappeak_1}"
46 puts "mem_wset_1=${mem_wset_1}"
47 puts "mem_wsetpeak_1=${mem_wsetpeak_1}"
48 puts "mem_virt_1=${mem_virt_1}"
49 puts "mem_heap_1=${mem_heap_1}"
50
51 set mem_private_2 [expr ${mem_private_2}/(1024 * 1024)]
52 set mem_swap_2 [expr ${mem_swap_2}/(1024 * 1024)]
53 set mem_swappeak_2 [expr ${mem_swappeak_2}/(1024 * 1024)]
54 set mem_wset_2 [expr ${mem_wset_2}/(1024 * 1024)]
55 set mem_wsetpeak_2 [expr ${mem_wsetpeak_2}/(1024 * 1024)]
56 set mem_virt_2 [expr ${mem_virt_2}/(1024 * 1024)]
57 set mem_heap_2 [expr ${mem_heap_2}/(1024 * 1024)]
58
59 puts "mem_private_2=${mem_private_2}"
60 puts "mem_swap_2=${mem_swap_2}"
61 puts "mem_swappeak_2=${mem_swappeak_2}"
62 puts "mem_wset_2=${mem_wset_2}"
63 puts "mem_wsetpeak_2=${mem_wsetpeak_2}"
64 puts "mem_virt_2=${mem_virt_2}"
65 puts "mem_heap_2=${mem_heap_2}"
66
67 set mem_delta_private 200
68 set mem_delta_swap 120
69 set mem_delta_swappeak 250
70 set mem_delta_wset 200
71 set mem_delta_wsetpeak 300
72 set mem_delta_virt 220
73 set mem_delta_heap 80
74
75 if { [regexp {Debug mode} [dversion]] } {
76    set mem_delta_swap 220
77    set mem_delta_swappeak 350
78    set mem_delta_wsetpeak 320
79    set mem_delta_virt 320
80 }
81
82 if { [expr ${mem_private_2} - ${mem_private_1}] > ${mem_delta_private}} {
83     puts "Error : there is memory problem (private)"
84 }
85 if { [expr ${mem_swap_2} - ${mem_swap_1}] > ${mem_delta_swap}} {
86     puts "Error : there is memory problem (swap)"
87 }
88 if { [expr ${mem_swappeak_2} - ${mem_swappeak_1}] > ${mem_delta_swappeak}} {
89     puts "Error : there is memory problem (swappeak)"
90 }
91 if { [expr ${mem_wset_2} - ${mem_wset_1}] > ${mem_delta_wset}} {
92     puts "Error : there is memory problem (wset)"
93 }
94 if { [expr ${mem_wsetpeak_2} - ${mem_wsetpeak_1}] > ${mem_delta_wsetpeak}} {
95     puts "Error : there is memory problem (wsetpeak)"
96 }
97 if { [expr ${mem_virt_2} - ${mem_virt_1}] > ${mem_delta_virt}} {
98     puts "Error : there is memory problem (virt)"
99 }
100 if { [expr ${mem_heap_2} - ${mem_heap_1}] > ${mem_delta_heap}} {
101     puts "Error : there is memory problem (heap)"
102 }
103
104 checkview -display result -3d -path ${imagedir}/${test_image}.png