Moon47 wrote:
> 
> Wow... I like it... What did you do...?

Thank you, but I didn't do much.

I just modified some of Peter's translation 
and rotation statements with some cosine values.


See code below.

Tor Olav
--
mailto:tor### [at] hotmailcom
http://www.crosswinds.net/~tok/tokrays.html


#declare Steps = 1500;
#declare MajorRad = 10;
#declare MinorRad = 2;
#declare Turns = 5;

#declare Circumference = 2*pi*MajorRad;
#declare Thickness = 5*Circumference/Steps;

#declare dDegStep = 360/Steps;
#declare dRadStep = 2*pi/Steps; 

#declare TwistedTorus =
blob {
  threshold 1
  #declare Cnt = 0;
  #while (Cnt < Steps)
    #local RadCnt = Cnt*dRadStep;
    #local DegCnt = Cnt*dDegStep;
    sphere {
      0, 3, 0.125
      scale <2*MinorRad, MinorRad*0.5, Thickness>
      translate x*MinorRad
      rotate 12*cos(Turns*RadCnt)*z
      translate MajorRad*x + MinorRad/8*cos(Turns*RadCnt)*y
      rotate (DegCnt + 8*cos(Turns*RadCnt))*y
    }
    #declare Cnt = Cnt + 1;
  #end
  sturm
}

Post a reply to this message