/*
PLEASE EXCUSE ANY EXTRANEOUS CODE. THE ORIGINAL FILE
WAS GENERATED BY BIOWIN (THE PROGRAM THAT CREATED THE 
SPIRAL OBJECT)

THIS SCENE WAS CREATED BY DAVID R. HEYS
*/

global_settings {assumed_gamma 2.2}

#include "metals.inc"

#declare Bar_Wood1=
 texture {
  pigment {
   wood
   turbulence 0.21
   color_map {
    [0.0 rgb<0.1,0.075,0.0>]
    [0.2 rgb<0.25,0.15,0.0>]
    [0.8 rgb<0.4,0.21,0.0>]
    [1.0 rgb<0.45,0.21,0.0>]
   }
  }
  normal {wood 0.31 turbulence 0.21}
  finish {specular 0.05 roughness 0.1}
  scale <8,5,5>
  rotate <3,3,3>
 }
 texture {
  pigment {
   wood
   turbulence 0.21
   color_map {
    [0.0 rgbt<0.1,0.075,0.0,0.0>]
    [0.2 rgbt<0.25,0.15,0.0,0.8>]
    [0.8 rgbt<0.4,0.21,0.0,0.8>]
    [1.0 rgbt<0.45,0.21,0.0,1.0>]
   }
  }
  scale <8,5,5>
  rotate <4,4,4>
 }
 texture {
  pigment {
   wood
   turbulence 0.21
   color_map {
    [0.0 rgbt<0.2,0.15,0.0,0.0>]
    [0.2 rgbt<0.25,0.15,0.0,0.8>]
    [0.8 rgbt<0.4,0.21,0.0,0.8>]
    [1.0 rgbt<0.45,0.21,0.0,1.0>]
   }
  }
  finish {specular 0.3 roughness 0.001 reflection 0.25}
  scale <8,5,5>
  rotate <5,5,5>
 }

camera { 
  location <-10.0, 22.0, -20>
  direction <0.0, 0.0, 1.2>
  right <1.3, 0.0, 0.0>
  look_at <0.0, 0.0, 0.0>
}

light_source { <-5, 18, -5> color rgb <1.3,.6,.6>
  area_light <-3, 16, -3>, <-7, 20, -7>, 4, 4
  fade_distance 22
  fade_power 5
}
light_source { <0, 18, 5> color rgb <.6,1.3,.6>
  area_light <-2, 16, 3>, <2, 20, 7>, 4, 4
  fade_distance 22
  fade_power 5
}
light_source { <5, 18, -5> color rgb <.6,.6,1.3>
  area_light <3, 16, -3>, <7, 20, -7>, 4, 4
  fade_distance 22
  fade_power 5
}

#declare Torus = torus {0.3, 0.2}
#declare Spik1 =  union {
 sphere { <0, 0, 0>, .5}
 cone {<0,0,0>,0.15, <1.5,0,0>, 0.005}
 cone {<0,0,0>,0.15, <1.5,0,0>, 0.005 rotate <0,0,90>}
 cone {<0,0,0>,0.15, <1.5,0,0>, 0.005 rotate <0,0,180>}
 cone {<0,0,0>,0.15, <1.5,0,0>, 0.005 rotate <0,0,270>}
}
#declare Segment = object {Spik1}
 
#declare PredBase =  object {Torus}
 
