pload MODELING VISUALIZATION
box b -1 -1 -1 2 2 2
explode b F
vclear
vinit View1
vdisplay -dispMode 0 b_1 b_3 b_4 b_6
vdisplay -dispMode 1 b_2 b_5
vfit
vzoom 0.4
vlocation b_2 -reset
vlocation b_5 -reset
vlocation b_2 -rotate  1 -1 -1 0 1 0 90
vlocation b_2 -rotate -1 -1 -1 0 1 0 90
vlocation b_5 -rotate -1 -1 -1 0 1 0 90
if { [vreadpixel 170 380 -rgb -name] == "BLACK" } { puts "Error" }

pload MODELING VISUALIZATION
vclear
vinit View1
vzbufftrihedron
box b -1 -1 -1 2 2 2
explode b F
text2brep tnx nx -pos -1  0  0 -halign center -valign center -height 0.2 -plane  1  0  0  0  1 0
text2brep tpx px -pos  1  0  0 -halign center -valign center -height 0.2 -plane -1  0  0  0 -1 0
text2brep tny ny -pos  0 -1  0 -halign center -valign center -height 0.2 -plane  0  1  0 -1  0 0
text2brep tpy py -pos  0  1  0 -halign center -valign center -height 0.2 -plane  0 -1  0  1  0 0
text2brep tnz nz -pos  0  0 -1 -halign center -valign center -height 0.2 -plane  0  0  1  1  0 0
text2brep tpz pz -pos  0  0  1 -halign center -valign center -height 0.2 -plane  0  0 -1  1  0 0
compound b_1 tnx nx
compound b_2 tpx px
compound b_3 tny ny
compound b_4 tpy py
compound b_5 tnz nz
compound b_6 tpz pz

vdisplay -top nx px ny py nz pz

proc anim_py  {theP} { vlocation py -reset -rotate -1  1  0 0 0 1 [expr  90*$theP] }
proc anim_ny  {theP} { vlocation ny -reset -rotate -1 -1  0 0 0 1 [expr -90*$theP] }
proc anim_pz  {theP} { vlocation pz -reset -rotate -1 -1  1 0 1 0 [expr -90*$theP] }
proc anim_px1 {theP} { vlocation px -reset -rotate  1 -1 -1 0 1 0 [expr  90*$theP] }
proc anim_px2 {theP} { anim_px1 1; vlocation px -rotate -1 -1 -1 0 1 0 [expr  90*$theP] }
proc anim_nz  {theP} { vlocation nz -reset -rotate -1 -1 -1 0 1 0 [expr  90*$theP] }
vanimation -clear
vanimation anim/py  -start 0  -dur 2 -cmd "anim_py  %localNormalized"
vanimation anim/ny  -start 0  -dur 2 -cmd "anim_ny  %localNormalized"
vanimation anim/pz  -start 0  -dur 2 -cmd "anim_pz  %localNormalized"
vanimation anim/px1 -start 0  -dur 2 -cmd "anim_px1 %localNormalized"
vanimation anim/px2 -start 2  -dur 2 -cmd "anim_px2 %localNormalized"
vanimation anim/nz  -start 2  -dur 2 -cmd "anim_nz  %localNormalized"

vanimation anim -play -playSpeed 1