> with (plots);

Warning, the name changecoords has been redefined

> p1:=plot([t+0.12, -2*t+0.2+0.62+0.2, t=0.024..0.2], color=red, scaling=constrained):

> p2:=plot([t+0.12, 2*t+0.2+0.62+0.2, t=-0.2..-0.024], color=red):

> p3:=plot([1.3*cos(2*t)*cos(t)+0.07,1.3* sin(t)*cos(2*t)+0.25, t=0.9..2.25], color=orange):

> p4:=polarplot(0.9*sin(x)*cos(x/2), x=0..Pi, color=orange):

> p5:=plot([-0.7*cos(x)*sin(4*x)-0.12, -0.7*sin(x)*sin(4*x), x=3.95..4.45], color=orange):

> p6:=plot([-0.7*cos(x)*sin(4*x)+0.28, -0.7*sin(x)*sin(4*x), x=1.82..2.36], color=orange):

> p7:=plot([t, sqrt(0.0008-t^2)+0.45, t=-1..1], color=black):

> p8:=plot([t, -sqrt(0.0008-t^2)+0.45, t=-1..1], color=black):

> p9:=plot([t+0.2, -sqrt(0.0008-t^2)+0.43, t=-1..1], color=black):

> p10:=plot([t+0.2, sqrt(0.0008-t^2)+0.43, t=-1..1], color=black):

> p11:=plot([t/10-3+0.8+2-0.08,-(0.5*t/2)^3+0.7, t=-1.3..1.9], color=orange):

> p12:=plot([t/10-3+0.8+2-0.08+0.6+0.15, (0.5*t/2)^3+0.67, t=-1.7..1.7], color=orange):

> p13:=plot([-(0.55*t/1.75)^3-0.1-0.3,t/10-3+0.8+2-0.08+0.5+0.428, t=-2..1.1], color=orange):

> p14:=plot([(0.55*t/1.75)^3-0.1-0.3+0.99,t/10-3+0.8+2-0.08+0.5+0.4, t=-1.75..0.9], color=orange):

> p15:=plot([t, (t/1.2)^2-0.5, t=-0.28..0.385], color=red):

> p16:=plot([0.3*0.5*sqrt(1-(t/0.35)^2)+0.08,0.3*t+0.3+0.03, t=-1..1], color=orange):

> p17:=plot([-0.3*0.5*sqrt(1-(t/0.35)^2)+0.08,0.3*t+0.3+0.03, t=-1..1], color=orange):

> p18:=plot([t, sqrt(0.005-t^2)+0.52, t=-0.05..0.05], color=black):

> p19:=plot([t+0.23, sqrt(0.005-t^2)+0.5, t=-0.04..0.06], color=black):

> p20:=plot([t, (t/1.2)^2-0.5-0.18, t=-0.28..0.385], color=red):

> p21:=plot([t, (t/1.2)^2-0.5+0.18, t=-0.25..0.385], color=red):

> p22:=plot([t, (t/1.2)^2-0.5-2*0.18, t=-0.24..0.385], color=red):

> p23:=plot([t, (t/1.2)^2-0.5+2*0.18, t=-0.2..0.32], color=red):

> p24:=plot([-0.1, t,t=-1.1..-1], color=orange):

> p25:=plot([0.05, t, t=-1.2..-1.05], color=orange):

> p26:=plot([0.1, t, t=-1.2..-1.05], color=orange):

> p27:=plot([0.25, t, t=-1.1..-1], color=orange):

> p28:=plot([0.275*cos(t)*cos(2*t)-0.05, 0.275*sin(t)*cos(2*t)-1.15, t=2.5..3.15], color=orange):

> p29:=plot([-1*0.275*cos(t)*cos(2*t)+0.19, 0.275*sin(t)*cos(2*t)-1.15, t=2.5..3.15], color=orange):

> p30:=plot([0.2*cos(t)*cos(2*t)-0.122, 0.2*sin(t)*cos(2*t)-1.175, t=3.05..3.6], color=orange):

> p31:=plot([-1*0.2*cos(t)*cos(2*t)+0.265, 0.2*sin(t)*cos(2*t)-1.175, t=3.05..3.6], color=orange):

> p32:=plot([t-0.035, -sqrt(0.007-t^2)-1.17, t=0.06..0.1], color=orange):

> p33:=plot([t, -1.23, t=-0.24..0.03], color=orange):

> p34:=plot([-t+0.035+0.15, -sqrt(0.007-t^2)-1.17, t=0.06..0.1], color=orange):

