tapaboca:: Color -> Fig
tapaboca(c)= juntar(juntar(juntar(juntar(color(circ(5),c),juntar(mover(circ(0.5),(2,2)),
mover(circ(0.5),(-2,2)))),mover(rect(6,4),(0,-1))),color(segmento((3,-1),(5,1)),Blanco)),
color(segmento((-3,-1),(-5,1)),Blanco))

{- se ejecuta con tapaboca(uncolor), por ejemplo tapaboca(Blanco) -}

{-                    CASA                       -}
casa :: () -> Fig
casa ()= juntar(juntar(base, mover(rect(1.5,3),(1,-0.5))), mover(rect(2,1),(-1.125,0.5)))
      donde base= juntar(color(rect(6,4),Azul) , color(poli((3,2):(-3,2):(0,4):[]),Rojo) )
      
{- casa() -}      

cilindroColor :: R X R X R X R X R X R -> Fig3D
cilindroColor (a,b,c,d,e,f) = color3D(juntarFigEn3D(circ(a),circ(b),c),rgb(d,e,f))

nieve :: () -> Fig3D
nieve()=escalar3D(juntar3D(juntar3D(juntar3D(juntar3D(esfera(10),juntar3D(mover3D(esfera(6),(0,0,14)), 
mover3D(cilindroColor(35,120,78,2,4,10),(0,0,22)))),mover3D(cilindroColor(35,120,78,8,8,1),(0,0,19))) , 
juntar3D(mover3D(color3D(esfera(1),Negro),(5,-3,15)),mover3D(color3D(esfera(1),Negro),(5,3,15)))),
mover3D(color3D(rotar3D(juntarFigEn3D(circ(1),circ(0),5),(0,-90,0)),Rojo),(8,0,14))), 0.5)


{- nieve() -}

uno1 :: R -> Fig
uno1 (x)=juntar(color(juntar(rect(x,4*x),mover(rect(3*x,x),(0,-2*x))),Rojo),color(mover(rect(2*x,x),(-x/2,3/2*x)),Rojo ) )

aro :: R -> Fig
aro (x) = juntar(color(circ(4.5*x),Rojo),color(circ(3.5*x),Blanco))

uno :: R -> Fig
uno (x)=juntar(aro(x),uno1(x))

{- uno (real) por ejemplo, uno(2.5) -}

chirimbolo :: ()-> Fig3D
chirimbolo () =juntar3D (juntar3D (( mover3D (color3D(esfera(0.5),rgb(255,0,0)), (1,0,3)) ), 
mover3D (color3D(esfera(0.5),rgb(255,128,0)), (3.5,-2,-2))) , mover3D (color3D(esfera(0.5),rgb(0,0,255)), (4,2,-2)))

arbolNavidad :: ()-> Fig3D
arbolNavidad () = juntar3D ( ((juntar3D (color3D(juntarFigEn3D(circ(0.2), circ(5), 8),rgb(0,143,57)) ,  
mover3D (color3D(juntarFigEn3D(circ(1),circ(1),6),rgb(128,64,0)), (0,0,-6))))
, chirimbolo ()))

{- arbolNavidad() -}

bandera :: Color X Color X Color -> Fig
bandera (c1, c2, c3) = juntar(juntar(mover(color(rect(b,h),c1),(0,3)),
				mover(color(rect(b,h),c2),(0,0))),
				mover(color(rect(b,h),c3),(0,-3)))
				donde b=10
                	  h=3

{- bandera (Rojo, Verde, Azul) -}