git.maemo.org Git - gnuplot/blob - demo/animate.dem

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