## $Id: world.dem,v 1.8 2003/10/28 05:35:54 sfeam Exp $##set title "Gnuplot Correspondences"unset keyunset borderunset yzeroaxisunset xticsunset ytics## plot world map and correspondent locations as a +plot 'world.dat' with lines 3 4, 'world.cor' with points 1 2set title ""set key onset borderset yzeroaxisset xticsset yticspause -1 "Hit return to continue"## plot a '3D version using spherical coordinate system' of the world.set angles degreesset title "3D version using spherical coordinate system"set ticslevel 0set view 70,40,0.8,1.2set mapping sphericalset parametricset samples 32set isosamples 9set urange [-90:90]set vrange [0:360]splot cos(u)*cos(v),cos(u)*sin(v),sin(u) with lines 5 6,\'world.dat' with lines 3 4, 'world.cor' with points 1 2pause -1 "Hit return to continue"# HBB 20000715: new demo:# same plot, but with hidden3d active, plus axes through the# poles:set title "3D solid version through hiddenlining"set hidden3dset arrow from 0,0,-1.2 to 0,0,1.2 lt 5 lw 2set arrow from -1.2, 0, 0 to 1.2, 0, 0 nohead lt 5 lw 1 set arrow from 0, -1.2, 0 to 0, 1.2, 0 nohead lt 5 lw 1splot cos(u)*cos(v),-cos(u)*sin(v),sin(u) with lines 5 6,\'world.dat' u 1:2:(1.001) with lines 3 4, 'world.cor' with points 1 2pause -1 "Hit return to continue"unset arrowunset hidden## plot a '3D version using cylindrical coordinate system' of the world.set title "3D version using cylindrical coordinate system"set ticslevel 0.0set view 70,40,0.8,1.2set mapping cylindricalset parametricset samples 32set isosamples 9set urange [-180:180]set vrange [-90:90]splot cos(u),sin(u),v with lines 5 6,\'world.dat' with lines 3 4, 'world.cor' with points 1 2pause -1 "Hit return to continue"reset