File:Blue 7 1 Knot.png

 

Esta imagen fue creada con POV-Ray.

Resumen[editar]

Licencia[editar]

Yo, el titular de los derechos de autor de esta obra, lo libero al dominio público. Esto aplica en todo el mundo. En algunos países esto puede no ser legalmente factible; si ello ocurriese: Concedo a cualquier persona el derecho de usar este trabajo para cualquier propósito, sin ningún tipo de condición al menos que éstas sean requeridas por la ley.

Source[editar]

This image was created using POV-Ray for Windows, version 3.6. The image was rendered to an 1800 x 1800 square, using 0.3 anti-aliasing.

#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
    }
  }

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