// Last edited on 2003-05-29 01:45:47 by stolfi

#include "colors.inc"

#declare ctr = < 0, 0, 2 >;
#declare cam = <-28,0, 7>;
#declare chao= plane{<0,1,0>,-15 pigment{Red}}
camera {
  location ctr + 1.3*cam
  right -x up y
  look_at ctr
}
light_source { ctr + 10*(cam + 50*y) color 0.5*White }
light_source { ctr + 10*(vrotate(cam, 20*y) + 10*y) color 1.2*White }
light_source { ctr + 10*(vrotate(cam, -90*y) +5*y) color 0.8*White }

background{ (0.8*Green+(clock/3))}

#declare orelha = sphere{<-2.5,13,-0.5>,2 pigment {Brown}}
#declare olho= sphere{<-1,10,3.5>,0.5 pigment{Blue}}
#declare cabeca= union{sphere{<0,10,0>,4 pigment{Brown}}
				object{orelha}
				object{orelha scale<-1,1,1>}
				object{olho}
				object{olho scale<-1,1,1>}
				}
#declare corpo = cylinder{<0,6.5,0>,<0,-6,0>,5 pigment{Yellow}}
#declare angulope=sin(25/clock);
#declare angulojo=sin(30/clock);
#declare anguloper=sin(35/clock);
#declare pe= sphere{<-3,-14,0>,1.5 pigment{Gray} scale<1,1,5>}
#declare batata=union{cylinder{<-3,-10,0>,<-3,-14,0>,2.5 pigment{Gray}}
			object{pe translate<0,4,0> rotate angulope translate<0,-4,0>}
			}
#declare perna = union{cylinder{<-3,-5,0>,<-3,-11,0>,2.5 pigment{Gray}}
			object{batata translate<0,5,0> rotate angulojo translate<0,-5,0>}
			}
#declare braco=cylinder{<2,6,0>,<6,0,0>,2 pigment{Gray}}

object{chao}
union{
object{corpo}
object{cabeca}
object{perna translate<3,11.5,0> rotate anguloper translate<-3,-11.5,0>}
object{perna translate<3,11.5,0> rotate anguloper
translate<-3,-11.5,0 >scale<-1,1,1>}
object{braco}
object{braco scale<-1,1,1>}
translate<0.3*clock,0,0.2*clock>
}