>	with(plots):

The Galaxy

>	p1:=plot([cos(t)/8+Pi/2,sin(t)/8+.75,t=0..2*Pi],color=red,thickness=2,scaling=constrained):

>	p2:=plot([cos(t)/5+Pi/2,sin(t)/5+.75,t=0..2*Pi],color=orange,thickness=1):

>	p3:=plot([cos(t+.3)/2+Pi/2,cos(t)/2+.75,t=-2*Pi..Pi/6], color=maroon,thickness=2):

>	p4:=plot([cos(t+.2)+1.15,cos(t)+.37,t=-Pi/5..Pi/2], color=blue,thickness=1):

>	p5:=plot([-cos(t+.2)+2,-cos(t)+1.15,t=-Pi/5..Pi/2], color=blue,thickness=1):

>	p6:=plot([-3*cos(t+.4)/5+1.6,-3*cos(t)/5+.84,t=.2..7*Pi/5], color=blue,thickness=1):

>	p7:=plot([3*cos(t+.4)/5+1.55,3*cos(t)/5+.667,t=.2..7*Pi/5], color=blue,thickness=1):

The Stars

>	p8:=plot([cos(t)/20+2,sin(t)/20,t=0..2*Pi], color=turquoise,thickness=2):

>	p9:=plot([cos(t)/20+.5,sin(t)/20+.5,t=0..2*Pi], color=turquoise,thickness=2):

>	p10:=plot([cos(t)/20-.5,sin(t)/20+.5,t=0..2*Pi], color=turquoise,thickness=2):

>	p11:=plot([cos(t)/20+.5,sin(t)/20-1,t=0..2*Pi], color=turquoise,thickness=2):

>	p12:=plot([cos(t)/20,sin(t)/20-2,t=0..2*Pi], color=turquoise,thickness=1):

>	p13:=plot([cos(t)/20,sin(t)/20+2,t=0..2*Pi], color=turquoise,thickness=2):

>	p14:=plot([cos(t)/20-1.75,sin(t)/20+.1,t=0..2*Pi], color=turquoise,thickness=1):

>	p15:=plot([cos(t)/20-1.3,sin(t)/20-1.6,t=0..2*Pi], color=turquoise,thickness=2):

>	p16:=plot([cos(t)/20-1,sin(t)/20-2.5,t=0..2*Pi], color=turquoise,thickness=1):

>	p17:=plot([cos(t)/20+1,sin(t)/20-2.5,t=0..2*Pi], color=turquoise,thickness=2):

>	p18:=plot([cos(t)/20-1.25,sin(t)/20+1.75,t=0..2*Pi], color=turquoise,thickness=2):

>	p19:=plot([cos(t)/20-.1,sin(t)/20-3,t=0..2*Pi], color=turquoise,thickness=2):

>	p20:=plot([cos(t)/20-4.25,sin(t)/20-1.9,t=0..2*Pi], color=turquoise,thickness=2):

>	p21:=plot([cos(t)/20+.25,sin(t)/20-4.15,t=0..2*Pi], color=turquoise,thickness=2):

>	p22:=plot([cos(t)/20-2,sin(t)/20-3.75,t=0..2*Pi], color=turquoise,thickness=2):

>	p23:=plot([cos(t)/20-5.5,sin(t)/20-5.1,t=0..2*Pi], color=turquoise,thickness=2):

>	p24:=plot([cos(t)/20-3.4,sin(t)/20-.4,t=0..2*Pi], color=turquoise,thickness=2):

>	p25:=plot([cos(t)/20-2.75,sin(t)/20+1,t=0..2*Pi], color=turquoise,thickness=2):

>	p26:=plot([cos(t)/20-3.75,sin(t)/20+1.6,t=0..2*Pi], color=turquoise,thickness=2):

>	p27:=plot([cos(t)/20-1.1,sin(t)/20-2.6,t=0..2*Pi], color=turquoise,thickness=1):

>	p28:=plot([cos(t)/20-.8,sin(t)/20-3.6,t=0..2*Pi], color=turquoise,thickness=2):

>	p29:=plot([cos(t)/20-1.75,sin(t)/20-5.25,t=0..2*Pi], color=turquoise,thickness=1):

>	p30:=plot([cos(t)/20-4,sin(t)/20,t=0..2*Pi], color=turquoise,thickness=2):

>	p31:=plot([cos(t)/20-2.35,sin(t)/20-6,t=0..2*Pi], color=turquoise,thickness=2):

>	p32:=plot([cos(t)/20-.72,sin(t)/20-5,t=0..2*Pi], color=turquoise,thickness=2):

