> with(student):

> with(plots):

Warning, the name changecoords has been redefined

> p1:=plot([4*cos(x)+.4*cos(8*x)+5, 2*sin(x)+.4*sin(8*x)+9, x = 150*Pi ..

200*Pi],color = blue,scaling=constrained):

> p2:=plot([4*cos(x)+.4*cos(8*x)+27, 2*sin(x)+.4*sin(8*x)+11, x = 150*Pi..200*Pi],color = blue,scaling=constrained):

> p3:=plot([t+15, -5, t=20..60], color=sienna):

> p4:=plot([28.8+t, -43+38*sin((.245)*t), t=0..2*Pi], color=sienna):

> p5:=plot([18+t,-10+t,t=4..8],color=black):

> p6:=plot([20+t,-12+t,t=2..6],color=black):

> p7:=plot([17+7*cos(t),-20+7*sin(t),t=Pi/2..Pi],color=blue):

> p8:=plot([t+14,-13,t=3..6],color=blue):

> p9:=plot([17+3*cos(t),-13+3*sin(t),t=-Pi/2..0],color=blue):

> p10:=plot([t+11,-16,t=3..6],color=blue):

> p11:=plot([15.1+2*cos(t),-16+2*sin(t),t=-Pi/2..0],color=blue):

> p12:=plot([t+11,-18,t=2..5],color=blue):

> p13 := plot([12+t, -22.1+t, t=2..4], color=blue):

> p14:=plot([15+4*cos(t),-24+4*sin(t),t=-5*Pi/4..-3*Pi/2],color=blue):

> p15:=plot([12+3*cos(t),-20+3*sin(t),t=-Pi/2..0],color=blue):

> p16:=plot([12+2*cos(t),-22.2+2*sin(t),t=-Pi/2..0],color=blue):

> p17:=plot([12+cos(t),-24+sin(t),t=-Pi/2..Pi/16],color=blue):

> p18:=plot([t+10,-25,t=2..3],color=blue):

> p19:=plot([11.5+1.5*cos(t),-24.8+1.5*sin(t),t=-Pi/2..-Pi/16],color=blue):

> p20:=plot([10.5+1.7*cos(t),-26+1.5*sin(t),t=-9*Pi/16..0],color=blue):

> p21:=plot([10,1.25*t+6, t=-26.7..-20], color=navy):

> p22:=plot([t+9,-27.5,t=1..4],color=navy):

> p23:=plot([8.8+6*cos(t),-23.2+6*sin(t),t=-Pi/4..-Pi],color=blue):

> p24:=plot([t+9,-28.2,t=1..3],color=navy):

> p25:=plot([2+t,-19.5-t,t=4..5.5],color=blue):

> p26:=plot([8.7+7*cos(t),-17+7*sin(t),t=-5*Pi/8..-3*Pi/4],color=blue):

> p27:=plot([2.8,t-26.2,t=3..10],color=blue):

> p28:=plot([3.7,t-25,t=3..9.5],color=blue):

> p29:=plot([7.3+3*cos(t),-28.7+3*sin(t),t=-9*Pi/8..-27*Pi/16],color=navy):

> p30:=plot([8+2*cos(t),-27+2*sin(t),t=-9*Pi/16..0],color=navy):

> p31:=plot([2.5+8.8*cos(t),-32.3+8.8*sin(t),t=5*Pi/16..3*Pi/16],color=blue):

> p32:=plot([1.2+3.5*cos(t),-13+3.5*sin(t),t=-Pi/4..-9*Pi/16],color=orange):

> p33:=plot([1.2-t,4*t-19.2,t=.70..0.99],color=orange):

> p34:=plot([1.7+3*cos(t),3*sin(t)-12.5,t=-16.5*Pi/64..-10.5*Pi/16],color=orange):

> p35:=plot([4.3-t,4*t-18,t=.5..0.80],color=orange):

