WelcomePhysicsProgrammingPhotographyMeFractalsMisc

Vectors on a cylindrical surface

Vector

POV-Ray 3.5 source vector.pov:

#include "colors.inc"
#include "math.inc"

global_settings { assumed_gamma 1.0 }

camera {
  location <2,7,12>
  look_at y
  angle 10
  up y right 2*x
}

light_source { <5,20,12> rgb 1 }

background { White } 

union {
  #declare J = 0;
  #while( J <= 15 )
    #declare K = 0;
    #while( K < 60 )
      #declare Z = -1.0 + 2.0 * J/15.0;
      #declare phi = 2*pi * K/60.0;
      #declare X = cos(phi);
      #declare Y = sin(phi);
      #declare R = 1.0+0.2*cos(pi*Z)*cos(2*phi);
      cylinder { <X,Z,Y>, <R*X,Z,R*Y>, 0.015 }
      #declare K = K + 1;
    #end
    #declare J = J + 1;
  #end
  texture {
    pigment { color Green }
    finish { specular 1 }
  }
}

cylinder { y, -y, 1 open pigment { color White } }