One topic that seems to come up alot is how do I make
a peice of string or cable or rope.
Below find an example of one method that me be employed.
Although not the only method it is at least elegant.

Submitted by

K.Tyler

*******************************
  #include "colors.inc"
  #include "textures.inc"

  camera{location<0,0,-500>look_at<0,0,0>}
  light_source{<0,200,-300>color White}

  #declare AA = union{
  sphere{< 0,0, 0>,5 pigment{Black   }finish{Shiny}}
  sphere{<-4,0, 4>,5 pigment{Red     }finish{Shiny}}
  sphere{<-4,0,-4>,5 pigment{Yellow}finish{Shiny}}
  sphere{< 4,0, 4>,5 pigment{Green  }finish{Shiny}}
  sphere{< 4,0,-4>,5 pigment{Blue
}finish{Shiny}}scale<1,2,1>}

  #declare BB = union{
  sphere{< 0,0, 0>,15}sphere{<-14,0,
14>,15}sphere{<-14,0,-14>,15}
  sphere{<14,0,14>,15}sphere{< 14,0,-14>,15}scale<1,2,1>}

  union{
  #declare CC = 0
  #while (CC<500)
  #declare X1 = x*.001*CC
  #declare Y1 = y*1*CC
  object{AA translate y*-200 translate X1+Y1 rotate X1+Y1}
  #declare CC = CC+3 #end scale 1 translate 100*x}

  union{
  #declare CC = 0
  #while (CC<500)
  #declare X1 = x*.001*CC
  #declare Y1 = y*1*CC
  object{BB translate y*-200 translate X1+Y1 rotate X1+Y1
  texture{pigment{gradient x color_map{[.15 Wheat][.3
LightWood][.45 Straw]
  [.6 LightWood][.75 Straw][.9 LightWood][1 Straw]}rotate
X1+Y1}
  finish{ambient .4 diffuse .2}normal{gradient x rotate
X1+Y1}scale 15}}
  #declare CC = CC+3 #end scale 1 translate 100*-x}

Post a reply to this message