File:Blue 7 1 Knot Animated.gif

#include "colors.inc"
    
background { color White }

global_settings { assumed_gamma 1.0}

camera
  {
  location <0, 0, -25>
  right <1,0,0> up <0,1,0>
  look_at  <0, 0, 0>
  angle 5
  }

light_source
  {
  <0, 20, -50>
  color White
  area_light <5, 0, 0>, <0, 5, 0>, 10, 10  /* very slow, decrease 10 to 2 for experiments */
  adaptive 3
  }

  
#declare r_tube = 0.05;
#declare num_steps = 70;
#declare step_size = 1/num_steps;

sphere_sweep
  {
  cubic_spline num_steps+3,
  #declare N = -1;
  #while(N <= num_steps + 1)
    #declare theta = 2 * pi * N * step_size;
    <0.3*( (7/3)*sin(2*theta)*(1+(2/7)*cos(7*theta)) ), 0.3*( (7/3)*cos(2*theta)*(1+(2/7)*cos(7*theta)) ), 0.2*sin(7*theta)>, r_tube
    /* uses a hypotrochoid */
    #declare N = N + 1;
  #end
  pigment { color rgb <0,0.25,1> }
  finish          
    {
    ambient 0.15
    diffuse 0.85
    brilliance 2
    phong 0.3
    phong_size 10
    }
  rotate <0,360*clock,0>
  }

plane
  {
  <0,0,-1>, -2.25
  pigment { color White }
  finish
    {
    ambient 0.35
    diffuse 0.65
    }
  }