Image:3D-Link.PNG

From Wikipedia, the free encyclopedia

Contents

[edit] Summary

Two curves with linking number 4. Created with POV-Ray.

[edit] Licensing

[edit] Notes

Made with POVRay for Windows, version 3.6.

[edit] Source Code

#include "colors.inc"

#declare AxisLength = 3;
#declare FrameWidth = 0.01;

global_settings { assumed_gamma 1.0}

plane { <0,0,1>, -0.5 pigment {color rgb <.9,.9,.9> } finish {ambient 0.4 diffuse 0.5} }
  
camera { location <0.1,0.5,4.5> sky <0,0,1> right <-1,1,0>/sqrt(2) look_at <0,0,0> }

light_source { <0, -2, 10> color White area_light <1, 0, 0>, <0, 1, 0>, 3, 3 adaptive 1 jitter }

#declare R = 1.5;  // radius to center circle of torus
#declare r = 0.5;  // radius of torus cross-section  
#declare r_tube = 0.1;  // thickness of tube
              
#macro tpoint(theta,phi)
  <(R + r*cos(phi))*cos(theta), (R + r*cos(phi))*sin(theta), r*sin(phi)>
#end

sphere_sweep
  {
  cubic_spline 35,
  tpoint( -pi/16,  -pi/4), r_tube,
  tpoint(0*pi/16, 0*pi/4), r_tube,
  tpoint(1*pi/16, 1*pi/4), r_tube,
  tpoint(2*pi/16, 2*pi/4), r_tube,
  tpoint(3*pi/16, 3*pi/4), r_tube,
  tpoint(4*pi/16, 4*pi/4), r_tube,
  tpoint(5*pi/16, 5*pi/4), r_tube,
  tpoint(6*pi/16, 6*pi/4), r_tube,
  tpoint(7*pi/16, 7*pi/4), r_tube,
  tpoint(8*pi/16, 8*pi/4), r_tube,
  tpoint(9*pi/16, 9*pi/4), r_tube,
  tpoint(10*pi/16, 10*pi/4), r_tube,
  tpoint(11*pi/16, 11*pi/4), r_tube,
  tpoint(12*pi/16, 12*pi/4), r_tube,
  tpoint(13*pi/16, 13*pi/4), r_tube,
  tpoint(14*pi/16, 14*pi/4), r_tube,
  tpoint(15*pi/16, 15*pi/4), r_tube,
  tpoint(16*pi/16, 16*pi/4), r_tube,
  tpoint(17*pi/16, 17*pi/4), r_tube,
  tpoint(18*pi/16, 18*pi/4), r_tube,
  tpoint(19*pi/16, 19*pi/4), r_tube,
  tpoint(20*pi/16, 20*pi/4), r_tube,
  tpoint(21*pi/16, 21*pi/4), r_tube,
  tpoint(22*pi/16, 22*pi/4), r_tube,
  tpoint(23*pi/16, 23*pi/4), r_tube,
  tpoint(24*pi/16, 24*pi/4), r_tube,
  tpoint(25*pi/16, 25*pi/4), r_tube,
  tpoint(26*pi/16, 26*pi/4), r_tube,
  tpoint(27*pi/16, 27*pi/4), r_tube,
  tpoint(28*pi/16, 28*pi/4), r_tube,
  tpoint(29*pi/16, 29*pi/4), r_tube,
  tpoint(30*pi/16, 30*pi/4), r_tube,
  tpoint(31*pi/16, 31*pi/4), r_tube,
  tpoint(32*pi/16, 32*pi/4), r_tube,
  tpoint(33*pi/16, 33*pi/4), r_tube
  finish {phong 1} pigment {color Blue}
  }
  

sphere_sweep
  {
  cubic_spline 35,
  tpoint( -pi/16, 3*pi/4), r_tube,
  tpoint(0*pi/16, 4*pi/4), r_tube,
  tpoint(1*pi/16, 5*pi/4), r_tube,
  tpoint(2*pi/16, 6*pi/4), r_tube,
  tpoint(3*pi/16, 7*pi/4), r_tube,
  tpoint(4*pi/16, 8*pi/4), r_tube,
  tpoint(5*pi/16, 9*pi/4), r_tube,
  tpoint(6*pi/16, 10*pi/4), r_tube,
  tpoint(7*pi/16, 11*pi/4), r_tube,
  tpoint(8*pi/16, 12*pi/4), r_tube,
  tpoint(9*pi/16, 13*pi/4), r_tube,
  tpoint(10*pi/16, 14*pi/4), r_tube,
  tpoint(11*pi/16, 15*pi/4), r_tube,
  tpoint(12*pi/16, 16*pi/4), r_tube,
  tpoint(13*pi/16, 17*pi/4), r_tube,
  tpoint(14*pi/16, 18*pi/4), r_tube,
  tpoint(15*pi/16, 19*pi/4), r_tube,
  tpoint(16*pi/16, 20*pi/4), r_tube,
  tpoint(17*pi/16, 21*pi/4), r_tube,
  tpoint(18*pi/16, 22*pi/4), r_tube,
  tpoint(19*pi/16, 23*pi/4), r_tube,
  tpoint(20*pi/16, 24*pi/4), r_tube,
  tpoint(21*pi/16, 25*pi/4), r_tube,
  tpoint(22*pi/16, 26*pi/4), r_tube,
  tpoint(23*pi/16, 27*pi/4), r_tube,
  tpoint(24*pi/16, 28*pi/4), r_tube,
  tpoint(25*pi/16, 29*pi/4), r_tube,
  tpoint(26*pi/16, 30*pi/4), r_tube,
  tpoint(27*pi/16, 31*pi/4), r_tube,
  tpoint(28*pi/16, 32*pi/4), r_tube,
  tpoint(29*pi/16, 33*pi/4), r_tube,
  tpoint(30*pi/16, 34*pi/4), r_tube,
  tpoint(31*pi/16, 35*pi/4), r_tube,
  tpoint(32*pi/16, 36*pi/4), r_tube,
  tpoint(33*pi/16, 37*pi/4), r_tube
  finish {phong 1} pigment {color Red}
  }

Complied to 600 x 600, with 0.3 anti-aliasing

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeDimensionsUserComment
current06:56, 7 September 2007600×600 (165 KB)Jim.belk (Talk | contribs)
04:01, 7 September 20071,080×1,080 (1.01 MB)Jim.belk (Talk | contribs) (Two curves with linking number 4. Created with POV-Ray.)

The following pages on the English Wikipedia link to this file (pages on other projects are not listed):