// Last edited on 2003-05-29 19:49:38 by stolfi

#include "colors.inc"

background{White}

camera {
  location  <  0.00, -0.50, -15.00 >
  right x   up y
  sky       y
  look_at   <  2.00, 0.00, 0.00 >
}

light_source { 50*<15, 5, -25> color 1.2*White }
light_source { 50*<-12, 5, -25> color 0.7*White }
light_source { 50*<0, 60, -25> color 0.8*White }

plane { y,-6 pigment{ checker color Green, color Yellow scale 3 } }

#declare pe =
cylinder {
	<0, 0, 0>,
	<2, 0, 0>,
	.5
	pigment { color rgb <0.5,0.5,1.0> }
}


#declare perna =
cylinder {
	<0, 0, 0>,
	<5, 0, 0>,
	.7
	pigment {Brown}
}


#declare perna_pe =
union {
	object { perna }

	#if (clock < 0.5)
		object { pe rotate <0, 0, 45 + 180*clock> translate <5, 0, 0>}
	#else
		object { pe rotate <0, 0, 135 - 90*clock> translate <5, 0 ,0>}
	#end
}


#declare coxa =
cylinder {
	<0, 0, 0>,
	<7, 0, 0>,
	.9
	pigment {Red}
}

#declare coxa_perna_pe =
union {
	object { coxa }

	#if (clock < 0.5)
		object { perna_pe rotate <0, 0, -160*clock> translate <7, 0, 0>}
	#else
		object { perna_pe rotate <0, 0, -160 + 160*clock> translate <7, 0, 0>}
	#end
}


#declare andarilho =
union {
	box {
		<-1, 0, 1>,
		<1, 5, -3>
		pigment {Yellow}
	}
	
	#if (clock < 0.5)
		object { coxa_perna_pe scale <.5,.5,.5> rotate <0, 0, -60-60*clock> }
	#else
		object { coxa_perna_pe scale <.5,.5,.5> rotate <0, 0, -90+30*clock> }
	#end
}

object { andarilho translate <5*clock, 0, 0>}