c8be748c |
1 | puts "============" |
2 | puts "OCC25532" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Visualization - fix cross-references between AIS_ConnectedInteractive |
7 | # and connected presentation |
8 | ####################################################################### |
9 | |
10 | pload MODELING VISUALIZATION |
11 | psphere s 0.5 |
12 | tclean s |
13 | incmesh s 0.001 |
14 | trinfo s |
15 | |
16 | vinit View1 |
17 | vclear |
18 | vaxo |
19 | vcaps -vbo 0 |
20 | vsetdispmode 1 |
21 | vdefaults absDefl=1.0 |
8e5fb5ea |
22 | vselprops -autoactivate 0 |
c8be748c |
23 | set aMemInit [meminfo h] |
24 | |
25 | set aNb 1000 |
26 | |
27 | # display as copies |
28 | eval compound [lrepeat $aNb s] ss |
29 | explode ss |
1beb58d7 |
30 | for {set i 1} {$i <= $aNb} {incr i} { vdisplay -noupdate ss_${i}; vsetlocation -noupdate ss_${i} ${i} 0 0 } |
c8be748c |
31 | vfit |
32 | set aMemDisp1 [meminfo h] |
33 | vclear |
34 | set aMemClear1 [meminfo h] |
35 | |
36 | # display as connected instances of single presentation |
37 | vconnectto i_1 0 0 0 s |
38 | for {set i 2} {$i < $aNb} {incr i} { vconnectto i_${i} ${i} 0 0 i_1 } |
39 | set aMemDisp2 [meminfo h] |
40 | vclear |
41 | set aMemClear2 [meminfo h] |
42 | |
43 | puts "Initial memory: [expr $aMemInit / (1024 * 1024)] MiB" |
44 | puts "Displaying (simple): [expr $aMemDisp1 / (1024 * 1024)] MiB" |
45 | puts "Clearing (simple): [expr $aMemClear1 / (1024 * 1024)] MiB" |
46 | puts "Displaying (connected): [expr $aMemDisp2 / (1024 * 1024)] MiB" |
47 | puts "Clearing (connected): [expr $aMemClear2 / (1024 * 1024)] MiB" |
48 | |
49 | set aRatio [expr $aMemClear2 / double($aMemClear1)] |
50 | |
7f917335 |
51 | # check if the memory difference is greater than 20% |
52 | if [expr $aRatio > 1.2] { |
c8be748c |
53 | puts "Error : TEST FAILED" |
54 | } |
55 | |