home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / GNUPDEMO.ZIP / surface2.demo < prev    next >
Text File  |  1992-03-25  |  1KB  |  69 lines
  1. #
  2. # $Id: surface2.demo,v 3.26 92/03/24 22:32:26 woo Exp Locker: woo $
  3. #
  4. set parametric
  5. set samples 50
  6.  
  7. set title "Parametric Sphere"
  8. set urange [-pi/2:pi/2]
  9. set vrange [0:2*pi]
  10. set zrange [-1:1]
  11. set ztics -1.0,0.25,1.0
  12. set view ,,,2.5
  13. splot cos(u)*cos(v),cos(u)*sin(v),sin(u)
  14. pause -1 "Hit return to continue (1)"
  15.  
  16. set view ,,,0.8
  17. replot
  18. pause -1 "Hit return to continue (2)"
  19.  
  20. set view ,,,1.6
  21. replot
  22. pause -1 "Hit return to continue (3)"
  23.  
  24. set view ,,,1.0
  25.  
  26. set title "Parametric Torus"
  27. set urange [0:2*pi]
  28. set vrange [0:2*pi]
  29. splot (1-0.2*cos(v))*cos(u),(1-0.2*cos(v))*sin(u),0.2*sin(v)
  30. pause -1 "Hit return to continue (4)"
  31.  
  32. set title "Parametric Hexagon"
  33. set urange [-1.3:1.3]
  34. set vrange [0:2*pi]
  35. set zrange [-0.6:0.6]
  36. set ztics
  37. splot cos(v)**3*cos(u)**3,sin(v)**3*cos(u)**3,sin(u)**3
  38. pause -1 "Hit return to continue (5)"
  39.  
  40. set title "Parametric Helix"
  41. set samples 100
  42. set urange [0:10*pi]
  43. set vrange [0:2*pi]
  44. set zrange [-0.6:0.6]
  45. splot (1-0.1*cos(v))*cos(u),(1-0.1*cos(v))*sin(u),0.1*(sin(v)+u/1.7-10)
  46. pause -1 "Hit return to continue (6)"
  47.  
  48. set title "Parametric Shell"
  49. set samples 40
  50. set view 50,30,1.0
  51. set urange [0:2*pi]
  52. set vrange [0:2*pi]
  53. set zrange [-3:1.5]
  54. splot cos(u)*u*(1+cos(v)/2),sin(v)*u/2,sin(u)*u*(1+cos(v)/2)
  55. pause -1 "Hit return to continue (7)"
  56.  
  57. #
  58. # Clean up:
  59. #
  60. set noparametric
  61. set dummy x,y
  62. set samples 100
  63. set view 60,30,1,1
  64. set urange [-5:5]
  65. set vrange [-5:5]
  66. set zrange [-10:10]
  67. set auto
  68. set title "" 0,0
  69.