Annotation of OpenXM_contrib/gnuplot/demo/surface2.dem, Revision 1.1
1.1 ! maekawa 1: #
! 2: # $Id: surface2.dem,v 1.4 1997/04/05 19:44:49 drd Exp $
! 3: #
! 4: set parametric
! 5: set isosamples 50,10
! 6: set hidden
! 7:
! 8: set title "Parametric Sphere"
! 9: set urange [-pi/2:pi/2]
! 10: set vrange [0:2*pi]
! 11: set zrange [-1:1]
! 12: set ztics nomirror -1.0,0.25,1.0
! 13: set view 45,50,,2.5
! 14: splot cos(u)*cos(v),cos(u)*sin(v),sin(u)
! 15: pause -1 "Hit return to continue (1)"
! 16:
! 17: set view ,,,0.8
! 18: replot
! 19: pause -1 "Hit return to continue (2)"
! 20:
! 21: set view ,,,1.6
! 22: replot
! 23: pause -1 "Hit return to continue (3)"
! 24:
! 25: set view ,,,1.0
! 26:
! 27: set title "Parametric Torus"
! 28: set urange [0:2*pi]
! 29: set vrange [0:2*pi]
! 30: splot (1-0.2*cos(v))*cos(u),(1-0.2*cos(v))*sin(u),0.2*sin(v)
! 31: pause -1 "Hit return to continue (4)"
! 32:
! 33:
! 34: set view ,,,2.0
! 35:
! 36: set title "Parametric Hexagon"
! 37: set urange [-1.3:1.3]
! 38: set vrange [0:2*pi]
! 39: set zrange [-0.6:0.6]
! 40: set zrange [-1:1]
! 41: set ztics autofreq
! 42: splot cos(v)**3*cos(u)**3,sin(v)**3*cos(u)**3,sin(u)**3
! 43: pause -1 "Hit return to continue (5)"
! 44:
! 45: set view ,,,1.5
! 46:
! 47: set title "Parametric Helix"
! 48: set isosamples 100,20
! 49: set urange [0:10*pi]
! 50: set vrange [0:2*pi]
! 51: set autoscale z
! 52: splot (1-0.1*cos(v))*cos(u),(1-0.1*cos(v))*sin(u),0.1*(sin(v)+u/1.7-10)
! 53: pause -1 "Hit return to continue (6)"
! 54:
! 55: set view ,,,1.0
! 56:
! 57: set title "Parametric Shell (cut by hidden3d)"
! 58: set isosamples 40,20
! 59: set view 50,30,1.0
! 60: set urange [0:2*pi]
! 61: set vrange [0:2*pi]
! 62: set zrange [-3:1.5]
! 63: splot cos(u)*u*(1+cos(v)/2),sin(v)*u/2,sin(u)*u*(1+cos(v)/2)
! 64: pause -1 "Hit return to continue (7)"
! 65:
! 66: set autoscale z
! 67: set title "Parametric Shell"
! 68: replot
! 69: pause -1 "Hit return to continue (8)"
! 70:
! 71: set title "Interlocking Tori"
! 72:
! 73: set urange [-pi:pi]
! 74: set vrange [-pi:pi]
! 75: set isosamples 50,20
! 76: splot cos(u)+.5*cos(u)*cos(v),sin(u)+.5*sin(u)*cos(v),.5*sin(v) with lines, 1+cos(u)+.5*cos(u)*cos(v),.5*sin(v),sin(u)+.5*sin(u)*cos(v) with lines
! 77: pause -1 "Hit return to continue (9)"
! 78:
! 79: #
! 80: # Clean up:
! 81: #
! 82: set noparametric
! 83: set dummy x,y
! 84: set isosamples 10,10
! 85: set view 60,30,1,1
! 86: set urange [-5:5]
! 87: set vrange [-5:5]
! 88: set zrange [-10:10]
! 89: set auto
! 90: set title "" 0,0
! 91: set nohidden
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>