> with(plots):

Warning, the name changecoords has been redefined

Stomach:

> p1:=plot([8*sin(t), 8*cos(t), t=-17*Pi/16..-Pi/3], scaling=constrained, color=coral):

>

Left Leg:

> p2:=plot([-4-2*sin(.5*t), -18+5*cos(.2*t), t=0..Pi], color=coral):

> p3:=plot([-6+2*sin(-t), -9.25+3.75*cos(2*t), t=-Pi/2..-15*Pi/16], color=coral):

> p4:=plot([-3.55-2*sin(.5*t), -10.35-5*cos(.25*t), t=-Pi..0], color=coral):

> p5:=plot([-3.55-2.5*sin(.55*t), -10.35-5*cos(.25*t), t=0..Pi], color=coral):

> p6:=plot([-1.55, y, y=-14..-7.8], color=coral):

>

Right Leg :

> p7:=plot([2-2*sin(.5*t), -18+5*cos(.2*t), t=-Pi/8..Pi], color=coral):

> p8:=plot([2.5-2.5*sin(.55*t), -10.35-5*cos(.25*t), t=0..Pi], color=coral):

> p9:=plot([2.5-2.5*sin(.5*t), -10.35-5*cos(.25*t), t=0..-19*Pi/16], color=coral):

> p10:=plot([.25*sqrt(-y-6)+1.3, y, y=-13..-6.5], color=coral):

> p11:=plot([4.95, y, y=-13.5..-5.75], color=coral):

>

Ground/Flowers:

> p12:=plot(-12, x=-14..-4.2, color=green):

> p13:=plot(-12, x=-1.55..2, color=green):

> p14:=plot(-12, x=4.95..10, color=green):

> p15:=plot([sin(4*theta)*cos(theta)-10, sin(4*theta)*sin(theta)-9, theta=0..2*Pi], scaling=constrained, color=cyan):

> p16:=plot([-10, y, y=-12..-9], color=sienna):

> p17:=plot([sin(2*theta)*cos(theta)-13, sin(2*theta)*sin(theta)-10, theta=0..2*Pi], scaling=constrained, color=magenta):

> p18:=plot([-13, y, y=-12..-10], color=khaki):

> p19:=plot([sin(6*theta)*cos(theta)+7, sin(6*theta)*sin(theta)-10, theta=0..2*Pi], scaling=constrained, color=violet):

> p20:=plot([7, y, y=-12..-10], color=sienna):

> p21:=plot([sin(4*theta)*cos(theta)-7, sin(4*theta)*sin(theta)-9.5, theta=0..2*Pi], scaling=constrained, color=maroon):

> p22:=plot([-7,y, y=-12..-9.5], color=khaki):

>

Honey Pot :

> p23:=plot(-sqrt(1-x^2)-5, x=-1..0, color=navy):

> p24:=plot((-4*x-4)-5, x=-2.25..-1, color=navy):

> p25:=plot(sqrt(x+2.25), x=-2.25..-2, color=navy):

> p26:=plot([.5*cos(t)-2.25, .5*sin(t)+1, t=3*Pi/4..2*Pi], color=yellow):

> p27:=plot(-.25*(x)^2+3, x=-2.6..-.5, color=yellow):

> p28:=plot(-.08*(x-2)^2+3.5, x=-.6..2, color=yellow):

> p29:=plot(-.25*(x)^2+2.5, x=-2.15..-.5, color=gold):

> p30:=plot(-.08*(x-2)^2+3, x=-.6..1.65, color=gold):

> p31:=plot(.09*(x+2)^2+1.5, x=-2..1.8, color=gold):

> p32:=plot(-.5*sin(5*x)+.5, x=-1.75..-.25, color=yellow):

> p33:=plot([.5*cos(t)+2, -.5*sin(t)+3, t=-Pi/2..Pi/4], color=yellow):

