puts "==========="
puts "OCC27945"
puts "Visualization - handle correctly view clipping planes within zoom-persistent objects"
puts "==========="
puts ""

pload MODELING VISUALIZATION

box b 3 1 2
box z000 50 40 30
box z010 50 40 30
box z002 50 40 30
box z012 50 40 30
box z300 50 40 30
box z302 50 40 30
box z310 50 40 30
box z312 50 40 30
box r1 0.2 0.1 0.1
box r2 0.2 0.1 0.1

vclear
vinit View1
vaxo
vzbufftrihedron
vdisplay -dispMode 1 b

vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 0 0 0 z000
vsetlocation z000 -25 -20 -15
vdrawtext    t000 "000\n" -pos 0 0 0 -color RED -halign right

vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 0 1 0 z010
vsetlocation z010 -25 -20 -15
vdrawtext    t010 "010\n" -pos 0 1 0 -color RED -halign right

vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 0 0 2 z002
vsetlocation z002 -25 -20 -15
vdrawtext    t002 "002\n" -pos 0 0 2 -color RED -halign right

vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 0 1 2 z012
vsetlocation z012 -25 -20 -15
vdrawtext    t012 "012\n" -pos 0 1 2 -color RED -halign right

vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 3 0 0 z300
vsetlocation z300 -25 -20 -15
vdrawtext    t300 "300\n" -pos 3 0 0 -color RED -halign left

vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 3 0 2 z302
vsetlocation z302 -25 -20 -15
vdrawtext    t302 "302\n" -pos 3 0 2 -color RED -halign left

vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 3 1 0 z310
vsetlocation z310 -25 -20 -15
vdrawtext    t310 "310\n" -pos 3 1 0 -color RED -halign left

vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 3 1 2 z312
vsetlocation z312 -25 -20 -15
vdrawtext    t312 "312\n" -pos 3 1 2 -color RED -halign left

vdisplay -noupdate -dispMode 1 -trsfPers rotate -trsfPersPos -1 1 2 r1
vdisplay -noupdate -dispMode 1 -trsfPers rotate -trsfPersPos  4 1 2 r2

vfit
vrotate 0.1 0 0

vclipplane pln -equation -1 0 0 2 -set

set aColor1 [vreadpixel 320 160 rgb name]
set aColor2 [vreadpixel 80  250 rgb name]
if { "$aColor1" != "BLACK"         } { puts "Error: zoom-persistent object is not clipped" }
if { "$aColor2" != "DARKGOLDENROD" } { puts "Error: zoom-persistent object is clipped" }

vdump $imagedir/${casename}.png
