0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / v3d / anim / rotate
1 puts "=================================="
2 puts "Viewer animation - rotate the view camera"
3 puts "=================================="
4
5 pload MODELING VISUALIZATION
6
7 vclear
8 vinit View1
9 vaxo
10 vzbufftrihedron
11
12 box b1 -50 -50 0 100 100 100
13 vdisplay -noupdate -dispMode 1 b1
14 vfit -noupdate
15
16 # Animation simulates the following rotation:
17 # vrotate 2 0 0
18 vanimation anim -clear
19 vanimation anim/movecam -view -at1 0 0 50 -at2 0 0 50 -eye1 100 -100 150 -eye2 -153 -70 8 -duration 3
20
21 vanimation anim -play 0.0 0.0
22 if {[vreadpixel 306 280 rgb name] != "DARKGOLDENROD" || [vreadpixel 325 280 rgb name] != "DARKGOLDENROD"} { puts "Error: Camera rotate result is wrong!" }
23 vdump $imagedir/${casename}_0.png
24
25 vanimation anim -play 1.0 0.0
26 if {[vreadpixel 306 280 rgb name] != "DARKORANGE4"   || [vreadpixel 325 280 rgb name] != "BLACK"}         { puts "Error: Camera rotate result is wrong!" }
27 vdump $imagedir/${casename}_1.png
28
29 vanimation anim -play 2.0 0.0
30 if {[vreadpixel 306 280 rgb name] != "GOLDENROD3"    || [vreadpixel 325 280 rgb name] != "GOLDENROD3"}    { puts "Error: Camera rotate result is wrong!" }
31 vdump $imagedir/${casename}_2.png
32
33 puts "Put the following command to start interactive animation:"
34 puts "    vanimation anim -play"