#declare W0 = 
 blob{
  threshold 1.5

  sphere {0,1,1
  scale <0.983, 0.992, 0.992>
  rotate < 0, 0, 0>
  translate < -0.171, 0.165, 0.178>
 }
  sphere {0,1,1
  scale <0.967, 0.983, 0.983>
  rotate < 0, 0, 0>
  translate < -0.383, 0.329, 0.296>
 }
  sphere {0,1,1
  scale <0.950, 0.975, 0.975>
  rotate < 0, 0, 0>
  translate < -0.618, 0.492, 0.345>
 }
  sphere {0,1,1
  scale <0.933, 0.967, 0.967>
  rotate < 0, 0, 0>
  translate < -0.853, 0.653, 0.323>
 }
  sphere {0,1,1
  scale <0.917, 0.958, 0.958>
  rotate < 0, 0, 0>
  translate < -1.068, 0.813, 0.233>
 }
  sphere {0,1,1
  scale <0.900, 0.950, 0.950>
  rotate < 0, 0, 0>
  translate < -1.244, 0.971, 0.087>
 }
  sphere {0,1,1
  scale <0.883, 0.942, 0.942>
  rotate < 0, 0, 0>
  translate < -1.367, 1.128, -0.102>
 }
  sphere {0,1,1
  scale <0.867, 0.933, 0.933>
  rotate < 0, 0, 0>
  translate < -1.428, 1.283, -0.316>
 }
  sphere {0,1,1
  scale <0.850, 0.925, 0.925>
  rotate < 0, 0, 0>
  translate < -1.423, 1.438, -0.535>
 }
  sphere {0,1,1
  scale <0.833, 0.917, 0.917>
  rotate < 0, 0, 0>
  translate < -1.354, 1.590, -0.739>
 }
  sphere {0,1,1
  scale <0.817, 0.908, 0.908>
  rotate < 0, 0, 0>
  translate < -1.231, 1.742, -0.911>
 }
  sphere {0,1,1
  scale <0.800, 0.900, 0.900>
  rotate < 0, 0, 0>
  translate < -1.065, 1.892, -1.037>
 }
  sphere {0,1,1
  scale <0.783, 0.892, 0.892>
  rotate < 0, 0, 0>
  translate < -0.872, 2.040, -1.106>
 }
  sphere {0,1,1
  scale <0.767, 0.883, 0.883>
  rotate < 0, 0, 0>
  translate < -0.671, 2.188, -1.116>
 }
  sphere {0,1,1
  scale <0.750, 0.875, 0.875>
  rotate < 0, 0, 0>
  translate < -0.479, 2.333, -1.067>
 }
  sphere {0,1,1
  scale <0.733, 0.867, 0.867>
  rotate < 0, 0, 0>
  translate < -0.314, 2.478, -0.965>
 }
  sphere {0,1,1
  scale <0.717, 0.858, 0.858>
  rotate < 0, 0, 0>
  translate < -0.188, 2.621, -0.821>
 }
  sphere {0,1,1
  scale <0.700, 0.850, 0.850>
  rotate < 0, 0, 0>
  translate < -0.112, 2.763, -0.650>
 }
  sphere {0,1,1
  scale <0.683, 0.842, 0.842>
  rotate < 0, 0, 0>
  translate < -0.090, 2.903, -0.467>
 }
  sphere {0,1,1
  scale <0.667, 0.833, 0.833>
  rotate < 0, 0, 0>
  translate < -0.123, 3.042, -0.289>
 }
  sphere {0,1,1
  scale <0.650, 0.825, 0.825>
  rotate < 0, 0, 0>
  translate < -0.205, 3.179, -0.132>
 }
  sphere {0,1,1
  scale <0.633, 0.817, 0.817>
  rotate < 0, 0, 0>
  translate < -0.327, 3.315, -0.009>
 }
  sphere {0,1,1
  scale <0.617, 0.808, 0.808>
  rotate < 0, 0, 0>
  translate < -0.477, 3.450, 0.071>
 }
  sphere {0,1,1
  scale <0.600, 0.800, 0.800>
  rotate < 0, 0, 0>
  translate < -0.641, 3.583, 0.102>
 }
  sphere {0,1,1
  scale <0.583, 0.792, 0.792>
  rotate < 0, 0, 0>
  translate < -0.803, 3.715, 0.084>
 }
  sphere {0,1,1
  scale <0.567, 0.783, 0.783>
  rotate < 0, 0, 0>
  translate < -0.949, 3.846, 0.021>
 }
  sphere {0,1,1
  scale <0.550, 0.775, 0.775>
  rotate < 0, 0, 0>
  translate < -1.068, 3.975, -0.081>
 }
  sphere {0,1,1
  scale <0.533, 0.767, 0.767>
  rotate < 0, 0, 0>
  translate < -1.149, 4.103, -0.211>
 }
  sphere {0,1,1
  scale <0.517, 0.758, 0.758>
  rotate < 0, 0, 0>
  translate < -1.187, 4.229, -0.355>
 }
  sphere {0,1,1
  scale <0.500, 0.750, 0.750>
  rotate < 0, 0, 0>
  translate < -1.182, 4.354, -0.501>
 }
  sphere {0,1,1
  scale <0.483, 0.742, 0.742>
  rotate < 0, 0, 0>
  translate < -1.134, 4.478, -0.635>
 }
  sphere {0,1,1
  scale <0.467, 0.733, 0.733>
  rotate < 0, 0, 0>
  translate < -1.051, 4.600, -0.746>
 }
  sphere {0,1,1
  scale <0.450, 0.725, 0.725>
  rotate < 0, 0, 0>
  translate < -0.942, 4.721, -0.826>
 }
  sphere {0,1,1
  scale <0.433, 0.717, 0.717>
  rotate < 0, 0, 0>
  translate < -0.817, 4.840, -0.869>
 }
  sphere {0,1,1
  scale <0.417, 0.708, 0.708>
  rotate < 0, 0, 0>
  translate < -0.689, 4.958, -0.873>
 }
  sphere {0,1,1
  scale <0.400, 0.700, 0.700>
  rotate < 0, 0, 0>
  translate < -0.568, 5.075, -0.840>
 }
  sphere {0,1,1
  scale <0.383, 0.692, 0.692>
  rotate < 0, 0, 0>
  translate < -0.466, 5.190, -0.774>
 }
  sphere {0,1,1
  scale <0.367, 0.683, 0.683>
  rotate < 0, 0, 0>
  translate < -0.390, 5.304, -0.684>
 }
  sphere {0,1,1
  scale <0.350, 0.675, 0.675>
  rotate < 0, 0, 0>
  translate < -0.345, 5.417, -0.579>
 }
  sphere {0,1,1
  scale <0.333, 0.667, 0.667>
  rotate < 0, 0, 0>
  translate < -0.333, 5.528, -0.468>
 }
  sphere {0,1,1
  scale <0.317, 0.658, 0.658>
  rotate < 0, 0, 0>
  translate < -0.355, 5.638, -0.363>
 }
  sphere {0,1,1
  scale <0.300, 0.650, 0.650>
  rotate < 0, 0, 0>
  translate < -0.404, 5.746, -0.271>
 }
  sphere {0,1,1
  scale <0.283, 0.642, 0.642>
  rotate < 0, 0, 0>
  translate < -0.477, 5.853, -0.201>
 }
  sphere {0,1,1
  scale <0.267, 0.633, 0.633>
  rotate < 0, 0, 0>
  translate < -0.563, 5.958, -0.157>
 }
  sphere {0,1,1
  scale <0.250, 0.625, 0.625>
  rotate < 0, 0, 0>
  translate < -0.655, 6.063, -0.141>
 }
  sphere {0,1,1
  scale <0.233, 0.617, 0.617>
  rotate < 0, 0, 0>
  translate < -0.745, 6.165, -0.152>
 }
  sphere {0,1,1
  scale <0.217, 0.608, 0.608>
  rotate < 0, 0, 0>
  translate < -0.824, 6.267, -0.188>
 }
  sphere {0,1,1
  scale <0.200, 0.600, 0.600>
  rotate < 0, 0, 0>
  translate < -0.886, 6.367, -0.244>
 }
  sphere {0,1,1
  scale <0.183, 0.592, 0.592>
  rotate < 0, 0, 0>
  translate < -0.928, 6.465, -0.312>
 }
  sphere {0,1,1
  scale <0.167, 0.583, 0.583>
  rotate < 0, 0, 0>
  translate < -0.946, 6.563, -0.386>
 }
  sphere {0,1,1
  scale <0.150, 0.575, 0.575>
  rotate < 0, 0, 0>
  translate < -0.942, 6.658, -0.459>
 }
  sphere {0,1,1
  scale <0.133, 0.567, 0.567>
  rotate < 0, 0, 0>
  translate < -0.918, 6.753, -0.524>
 }
  sphere {0,1,1
  scale <0.117, 0.558, 0.558>
  rotate < 0, 0, 0>
  translate < -0.877, 6.846, -0.576>
 }
  sphere {0,1,1
  scale <0.100, 0.550, 0.550>
  rotate < 0, 0, 0>
  translate < -0.826, 6.938, -0.612>
 }
  sphere {0,1,1
  scale <0.100, 0.542, 0.542>
  rotate < 0, 0, 0>
  translate < -0.767, 7.028, -0.631>
 }
  sphere {0,1,1
  scale <0.100, 0.533, 0.533>
  rotate < 0, 0, 0>
  translate < -0.706, 7.117, -0.632>
 }
  sphere {0,1,1
  scale <0.100, 0.525, 0.525>
  rotate < 0, 0, 0>
  translate < -0.648, 7.204, -0.615>
 }
  sphere {0,1,1
  scale <0.100, 0.517, 0.517>
  rotate < 0, 0, 0>
  translate < -0.599, 7.290, -0.582>
 }
  sphere {0,1,1
  scale <0.100, 0.508, 0.508>
  rotate < 0, 0, 0>
  translate < -0.561, 7.375, -0.536>
 }
  sphere {0,1,1
  scale <0.100, 0.500, 0.500>
  rotate < 0, 0, 0>
  translate < -0.539, 7.458, -0.482>
 }
 }
 

