puts "============"
puts "0030807: Visualization, TKOpenGl - supporting cubemaps"
puts "Test vertical 1x6 tiles orientation"
puts "============"
puts ""

set aCubeMap_V [locate_data_file Circus_CubeMap_V.png]
set aCubeMap_V_021345 [locate_data_file Circus_CubeMap_V_021345.png]

pload MODELING VISUALIZATION
vclear
vinit v -w 512 -h 512
vcamera -fovy 100

# vertical tiles orientation
vbackground -cubemap $aCubeMap_V
foreach {i} { front back top bottom left right } { v$i; vdump $imagedir/${casename}_${i}.png }

# test of flipping
vbackground -cubemap $aCubeMap_V -invertedz
foreach {i} { front back top bottom left right } { v$i; vdump $imagedir/${casename}_flip_${i}.png }

# vertical tiles orientation (disordered)
vbackground -cubemap $aCubeMap_V_021345 -order 0 2 1 3 4 5
foreach {i} { front back top bottom left right } { v$i; vdump $imagedir/${casename}_021345_${i}.png }
