puts "=================================="
puts "Viewer animation - translate the view camera"
puts "=================================="

pload MODELING VISUALIZATION

vclear
vinit View1
vaxo
vzbufftrihedron -position right_lower

box b1 -50 -50 0 100 100 100
vdisplay -noupdate -dispMode 1 b1
vviewparams -scale 1.156 -up -0.3588 0.3458 0.867 -at 116 355 327 -eye 225 253 413

# Animation simulates the following panning:
# vpan 200 0
# vviewparams -scale 1.156 -up -0.3588 0.3458 0.867 -at -174 47 330 -eye -65 -55 415
vanimation anim -clear
vanimation anim/movecam -view -at1 116 355 327 -at2 -174 47 330 -eye1 225 253 413 -eye2 -65 -55 415 -duration 2

vanimation anim -play 0.0 0.0
if {[vreadpixel 60  360 rgb name] != "GOLDENROD3"} { puts "Error: Camera translation result is wrong!" }
vdump $imagedir/${casename}_0.png

vanimation anim -play 1.0 0.0
if {[vreadpixel 160 360 rgb name] != "GOLDENROD3"} { puts "Error: Camera translation result is wrong!" }
vdump $imagedir/${casename}_1.png

vanimation anim -play 2.0 0.0
if {[vreadpixel 260 360 rgb name] != "GOLDENROD3"} { puts "Error: Camera translation result is wrong!" }
vdump $imagedir/${casename}_2.png

puts "Put the following command to start interactive animation:"
puts "    vanimation anim -play"
