> p1:=plot([t, -t^4/2, t=-1.25..1.2], scaling=constrained, color=black):

> p2:=plot([2.0+.9*cos(t), -4+6*sin(t), t=5*Pi/6..Pi-.02],color=black):

> p3:=plot([-.7+.3*cos(t), -2.3+sin(t), t=0..2*Pi],color=black):

> p4:=plot([1.55+.3*cos(t), -2.3+sin(t), t=0..2*Pi],color=black):

> p5:=plot([1.8+.9*cos(t), -4+4*sin(t), t=.06..2.3],color=black):

> p6:=plot([-0.45+.9*cos(t), -3.20+4*sin(t), t=5*Pi/6..15*Pi/14-.08],color=black):

> p7:=plot([1.1+.3*cos(t),-4.2+.3*sin(t),t=0..2*Pi],color=red):

> p8:=plot([t/2+2.85,cos(t)/4-4.0, t=-Pi+.2...0.2],color=black):

> p9:=plot([1.1*cos(t)-cos(t)^2+2.85, sin(t)-cos(t)*sin(t)-3.75,t=4*Pi/3..2*Pi],color=black):

> p10:=plot([t+.85, t^4/8-5.3, t=-.6..1.35],color=black):

> p11:=plot([.7*cos(t)+.3, .3*sin(t)-4.4, t=.75..Pi-.8],color=black):

> p12:=plot([2.2*cos(2*t)*cos(t)-.2, 1.8*cos(2*t)*sin(t)-4.2, t=3*Pi/4-.05..Pi],color=black):

> p13:=plot([.2*t+.4, .2*cos(t)-5.4, t=-Pi-.1..0],color=black):

> p14:=plot([t-.25, 2*t^2-5.6, t=-.6..0],color=black):

> p15:=plot([-1.6*(cos(t)-cos(t)^2)-2, 1.5*sin(t)-cos(t)*sin(t)-3.4, t=Pi+1.02..5*Pi/3+.1],color=black):

> p16:=plot([t/8-.95, sin(t)/3-4.9, t=Pi/2..3*Pi/2],color=black):

> p17:=plot([.2*cos(t)-.25, .2*sin(t)-5.1, t=Pi+.2..2*Pi-.9],color=black):

> p18:=plot([1.1*t-.3, t^2-5.3, t=0..0.65],color=black):

> p19:=plot([1.2*sin(4*t)*cos(t)+.55, 1.2*sin(4*t)*sin(t)-4.9, t=Pi+2.75..2*Pi-.025],color=black):

> p20:=plot([.2*cos(t)-.75, .2*sin(t)-4.35, t=3*Pi/2-.5..2*Pi+.1],color=black):

> p21:=plot([.2*cos(t)-.1, .2*sin(t)-5.2, t=Pi/4-.5..3*Pi/4],color=red):

> p22:=plot([.2*cos(t)-.4, .2*sin(t)-5.1, t=Pi/4-.7..Pi-.7],color=red):

> p23:=plot([1.4*(1-t)+2.1*t, .6*(1-t)+1.6*t, t=0..1],color=black):

> p24:=plot([-t+2.85, 6*sqrt(t)-3.8, t=0..0.8],color=black):

> p25:=plot([2*cos(t)+0.5, sin(t)-.3, t=Pi/3+0.05..2*Pi/3-.25],color=black):

> p26:=plot([-0.7*t, .65*(1-t)+1.9*t, t=0..1],color=black):

> p27:=plot([1.8*t-4.65, t^2-2.95, t=0.5..2.2],color=black):

> p28:=plot([-3.8*(1-t)-2.8*t, 2.7*(t-1)-3.8*t, t=0..1],color=black):

> p29:=plot([-3.3*(1-t)-2.8*t, 3.8*(t-1)-3.8*t, t=0..1],color=black):

> p30:=plot([-3.3*(1-t)-2.3*t, 3.8*(t-1)-4.6*t, t=0..1],color=black):

> p31:=plot([-2.9*(1-t)-3.5*t, 1.9*(1-t)+4*t, t=0..1],color=blue):

> p32:=plot([1.3*cos(t)-3.5, 0.8*sin(t)+3.2, t=-Pi/2+1.3..Pi/2],color=blue):

