> p1:=plot([4*cos(t+1)+31, 2*sin(t)-2.2, t=0..11*Pi/10]):

> p2:=plot([t*2, t, t=-1.5..2], color=blue):

> p3:=plot([-t*2, t, t=-2..1.5], color=blue):

> p4:=plot([-t^2+38,t, t=-2.8..3], color=blue):

> p5:=plot([-t+26, t/2 + 3/2, t=4..7], color=blue):

> p6:=plot([t, 5, t=14..19], color=blue):

> p7:=plot([t+29, abs(t)-1, t=-1/2..1/2], color=black):

> p8:=plot([t+30.5, abs(t)-1.5, t=-1/2..1/2], color=black):

> p9:=plot([t+32, abs(t)-2.2, t=-1/2..1/2], color=black):

> p10:=plot([t+28, -abs(t)-.8, t=-1/2..1/2], color=black):

> p11:=plot([t+29.2, -abs(t)-1.5, t=-1/2..1/2], color=black):

> p12:=plot([t+30, -abs(t)-2.2, t=-1/2..1/2], color=black):

> p13:=plot([abs(t*12)+12, t, t=-1/4..1/4], color=blue):

> p14:=plot([abs(t*12)-15, t, t=-1/2..1/2], color=blue):

> p15:=plot([abs(t*12)+12, t+4.4, t=-1/8..1/8], color=blue):

> p16:=plot([cos(t)+31,sin(t)/4+1.3, t=0..2*Pi], color=blue):

> p17:=plot([7*t-52, (t-11)^2/10-2.9, t=8..11.75], color=blue):

> p18:=plot([-5*t+87, (t-11)^2/10+3.1, t=12..13], color=blue):

> p19:=plot([cos(t)+43,sin(t)/4+1.3, t=-Pi/2..Pi/2], color=blue):

> p20:=plot([t, 1.55, t=41..43], color=blue):

> p21:=plot([t, 1.05, t=41..43], color=blue):

> p22:=plot([41,t, t=1.05..1.55], color=blue):

> p23:=plot([41.5,t, t=1.05..1.55], color=blue):

> p24:=plot([cos(t)+14,sin(t)/4+4.75, t=Pi/2..3*Pi/2], color=blue):

> p25:=plot([cos(t)+14,sin(t)/4+4, t=Pi/2..3*Pi/2], color=blue):

> p26:=plot([2*cos(t)+18,sin(t)/2, t=-Pi/2..Pi/2], color=blue):

> p27:=plot([t+31,sin(t)/4+1.4, t=0..3*Pi], color=gray):

> p28:=plot([t+31,sin(t)/4+1.1, t=0..3*Pi], color=gray):

> p29:=plot([t+31,-sin(t)/4+1.3, t=0..3*Pi], color=gray):

> p30:=plot([t+31,-sin(t)/4+1, t=0..3*Pi], color=gray):

> p31:=plot([2*cos(t+1)+16, sin(t)/4+.3, t=0..11*Pi/10], color=blue):

> p32:=plot([2*cos(t+1)+16, -sin(t)/4-.3, t=0..11*Pi/10], color=blue):

> p33:=plot([8*cos(t+1)-7, sin(t)+1.5, t=0..11*Pi/10], color=blue):

> p34:=plot([8*cos(t+1)-7, -sin(t)-1.5, t=0..11*Pi/10], color=blue):

> p35:=plot([2*cos(t)-11,sin(t)/2+.8, t=Pi/2..3*Pi/2], color=blue):

> p36:=plot([2*cos(t)-11,sin(t)/2-.8, t=Pi/2..3*Pi/2], color=blue):

> p37:=plot([sin(t*8)+26,t+1/2, t=0..Pi/2]):

> p38:=plot([sin(t*8)+23,t+1/2, t=0..Pi/2]):

> p39:=plot([24.5,t , t=0.5..2]):

> p40:=plot([21.5,t , t=0.5..2]):

> p41:=plot([27,t , t=3.2..4.1], color=blue):

> p42:=plot([29,t , t=3..3.8], color=blue):

> p43:=plot([t,4.1 , t=27..32], color=blue):

> p44:=plot([t,3.8 , t=29..32], color=blue):

> p45:=plot([cos(t)/2+32,sin(t)/8+3.95, t=0..2*Pi], color=blue):

> p46:=plot([8*cos(t+4)+8.3, 2*sin(t)+1.72, t=Pi/20..Pi/2], color=blue):

> p47:=plot([cos(t)/4+36,sin(t)/16+.1, t=0..Pi*2], color=blue):

> p48:=plot([t-22,sin(t)/4+1.2, t=0..3*Pi], color=gray):

> p49:=plot([t-22,sin(t)/4+0.9, t=0..3*Pi], color=gray):

> p50:=plot([t-22,-sin(t)/4+1.1, t=0..3*Pi], color=gray):

> p51:=plot([t-22,-sin(t)/4+0.8, t=0..3*Pi], color=gray):

> p52:=plot([t-22,sin(t)/4-1.2, t=0..3*Pi], color=gray):

> p53:=plot([t-22,sin(t)/4-0.9, t=0..3*Pi], color=gray):

> p54:=plot([t-22,-sin(t)/4-1.1, t=0..3*Pi], color=gray):

> p55:=plot([t-22,-sin(t)/4-0.8, t=0..3*Pi], color=gray):

> with(plots):

> 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);

>