Des points sur des courbes sur un tore (featpost)
Auteur ou autrice : Luís Nobre Gonçalves.
Mise en ligne le 10 février 2025
Cet exemple illustre l’utilisation du package featpost présent sur le CTAN. Ce package permet de réaliser des
dessins en trois dimensions (et en deux dimensions). Il est très pratique pour
illustrer de la géométrie basique dans l’espace.
Code
% torus.mp
% L. Nobre G.
% 2014
input featpost3Dplus2D;
beginfig(1);
color tmpcolor;
string tmpstr;
Nobjects := 0;
f := ( 3,1,1 );
Spread := 110;
NP:=624;
RB:=1;
RS:=0.2;
R3:=0.1;
NB:=8;
NS:=5;
jB:=360*NB/NP;
jS:=360*NS/NP;
for i=1 upto NP:
phi :=i*jS;
theta :=i*jB;
first :=(RB+(RS+R3*sind(4*theta))*cosd(phi))*cosd(theta);
second:=(RB+(RS+R3*sind(4*theta))*cosd(phi))*sind(theta);
third := (RS+R3*sind(4*theta))*sind(phi);
tmpcolor := (first,second,third);
tmpstr := cstr( tmpcolor );
getready("signalvertex(" & tmpstr &
",1,black);signalvertex(" & tmpstr & ",0.7,white);", tmpcolor );
endfor;
doitnow;
endfig;
end.
Mots clés : 3Dfeatposttorecourbe
Cet exemple fait partie de la collection d’exemples Documentation de featpost.