pload MODELING VISUALIZATION
set nx 20; set ny 10; set nz 10;
set bb {}
for {set x 1} {$x <= $nx} {incr x} { for {set y 1} {$y <= $ny} {incr y} { for {set z 1} {$z <= $nz} {incr z} { box b${x}_${y}_${z} $x $y $z 0.5 0.5 0.5; lappend bb b${x}_${y}_${z} } } }
compound {*}$bb  c
set ee [explode c E]
vclear; vinit View1
vdefaults -autoTriang 0
vdisplay -dispMode 0 c
vfit
set aNE [llength $ee]
set aReset [expr srand(1)]
set aMemBefore "[expr [meminfo h]/1024] KiB"
set aCmd "vaspects -noupdate c"
for {set e 1} {$e <= $aNE} {incr e} { set aCmd "$aCmd -subShapes c_${e} -setColor [expr rand()] [expr rand()] [expr rand()]" }
eval $aCmd
set aMemAfter "[expr [meminfo h]/1024] KiB"
vrepaint
set aMemAfter2 "[expr [meminfo h]/1024] KiB"
vrenderparams -perfCounters groups
vrepaint

- Mem0: 114182 KiB
- Mem1: 191273 KiB
- Mem2: 311105 KiB

- Mem0: 95445  KiB
- Mem1: 287412 KiB
- Mem2: 407213 KiB

- Mem0: 114001 KiB
- Mem1: 349446 KiB
- Mem2: 469278 KiB