#---------------------------------------------------------------
#
#     Sample code
#                ----------- The mobuis band. 
# 
#---------------------------------------------------------------

MobuisX(x,y) = cos(x) * (2.0 + y * cos(0.5 * x))
MobuisY(x,y) = sin(x) * (2.0 + y * cos(0.5 * x))	
MobuisZ(x,y) = y * sin(0.5 * x)

mobius = surf{
              [MobuisX(x,y),MobuisY(x,y),MobuisZ(x,y)]
              [x=-pi:pi][y=-0.5:0.5][samp=60:10]
            };
#---------------------------------------------------------------
plot mobius;
#---------------------------------------------------------------
