RA - 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;
 

##### SOURCE END #####
--></body></html>