[q-lang-cvs] qcalc/examples world.dat, NONE, 1.1 world.qcalc, NONE, 1.1

[Albert G. <ag...@us...>]

Update of /cvsroot/q-lang/qcalc/examples
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv28155

Added Files:
	world.dat world.qcalc 
Log Message:
add animated globe gnuplot example

--- NEW FILE: world.dat ---
#
# World map data from the gnuplot distribution (http://www.gnuplot.info).
# $Id: world.dat,v 1.1 2007/12/06 02:19:40 agraef Exp $
#
-92.32  48.24
-88.13  48.92
-83.11  46.27
-81.66  44.76
-82.09  42.29
-77.10  44.00
-69.95  46.92
-65.92  45.32
-66.37  44.25
-61.22  45.43
-64.94  47.34
-64.12  48.52
-70.68  47.02
-67.24  49.33
-59.82  50.48
[...1285 lines suppressed...]
-69.34 -70.13

-49.20 -77.83
-44.59 -78.79
-44.14 -80.13
-59.04 -79.95
-49.28 -77.84
-48.24 -77.81

-58.13 -80.12
-63.25 -80.20
-58.32 -80.12

-163.64 -78.74
-161.20 -79.93
-163.62 -78.74

 66.82  66.82
 66.82  66.82


--- NEW FILE: world.qcalc ---
// qcalc 1.0, created Thu Dec  6 03:24:05 2007 -*-Q-*- -*- coding: UTF-8 -*-
// [((1,0),"= hslider (0,180,1,60)"),((1,1),"= hslider (0,360,1,136)"),((1,2),"= animate"),((2,0),("= globe A2 B2",1,3))]
// [(2,238)]
// []
// Start of script. Please do not remove this line.

/* This was shamelessly pilfered from animate2.dem in the
   gnuplot distribution. */

import calclib;

/* Render the globe (world map data is in world.dat). */

globe XR ZR = gnuplot (sprintf "\
unset title\n\
unset key\n\
unset xtics\n\
unset ytics\n\
unset ztics\n\
set border 0\n\
set hidden3d nooffset\n\
set parametric\n\
set angles degrees\n\
set samples 64,64\n\
set isosamples 13,13\n\
set mapping spherical\n\
set dummy u,v\n\
set urange [ -90.0000 : 90.0000 ] noreverse nowriteback\n\
set vrange [ 0.00000 : 360.000 ] noreverse nowriteback\n\
set style data line\n\
set view %d, %d, 2, 1\n\
set size square\n\
\n\
splot cos(u)*cos(v),cos(u)*sin(v),sin(u) notitle with lines lt 5, \
      'world.dat' notitle with lines lt 2 lw 3\n" (XR,ZR)) ();

/* Taskbutton to do a little animation. */

animate			= taskbutton "&Animate" (start (get task_input));
start true		= running time 136 (try task_input);
running T Z false	= ();
running T Z _		= setval 'B2 Z || sleep (T+0.1-time) ||
             		  running time ((Z+355) mod 360) (try task_input);