K. Tyler wrote:

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

  Sure.. that's a way to do it. I honestly think a much simpler way is
translating and rotating spheres with a high density, so the string
looks solid... I can send you an example if you like, mr Tyler.

CU around,
JK

Post a reply to this message