1 puts "========"
2 puts "CR24264"
3 puts "========"
4 puts ""
5 #######################################################################
6 # OCCT 6.6.0: cutting 1600 cylinders from a box leads to out-of-memory on 32-bit system
7 #######################################################################
9 # test cutting box by many holes, inspired by
11 # in OCCT 6.6.0 32-bit mode on Windows this fails with N >= 40 (out of memory)
13 # box plate to cut the holes from
14 box b 100 100 1
16 # N defines number of holes along each of X and Y, thus total N^2 holes
17 # will be drilled; note that the algorithm iself is likely to be quadratic
18 # for number of shapes, i.e. CPU ~ N^4
19 set N 40
20 set holes {}
21 for {set i 1} {\$i < \$N} {incr i} {
22     for {set j 1} {\$j < \$N} {incr j} {
23        pcylinder p_\${i}_\$j 0.5 1
24        ttranslate p_\${i}_\$j [expr \$i * 100. / \$N]  [expr \$j * 100. / \$N]  0.
25        lappend holes p_\${i}_\$j
26     }
27 }
29 eval compound \$holes drill
31 set mem1 [meminfo h]
33 dchrono cpu restart
35 bcut r b drill
37 dchrono cpu stop counter BCut
39 set mem2 [meminfo h]
41 set mem1 [expr \${mem1}/(1024 * 1024)]
42 set mem2 [expr \${mem2}/(1024 * 1024)]
43 set mem_delta 70
44 puts "mem1=\${mem1}"
45 puts "mem2=\${mem2}"
46 puts "mem_delta=\${mem_delta}"
48 if { [expr \${mem2} - \${mem1}] > \${mem_delta}} {
49     puts "Faulty : there is memory leak"
50 }
52 vinit
53 vdisplay r
54 vfit