POV-Ray : Newsgroups : povray.newusers : Helixes : Re: Helixes Server Time
29 Jul 2024 22:32:23 EDT (-0400)
  Re: Helixes  
From: Stephen McAvoy
Date: 7 Feb 2005 00:54:50
Message: <9l0e019j6td8vnhg9t65223v7aknvk5tpn@4ax.com>
On Sun, 6 Feb 2005 21:46:02 +0100, "Oleguer Vilella"
<ole### [at] infonegociocom> wrote:

>Any ideas about my question?

Here is a macro given to me by Frank Sputnik some time ago. It is set
up for Moray so I have included the camera and lights. (Moray uses an
alternative coordinate system)
To increase the gap make SpringHeight > 2;

camera {  //  Camera Camera01
  location  <    -11.670,      -2.337,       3.715>
  sky       <    0.00000,     0.00000,     1.00000> // Use right
handed-system 
  up        <        0.0,         0.0,         1.0> // Where Z is up
  right     <    1.35783,         0.0,         0.0> // Right Vector is
adjusted to compensate for spherical (Moray) vs. planar (POV-Ray)
aspect ratio
  angle         39.60000    // Vertical      29.700
  look_at   <     -0.009,      -2.008,      -0.258>
}


light_source {   // Light001
  <0.0, 0.0, 0.0>
  color rgb <1.000, 1.000, 1.000>
  photons {
  }
  translate  <-14.750343, -4.685895, 19.073553>
}

// Spring
#declare SpringHeight = 2;
#declare SpringMajorRadius = 1;
#declare SpringMinorRadius = .1;
#declare SpringRevolutions = 10;
#declare SpringSegments = 1000;

union
{
  #declare Ind = 0;
  #while(Ind <= SpringSegments)
    #declare Pos2 =
      vrotate(<SpringMajorRadius, SpringHeight*Ind/SpringSegments, 0>,
              y*360*SpringRevolutions*Ind/SpringSegments);
    #if(Ind > 0)
      cylinder { Pos1, Pos2, SpringMinorRadius }
      sphere { Pos2, SpringMinorRadius }
    #end
    #declare Pos1 = Pos2;
    #declare Ind = Ind+1;
  #end

  pigment { rgb 1 } finish { specular .5 }
  translate -y*4
}



Regards
        Stephen


Post a reply to this message

Copyright 2003-2023 Persistence of Vision Raytracer Pty. Ltd.