function demoRevolutionSurface(varargin)
%DEMOREVOLUTIONSURFACE  One-line description here, please.
%   output = demoRevolutionSurface(input)
%
%   Example
%   demoRevolutionSurface
%
%   See also
%
%
% ------
% Author: David Legland
% e-mail: david.legland@nantes.inra.fr
% Created: 2007-04-20
% Copyright 2007 INRA - BIA PV Nantes - MIAJ Jouy-en-Josas.


%% Draw a torus with horizontal axis as revolution axis

circle  = circleToPolygon([10 0 3], 50);
[x y t] = revolutionSurface(circle, linspace(0, 4*pi/3, 50));

figure;
surf(x, y, t);
axis equal;
 


%% Draw a torus with vertical axis as revolution axis

circle  = circleToPolygon([10 0 3], 50);
revol   = [0 0 0 1];
[x y t] = revolutionSurface(circle, revol, linspace(0, 4*pi/3, 50));

figure;
surf(x, y, t);
axis equal;
 
