Return to surface2.dem CVS log

Up to [local] / OpenXM_contrib / gnuplot / demo

Annotation of OpenXM_contrib/gnuplot/demo/surface2.dem, Revision 1.1.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