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

pload MODELING VISUALIZATION

vclear
vinit View1
vaxo
vzbufftrihedron

box b1 -50 -50 0 100 100 100
vdisplay -noupdate -dispMode 1 b1
vfit -noupdate
vzoom 0.2

vanimation anim -clear
vanimation anim/zoom -view -scale1 1.2 -scale2 4.8 -duration 2

vanimation anim -play 0.0 0.0
if {[vreadpixel 230 220 rgb name] != "DARKGOLDENROD3" || [vreadpixel 250 220 rgb name] != "BLACK"} { puts "Error: Camera scale result is wrong!" }
vdump $imagedir/${casename}_0.png

vanimation anim -play 1.0 0.0
if {[vreadpixel 250 220 rgb name] != "DARKGOLDENROD3" || [vreadpixel 270 220 rgb name] != "BLACK"} { puts "Error: Camera scale result is wrong!" }
vdump $imagedir/${casename}_1.png

vanimation anim -play 2.0 0.0
if {[vreadpixel 334 220 rgb name] != "DARKGOLDENROD3" || [vreadpixel 350 220 rgb name] != "BLACK"} { puts "Error: Camera scale result is wrong!" }
vdump $imagedir/${casename}_2.png

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