#------------------------------------------------------------
#
#     Sample code
#                ----------- 2d contours
#
#------------------------------------------------------------
# Want to find the contours for 
# f(x,y) = sin(x) * cos(x*y)
#

cont2d = cont{
          [sin(x)*cos(x*y)]
          [x=0:2*pi][y=0:6][samp=60:60]
          [number_of_contours=20]
          [contour_values: 0.0:0.9:-0.9]
          [axes: automatic]
         };
#------------------------------------------------------------
center;
plot2d cont2d;
#------------------------------------------------------------

