multimsh.dem

来自「智能画图软件」· DEM 代码 · 共 50 行

#
# $Id: multimsh.dem,v 1.5 2003/10/28 05:35:54 sfeam Exp $
#
set parametric
set hidden3d
unset key
set xrange [0:8]
set yrange [-4:4]
set zrange [-2:2]
set style data line
set title "Demo of multiple mesh per file capability - Digitized Blue Whale"
splot "whale.dat"
pause -1 "Press Return"
set title "Demo of multiple mesh per file capability - Digitized Blue Whale"
set xlabel "Mesh or Network 0"
splot "whale.dat" index 0
pause -1 "Press Return"

set autoscale z
set xlabel "Mesh or Network 6"
set autoscale z
splot "whale.dat" index 6 using 3:2:1 
pause -1 "Press Return"

set zrange [-2:2]
set xlabel "Mesh or Network 12"
splot "whale.dat" index 12 with points
pause -1 "Press Return"

set xlabel "Mesh or Network 13"
splot "whale.dat" i 13
pause -1 "Press Return - A Loop over Indices could be done with reread"

#  #file "loop"
#  maxmsh = 16
#  ind = (ind + 1)%maxmsh
#  splot "whale.dat" i ind
#  reread "loop"

set xlabel "Mesh or Network 4"
splot "whale.dat" i 4
pause -1 "Press Return"

set xlabel "Mesh or Network 5"
splot "whale.dat" i 5
pause -1 "Press Return"

reset