GALERIE    EN COURS    SCENES    MACROS    GUIDE    A PROPOS


Courbe de "Basit Uzay"



Cette courbe est définie par l'équation suivante :
$$\begin{align} x &= 3cos(t) - 2sin(5t)\\y &= 3sin(t) + 2cos(5t)\\z &= cos(6t)\\\\t &\in 0 .. 2\pi\end{align}$$


Script :
#declare deuxpi = 2*pi;
#declare r = 0.20;

#declare currentPt = <0.00, 0.00, 0.00>;
#declare previousPt = <0.00, 0.00, 0.00>;
#declare theColor = rgb <0.00, 0.00, 0.00>;

#declare i=0;
#declare step=pi/250;
#while (i < deuxpi)
  #set theColor = rgb CH2RGB(degrees(i));
  #set currentPt = <3*cos(i) - 2*sin(5*i), 3*sin(i) + 2*cos(5*i), cos(6*i)>;
  sphere { currentPt, r pigment { theColor } finish { courbeFinish } }
  #if(i!=0)
    cylinder {
      previousPt, currentPt, r
      pigment { theColor }
      finish { courbeFinish }
      }
  #end
  #set previousPt = currentPt;
  #set i=i+step;
#end
-- Mêmes remarques que les courbes précédentes.

On obtient alors l'image suivante :
basit uzay