#include "colors.inc" // base colors
#include "stones.inc" // stone texture for ref sphere
#include "chain.inc"  // chain definition

#declare Chain_Gold = texture {
  pigment { BrightGold }
  finish {
    ambient .1
    diffuse .4
    reflection .25
    specular 1
    metallic
  }
}

#declare Chain_Silver = texture {
  pigment { White }
  finish {
    ambient .1
    diffuse .4
    reflection .45
    specular 1
    metallic
  }
}

camera {
  location <0, 4, -25>
  look_at <0, 3, 0>
  angle 40
}

sky_sphere {
  pigment {
    gradient y
    color_map { [0.0 Blue] [0.5 White] [1.0 White] }
  }
}

light_source { <300, 300, -1000> White }

plane {
  y, 0
  texture {
    pigment {checker color White color Blue}
    finish {reflection 0.2}
  }
}

#declare SwingAngle = sin(clock * pi * 2)*30;

#declare TheChainAng = 0;
object {
  ChainTwist(0, 7, TheChainAng)
  texture {Chain_Silver}
  rotate <0, 0, 180 + SwingAngle>
  translate <0, 8, 0>
}

object {
  Chain(0, 20)
  texture {Chain_Gold}
  rotate y* 90
  translate <0, 8, 0>
}

sphere {
  y* -6, 1 
  texture { T_Stone12 }
  rotate y* TheChainAng
  rotate z* SwingAngle
  translate y* 8
}

/* union {
  sphere { <0, 0, 0> , .5
    pigment {
      bozo
      color_map {
        [0/3 Red  ]
        [1/3 Green  ]
        [2/3 Blue ]
        [3/3 Yellow ]
      }
      scale .25
    }
    rotate x* 90
    rotate z* clock * 360 * 12
    translate <0, .5, -6>
  }
  cylinder {
    0, z* -6, .1
    texture { T_Stone5 }
    translate y* .5
  }
  cylinder {
    0, y* .6, .1
    texture { T_Stone5 }
  }
  rotate y* clock*360
} */