> with(plots);

Warning, the name changecoords has been redefined

> with(student);

body outline:

> p1:=plot((1/14)*x+(143/7), x=8...22, scaling=constrained, color=yellow):

> p2:=plot((3/2)*x+(9), x=6...8, color=yellow):

> p3:=plot((-3.6)*x+(39.6), x=6...7.18, color=yellow):

> p4:=plot((14)*x-(286), x=21.14...22, color=yellow):

> p5:=plot((-14/3)*x+(175/3), x=8...10.6, color=yellow):

> p6:=plot((1/10.5)*x+(8), x=10.5...21.2, color=brown):

> p7:=plot((1/10)*x+(5.9), x=11...21, color=brown):

> p8:=plot([8.5,y,y=7...9], color=brown):

> p9:=plot(9, x=8.5...10.5, color=brown):

> p10:=plot(7, x=8.5...11, color=brown):

> p11:=plot([13+2*cos(theta), 18+2*sin(theta), theta=0..2*Pi], color=black):

> p12:=plot([17+2*cos(theta), 18+2*sin(theta), theta=-Pi/3..7*Pi/6], color=black):

nose:

> p13:=plot(.25*(x-16.5)^2+16.5, x=15..17.4, color=yellow):

> p14:=plot([17.4+.5*cos(theta), 16.25+.5*sin(theta), theta=-Pi/3..Pi/2], color=yellow):

> p15:=plot((.3*(x-16.6)^2+15.5, x=15..17.62), color=yellow):

mouth:

> p16:=plot((.05*(x-17)^2+14.5, x=12..17.25), color=sienna):

> p17:=plot((.29*(x-16)^2+11, x=12..16.8), color=sienna):

> p18:=plot([25.5+9*cos(theta), 13+7*sin(theta), theta=13*Pi/14..15.25*Pi/14], color=sienna):

> p19:=plot((-1.2)*x+(35.26), x=16.42...17.25, color=sienna):

Pupils:

> p20:=plot([14+.8*cos(theta), 18+.8*sin(theta), theta=0..2*Pi], color=black):

> p21:=plot([14+.4*cos(theta), 18+.4*sin(theta), theta=0..2*Pi], color=blue):

> p22:=plot([16.5+.8*cos(theta), 18+.8*sin(theta), theta=0..2*Pi], color=black):

> p23:=plot([16.5+.4*cos(theta), 18+.4*sin(theta), theta=0..2*Pi], color=blue):

Teeth:

> p24:=plot([14.8,y,y=13.8...14.8], color=black):

> p25:=plot([15.4,y,y=13.8...14.62], color=black):

> p26:=plot([15.9,y,y=13.8...14.54], color=black):

> p27:=plot([16.5,y,y=13.8...14.53], color=black):

> p28:=plot(13.8, x=14.8...15.4, color=black):

> p29:=plot(13.8, x=15.9...16.5, color=black):

tongue:

> p30:=plot([16.5+.6*cos(theta), 11.4+.6*sin(theta), theta=6.5*Pi/14..4.2*Pi/5], color=red):

> p31:=plot([15.75+.8*cos(theta), 11+.8*sin(theta), theta=Pi/3..4.4*Pi/5], color=red):

cheek:

> p32:=plot([11.6+.39*cos(theta), 15.9+.39*sin(theta), theta=0..2*Pi], color=yellow):

pants:

> p33:=plot((-1.5)*x+(33), x=16.9...17.75, color=brown):

> p34:=plot((-1.5)*x+(35.26), x=18.36...18.85, color=brown):

> p35:=plot([18.6+.83*cos(theta), 6.35+.7*sin(theta), theta=4*Pi/9..Pi], color=brown):

> p36:=plot([9.8+.8*cos(theta), 7+.8*sin(theta), theta=Pi..2*Pi], color=brown):

legs:

> p37:=plot((-1.5)*x+(33.5), x=17.9...18.5, color=yellow):

> p38:=plot((-1.5)*x+(34.6), x=18.4...19, color=yellow):

> p39:=plot((-2.5)*x+(53.63), x=19...19.65, color=yellow):

> p40:=plot((-2.5)*x+(52), x=18.5...19, color=yellow):

> p41:=plot((2.5)*x+(-17), x=8.9...9.37, color=yellow):

