> with(plots);

Warning, the name changecoords has been redefined

Face Outline:

> p1:=plot([theta,1.65*sin(theta),theta=Pi/(16.3)..Pi/4.95],color=green,scaling=constrained):

> p2:=plot([theta,1.65*sin(theta),theta=Pi/2.81..Pi/1.56],color=green):

> p3:=plot([theta,1.65*sin(theta),theta=4.745*Pi/6..5.65*Pi/6],color=green):

> p4:=plot([theta,-1.65*sin(theta),theta=Pi/(16.3)..5.65*Pi/6],color=green):

> p5:=plot([cos(theta)+2,sin(theta),theta=-Pi/10..Pi/10],color=green):

> p6:=plot([cos(theta)+1.149,sin(theta),theta=5.42*Pi/6..6.6*Pi/6],color=green):

Eyes:

> p7:=plot([.35*cos(theta)+2.179,.35*sin(theta)+1.175,theta=(2*Pi/2.95)..(-Pi/5.1)],color=black):

> p8:=plot([-.35*cos(theta)+.9413,-.35*sin(theta)+1.173,theta=(-2*Pi/2.87)..(Pi/5)],color=black):

> p9:=plot([(.78+t*.4),(.94+t*.4),t=0..1],color=black):

> p10:=plot([(1.93+t*.39),(1.36-t*.42),t=0..1.02],color=black):

> p11:=plot([((cos(-Pi/9)*(.14*cos(theta))-sin(-Pi/9)*(.14*sin(theta)))+2.37),(sin(-Pi/9)*(.14*cos(theta))+cos(-Pi/9)*(.14*sin(theta)))+1.08,theta=-Pi/6..-Pi/2],color=black):

> p12:=plot([((cos(Pi/2.1)*(.14*cos(theta))-sin(Pi/2.1)*(-.14*sin(theta)))+2.066),(sin(Pi/2.1)*(.14*cos(theta))+cos(Pi/2.1)*(-.14*sin(theta)))+1.355,theta=-Pi/6..-Pi/2],color=black):

> p13:=plot([((cos(-Pi/4.8)*(.14*cos(theta))-sin(-Pi/4.8)*(.14*sin(theta)))+.745),(sin(-Pi/4.8)*(.14*cos(theta))+cos(-Pi/4.8)*(.14*sin(theta)))+1.078,theta=-Pi/6..-Pi/2],color=black):

> p14:=plot([((cos(Pi/.57)*(.14*cos(theta))-sin(Pi/.57)*(-.14*sin(theta)))+1.04),(sin(Pi/.57)*(.14*cos(theta))+cos(Pi/.57)*(-.14*sin(theta)))+1.358,theta=-Pi/6..-Pi/2],color=black):

> p15:=plot([.08*cos(theta)+2.27,.08*sin(theta)+1.28,theta=0..2*Pi],color=black):

> p16:=plot([.08*cos(theta)+.85,.08*sin(theta)+1.275,theta=0..2*Pi],color=black):

> p17:=plot([((cos(Pi/4)*(.118*cos(theta))-sin(Pi/4)*(-.118*sin(theta)))+.99),(sin(Pi/4)*(.118*cos(theta))+cos(Pi/4)*(-.118*sin(theta)))+1.255,theta=-Pi/6..-Pi/2],color=black):

> p18:=plot([((cos(Pi/2.1)*(.118*cos(theta))-sin(Pi/2.1)*(-.118*sin(theta)))+.84),(sin(Pi/2.1)*(.118*cos(theta))+cos(Pi/2.1)*(-.118*sin(theta)))+1.12,theta=-Pi/6..-Pi/2],color=black):

> p19:=plot([((cos(Pi/2.1)*(.118*cos(theta))-sin(Pi/2.1)*(.118*sin(theta)))+2.265),(sin(Pi/2.1)*(.118*cos(theta))+cos(Pi/2.1)*(.118*sin(theta)))+1.13,theta=-Pi/6..-Pi/2],color=black):

> p20:=plot([((cos(Pi/7.5)*(.118*cos(theta))-sin(Pi/7.5)*(-.118*sin(theta)))+2.148),(sin(Pi/7.5)*(.118*cos(theta))+cos(Pi/7.5)*(-.118*sin(theta)))+1.254,theta=-Pi/6..-Pi/2],color=black):

Mouth:

> p21:=plot([-7.95*sin(x)+8.55,-1.2*cos(x)+.225,x=1.07..1.5],color=green):

> p22:=plot([8*sin(x)-5.43,-1.2*cos(x)+.225,x=1.07..1.5],color=green):

> p23:=plot([-7.95*sin(x)+8.7,-3*cos(x)+.2,x=1.161..1.5],color=magenta):

> p24:=plot([8*sin(x)-5.58,-3*cos(x)+.2,x=1.161..1.5],color=magenta):