> p33:=plot([1.2*cos(t)-2.9, 0.6*sin(t)+2.50, t=-Pi/2..Pi/2-0.55],color=blue):

> p34:=plot([-3.0*(1-t)-3.7*t, 1.7*(1-t)+4.15*t, t=0..1],color=blue):

> p35:=plot([1.5*cos(t)-3.5, 0.95*sin(t)+3.2, t=-Pi/2+1.45..Pi/2+.15],color=blue):

> p36:=plot([1.4*cos(t)-2.9, 0.75*sin(t)+2.50, t=-Pi/2-0.1..Pi/2-0.7],color=blue):

> p37:=plot([-2.9*(1-t)-3.0*t, 3.1*(1-t)+3.57*t, t=0..1],color=blue):

> p38:=plot([0.5*cos(t)-3, 0.25*sin(t)+3.3, t=-Pi/2+0.15..Pi/2],color=blue):

> p39:=plot([-2.6*(1-t)-2.7*t, 2.3*(1-t)+2.72*t, t=0..1],color=blue):

> p40:=plot([0.7*cos(t)-2.8, 0.2*sin(t)+2.5, t=-Pi/2+0.25..Pi/2-0.15],color=blue):

> p41:=plot([-2.8*(1-t)-2.9*t, 3.2*(1-t)+3.47*t, t=0..1],color=blue):

> p42:=plot([0.4*cos(t)-3, 0.15*sin(t)+3.3, t=-Pi/2+0.5..Pi/2-0.39],color=blue):

> p43:=plot([-2.5*(1-t)-2.6*t, 2.4*(1-t)+2.62*t, t=0..1],color=blue):

> p44:=plot([0.6*cos(t)-2.8, 0.1*sin(t)+2.5, t=-Pi/2+0.5..Pi/2-0.4],color=blue):

> p45:=plot([0.7*cos(t)-0.7, 0.8*sin(t)+2.9, t=Pi/4..7*Pi/4],color=pink):

> p46:=plot([-0.2*(1-t)-0.2*t,3.4*(1-t)+3.70*t, t=0..1],color=pink):

> p47:=plot([-0.2*(1-t)+0.25*t,3.70*(1-t)+3.70*t, t=0..1],color=pink):

> p48:=plot([-0.2*(1-t)-0.2*t,2.1*(1-t)+2.40*t, t=0..1],color=pink):

> p49:=plot([-0.2*(1-t)+0.25*t,2.1*(1-t)+2.1*t, t=0..1],color=pink):

> p50:=plot([0.25*(1-t)+0.25*t, 2.1*(1-t)+3.7*t, t=0..1],color=pink):

> p51:=plot([0.6*cos(t)-0.7, 0.7*sin(t)+2.9, t=Pi/4-0.5..7*Pi/4+0.5],color=pink):

> p52:=plot([-0.1*(1-t)-0.1*t,3.1*(1-t)+3.60*t, t=0..1],color=pink):

> p53:=plot([-0.1*(1-t)+0.15*t,3.60*(1-t)+3.60*t, t=0..1],color=pink):

> p54:=plot([-0.1*(1-t)-0.1*t,2.2*(1-t)+2.70*t, t=0..1],color=pink):

> p55:=plot([-0.1*(1-t)+0.15*t,2.2*(1-t)+2.2*t, t=0..1],color=pink):

> p56:=plot([0.15*(1-t)+0.15*t, 2.2*(1-t)+3.6*t, t=0..1],color=pink):

> p57:=plot([0.25*cos(t)-0.7, 0.25*sin(t)+2.9, t=0..2*Pi],color=pink):

> p58:=plot([0.15*cos(t)-0.7, 0.15*sin(t)+2.9, t=0..2*Pi],color=pink):

> p59:=plot([0.5*(1-t)+0.7*t, 1.9*(1-t)+4.2*t, t=0..1],color=green):

> p60:=plot([0.7*(1-t)+1.15*t, 4.2*(1-t)+4.2*t, t=0..1],color=green):

> p61:=plot([0.5*(1-t)+0.95*t, 1.9*(1-t)+1.9*t, t=0..1],color=green):

