1# Demo animation, tumbling around 'glass.dat'.
2#
3# History:
4#   - 1. 1. 2006 Dan Sebald:  Defined variables for more generic rotate
5#   - ?. ?. ?    Hans-Bernhard Broeker:  Changed from rotating whale to
6#                rotating glass
7#   - ?. ?. ?    ?:  Initial tumbling whale demo
8
9set parametric
10set hidden3d
11unset key
12set style data line
13xrot=60
14xrot_delta = 17
15zrot=0
16zrot_delta = 10
17xview(xrot)=(50.+30.*sin((xrot%180)/180.*pi))
18zview(zrot)=(60.+45.*sin(zrot/180.*pi))
19set view xview(xrot),zview(zrot)
20splot "glass.dat"
21
22limit_iterations=40 # limits number of iterations if nonzero
23
24if (!limit_iterations) print "The following animation will never stop on its own. You have"
25if (!limit_iterations) print "to stop it manually by interrupting gnuplot (e.g., press ^C)"
26print "On some screen terminal drivers for PC screens, you'll have"
27print "to hit a key to get to the next frame"
28
29pause -1 "Press a key to start the rotation..."
30
31iteration_count=0
32load "gnuplot.rot"
33reset
34