> p34:=plot([sqrt(-y+1)-.25, y, y=-.5..1], color=yellow):

> p35:=plot([.4*cos(t)+1.35, .4*sin(t)-.4, t=-Pi..Pi/4], color=yellow):

> p36:=plot([-.5*sqrt(y+.25)+1.8, y, y=-.15..1.5], color=yellow):

> p37:=plot([.3*cos(t)+1.4, .3*sin(t)+1.5, t=Pi/6..Pi], color=yellow):

> p38:=plot([.4*cos(t)+2, .4*sin(t)+1.75, t=Pi/6..-Pi], color=yellow):

> p39:=plot([2.4, y, y=1.75..2.6], color=yellow):

> p40:=plot(.3*x-6, x=0..3.25, color=navy):

> p41:=plot([cos(2*t)+3, sin(2*t)-4, t=-Pi/4..0], color=navy):

> p42:=plot(-4.25*x+13, x=2.75..3.2, color=navy):

> p43:=plot(-4.25*x+13, x=3.7..4, color=navy):

> p44:=plot([.5*cos(t)+2.25, .5*sin(t)+1.25, t=0..3*Pi/8], color=navy):

> p45:=plot(.3*x-1.5, x=-1.8..3.2, color=blue):

>

Shirt:

> p46:=plot((x+5)+7, x=-8.25..-3.5, color=red):

> p47:=plot([-cos(t)-7.3, .5*sin(t)+3.6, t=-Pi/2..3*Pi/4], color=red):

> p48:=plot(-.35*x+1.6, x=-7..-1.8, color=red):

> p49:=plot(-.35*x+1.6, x=2.9..4.25, color=red):

> p50:=plot(8, x=-6..-4, color=red):

> p51:=plot([cos(t)-6.25, 1.5*sin(t)+9.5, t=-3*Pi/4..Pi/2], color=red):

> p52:=plot(11, x=-6..-2, color=red):

> p53:=plot(abs(2*x+1)+8.25, x=-1.5..-.5, color=red):

> p54:=plot(abs(.15*x+1.5)+6.9, x=-.5..6.5, color=red):

> p55:=plot([6.5, y, y=8..9.4], color=red):

> p56:=plot(-4.5*x+37.2, x=6.5..7.7, color=red):

> p57:=plot(-.15*(x-6)^2+3, x=5..7.75, color=red):

> p58:=plot(-4.5*(x-1.8)+17, x=4.5..5, color=red):

>

Behind:

> p59:=plot([8*sin(t)-.75, 8*cos(t)-1, t=31*Pi/64..3*Pi/4], color=coral):

>

Right Arm:

> p60:=plot(.6*x-2.5, x=2..5.15, color=coral):

> p61:=plot([5.1, y, y=.5..2.9], color=coral):

> p62:=plot(.6*x-5, x=2.2..7, color=coral):

> p63:=plot(.6*x-3.15, x=1.9..3, color=coral):

> p64:=plot([.75*cos(t)+2.5, .5*sin(t)-1.7, t=3*Pi/4..5*Pi/4], color=coral):

> p65:=plot([-.85*cos(t)+2.1, .9*sin(t)-2.8, t=-Pi/2..Pi/2], color=coral):

> p66:=plot([-cos(t)+6.4, sin(t), t=-Pi..-5*Pi/8], color=coral):

> p67:=plot([7.4,y, y=0..2.75], color=coral):

>

Left Arm:

> p68:=plot(11, x=-8..-5.6, color=coral):

> p69:=plot(8.5, x=-10..-5.4, color=coral):

> p70:=plot([.5*cos(t)-8, .5*sin(t)+11.5, t=-Pi/2..-Pi], color=coral):

> p71:=plot([-8.5,y, y=11.5..14.5], color=coral):

> p72:=plot([cos(t)-10, sin(t)+9.5, t=-Pi/2..-Pi], color=coral):

> p73:=plot([-11, y, y=9.5..15], color=coral):