> p62:=plot([0.95*(1-t)+0.95*t, 1.9*(1-t)+2.1*t, t=0..1],color=green):

> p63:=plot([0.7*cos(t)+1.5, 0.7*sin(t)+2.5, t=-Pi/2-0.9..Pi/2+0.6],color=green):

> p64:=plot([1.15*(1-t)+1.1*t, 4.2*(1-t)+3.0*t, t=0..1],color=green):

> p65:=plot([0.6*(1-t)+0.8*t, 2.0*(1-t)+4.1*t, t=0..1],color=green):

> p66:=plot([0.8*(1-t)+1.05*t, 4.1*(1-t)+4.1*t, t=0..1],color=green):

> p67:=plot([0.6*(1-t)+0.85*t, 2.0*(1-t)+2.0*t, t=0..1],color=green):

> p68:=plot([0.85*(1-t)+0.90*t, 2.0*(1-t)+2.4*t, t=0..1],color=green):

> p69:=plot([0.6*cos(t)+1.5, 0.6*sin(t)+2.5, t=-Pi/2-1.5..Pi/2+1],color=green):

> p70:=plot([1.05*(1-t)+1.0*t, 4.1*(1-t)+2.8*t, t=0..1],color=green):

> p71:=plot([0.25*cos(t)+1.5, 0.25*sin(t)+2.5, t=0..2*Pi],color=green):

> p72:=plot([0.15*cos(t)+1.5, 0.15*sin(t)+2.5, t=0..2*Pi],color=green):

> p73:=plot([2.0*(1-t)+2.7*t, 3.5*(1-t)+3.5*t, t=0..1],color=red):

> p74:=plot([2.0*(1-t)+3.0*t, 3.5*(1-t)+1.8*t, t=0..1],color=red):

> p75:=plot([2.7*(1-t)+3.6*t, 3.5*(1-t)+2.3*t, t=0..1],color=red):

> p76:=plot([3.6*(1-t)+4.3*t, 2.3*(1-t)+3.6*t, t=0..1],color=red):

> p77:=plot([4.3*(1-t)+4.8*t, 3.6*(1-t)+3.0*t, t=0..1],color=red):

> p78:=plot([4.8*(1-t)+3.0*t, 3.0*(1-t)+0.5*t, t=0..1],color=red):

> p79:=plot([3.0*(1-t)+2.5*t, 0.5*(1-t)+0.8*t, t=0..1],color=red):

> p80:=plot([2.5*(1-t)+3.0*t, 0.8*(1-t)+1.8*t, t=0..1],color=red):

>

> p81:=plot([2.2*(1-t)+2.6*t, 3.4*(1-t)+3.4*t, t=0..1],color=red):

> p82:=plot([2.2*(1-t)+3.2*t, 3.4*(1-t)+1.8*t, t=0..1],color=red):

> p83:=plot([2.6*(1-t)+3.55*t, 3.4*(1-t)+2.0*t, t=0..1],color=red):

> p84:=plot([3.55*(1-t)+4.3*t, 2.0*(1-t)+3.3*t, t=0..1],color=red):

> p85:=plot([4.3*(1-t)+4.6*t, 3.3*(1-t)+2.9*t, t=0..1],color=red):

> p86:=plot([4.6*(1-t)+2.9*t, 2.9*(1-t)+0.65*t, t=0..1],color=red):

> p87:=plot([2.9*(1-t)+2.6*t, 0.65*(1-t)+0.85*t, t=0..1],color=red):

> p88:=plot([2.6*(1-t)+3.2*t, 0.85*(1-t)+1.9*t, t=0..1],color=red):

> p89:=plot([-5.0*(1-t)-4.6*t, -6*(1-t)-8.5*t, t=0..1],color=green):

> p90:=plot([-5.0*(1-t)-3.0*t, -6*(1-t)-6*t, t=0..1],color=green):

> p91:=plot([-3.0*(1-t)-3.0*t, -6*(1-t)-7.0*t, t=0..1],color=green):

> p92:=plot([-3.0*(1-t)-4.3*t, -7.0*(1-t)-7.0*t, t=0..1],color=green):