> p35:=plot([-1*t+0.15, -1.23, t=-0.24..0.03], color=orange):

> p36:=plot([t+0.08, 5*t^2+0.2, t=-0.1..0.1], color=orange):

> p37:=plot([t-2.5, -0.8, t=0..1.5] ,color=green):

> p38:=plot([t-0.1, 2*t+4, t=-2.4..-2.2], color=green):

> p39:=plot([t-0.1+1.3, -2*t-5.2, t=-2.4..-2.2], color=green):

> p40:=plot([t-2.4, -0.38, t=0..1.3], color=green):

> p41:=plot([t, 2*t+4+0.42, t=-2.4..-2.2], color=green):

> p42:=plot([t-2.3, 0.04, t=0..1.1], color=green):

> p43:=plot([t-0.1+1.2, -2*t-5.2+0.42, t=-2.4..-2.2], color=green):

> p44:=plot([t+0.1, 2*t+4+0.42+0.42, t=-2.4..-1.9], color=green):

> p45:=plot([t-0.1+1.2-0.1, -2*t-5.2+0.42+0.42, t=-2.2..-2.7], color=green):

> p46:=plot([0.07*cos(t)-2, 0.07*sin(t)+0.5, t=0..2*Pi], color=red):

> p47:=plot([0.07*cos(t)-1.6, 0.07*sin(t)-0.3, t=0..2*Pi], color=orange):

> p48:=plot([0.07*cos(t)-1.85, 0.07*sin(t)-0.5, t=0..2*Pi], color=blue):

> p49:=plot([0.07*cos(t)-2.1, 0.07*sin(t)-0.18, t=0..2*Pi], color=yellow):

> p50:=plot([0.07*cos(t)-2.2, 0.07*sin(t)-0.65, t=0..2*Pi], color=pink):

> p51:=plot([-1.65, t, t=-0.95..-0.8], color=brown):

> p52:=plot([-1.85, t, t=-0.95..-0.8], color=brown):

> p53:=plot([t, -0.95, t=-2..-1.5], color=black):

> p54:=plot([-2, t, t=-1.3..-0.95], color=black):

> p55:=plot([-1.5, t, t=-1.3..-0.95], color=black):

> p56:=plot([t, -1.3, t=-2..-1.5], color=black):

> p57:=plot([0.07*cos(t)-1.6, 0.07*sin(t)+0.25, t=0..2*Pi], color=grey):

> p58:=plot([0.07*cos(t)-1.7, 0.07*sin(t)+0.65, t=0..2*Pi], color=violet):

> p59:=plot([0.07*cos(t)-1.35, 0.07*sin(t)-0.6, t=0..2*Pi], color=violet):

> p60:=plot([t, 1.1, t=-1.9..-1.6], color=yellow):

> p61:=plot([-1.75, t, t=0.9..1.2], color=yellow):

> p62:=plot([t, t+1.7+1.14, t=-1.65..-1.85], color=yellow):

> p63:=plot([t, -t-0.66, t=-1.65..-1.85], color=yellow):

> p64:=plot([0.06*cos(t)+0.12, 0.06*sin(t)+1.02,t=0..2*Pi], color=violet):

> p65:=plot([cos(t)*0.02, sin(t)*0.02+0.45, t=0..2*Pi], color=black):

> p66:=plot([cos(t)*0.005, sin(t)*0.005+0.45, t=0..2*Pi], color=black):

> p67:=plot([cos(t)*0.01, sin(t)*0.01+0.45, t=0..2*Pi], color=black):

> p68:=plot([cos(t)*0.015, sin(t)*0.015+0.45, t=0..2*Pi], color=black):

> p69:=plot([cos(t)*0.025, sin(t)*0.025+0.45, t=0..2*Pi], color=black):

> p70:=plot([cos(t)*0.02+0.2, sin(t)*0.02+0.43, t=0..2*Pi], color=black):

> p71:=plot([cos(t)*0.015+0.2, sin(t)*0.015+0.43, t=0..2*Pi], color=black):

> p72:=plot([cos(t)*0.01+0.2, sin(t)*0.01+0.43, t=0..2*Pi], color=black):

> p73:=plot([cos(t)*0.025+0.2, sin(t)*0.025+0.43, t=0..2*Pi], color=black):

> p74:=plot([cos(t)*0.005+0.2, sin(t)*0.005+0.43, t=0..2*Pi], color=black):

> p75:=plot([cos(t)*0.003+0.2, sin(t)*0.003+0.43, t=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);

>