home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / misc / wingnuplot / demo / multimsh.dem < prev    next >
Text File  |  1995-02-27  |  1KB  |  47 lines
  1. set parametric
  2. set hidden3d
  3. set nokey
  4. set xrange [0:8]
  5. set yrange [-4:4]
  6. set zrange [-2:2]
  7. set data style line
  8. set title "Demo of multiple mesh per file capability - Digitized Blue Whale"
  9. splot "whale.dat"
  10. pause -1 "Press Return"
  11. set title "Demo of multiple mesh per file capability - Digitized Blue Whale"
  12. set xlabel "Mesh or Network 0"
  13. splot "whale.dat" index 0
  14. pause -1 "Press Return"
  15.  
  16. set xlabel "Mesh or Network 6"
  17. splot "whale.dat" index 6 using 3:2:1 
  18. pause -1 "Press Return"
  19.  
  20. set xlabel "Mesh or Network 12"
  21. splot "whale.dat" index 12 with points
  22. pause -1 "Press Return"
  23.  
  24. set xlabel "Mesh or Network 13"
  25. splot "whale.dat" i 13
  26. pause -1 "Press Return - A Loop over Indices could be done with reread"
  27.  
  28. #  #file "loop"
  29. #  maxmsh = 16
  30. #  ind = (ind + 1)%maxmsh
  31. #  splot "whale.dat" i ind
  32. #  reread "loop"
  33.  
  34. set xlabel "Mesh or Network 4"
  35. splot "whale.dat" i 4
  36. pause -1 "Press Return"
  37.  
  38. set xlabel "Mesh or Network 5"
  39. splot "whale.dat" i 5
  40. pause -1 "Press Return"
  41.  
  42. set title ""
  43. set xlabel ""
  44. set nohidden3d
  45. set auto
  46. set nopara
  47.