> p93:=plot([-3.5*(1-t)-3.5*t, -7.0*(1-t)-7.7*t, t=0..1],color=green):

> p94:=plot([-3.5*(1-t)-4.1*t, -7.7*(1-t)-7.7*t, t=0..1],color=green):

> p95:=plot([-4.1*(1-t)-3.9*t, -7.7*(1-t)-8.5*t, t=0..1],color=green):

> p96:=plot([-3.9*(1-t)-4.6*t, -8.5*(1-t)-8.5*t, t=0..1],color=green):

>

> p97:=plot([-5.15*(1-t)-4.7*t, -5.9*(1-t)-8.6*t, t=0..1],color=green):

> p98:=plot([-5.15*(1-t)-2.9*t, -5.9*(1-t)-5.9*t, t=0..1],color=green):

> p99:=plot([-2.9*(1-t)-2.9*t, -5.9*(1-t)-7.1*t, t=0..1],color=green):

> p100:=plot([-2.9*(1-t)-3.4*t, -7.1*(1-t)-7.1*t, t=0..1],color=green):

> p101:=plot([-3.4*(1-t)-3.4*t, -7.1*(1-t)-7.8*t, t=0..1],color=green):

> p102:=plot([-3.4*(1-t)-4.0*t, -7.8*(1-t)-7.8*t, t=0..1],color=green):

> p103:=plot([-4.0*(1-t)-3.7*t, -7.8*(1-t)-8.6*t, t=0..1],color=green):

> p104:=plot([-4.7*(1-t)-3.7*t, -8.6*(1-t)-8.6*t, t=0..1],color=green):

> p105:=plot([cos(t)-2.2, 0.8*sin(t)-8.0, t=0+0.1..2*Pi-0.2],color=blue):

> p106:=plot([-1.2*(1-t)-2.4*t, -8*(1-t)-8*t, t=0..1],color=blue):

> p107:=plot([0.2*cos(t)-2.2, 0.2*sin(t)-8, t=Pi..2*Pi-0.5],color=blue):

> p108:=plot([-1.2*(1-t)-2.05*t, -8.14*(1-t)-8.14*t, t=0..1],color=blue):

> p109:=plot([0.3*cos(t)-2.2, 0.2*sin(t)-7.75, t=0..Pi],color=blue):

> p110:=plot([-2.45*(1-t)-1.95*t, -7.75*(1-t)-7.75*t, t=0..1],color=blue):

> p111:=plot([1.1*cos(t)-2.2, 0.9*sin(t)-8.0, t=0..2*Pi],color=blue):

> p112:=plot([-0.9*(1-t)-0.5*t, -8.7*(1-t)-6*t, t=0..1],color=yellow):

> p113:=plot([-0.5*(1-t)+0.5*t, 6*(t-1)-6*t, t=0..1],color=yellow):

> p114:=plot([0.5*(1-t)+0.1*t, -6*(1-t)-8.7*t, t=0..1],color=yellow):

> p115:=plot([0.1*(1-t)-0.9*t, -8.7*(1-t)-8.7*t, t=0..1],color=yellow):

>

> p116:=plot([-0.8*(1-t)-0.4*t, -8.6*(1-t)-6.1*t, t=0..1],color=yellow):

> p117:=plot([-0.4*(1-t)+0.4*t, 6.1*(t-1)-6.1*t, t=0..1],color=yellow):

> p118:=plot([0.4*(1-t)+0*t, -6.1*(1-t)-8.6*t, t=0..1],color=yellow):

> p119:=plot([0*(1-t)-0.8*t, -8.6*(1-t)-8.6*t, t=0..1],color=yellow):

> p120:=plot([0.6*(1-t)+0.55*t, -8.8*(1-t)-7.5*t, t=0..1],color=red):

> p121:=plot([0.6*(1-t)+1.2*t, -8.8*(1-t)-8.8*t, t=0..1],color=red):

> p122:=plot([1.2*(1-t)+1.15*t, -8.8*(1-t)-7.5*t, t=0..1],color=red):

> p123:=plot([1.15*(1-t)+0.55*t, -7.5*(1-t)-7.5*t, t=0..1],color=red):

>

> p124:=plot([0.5*(1-t)+0.45*t, -8.9*(1-t)-7.4*t, t=0..1],color=red):