> p74:=plot([-9.15, y, y=13.5..15], color=coral):

> p75:=plot([cos(t)-10.1, sin(t)+14.8, t=0..Pi], color=coral):

> p76:=plot([.5*cos(t)-8.85, sin(t)+13.75, t=Pi/4..3*Pi/4], color=coral):

>

Head/Face:

> p77:=plot([-5*cos(t)+2.8, 3.5*sin(t)+12, t=-Pi/4..Pi/4], color=coral):

> p78:=plot([.75*cos(t)-1.3, .5*sin(t)+14.8, t=-Pi/4..Pi/4], color=coral):

> p79:=plot([-.75*cos(t)-.25, .5*sin(t)+15.5, t=-Pi/4..Pi/2], color=coral):

> p80:=plot(-.06*(x-3)^2+16.7, x=-.5...5, color=coral):

> p81:=plot([-.75*cos(t)+1.5, sin(t)+16.75, t=-Pi/8..17*Pi/16], color=coral):

> p82:=plot([-.6*cos(t)+5.65, sin(t)+16.25, t=-Pi/16..11*Pi/8], color=coral):

> p83:=plot([cos(t)+5.45, 4*sin(t)+12.9, t=-11*Pi/32..Pi/4], color=coral):

> p84:=plot([.1*cos(t), .1*sin(t)+14.5, t=0..2*Pi], color=black, thickness=2):

> p85:=plot([.1*cos(t)+3.5, .1*sin(t)+14.25, t=0..2*Pi], color=black, thickness=2):

> p86:=plot([.5*cos(3*t)+.8, 1.75*sin(t)+11.25, t=3*Pi/16..13.5*Pi/16], color=brown, thickness=2):

> p87:=plot([cos(t)+.25, sin(t)+14.5, t=3*Pi/8..3*Pi/4], color=black):

> p88:=plot([cos(t)+3.5, sin(t)+14.25, t=Pi/4..3*Pi/4], color=black):

> p89:=plot(1.5*(x+7.25)+.75, x=1..1.5, color=coral):

> p90:=plot(-2*(x-7.8)+1, x=1.2..1.5, color=coral):

> p91:=plot([2.25*sin(t)+1.25, -.75*cos(t)+11.75, t=-Pi/2..Pi/2],color=black):

> p92:=plot([-2.5*sin(t)+.3, -cos(t)+11.25, t=-Pi/2..0], color=black):

> p93:=plot([-.5*sin(t)+1.2, .5*cos(t)+10.5, t=0..3*Pi/4], color=black):

> p94:=plot([.35*sin(t)-1.1, -.25*cos(t)+12, t=Pi/2..-Pi/4], color=black):

> p95:=plot([.35*sin(t)+3.75, -.25*cos(t)+12, t=Pi/4..-Pi/2], color=black):

>

Lettering/Words:

> p96:=plot(-4.25*x-8, x=-1.25..-.75, color=orange, thickness=2):

> p97:=plot(-4.25*x-2.25, x=0..0.5, color=orange, thickness=2):

> p98:=plot(.25*x-3.5, x=-1..0.5, color=orange,thickness=2):

> p99:=plot([.75*cos(t)+1.5, -2*sin(t)-2, t=3*Pi/8..Pi], color=orange, thickness=2):

> p100:=textplot({[-8,-17, 'Winnie'],[.5, -17, 'the'], [8, -17, 'Pooh']},font=[TIMES,BOLD,18],color=aquamarine):

>

> 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,p51,p52,p53,p54,p55,p56,p57,p58,p59,p60,p61,p61,p62,p63,p64,p65,p66,p67,p68,p69,p70,p71, p72,p73,p74,p75,p76,p77,p78,p79,p80,p81,p82,p83,p84,p85,p86,p87,p88,p89,p90,p91,p92,p93,p94,p95, p96,p97,p98,p99,p100);

>