// Wire '98.06
// By Tsutomu HIGO  E-mail: nj2t-hg@asahi-net.or.jp

#version 3.0
global_settings { assumed_gamma 2.2 }

#include "colors.inc"

camera {
    location <100,0,-100>//<20, 40, -40>
    angle 20
    look_at <-40, 18, 0>
    }

light_source {<50, 100, 50> color White}
light_source {<20, 30, 18> color White}

#declare Cn =1 #while (Cn < 3)
  #declare R1 = seed(Cn*5)
  #declare Xr =0
  #declare Yr =0
  #declare Xp =0
  #declare Yp =0
  #declare Zp =0
  #declare Cend =900
  #declare Ct =0 #while (Ct < Cend+1)
    #declare Xr =Xr+15*rand(R1)
    #declare Yr =Yr+20*rand(R1)
    #if (Ct=Cend)
        cylinder {<0,-0.1,0>,<0,4.1,0>, 0.2 rotate <Xr,Yr,0> translate <Xp,Yp,Zp> rotate z*90
          pigment {color rgb <0.5, 0.2, 0>}
          finish {
            ambient 0.1
            crand 0.01
            reflection 2
            specular 1.0
            brilliance 1.0
            }
          }
        cylinder {<0,0.1,0>,<0,-4.1,0>, 0.2 rotate <Xr,Yr,0> translate <-Xp,-Yp,-Zp> rotate z*90
          pigment {color rgb <0.5, 0.2, 0>}
          finish {
            ambient 0.1
            crand 0.01
            reflection 2
            specular 1.0
            brilliance 1.0
            }
          }
    #else
        cylinder {<0,-0.1,0>,<0,1.1,0>, 0.3 rotate <Xr,Yr,0> translate <Xp,Yp,Zp> rotate z*90
          pigment {color rgb <2-Cn, 0, Cn-1>}
          finish {
            ambient 0.5
            crand 0.1
            reflection 0.2
            specular 1.0
            brilliance 1.0
            }
          }
        cylinder {<0,0.1,0>,<0,-1.1,0>, 0.3 rotate <Xr,Yr,0> translate <-Xp,-Yp,-Zp> rotate z*90
          pigment {color rgb <2-Cn, 0, Cn-1>}
          finish {
            ambient 0.5
            crand 0.1
            reflection 0.2
            specular 1.0
            brilliance 1.0
            }
          }
    #end
    #declare Xp =Xp+sin(Xr*pi/180)*sin(Yr*pi/180)
    #declare Yp =Yp+cos(Xr*pi/180)
    #declare Zp =Zp+sin(Xr*pi/180)*cos(Yr*pi/180)
  #declare Ct = Ct+1 #end
#declare Cn = Cn+1 #end