> p25:=plot([-.35*cos(theta)+1.58,-.35*sin(theta)-.69,theta=Pi/3..2*Pi/3],color=magenta):

> p26:=plot([-.35*cos(theta)+1.6,-.35*sin(theta)-.25,theta=0..Pi],color=magenta):

Collar:

> p27:=plot([1.2*sin(theta)-.2725,-.5*cos(theta)-.9,theta=Pi/3..Pi/50],color=green):

> p28:=plot([(cos(-Pi/20)*(sin(theta))-sin(-Pi/20)*(-.3*cos(theta)))-.17,(sin(-Pi/20)*(sin(theta))+cos(-Pi/20)*(-.3*cos(theta)))-1.12,theta=Pi/3..Pi/70],color=green):

> p29:=plot([1.2*(-sin(theta))+3.4,-.5*(cos(theta))-.9,theta=Pi/3..Pi/50],color=green):

> p30:=plot([(cos(Pi/20)*(-sin(theta))-sin(Pi/20)*(-.3*(cos(theta))))+3.345,(sin(Pi/20)*(-sin(theta))+cos(Pi/20)*(-.3*(cos(theta))))-1.12,theta=Pi/3..Pi/70],color=green):

> p31:=plot([(.62-t*.62),(-1.43-t*.69),t=0..1],color=green):

> p32:=plot([(.01+t*.77),(-2.12+t*.35),t=0..1.05],color=green):

> p33:=plot([(.79-t*.15),(-1.77-t*.96),t=0..1.04],color=green):

> p34:=plot([(.64+t*.69),(-2.74+t*.82),t=0..1.03],color=green):

> p35:=plot([(1.33+t*.28),(-1.92-t*1.02),t=0..1.05],color=green):

> p36:=plot([(1.63+t*.28),(-3+t*1.08),t=0..1.01],color=green):

> p37:=plot([(1.92+t*.62),(-1.94-t*.83),t=0..1],color=green):

> p38:=plot([(2.54-t*.17),(-2.77+t*1.02),t=0..1.04],color=green):

> p39:=plot([(2.37+t*.73),(-1.73-t*.45),t=0..1.03],color=green):

> p40:=plot([(3.16-t*.64),(-2.22+t*.82),t=0..(.975)],color=green):

Body:

> p41:=plot([((cos(Pi/.69)*(-2.5*sin(theta))-sin(Pi/.69)*(2.5*cos(theta)))+2.45),(sin(Pi/.69)*(-2.5*sin(theta))+cos(Pi/.69)*(2.5*cos(theta))-3.47),theta=Pi..5*Pi/6],color=green):

> p42:=plot([((cos(Pi/.64)*(-2.5*sin(theta))-sin(Pi/.64)*(2.5*cos(theta)))+.81),(sin(Pi/.64)*(-2.5*sin(theta))+cos(Pi/.64)*(2.5*cos(theta))-3.58),theta=Pi/6..0],color=green):

Arms:

> p43:=plot([((cos(Pi/.65)*(-2*sin(theta))-sin(Pi/.65)*(2*cos(theta)))+1.81),(sin(Pi/.65)*(-2*sin(theta))+cos(Pi/.65)*(2*cos(theta))-3.35),theta=Pi/3..0],color=green):

> p44:=plot([((cos(Pi/.675)*(-1.9*sin(theta))-sin(Pi/.675)*(1.9*cos(theta)))+1.355),(sin(Pi/.675)*(-1.9*sin(theta))+cos(Pi/.675)*(1.9*cos(theta))-3.225),theta=Pi..2*Pi/3],color=green):

> p45:=plot([((cos(Pi/.635)*(-1.9*sin(theta))-sin(Pi/.635)*(1.9*cos(theta)))+1.55),(sin(Pi/.635)*(-1.9*sin(theta))+cos(Pi/.635)*(1.9*cos(theta))-3.55),theta=Pi/6..0],color=green):

> p46:=plot([((cos(Pi/.692)*(-1.8*sin(theta))-sin(Pi/.692)*(1.8*cos(theta)))+1.64),(sin(Pi/.692)*(-1.8*sin(theta))+cos(Pi/.692)*(1.8*cos(theta))-3.39),theta=Pi..5*Pi/6],color=green):

Border:

> p47:=plot([abs(.5*sin(3*t))+4.521,t-3.815,t=0..2*Pi],color=blue):

> p48:=plot([-abs(.5*sin(3*t))-1.25,t-3.82,t=0..2*Pi],color=blue):

> p49:=plot([t-1.5,abs(.22*sin(3*t))+2.3,t=0..2*Pi],color=blue):

> p50:=plot([t-1.495,-abs(.22*sin(3*t))-3.655,t=0..2*Pi],color=blue):

> display(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20,p21,p22,p23,p24,p25,p26,p27,p28,p29,p30,p31,p32,p33,p34,p35,p36,p37,p38,p39,p40,p41,p42,p43,p44,p45,p46,p47,p48,p49,p50);

>