> p36:=plot([4.2+1.1*cos(t),-14.4+1.1*sin(t),t=-5*Pi/8..14.5*Pi/16],color=orange):

> p37:=plot([ 1.8*cos(2*t)*cos(t)+2.7, 1.8*cos(2*t)*sin(t)-13.5, t=Pi/4..3*Pi/4],color=navy):

> p38:=plot([2*cos(t)+4.4,2*sin(t)-14.2,t=5*Pi/8..15*Pi/16],color=navy):

> p39:=plot([2*cos(t)+3.4,2*sin(t)-14.2,t=-0..3*Pi/16],color=navy):

> p40:=plot([1.5*cos(t)+6.3,1.5*sin(t)-12.2,t=-3*Pi/4..-Pi],color=navy):

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

> p42:=plot([4.4,t-11.9,t=2.7..4.1],color=navy):

> p43:=plot([.4+t,-3.815-t,t=4..5],color=navy):

> p44:=plot([6.5*cos(t)-.2,6.5*sin(t)-13.8,t=Pi/4..3*Pi/8],color=navy):

> p45:=plot([-1.7+t,-3.9-t,t=4..5.3],color=navy):

> p46:=plot([5*cos(t)+3.41,5*sin(t)-14.12,t=7.9*Pi/16..16.5*Pi/16],color=navy):

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

> p48:=plot([1.05,t-14.9,t=1.8..3],color=navy):

> p49:=plot([-4.9+t,-17.8+t,t=3.3..6],color=navy):

> p50:=plot([1.8*cos(t)+7.1,1.8*sin(t)-28.1,t=-14.5*Pi/16..-Pi],color=blue):

> p51:=plot([cos(t)+6.8,sin(t)-29,t=0..-Pi/4],color=blue):

> p52:=plot([1.3*cos(t)+6.6,1.3*sin(t)-28.7,t=-Pi/4..-33*Pi/32],color=blue):

> p53:=plot([6.5,t-32.9,t=3..4.2],color=blue):

> p54:=plot([6,t-40.8,t=4.5..10],color=sienna):

> p55:=plot([3*cos(t)*cos(t)+4.5,3*sin(t)*cos(t)-30.5,t=-3*Pi/32..3*Pi/32],color=sienna):

> p56:=plot([3.15+t,-35.4+t,t=3.3..4.2],color=sienna):

> p57:=plot([6.5,t-38.8,t=2.8..6.8],color=sienna):

> p58:=plot([2*cos(t)+4,2*sin(t)-30.7,t=Pi/4..-Pi/64],color=sienna):

> p59:=plot([4*cos(t)+6.2,sin(t)*cos(t)-36.2,t=-Pi/2..Pi/2],color=sienna):

> p60:=plot([cos(t)+9.8,sin(t)-37,t=3*Pi/8..3*Pi/4],color=sienna):

> p61:=plot([2*cos(t)+sin(t)+4.2,cos(t)-37.2,t=Pi..2*Pi],color=sienna):

> p62:=plot([cos(t)*cos(t)+1.6,sin(t)*cos(t)-38.5,t=3*Pi/8..7*Pi/8],color=sienna):

> p63:=plot([.75*cos(t)*cos(t)+2.3,.75*sin(t)*cos(t)-39.2,t=3*Pi/8..7*Pi/8],color=sienna):

> p64:=plot([-1.7+t,-43+t,t=4..4.7],color=sienna):

> p65:=plot([6*cos(2*t)+.5,6*sin(t)-36.3,t=0..-3*Pi/16],color=sienna):

> p66:=plot([t-7,t-43,t=2..6],color=black):

> p67:=plot([t-7,t-48,t=2..6],color=black):

> for i from 1 to 30 do
eye[i] := plot( [1/i *4*cos(t)+2.5, 2/i *4* sin(t)-14.9,
t=0..2*Pi],color=black,scaling=constrained):
od:

> 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,eye[j] $j=15..30,axes=none);

>