> p42:=plot((2.5)*x+(-18.5), x=9.2...9.86, color=yellow):

> p43:=plot((-.3)*x+(8), x=8...9, color=yellow):

> p44:=plot((-.3)*x+(7.3), x=8.05...9.2, color=yellow):

shoes:

> p45:=plot([7.7+.55*cos(theta), 6+.55*sin(theta), theta=-Pi/3..5*Pi/4], color=black):

> p46:=plot([7.52+.55*cos(theta), 5+.85*sin(theta), theta=4*Pi/6..18*Pi/8], color=black):

> p47:=plot([19+.55*cos(theta), 4+.55*sin(theta), theta=2*Pi/8..14*Pi/8], color=black):

> p48:=plot([20+.8*cos(theta), 4+.6*sin(theta), theta=7*Pi/6..17*Pi/6], color=black):

arms:

> p49:=plot([21.5+.8*cos(theta), 14+.8*sin(theta), theta=-Pi/2..Pi/2], color=black):

> p50:=plot((-.4)*x+(23.1), x=22.3...24.1, color=yellow):

> p51:=plot((-.4)*x+(22.65), x=22.3...23.9, color=yellow):

> p52:=plot((-1.4)*x+(47.2), x=24.1...25.2, color=yellow):

> p53:=plot((-1.4)*x+(47.2), x=24.2...25, color=yellow):

> p54:=plot((-1.4)*x+(46.58), x=23.9...24.8, color=yellow):

> p55:=plot([8+.8*cos(theta), 13.75+.8*sin(theta), theta=-Pi/3..Pi/3], color=black):

> p56:=plot((.1)*x+(13.4), x=7.5...8.7, color=black):

> p57:=plot((.3)*x+(10.8), x=7.65...8.7, color=black):

> p58:=plot([8.25+.85*cos(theta), 13.65+sin(theta), theta=5*Pi/6..8.5*Pi/7], color=black):

> p59:=plot((.1)*x+(13.15), x=5.75...7.5, color=yellow):

> p60:=plot((.1)*x+(12.75), x=6...7.5, color=yellow):

> p61:=plot((-3.6)*x+(39.6), x=7.25...8.5, color=yellow):

> p62:=plot((1.5)*x+(5.1), x=4.75...5.75, color=yellow):

> p63:=plot((1.5)*x+(4.55), x=5...5.9, color=yellow):

> p64:=plot(3.35, x=0...30, color=black):

> p65:=plot([25.25+.75*cos(theta), 11.3+.75*sin(theta), theta=0..2*Pi], color=yellow):

> p66:=plot([4.5+.75*cos(theta), 11.5+.75*sin(theta), theta=0..2*Pi], color=yellow):

eyelashes:

> p67:=plot((-1)*x+(30.5), x=10.95...11.4, color=black):

> p68:=plot((-3)*x+(57), x=12.17...12.415, color=black):

> p69:=plot((1.5)*x+(-.9), x=13.8...14.2, color=black):

> p70:=plot((-1)*x+(35.5), x=15.47...15.95, color=black):

> p71:=plot((4)*x+(-48), x=17...17.15, color=black):

> p72:=plot((1.5)*x+(-7.6), x=18.12...18.5, color=black):

chin:

> p73:=plot([15+.75*cos(theta), 11+.75*sin(theta), theta=7*Pi/6..10.5*Pi/6], color=coral):

> p74:=plot([16+.75*cos(theta), 11+.75*sin(theta), theta=7.4*Pi/6..11.5*Pi/6], color=coral):

pants (squares on pants):

> p75:=plot((1/10.5)*x+(7.55), x=10.704...21.1, color=brown):

> p76:=plot(8.56, x=8.5...10.704, color=brown):

> p77:=plot((-.3)*x+(13), x=12.7...13.75, color=black):

> p78:=plot((.5)*x+(1.8), x=13.85...15, color=black):

> p79:=plot((-.8)*x+(21.4), x=15...16.25, color=red):

> p80:=plot((3)*x+(-37.5), x=15.31...15.7, color=red):

> p81:=plot((-.3)*x+(14.2), x=15.69...17.3, color=black):

> p82:=plot((.5)*x+(.67), x=17...18.3, color=black):