>	p33:=plot([cos(t)/20-6.5,sin(t)/20+.8,t=0..2*Pi], color=turquoise,thickness=2):

>	p34:=plot([cos(t)/20-7,sin(t)/20-1,t=0..2*Pi], color=turquoise,thickness=1):

>	p35:=plot([cos(t)/20-7.2,sin(t)/20,t=0..2*Pi], color=turquoise,thickness=2):

>	p36:=plot([cos(t)/20-.6,sin(t)/20-.5,t=0..2*Pi], color=turquoise,thickness=2):

>	p37:=plot([cos(t)/20+1,sin(t)/20-.5,t=0..2*Pi], color=turquoise,thickness=1):

Quasars

>	p38:=plot([(t)/15,sin(t)/4,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p39:=plot([-(t)/15+0.7333,sin(t)/4,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p40:=plot([(t)/15,-sin(t)/4-.5,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p41:=plot([-(t)/15+0.7333,-sin(t)/4-.5,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p42:=plot([(t)/15+1.5,sin(t)/4-1.25,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p43:=plot([-(t)/15+0.7333+1.5,sin(t)/4-1.25,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p44:=plot([(t)/15+1.5,-sin(t)/4-.5-1.25,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p45:=plot([-(t)/15+0.7333+1.5,-sin(t)/4-.5-1.25,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p46:=plot([(t)/15+1.5,sin(t)/4+1.75,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p47:=plot([-(t)/15+0.7333+1.5,sin(t)/4+1.75,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p48:=plot([(t)/15+1.5,-sin(t)/4+1.25,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p49:=plot([-(t)/15+0.7333+1.5,-sin(t)/4+1.25,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p50:=plot([(t)/15-2.25,sin(t)/4-2,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p51:=plot([-(t)/15+0.7333-2.25,sin(t)/4-2,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p52:=plot([(t)/15-2.25,-sin(t)/4-2.5,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p53:=plot([-(t)/15+0.7333-2.25,-sin(t)/4-2.5,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p54:=plot([(t)/15-2.25,sin(t)/4+1.5,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p55:=plot([-(t)/15+0.7333-2.25,sin(t)/4+1.5,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p56:=plot([(t)/15-2.25,-sin(t)/4+1,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

>	p57:=plot([-(t)/15+0.7333-2.25,-sin(t)/4+1,t=3*Pi/2..7*Pi/4], color=magenta,thickness=1):

Super Nova

>	p58:=plot([exp((cos(t)^5)/3)-6,sin(t)^5*exp(-t/3)+1,t=0..2*Pi],color=coral,scaling=constrained):

>	p59:=plot([-exp((cos(t)^5)/3)-4,sin(t)^5*exp(-t/3)+1,t=0..2*Pi],color=red):

>	p60:=plot([exp((cos(t)^5)/3)-6,-sin(t)^5*exp(-t/3)+1,t=0..2*Pi],color=red):

>	p61:=plot([-exp((cos(t)^5)/3)-4,-sin(t)^5*exp(-t/3)+1,t=0..2*Pi],color=coral):

A Comet

>	p62:=plot([-5*sin(t)^exp(t/2)/2+2,2*cos(2*t)/2-5,t=0..Pi],color=orange,thickness=2):

>	p63:=plot([2*cos(2*t)/2+1,-5*sin(t)^exp(t/2)/2-4,t=0..Pi],color=orange,thickness=2):

>	p64:=plot([cos(t)+1.95,-sin(t/2)^exp(t/2)-4.05,t=Pi..192*Pi/129],color=yellow,thickness=3):

>	p65:=plot([-sin(t/2)^exp(t/2)+1.95,cos(t)-4.05,t=Pi..192*Pi/129],color=yellow,thickness=3):

>	p66:=plot([2.5*cos(t)+2,-2.5*sin(t/2)^exp(t/2)-4,t=Pi..192*Pi/129],color=coral,thickness=2):

>	p67:=plot([-2.5*sin(t/2)^exp(t/2)+2,2.5*cos(t)-4,t=Pi..192*Pi/129],color=coral,thickness=2):

>	p68:=plot([cos(t)/10+1.975,sin(t)/10-4.025,t=0..2*Pi],color=red,thickness=3):

Satellite/Antenna

>	p69:=plot(-3,x=-9..4,color=white):

>	p70:=plot([-2*sin(t)/3+cos(t)/5-7.3,-2*cos(t)/1.5+sin(t)/5-4,t=0..2*Pi],scaling=constrained,color=black):

>	p71:=plot([-2*sin(t)/3+cos(t)/5-7.35,-2*cos(t)/1.5+sin(t)/5-4,t=0..2*Pi],color=black):

>	p72:=plot([-sin(t)/25+cos(t-1.1)-7.3,-2*cos(t)/1.54+2*sin(t)/5-4,t=0..Pi],color=black):

>	p73:=plot(7*x/6+5.5,x=-8.4..-7.4,color=black):

>	p74:=plot(7*x/6+5.45,x=-8.375..-7.4,color=black):

>	p75:=plot(-3*x/9-7.15,x=-8.4..-7,color=black):

>	p76:=plot(-3*x/9-7.12,x=-8.375..-7,color=black):

>	p77:=plot(2*x/9-2.475,x=-8.4..-7,color=black):

>	p78:=plot(2*x/9-2.44,x=-8.4..-7,color=black):

>	p79:=plot([cos(t)/30-8.4,sin(t)/30-4.33,t=0..2*Pi],color=black):

>	p80:=plot([sin(t)/12+cos(t-1)/30-6.395,cos(t)/8+sin(t)/30-3.65,t=-2*Pi/7..Pi/3],color=black):

>	p81:=plot([sin(t)/12+cos(t-1)/30-6.2,cos(t)/8+sin(t)/30-3.95,t=0..2*Pi],color=black):

>	p82:=plot([sin(t)/12+cos(t-1)/30-6.295,cos(t)/8+sin(t)/30-3.8,t=-3*Pi/8..Pi/3],color=black):

>	p83:=plot(-3*x/2-13,x=-6.3..-6.1,color=black):

>	p84:=plot([sin(t)/5+cos(t)/30-6.25,-2*cos(t)/5+cos(t)/30-3.8,t=-Pi/6..5*Pi/4],color=black):

>	p85:=plot([sin(t)/5+cos(t)/30-5.75,-2*cos(t)/5+cos(t)/30-3.64,t=Pi/8..Pi],color=black):

>	p86:=plot(x/3-1.33,x=-6.3..-5.79,color=black):

>	p87:=plot(x/3-2.1,x=-6.15..-5.65,color=black):

>	p88:=plot([5*sin(t)/14+cos(t)/100-5.75,-20*cos(t)/26+cos(t)/10-3.8,t=-Pi/3..5*Pi/4],color=black):

>	p89:=plot([5*sin(t)/14+cos(t)/100-4.5,-20*cos(t)/26+cos(t)/10-3.38,t=0..Pi],color=black):

>	p90:=plot([5*sin(t)/14+cos(t)/100-5.6,-20*cos(t)/26+cos(t)/10-3.74,t=0..Pi],color=black):

>	p91:=plot([5*sin(t)/14+cos(t)/100-4.65,-20*cos(t)/26+cos(t)/10-3.43,t=0..Pi],color=black):

>	p92:=plot(x/3-1.19,x=-5.78..-4.5,color=black):

>	p93:=plot(x/3-2.55,x=-5.78..-4.4,color=black):

>	p94:=plot(sin(15*x)/40-.5, x=-6.5..-4.5,scaling=constrained,color=black):

>	p95:=plot(sin(15*x)/40-1.5, x=-6.75..-4.75,scaling=constrained,color=black):

>	p96:=plot(sin(15*x)/40-1.75, x=-7..-5,scaling=constrained,color=black):

>	p97:=plot(sin(15*x)/40-2.75, x=-7.08..-5.25,scaling=constrained,color=black):

>	p98:=plot(sin(15*x)/40-4.75, x=-6.4..-5.75,scaling=constrained,color=black):

>	p99:=plot(sin(15*x)/40-5, x=-8..-7.54,scaling=constrained,color=black):

>	p100:=plot(sin(15*x)/40-5, x=-6.5..-6,scaling=constrained,color=black):

>	p101:=plot(sin(15*x)/40-6, x=-8.25..-6.25,scaling=constrained,color=black):

>	p102:=plot(sin(15*x)/40-.75, x=-3.5..-1.5,scaling=constrained,color=black):

>	p103:=plot(sin(15*x)/40-1.75, x=-3.75..-1.75,scaling=constrained,color=black):

>	p104:=plot(sin(15*x)/40-2, x=-4..-2,scaling=constrained,color=black):

>	p105:=plot(sin(15*x)/40-3, x=-4.25..-2.25,scaling=constrained,color=black):

>	p106:=plot(sin(15*x)/40-4, x=-4.5..-2.5,scaling=constrained,color=black):

>	p107:=plot(sin(15*x)/40-5, x=-4.75..-2.75,scaling=constrained,color=black):

>	p108:=plot(sin(15*x)/40-5.25, x=-5..-3,scaling=constrained,color=black):

>	p109:=plot(sin(15*x)/40-6.25, x=-5.25..-3.25,scaling=constrained,color=black):

Solar Panels/Foils

>	p110:=plot(4*x+14.75,x=-5.25..-5,color=navy):

>	p111:=plot(4*x+12.75,x=-4.75..-4.5,color=blue):

>	p112:=plot(4*x+10.75,x=-4.25..-3.95,color=navy):

>	p113:=plot(4*x+8.75,x=-3.75..-3.45,color=blue):

>	p114:=plot(4*x+6.75,x=-3.25..-3,color=navy):

>	p115:=plot(4*x+14,x=-4.75..-4.5,color=navy):

>	p116:=plot(4*x+12,x=-4.25..-4,color=blue):

>	p117:=plot(4*x+10,x=-3.75..-3.5,color=navy):

>	p118:=plot(4*x+8,x=-3.25..-3,color=blue):

>	p119:=plot(4*x+6,x=-2.75..-2.5,color=navy):

>	p120:=plot(4*x+14,x=-4.25..-4,color=navy):

>	p121:=plot(4*x+12,x=-3.75..-3.5,color=blue):

>	p122:=plot(4*x+10,x=-3.25..-3,color=navy):

>	p123:=plot(4*x+8,x=-2.75..-2.5,color=blue):

>	p124:=plot(4*x+6,x=-2.25..-2,color=navy):

>	p125:=plot(4*x+13.25,x=-3.75..-3.5,color=navy):

>	p126:=plot(4*x+11.25,x=-3.3..-3,color=blue):

>	p127:=plot(4*x+9.25,x=-2.8..-2.5,color=navy):

>	p128:=plot(4*x+7.25,x=-2.25..-2,color=blue):

>	p129:=plot(4*x+5.25,x=-1.75..-1.5,color=navy):

>	p130:=plot(4*x+27,x=-8.25..-8,color=navy):

>	p131:=plot(4*x+25,x=-7.75..-7.52,color=blue):

>	p132:=plot(4*x+23,x=-7.25..-7.1,color=navy):

>	p133:=plot(4*x+21,x=-6.75..-6.55,color=blue):

>	p134:=plot(4*x+19,x=-6.25..-6,color=navy):

>	p135:=plot(4*x+20.25,x=-6.25..-6.1,color=blue):

>	p136:=plot(4*x+18.25,x=-5.75..-5.68,color=navy):

>	p137:=plot(4*x+26.25,x=-7.22..-7,color=navy):

>	p138:=plot(4*x+24.25,x=-6.75..-6.5,color=blue):

>	p139:=plot(4*x+22.25,x=-6.25..-6,color=navy):

>	p140:=plot(4*x+20.25,x=-5.75..-5.5,color=blue):

>	p141:=plot(4*x+18.25,x=-5.25..-5,color=navy):

>	p142:=plot(4*x+25.5,x=-6.75..-6.5,color=navy):

>	p143:=plot(4*x+23.5,x=-6.3..-6,color=blue):

>	p144:=plot(4*x+21.5,x=-5.8..-5.5,color=navy):

>	p145:=plot(4*x+19.5,x=-5.25..-5,color=blue):

>	p146:=plot(4*x+17.5,x=-4.75..-4.5,color=navy):

>	p147:=plot(x/7.5-3,x=-5..-3.7,color=black):

>	p148:=plot(-x/7.5-4,x=-5..-3.7,color=black):

>	p149:=plot(-x/7.5-3.95,x=-5..-3.7,color=black):

>	p150:=plot(x/7.5-3.05,x=-5..-3.7,color=black):

>	p151:=plot(4*x+11,x=-3.5..-3.75,color=black):

>	p152:=plot(4*x+11.2,x=-3.55..-3.8,color=black):

>	p153:=plot(4*x+9,x=-3.25..-3,color=black):

>	p154:=plot(4*x+8.8,x=-3.2..-2.95,color=black):

>	p155:=plot(x/7.5-2.5,x=-6.15..-6.02,color=black):

>	p156:=plot(4*x+23.25,x=-6.5..-6.6,color=black):

>	p157:=plot(4*x+23.45,x=-6.55..-6.65,color=black):

>	p158:=plot(4*x+21.25,x=-6.15..-6,color=black):

>	p159:=plot(4*x+21.05,x=-6.1..-5.95,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,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,p154,p155,p156,p157,p158,p159);

>