> p125:=plot([0.5*(1-t)+1.3*t, -8.9*(1-t)-8.9*t, t=0..1],color=red):

> p126:=plot([1.3*(1-t)+1.25*t, -8.9*(1-t)-7.4*t, t=0..1],color=red):

> p127:=plot([1.25*(1-t)+0.45*t, -7.4*(1-t)-7.4*t, t=0..1],color=red):

> p128:=plot([0.3*cos(t)+0.9, 0.3*sin(t)-6.9, t=0..2*Pi],color=red):

> p129:=plot([0.2*cos(t)+0.9, 0.2*sin(t)-6.9, t=0..2*Pi],color=red):

> p130:=plot([1.8*(1-t)+3.0*t, -6.5*(1-t)-6.5*t, t=0..1],color=blue):

> p131:=plot([1.8*(1-t)+2.7*t, -6.5*(1-t)-7.6*t, t=0..1],color=blue):

> p132:=plot([2.7*(1-t)+1.8*t, -7.6*(1-t)-8.3*t, t=0..1],color=blue):

> p133:=plot([1.8*(1-t)+2.8*t, -8.3*(1-t)-8.8*t, t=0..1],color=blue):

> p134:=plot([2.8*(1-t)+3.4*t, -8.8*(1-t)-8.2*t, t=0..1],color=blue):

> p135:=plot([3.4*(1-t)+4.0*t, -8.2*(1-t)-8.9*t, t=0..1],color=blue):

> p136:=plot([4.0*(1-t)+4.5*t, -8.9*(1-t)-8.2*t, t=0..1],color=blue):

> p137:=plot([4.5*(1-t)+3.7*t, -8.2*(1-t)-7.3*t, t=0..1],color=blue):

> p138:=plot([3.7*(1-t)+4.6*t, -7.3*(1-t)-6.4*t, t=0..1],color=blue):

> p139:=plot([4.6*(1-t)+3.8*t, -6.4*(1-t)-6.4*t, t=0..1],color=blue):

> p140:=plot([3.8*(1-t)+3.4*t, -6.4*(1-t)-6.9*t, t=0..1],color=blue):

> p141:=plot([3.4*(1-t)+3.0*t, -6.9*(1-t)-6.5*t, t=0..1],color=blue):

>

> p142:=plot([1.6*(1-t)+3.1*t, -6.4*(1-t)-6.4*t, t=0..1],color=blue):

> p143:=plot([1.6*(1-t)+2.4*t, -6.4*(1-t)-7.6*t, t=0..1],color=blue):

> p144:=plot([2.4*(1-t)+1.6*t, -7.6*(1-t)-8.3*t, t=0..1],color=blue):

> p145:=plot([1.6*(1-t)+2.8*t, -8.3*(1-t)-9.0*t, t=0..1],color=blue):

> p146:=plot([2.8*(1-t)+3.4*t, -9.0*(1-t)-8.4*t, t=0..1],color=blue):

> p147:=plot([3.4*(1-t)+4.0*t, -8.4*(1-t)-9.1*t, t=0..1],color=blue):

> p148:=plot([4.0*(1-t)+4.7*t, -9.1*(1-t)-8.2*t, t=0..1],color=blue):

> p149:=plot([4.7*(1-t)+3.9*t, -8.2*(1-t)-7.3*t, t=0..1],color=blue):

> p150:=plot([3.9*(1-t)+4.8*t, -7.3*(1-t)-6.3*t, t=0..1],color=blue):

> p151:=plot([4.8*(1-t)+3.6*t, -6.3*(1-t)-6.3*t, t=0..1],color=blue):

> p152:=plot([3.6*(1-t)+3.4*t, -6.3*(1-t)-6.7*t, t=0..1],color=blue):

> p153:=plot([3.4*(1-t)+3.1*t, -6.7*(1-t)-6.4*t, t=0..1],color=blue):

> 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,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,p123,p124,p125,p126,p127,p128,p129,p130,p131,p132,p133,p134,p135,p136,p137,p138,p139,p140,p141,p142,p143,p144,p145,p146,p147,p148,p149,p150,p151,p152,p153);

>

>