#declare Worm1 = object {W0}
 
#declare WheelWorm =  union {
 object {
 Worm1
  scale <1.000, 1.000, 1.000>
  rotate < 0, 0, 0>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.033, 1.033, 1.033>
  rotate < 0, 0, -12>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.067, 1.067, 1.067>
  rotate < 0, 0, -24>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.100, 1.100, 1.100>
  rotate < 0, 0, -36>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.133, 1.133, 1.133>
  rotate < 0, 0, -48>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.167, 1.167, 1.167>
  rotate < 0, 0, -60>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.200, 1.200, 1.200>
  rotate < 0, 0, -72>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.233, 1.233, 1.233>
  rotate < 0, 0, -84>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.267, 1.267, 1.267>
  rotate < 0, 0, -96>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.300, 1.300, 1.300>
  rotate < 0, 0, -108>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.333, 1.333, 1.333>
  rotate < 0, 0, -120>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.367, 1.367, 1.367>
  rotate < 0, 0, -132>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.400, 1.400, 1.400>
  rotate < 0, 0, -144>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.433, 1.433, 1.433>
  rotate < 0, 0, -156>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.467, 1.467, 1.467>
  rotate < 0, 0, -168>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.500, 1.500, 1.500>
  rotate < 0, 0, -180>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.533, 1.533, 1.533>
  rotate < 0, 0, -192>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.567, 1.567, 1.567>
  rotate < 0, 0, -204>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.600, 1.600, 1.600>
  rotate < 0, 0, -216>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.633, 1.633, 1.633>
  rotate < 0, 0, -228>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.667, 1.667, 1.667>
  rotate < 0, 0, -240>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.700, 1.700, 1.700>
  rotate < 0, 0, -252>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.733, 1.733, 1.733>
  rotate < 0, 0, -264>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.767, 1.767, 1.767>
  rotate < 0, 0, -276>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.800, 1.800, 1.800>
  rotate < 0, 0, -288>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.833, 1.833, 1.833>
  rotate < 0, 0, -300>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.867, 1.867, 1.867>
  rotate < 0, 0, -312>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.900, 1.900, 1.900>
  rotate < 0, 0, -324>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.933, 1.933, 1.933>
  rotate < 0, 0, -336>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 object {
 Worm1
  scale <1.967, 1.967, 1.967>
  rotate < 0, 0, -348>
  rotate < 0, 0, 0>
  translate < 0.000, 0.000, 0.000>
 }
 texture {T_Chrome_5E}
 }

object {WheelWorm
  scale <1, 1, 1>
  rotate 90*x
  rotate -45*y
  translate <0, 0, 0>
 }

plane {y,0 
 texture {Bar_Wood1}
}