#include "colors.inc"
#include "woods.inc"

#macro parts(r)
sphere_sweep{  
  linear_spline
  2,
  <0,0,0>,r
  <0,-2,0>,r
  }
#end

background { color Cyan }

camera{
 location <10,4,-10>
 look_at<0,0,0>
 angle 90
 }

plane{
 <0,1,0>, -5.5
 pigment { checker color White color Black}
}

light_source{ < 10,10,-10> color White}
light_source{ <-10,10,-10> color White}
light_source{ < 0,5,-10> color White}


union{

cylinder{            // Body
 <0,-1,0>,<0,3,0>,1
 scale<1,1,0.3> texture{T_Wood20}  }

sphere{             // Head
 <0,0,0>,1.0  texture{T_Wood15}
 translate<0,4,0>
 }
 

union{            // right_leg
 object{ parts(0.4) }     // upper
 object{ parts(0.4)       // lower
    translate <0,-2,0> }
 pigment { color Blue}
 translate<-0.5,-1,0> 
}

union{            // left_leg
 object{ parts(0.4) }   // upper
 object{ parts(0.4)     // lower
    translate <0,-2,0> }
 pigment { color Blue}
 translate<0.5,-1,0> 
} 
 
union{            // right_hand
 object{ parts(0.4) }   // upper
 object{ parts(0.4)     // lower
 
//   rotate<0,0,-90>     // attension !!

   translate <0,-2,0>}
 pigment { color Blue}

// rotate<0,0,-90>       // attension!!

 translate<-1.3,2.7,0> 
}

union{            // left_hand
 object{ parts(0.4) }   // upper
 object{ parts(0.4)    // lower
    translate <0,-2,0> }
 pigment { color Blue}
 translate<1.3,2.7,0> 
} 


}