mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-09-28 01:40:52 +08:00
drazmyslovich
ec26bf88a2
Calculate radius of circumcircle as maximum difference between its center and vertices or reference triangle. Draw test command OCC25547 has been implemented. Small optimizations for speed. Update of test-cases according to the new behaviour Update of test-cases in group mesh
105 lines
3.3 KiB
Plaintext
Executable File
105 lines
3.3 KiB
Plaintext
Executable File
puts "============"
|
|
puts "CR25364"
|
|
puts "============"
|
|
puts ""
|
|
###################################################################################
|
|
# BRepMesh is not able to triangulate the shape with fine deflection
|
|
###################################################################################
|
|
|
|
restore [locate_data_file bug25364_WT_Grundplatte.brep] result
|
|
|
|
set mem_private_1 [meminfo private]
|
|
set mem_swap_1 [meminfo swap]
|
|
set mem_swappeak_1 [meminfo swappeak]
|
|
set mem_wset_1 [meminfo wset]
|
|
set mem_wsetpeak_1 [meminfo wsetpeak]
|
|
set mem_virt_1 [meminfo virt]
|
|
set mem_heap_1 [meminfo heap]
|
|
|
|
incmesh result 0.002
|
|
|
|
set mem_private_2 [meminfo private]
|
|
set mem_swap_2 [meminfo swap]
|
|
set mem_swappeak_2 [meminfo swappeak]
|
|
set mem_wset_2 [meminfo wset]
|
|
set mem_wsetpeak_2 [meminfo wsetpeak]
|
|
set mem_virt_2 [meminfo virt]
|
|
set mem_heap_2 [meminfo heap]
|
|
|
|
if [catch { tricheck result } ] {
|
|
puts "Error : Problem of triangulation"
|
|
} else {
|
|
puts "OK : Triangulation is good"
|
|
}
|
|
|
|
set mem_private_1 [expr ${mem_private_1}/(1024 * 1024)]
|
|
set mem_swap_1 [expr ${mem_swap_1}/(1024 * 1024)]
|
|
set mem_swappeak_1 [expr ${mem_swappeak_1}/(1024 * 1024)]
|
|
set mem_wset_1 [expr ${mem_wset_1}/(1024 * 1024)]
|
|
set mem_wsetpeak_1 [expr ${mem_wsetpeak_1}/(1024 * 1024)]
|
|
set mem_virt_1 [expr ${mem_virt_1}/(1024 * 1024)]
|
|
set mem_heap_1 [expr ${mem_heap_1}/(1024 * 1024)]
|
|
|
|
puts "mem_private_1=${mem_private_1}"
|
|
puts "mem_swap_1=${mem_swap_1}"
|
|
puts "mem_swappeak_1=${mem_swappeak_1}"
|
|
puts "mem_wset_1=${mem_wset_1}"
|
|
puts "mem_wsetpeak_1=${mem_wsetpeak_1}"
|
|
puts "mem_virt_1=${mem_virt_1}"
|
|
puts "mem_heap_1=${mem_heap_1}"
|
|
|
|
set mem_private_2 [expr ${mem_private_2}/(1024 * 1024)]
|
|
set mem_swap_2 [expr ${mem_swap_2}/(1024 * 1024)]
|
|
set mem_swappeak_2 [expr ${mem_swappeak_2}/(1024 * 1024)]
|
|
set mem_wset_2 [expr ${mem_wset_2}/(1024 * 1024)]
|
|
set mem_wsetpeak_2 [expr ${mem_wsetpeak_2}/(1024 * 1024)]
|
|
set mem_virt_2 [expr ${mem_virt_2}/(1024 * 1024)]
|
|
set mem_heap_2 [expr ${mem_heap_2}/(1024 * 1024)]
|
|
|
|
puts "mem_private_2=${mem_private_2}"
|
|
puts "mem_swap_2=${mem_swap_2}"
|
|
puts "mem_swappeak_2=${mem_swappeak_2}"
|
|
puts "mem_wset_2=${mem_wset_2}"
|
|
puts "mem_wsetpeak_2=${mem_wsetpeak_2}"
|
|
puts "mem_virt_2=${mem_virt_2}"
|
|
puts "mem_heap_2=${mem_heap_2}"
|
|
|
|
set mem_delta_private 200
|
|
set mem_delta_swap 100
|
|
set mem_delta_swappeak 250
|
|
set mem_delta_wset 200
|
|
set mem_delta_wsetpeak 200
|
|
set mem_delta_virt 200
|
|
set mem_delta_heap 80
|
|
|
|
if { [regexp {Debug mode} [dversion]] } {
|
|
set mem_delta_swap 190
|
|
set mem_delta_swappeak 250
|
|
set mem_delta_wsetpeak 270
|
|
set mem_delta_virt 260
|
|
}
|
|
|
|
if { [expr ${mem_private_2} - ${mem_private_1}] > ${mem_delta_private}} {
|
|
puts "Error : there is memory problem (private)"
|
|
}
|
|
if { [expr ${mem_swap_2} - ${mem_swap_1}] > ${mem_delta_swap}} {
|
|
puts "Error : there is memory problem (swap)"
|
|
}
|
|
if { [expr ${mem_swappeak_2} - ${mem_swappeak_1}] > ${mem_delta_swappeak}} {
|
|
puts "Error : there is memory problem (swappeak)"
|
|
}
|
|
if { [expr ${mem_wset_2} - ${mem_wset_1}] > ${mem_delta_wset}} {
|
|
puts "Error : there is memory problem (wset)"
|
|
}
|
|
if { [expr ${mem_wsetpeak_2} - ${mem_wsetpeak_1}] > ${mem_delta_wsetpeak}} {
|
|
puts "Error : there is memory problem (wsetpeak)"
|
|
}
|
|
if { [expr ${mem_virt_2} - ${mem_virt_1}] > ${mem_delta_virt}} {
|
|
puts "Error : there is memory problem (virt)"
|
|
}
|
|
if { [expr ${mem_heap_2} - ${mem_heap_1}] > ${mem_delta_heap}} {
|
|
puts "Error : there is memory problem (heap)"
|
|
}
|
|
|
|
set 3dviewer 1
|