> p83:=plot((-.8)*x+(20.68), x=15.28...16, color=red):

> p84:=plot((3.8)*x+(-52.8), x=16...16.16, color=red):

> p85:=plot(8.36, x=8.8...10.2, color=brown):

> p86:=plot(7.9, x=8.8...10.2, color=brown):

> p87:=plot([8.75,y,y=7.87...8.36], color=brown):

> p88:=plot([10.25,y,y=7.87...8.38], color=brown):

> p89:=plot((1/10.5)*x+(7.2), x=11.2...12.95, color=brown):

> p90:=plot((1/10.5)*x+(6.8), x=11.3...12.95, color=brown):

> p91:=plot([11.25,y,y=7.87...8.38], color=brown):

> p92:=plot([12.9,y,y=7.95...8.5], color=brown):

> p93:=plot((1/10.5)*x+(7.2), x=13.6...15.1, color=brown):

> p94:=plot((1/10.5)*x+(6.8), x=13.6...15.1, color=brown):

> p95:=plot([13.6,y,y=8.1...8.55], color=brown):

> p96:=plot([15.1,y,y=8.2...8.6], color=brown):

> p97:=plot((1/10.5)*x+(7.2), x=16.7...18.3, color=brown):

> p98:=plot((1/10.5)*x+(7.2), x=18.85...20.5, color=brown):

> p99:=plot((1/10.5)*x+(6.8), x=16.7...18.3, color=brown):

> p100:=plot((1/10.5)*x+(6.8), x=18.85...20.4, color=brown):

> p101:=plot([16.7,y,y=8.4...8.8], color=brown):

> p102:=plot([18.3,y,y=8.45...8.93], color=brown):

> p103:=plot([18.85,y,y=8.55...9.05], color=brown):

> p104:=plot([20.4,y,y=8.7...9.10], color=brown):

sponge holes:

> p105:=plot([7.5+.65*cos(theta), 17+.85*sin(theta), theta=0..2*Pi], color=yellow):

> p106:=plot([7.45+.2*cos(theta), 15+.2*sin(theta), theta=0..2*Pi], color=yellow):

> p107:=plot([9+.65*cos(theta), 12+.45*sin(theta), theta=0..2*Pi], color=yellow):

> p108:=plot([8.85+.55*cos(theta), 10+.75*sin(theta), theta=0..2*Pi], color=yellow):

> p109:=plot([12.35+.85*cos(theta), 11+.95*sin(theta), theta=0..2*Pi], color=yellow):

> p110:=plot([11.5+.65*cos(theta), 13.7+.4*sin(theta), theta=0..2*Pi], color=yellow):

> p111:=plot([10.45+.55*cos(theta), 16.25+.75*sin(theta), theta=0..2*Pi], color=yellow):

> p112:=plot([10+.8*cos(theta), 19.25+.95*sin(theta), theta=0..2*Pi], color=yellow):

> p113:=plot([15+.35*cos(theta), 20.5+.3*sin(theta), theta=0..2*Pi], color=yellow):

> p114:=plot([19.5+.95*cos(theta), 14.5+.7*sin(theta), theta=0..2*Pi], color=yellow):

> p115:=plot([20+.7*cos(theta), 19.8+.85*sin(theta), theta=0..2*Pi], color=yellow):

> p116:=plot([20.25+.6*cos(theta), 16.9+.6*sin(theta), theta=0..2*Pi], color=yellow):

> p117:=plot([17.5+.45*cos(theta), 12.5+.45*sin(theta), theta=0..2*Pi], color=yellow):

> p118:=plot([19.5+.9*cos(theta), 11.5+.9*sin(theta), theta=0..2*Pi], color=yellow):

> p119:=plot((-14/3)*x+(175/3), x=10.6...11, color=brown):

> p120:=plot((14)*x-(286), x=21...21.17, color=brown):

> p121:=plot([14+.6*cos(theta), 18+.6*sin(theta), theta=0..2*Pi], color=black):

> p122:=plot([16.5+.6*cos(theta), 18+.6*sin(theta), theta=0..2*Pi], color=black):

> 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, 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, p101, p102, p103, p104, p105, p106, p107, p108, p109, p110, p111, p112, p113, p114, p115, p116, p117, p118, p119, p120, p121, p122);