> with(plots):

>

> p7 := polarplot(1+3*cos(2*theta), theta=13.55*Pi/8..26.4*Pi/8, color = blue, scaling = constrained):

> p8 := plot([-2.3-.5*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p9 := plot([2.3-.5*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p10 := plot([-2.3-.6*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p11 := plot([2.3-.6*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p12 := plot([-2.3-.7*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p13 := plot([2.3-.7*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p14 := plot([-2.3-.8*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p15 := plot([2.3-.8*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p16 := plot([-2.3-.9*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p17 := plot([2.3-.9*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p18 := plot([-2.3-1*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p19 := plot([2.3-1*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p20 := plot([-2.3-1.1*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p21 := plot([2.3-1.1*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p22 := plot([-2.3-1.2*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p23 := plot([2.3-1.2*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p24 := plot([-2.3-1.3*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p25 := plot([2.3-1.3*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p26 := plot([-2.3-1.4*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p27 := plot([2.3-1.4*cos(t), 1*sin(t), t=0..2*Pi], color = red):

> p28 := plot([-2.3-1.35*cos(t), 1*sin(t), t=0..2*Pi], color = blue):

> p29 := plot([2.3-1.35*cos(t), 1*sin(t), t=0..2*Pi], color = yellow):

> p30 := plot([-2.3-1.25*cos(t), 1*sin(t), t=0..2*Pi], color = blue):

> p31 := plot([2.3-1.25*cos(t), 1*sin(t), t=0..2*Pi], color = yellow):

> p32 := plot([-2.3-1.15*cos(t), 1*sin(t), t=0..2*Pi], color = blue):

> p33 := plot([2.3-1.15*cos(t), 1*sin(t), t=0..2*Pi], color = yellow):

> p34 := plot([-2.3-1.05*cos(t), 1*sin(t), t=0..2*Pi], color = blue):

> p35 := plot([2.3-1.05*cos(t), 1*sin(t), t=0..2*Pi], color = yellow):

> p36 := plot([-2.3-0.95*cos(t), 1*sin(t), t=0..2*Pi], color = blue):

> p37 := plot([2.3-0.95*cos(t), 1*sin(t), t=0..2*Pi], color = yellow):

> p38 := plot([-2.3-0.85*cos(t), 1*sin(t), t=0..2*Pi], color = blue):

> p39 := plot([2.3-0.85*cos(t), 1*sin(t), t=0..2*Pi], color = yellow):

> p40 := plot([-2.3-0.75*cos(t), 1*sin(t), t=0..2*Pi], color = blue):

> p41 := plot([2.3-0.75*cos(t), 1*sin(t), t=0..2*Pi], color = yellow):

> p42 := plot([-2.3-0.65*cos(t), 1*sin(t), t=0..2*Pi], color = blue):

> p43 := plot([2.3-0.65*cos(t), 1*sin(t), t=0..2*Pi], color = yellow):

> p44 := plot([-2.3-0.55*cos(t), 1*sin(t), t=0..2*Pi], color = blue):

> p45 := plot([2.3-0.55*cos(t), 1*sin(t), t=0..2*Pi], color = yellow):

> p46 := plot([0.35*cos(t),-1.25-0.62*sin(t), t=0..2*Pi], color = blue):

> p47 := plot([0.27*cos(t),-1.27-0.54*sin(t), t=0..2*Pi], color = blue):

> p48 := plot([0.19*cos(t),-1.3-0.42*sin(t), t=0..2*Pi], color = blue):

> p49 := plot([0.405*cos(t),-1.229-0.71*sin(t), t=0..2*Pi], color = blue):

> p50 := plot([0.3825*cos(t),-1.25-0.62*sin(t), t=0..2*Pi], color = yellow):

> p51 := plot([0.31*cos(t),-1.27-0.54*sin(t), t=0..2*Pi], color = yellow):

> p52 := plot([0.23*cos(t),-1.3-0.42*sin(t), t=0..2*Pi], color = yellow):

cheek bones p57 := polarplot(5+1.2*sin(3*theta), theta=Pi..11.6*Pi/8, color= blue):

> p58 := polarplot(5+1.2*sin(3*theta), theta=3.4*Pi/2..2*Pi, color= blue):

> p59 := polarplot(7+1.2*sin(.1+.01*tan(theta)), theta=11.99*Pi/8..12.01*Pi/8, color= orange):

> p60 := polarplot(7+1.2*sin(.2+.01*tan(theta)), theta=11.96*Pi/8..12.03*Pi/8, color= orange):

> p61 := polarplot(7+1.2*sin(.3+.02*tan(theta)), theta=11.93*Pi/8..12.06*Pi/8, color= orange):

> p62 := polarplot(7+1.2*sin(.4+.03*tan(theta)), theta=11.9*Pi/8..12.1*Pi/8, color= red):

> p63 := polarplot(7+1.2*sin(.5+.05*tan(theta)), theta=11.9*Pi/8..12.1*Pi/8, color= orange):

> p64 := polarplot(7+1.2*sin(.6+.08*tan(theta)), theta=11.9*Pi/8..12.1*Pi/8, color= yellow):

> p65 := polarplot(7+1.2*sin(.7+.13*tan(theta)), theta=11.9*Pi/8..12.1*Pi/8, color= red):

> p66 := polarplot(7+1.2*sin(.8+.21*tan(theta)), theta=11.9*Pi/8..12.1*Pi/8, color= orange):

> p67 := polarplot(7+1.2*sin(.9+.34*tan(theta)), theta=11.9*Pi/8..12.1*Pi/8, color= yellow):

> p68 := polarplot(7+1.2*sin(.1+.55*tan(theta)), theta=11.6*Pi/8..12.4*Pi/8, color= red):

> p69:= polarplot(7+1.2*sin(.2+.89*tan(theta)), theta=11.6*Pi/8..12.4*Pi/8, color= orange):

> p70 := polarplot(7+1.2*sin(.3+1.44*tan(theta)), theta=11.6*Pi/8..12.4*Pi/8, color= yellow):

> p71 := polarplot(7+1.2*sin(.4+2.53*tan(theta)), theta=11.6*Pi/8..12.4*Pi/8, color= red):

> p72 := polarplot(7+1.2*sin(.5+3.97*tan(theta)), theta=11.6*Pi/8..12.4*Pi/8, color= orange):

> p73 := polarplot(7+1.2*sin(.6+6.50*tan(theta)), theta=11.6*Pi/8..12.4*Pi/8, color= yellow):

> p74 := polarplot(7+1.2*sin(.7+10.47*tan(theta)), theta=11.6*Pi/8..12.4*Pi/8, color= red):

> p75 := polarplot(7+1.2*sin(.8+16.97*tan(theta)), theta=11.6*Pi/8..12.4*Pi/8, color= orange):

> p76 := polarplot(7+1.2*sin(.9+27.44*tan(theta)), theta=11.6*Pi/8..12.4*Pi/8, color= yellow):

> p77 := polarplot(7+1.2*sin(.1+44.41*tan(theta)), theta=11.6*Pi/8..12.4*Pi/8, color= red):

> p78 := polarplot(7+1.2*sin(.2+71.85*tan(theta)), theta=11.6*Pi/8..12.4*Pi/8, color= orange):

> p79 := polarplot(7+1.2*sin(.3+116.26*tan(theta)), theta=11.6*Pi/8..12.4*Pi/8, color= yellow):

> p80 := plot([-2.4+2*cos(t), 2.6*sin(t), t=Pi/8..Pi/4], color = orange):

> p81 := plot([2.4+2*cos(t), 2.6*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p82 := plot([-2.5+2*cos(t), .08+2.51*sin(t), t=Pi/8..Pi/4], color = red):

> p83 := plot([2.5+2*cos(t), .08+2.51*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p84 := plot([-2.6+2*cos(t), .16+2.42*sin(t), t=Pi/8..Pi/4], color = yellow):

> p85 := plot([2.6+2*cos(t), .16+2.42*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p86 := plot([-2.7+2*cos(t), .24+2.33*sin(t), t=Pi/8..Pi/4], color = orange):

> p87 := plot([2.7+2*cos(t), .24+2.33*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p88 := plot([-2.8+2*cos(t), .32+2.24*sin(t), t=Pi/8..Pi/4], color = red):

> p89 := plot([2.8+2*cos(t), .32+2.24*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p90 := plot([-2.9+2*cos(t), .4+2.15*sin(t), t=Pi/8..Pi/4], color = yellow):

> p91 := plot([2.9+2*cos(t), .4+2.15*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p92 := plot([-3+2*cos(t), .48+2.06*sin(t), t=Pi/8..Pi/4], color = orange):

> p93 := plot([3+2*cos(t), .48+2.06*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p94 := plot([-3.1+2*cos(t), .56+1.97*sin(t), t=Pi/8..Pi/4], color = red):

> p95 := plot([3.1+2*cos(t), .56+1.97*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p96 := plot([-3.2+2*cos(t), .64+1.88*sin(t), t=Pi/8..Pi/4], color = yellow):

> p97 := plot([3.2+2*cos(t), .64+1.88*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p98 := plot([-3.3+2*cos(t), .69+1.79*sin(t), t=Pi/8..Pi/4], color = orange):

> p99 := plot([3.3+2*cos(t), .69+1.79*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p100 := plot([-3.4+2*cos(t), .74+1.7*sin(t), t=Pi/8..Pi/4], color = red):

> p101 := plot([3.4+2*cos(t), .74+1.7*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p102 := plot([-3.5+2*cos(t), .79+1.62*sin(t), t=Pi/8..Pi/4], color = yellow):

> p103 := plot([3.5+2*cos(t), .79+1.62*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p104 := plot([-3.6+2*cos(t), .84+1.54*sin(t), t=Pi/8..Pi/4], color = orange):

> p105 := plot([3.6+2*cos(t), .84+1.54*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p106 := plot([-3.7+2*cos(t), .89+1.46*sin(t), t=Pi/8..Pi/4], color = red):

> p107 := plot([3.7+2*cos(t), .89+1.46*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p108 := plot([-3.8+2*cos(t), .94+1.38*sin(t), t=Pi/8..Pi/4], color = yellow):

> p109 := plot([3.8+2*cos(t), .94+1.38*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p110 := plot([-3.9+2*cos(t), .99+1.3*sin(t), t=Pi/8..Pi/4], color = orange):

> p111 := plot([3.9+2*cos(t), .99+1.3*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p112 := plot([-4+2*cos(t), 1.04+1.22*sin(t), t=Pi/8..Pi/4], color = red):

> p113 := plot([4+2*cos(t), 1.04+1.22*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p114 := plot([-4.1+2*cos(t), 1.07+1.14*sin(t), t=Pi/8..Pi/4], color = yellow):

> p115 := plot([4.1+2*cos(t), 1.07+1.14*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p116 := plot([-4.2+2*cos(t), 1.10+1.06*sin(t), t=Pi/8..Pi/4], color = orange):

> p117 := plot([4.2+2*cos(t), 1.10+1.06*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p118 := plot([-4.3+2*cos(t), 1.13+.98*sin(t), t=Pi/8..Pi/4], color = red):

> p119 := plot([4.3+2*cos(t), 1.13+.98*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p120 := plot([-4.4+2*cos(t), 1.16+.9*sin(t), t=Pi/8..Pi/4], color = yellow):

> p121 := plot([4.4+2*cos(t), 1.16+.9*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p122 := plot([-4.5+2*cos(t), 1.19+.82*sin(t), t=Pi/8..Pi/4], color = orange):

> p123 := plot([4.5+2*cos(t), 1.19+.82*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p124 := plot([-4.6+2*cos(t), 1.22+.74*sin(t), t=Pi/8..Pi/4], color = red):

> p125 := plot([4.6+2*cos(t), 1.22+.74*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p126 := plot([-4.7+2*cos(t), 1.25+.66*sin(t), t=Pi/8..Pi/4], color = yellow):

> p127 := plot([4.7+2*cos(t), 1.25+.66*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p128 := plot([-4.8+2*cos(t), 1.28+.58*sin(t), t=Pi/8..Pi/4], color = orange):

> p129 := plot([4.8+2*cos(t), 1.28+.58*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p130 := plot([-4.9+2*cos(t), 1.30+.5*sin(t), t=Pi/8..Pi/4], color = red):

> p131 := plot([4.9+2*cos(t), 1.30+.5*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p132 := plot([-5+2*cos(t), 1.32+.42*sin(t), t=Pi/8..Pi/4], color = yellow):

> p133 := plot([5+2*cos(t), 1.32+.42*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p134 := plot([-5.1+2*cos(t), 1.34+.34*sin(t), t=Pi/8..Pi/4], color = orange):

> p135 := plot([5.1+2*cos(t), 1.34+.34*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p136 := plot([-5.2+2*cos(t), 1.36+.26*sin(t), t=Pi/8..Pi/4], color = red):

> p137 := plot([5.2+2*cos(t), 1.36+.26*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p138 := plot([-5.3+2*cos(t), 1.38+.18*sin(t), t=Pi/8..Pi/4], color = yellow):

> p139 := plot([5.3+2*cos(t), 1.38+.18*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p140 := plot([-5.4+2*cos(t), 1.40+.1*sin(t), t=Pi/8..Pi/4], color = orange):

> p141 := plot([5.4+2*cos(t), 1.40+.1*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p142 := plot([-5.5+2*cos(t), 1.42+.02*sin(t), t=Pi/8..Pi/4], color = red):

> p143 := plot([5.5+2*cos(t), 1.42+.02*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p144 := plot([-2.4+2.2*cos(t), 2.6*sin(t), t=Pi/8..Pi/4], color = orange):

> p145 := plot([2.4+2.2*cos(t), 2.6*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p146 := plot([-2.5+2.2*cos(t), .08+2.51*sin(t), t=Pi/8..Pi/4], color = red):

> p147 := plot([2.5+2.2*cos(t), .08+2.51*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p148 := plot([-2.6+2.2*cos(t), .16+2.42*sin(t), t=Pi/8..Pi/4], color = yellow):

> p149 := plot([2.6+2.2*cos(t), .16+2.42*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p150 := plot([-2.7+2.2*cos(t), .24+2.33*sin(t), t=Pi/8..Pi/4], color = orange):

> p151 := plot([2.7+2.2*cos(t), .24+2.33*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p152 := plot([-2.8+2.2*cos(t), .32+2.24*sin(t), t=Pi/8..Pi/4], color = red):

> p153 := plot([2.8+2.2*cos(t), .32+2.24*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p154 := plot([-2.9+2.2*cos(t), .4+2.15*sin(t), t=Pi/8..Pi/4], color = yellow):

> p155 := plot([2.9+2.2*cos(t), .4+2.15*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p156 := plot([-3+2.2*cos(t), .48+2.06*sin(t), t=Pi/8..Pi/4], color = orange):

> p157 := plot([3+2.2*cos(t), .48+2.06*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p158 := plot([-3.1+2.2*cos(t), .56+1.97*sin(t), t=Pi/8..Pi/4], color = red):

> p159 := plot([3.1+2.2*cos(t), .56+1.97*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p160 := plot([-3.2+2.2*cos(t), .64+1.88*sin(t), t=Pi/8..Pi/4], color = yellow):

> p161 := plot([3.2+2.2*cos(t), .64+1.88*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p162 := plot([-3.3+2.2*cos(t), .69+1.79*sin(t), t=Pi/8..Pi/4], color = orange):

> p163 := plot([3.3+2.2*cos(t), .69+1.79*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p164 := plot([-3.4+2.2*cos(t), .74+1.7*sin(t), t=Pi/8..Pi/4], color = red):

> p165 := plot([3.4+2.2*cos(t), .74+1.7*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p166 := plot([-3.5+2.2*cos(t), .79+1.62*sin(t), t=Pi/8..Pi/4], color = yellow):

> p167 := plot([3.5+2.2*cos(t), .79+1.62*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p168 := plot([-3.6+2.2*cos(t), .84+1.54*sin(t), t=Pi/8..Pi/4], color = orange):

> p169 := plot([3.6+2.2*cos(t), .84+1.54*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p170 := plot([-3.7+2.2*cos(t), .89+1.46*sin(t), t=Pi/8..Pi/4], color = red):

> p171 := plot([3.7+2.2*cos(t), .89+1.46*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p172 := plot([-3.8+2.2*cos(t), .94+1.38*sin(t), t=Pi/8..Pi/4], color = yellow):

> p173 := plot([3.8+2.2*cos(t), .94+1.38*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p174 := plot([-3.9+2.2*cos(t), .99+1.3*sin(t), t=Pi/8..Pi/4], color = orange):

> p175 := plot([3.9+2.2*cos(t), .99+1.3*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p176 := plot([-4+2.2*cos(t), 1.04+1.22*sin(t), t=Pi/8..Pi/4], color = red):

> p177 := plot([4+2.2*cos(t), 1.04+1.22*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p178 := plot([-4.1+2.2*cos(t), 1.07+1.14*sin(t), t=Pi/8..Pi/4], color = yellow):

> p179 := plot([4.1+2.2*cos(t), 1.07+1.14*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p180 := plot([-4.2+2.2*cos(t), 1.10+1.06*sin(t), t=Pi/8..Pi/4], color = orange):

> p181 := plot([4.2+2.2*cos(t), 1.10+1.06*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p182 := plot([-4.3+2.2*cos(t), 1.13+.98*sin(t), t=Pi/8..Pi/4], color = red):

> p183 := plot([4.3+2.2*cos(t), 1.13+.98*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p184 := plot([-4.4+2.2*cos(t), 1.16+.9*sin(t), t=Pi/8..Pi/4], color = yellow):

> p185 := plot([4.4+2.2*cos(t), 1.16+.9*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p186 := plot([-4.5+2.2*cos(t), 1.19+.82*sin(t), t=Pi/8..Pi/4], color = orange):

> p187 := plot([4.5+2.2*cos(t), 1.19+.82*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p188 := plot([-4.6+2.2*cos(t), 1.22+.74*sin(t), t=Pi/8..Pi/4], color = red):

> p189 := plot([4.6+2.2*cos(t), 1.22+.74*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p190 := plot([-4.7+2.2*cos(t), 1.25+.66*sin(t), t=Pi/8..Pi/4], color = yellow):

> p191 := plot([4.7+2.2*cos(t), 1.25+.66*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p192 := plot([-4.8+2.2*cos(t), 1.28+.58*sin(t), t=Pi/8..Pi/4], color = orange):

> p193 := plot([4.8+2.2*cos(t), 1.28+.58*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p194 := plot([-4.9+2.2*cos(t), 1.30+.5*sin(t), t=Pi/8..Pi/4], color = red):

> p195 := plot([4.9+2.2*cos(t), 1.30+.5*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p196 := plot([-5+2.2*cos(t), 1.32+.42*sin(t), t=Pi/8..Pi/4], color = yellow):

> p197 := plot([5+2.2*cos(t), 1.32+.42*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p198 := plot([-5.1+2.2*cos(t), 1.34+.34*sin(t), t=Pi/8..Pi/4], color = orange):

> p199 := plot([5.1+2.2*cos(t), 1.34+.34*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p200 := plot([-5.2+2.2*cos(t), 1.36+.26*sin(t), t=Pi/8..Pi/4], color = red):

> p201 := plot([5.2+2.2*cos(t), 1.36+.26*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p202 := plot([-5.3+2.2*cos(t), 1.38+.18*sin(t), t=Pi/8..Pi/4], color = yellow):

> p203 := plot([5.3+2.2*cos(t), 1.38+.18*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p204 := plot([-5.4+2.2*cos(t), 1.40+.1*sin(t), t=Pi/8..Pi/4], color = orange):

> p205 := plot([5.4+2.2*cos(t), 1.40+.1*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p206 := plot([-5.5+2.2*cos(t), 1.42+.02*sin(t), t=Pi/8..Pi/4], color = red):

> p207 := plot([5.5+2.2*cos(t), 1.42+.02*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p208 := plot([-2.4+1.8*cos(t), 2.6*sin(t), t=Pi/8..Pi/4], color = orange):

> p209 := plot([2.4+1.8*cos(t), 2.6*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p210 := plot([-2.5+1.8*cos(t), .08+2.51*sin(t), t=Pi/8..Pi/4], color = red):

> p211 := plot([2.5+1.8*cos(t), .08+2.51*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p212 := plot([-2.6+1.8*cos(t), .16+2.42*sin(t), t=Pi/8..Pi/4], color = yellow):

> p213 := plot([2.6+1.8*cos(t), .16+2.42*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p214 := plot([-2.7+1.8*cos(t), .24+2.33*sin(t), t=Pi/8..Pi/4], color = orange):

> p215 := plot([2.7+1.8*cos(t), .24+2.33*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p216 := plot([-2.8+1.8*cos(t), .32+2.24*sin(t), t=Pi/8..Pi/4], color = red):

> p217 := plot([2.8+1.8*cos(t), .32+2.24*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p218 := plot([-2.9+1.8*cos(t), .4+2.15*sin(t), t=Pi/8..Pi/4], color = yellow):

> p219 := plot([2.9+1.8*cos(t), .4+2.15*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p220 := plot([-3+1.8*cos(t), .48+2.06*sin(t), t=Pi/8..Pi/4], color = orange):

> p221 := plot([3+1.8*cos(t), .48+2.06*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p222 := plot([-3.1+1.8*cos(t), .56+1.97*sin(t), t=Pi/8..Pi/4], color = red):

> p223 := plot([3.1+1.8*cos(t), .56+1.97*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p224 := plot([-3.2+1.8*cos(t), .64+1.88*sin(t), t=Pi/8..Pi/4], color = yellow):

> p225 := plot([3.2+1.8*cos(t), .64+1.88*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p226 := plot([-3.3+1.8*cos(t), .69+1.79*sin(t), t=Pi/8..Pi/4], color = orange):

> p227 := plot([3.3+1.8*cos(t), .69+1.79*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p228 := plot([-3.4+1.8*cos(t), .74+1.7*sin(t), t=Pi/8..Pi/4], color = red):

> p229 := plot([3.4+1.8*cos(t), .74+1.7*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p230 := plot([-3.5+1.8*cos(t), .79+1.62*sin(t), t=Pi/8..Pi/4], color = yellow):

> p231 := plot([3.5+1.8*cos(t), .79+1.62*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p232 := plot([-3.6+1.8*cos(t), .84+1.54*sin(t), t=Pi/8..Pi/4], color = orange):

> p233 := plot([3.6+1.8*cos(t), .84+1.54*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p234 := plot([-3.7+1.8*cos(t), .89+1.46*sin(t), t=Pi/8..Pi/4], color = red):

> p235 := plot([3.7+1.8*cos(t), .89+1.46*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p236 := plot([-3.8+1.8*cos(t), .94+1.38*sin(t), t=Pi/8..Pi/4], color = yellow):

> p237 := plot([3.8+1.8*cos(t), .94+1.38*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p238 := plot([-3.9+1.8*cos(t), .99+1.3*sin(t), t=Pi/8..Pi/4], color = orange):

> p239 := plot([3.9+1.8*cos(t), .99+1.3*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p240 := plot([-4+1.8*cos(t), 1.04+1.22*sin(t), t=Pi/8..Pi/4], color = red):

> p241 := plot([4+1.8*cos(t), 1.04+1.22*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p242 := plot([-4.1+1.8*cos(t), 1.07+1.14*sin(t), t=Pi/8..Pi/4], color = yellow):

> p243 := plot([4.1+1.8*cos(t), 1.07+1.14*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p244 := plot([-4.2+1.8*cos(t), 1.10+1.06*sin(t), t=Pi/8..Pi/4], color = orange):

> p245 := plot([4.2+1.8*cos(t), 1.10+1.06*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p246 := plot([-4.3+1.8*cos(t), 1.13+.98*sin(t), t=Pi/8..Pi/4], color = red):

> p247 := plot([4.3+1.8*cos(t), 1.13+.98*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p248 := plot([-4.4+1.8*cos(t), 1.16+.9*sin(t), t=Pi/8..Pi/4], color = yellow):

> p249 := plot([4.4+1.8*cos(t), 1.16+.9*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p250 := plot([-4.5+1.8*cos(t), 1.19+.82*sin(t), t=Pi/8..Pi/4], color = orange):

> p251 := plot([4.5+1.8*cos(t), 1.19+.82*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p252 := plot([-4.6+1.8*cos(t), 1.22+.74*sin(t), t=Pi/8..Pi/4], color = red):

> p253 := plot([4.6+1.8*cos(t), 1.22+.74*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p254 := plot([-4.7+1.8*cos(t), 1.25+.66*sin(t), t=Pi/8..Pi/4], color = yellow):

> p255 := plot([4.7+1.8*cos(t), 1.25+.66*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p256 := plot([-4.8+1.8*cos(t), 1.28+.58*sin(t), t=Pi/8..Pi/4], color = orange):

> p257 := plot([4.8+1.8*cos(t), 1.28+.58*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p258 := plot([-4.9+1.8*cos(t), 1.30+.5*sin(t), t=Pi/8..Pi/4], color = red):

> p259 := plot([4.9+1.8*cos(t), 1.30+.5*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p260 := plot([-5+1.8*cos(t), 1.32+.42*sin(t), t=Pi/8..Pi/4], color = yellow):

> p261 := plot([5+1.8*cos(t), 1.32+.42*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p262 := plot([-5.1+1.8*cos(t), 1.34+.34*sin(t), t=Pi/8..Pi/4], color = orange):

> p263 := plot([5.1+1.8*cos(t), 1.34+.34*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p264 := plot([-5.2+1.8*cos(t), 1.36+.26*sin(t), t=Pi/8..Pi/4], color = red):

> p265 := plot([5.2+1.8*cos(t), 1.36+.26*sin(t), t=3*Pi/4..7*Pi/8], color = red):

> p266 := plot([-5.3+1.8*cos(t), 1.38+.18*sin(t), t=Pi/8..Pi/4], color = yellow):

> p267 := plot([5.3+1.8*cos(t), 1.38+.18*sin(t), t=3*Pi/4..7*Pi/8], color = yellow):

> p268 := plot([-5.4+1.8*cos(t), 1.40+.1*sin(t), t=Pi/8..Pi/4], color = orange):

> p269 := plot([5.4+1.8*cos(t), 1.40+.1*sin(t), t=3*Pi/4..7*Pi/8], color = orange):

> p270 := plot([-5.5+1.8*cos(t), 1.42+.02*sin(t), t=Pi/8..Pi/4], color = red):

> p271 := plot([5.5+1.8*cos(t), 1.42+.02*sin(t), t=3*Pi/4..7*Pi/8], color = red):

>

> m1 := plot([3*cos(t), -4.5+2*sin(t), t=Pi/4..3*Pi/4], color = red):

> m2 := plot([3*cos(t), -3.5+2*sin(t), t=5.5*Pi/4..6.15*Pi/4], color = red):

> m3 := plot([2.5*cos(t), 6*sin(t), t=4.68*Pi/4..5.4*Pi/4], color = red):

> m4 := plot([2.5*cos(t), 6*sin(t), t=7.2*Pi/4..7.32*Pi/4], color = red):

> m5 := plot([5.5*cos(t), -5+2*sin(t), t=1.5*Pi/4..2.5*Pi/4], color = red):

> m6 := plot([7*cos(t), -3.2+2*sin(t), t=5.77*Pi/4..6.05*Pi/4], color = red):

> m7 := plot([2.4*cos(t), 6.1*sin(t), t=4.69*Pi/4..5.3*Pi/4], color = red):

> m8 := plot([2.4*cos(t), 6.1*sin(t), t=7.2*Pi/4..7.31*Pi/4], color = red):

> m9 := plot([2.3*cos(t), 6.2*sin(t), t=4.67*Pi/4..5.28*Pi/4], color = red):

> m10 := plot([2.3*cos(t), 6.2*sin(t), t=7.2*Pi/4..7.33*Pi/4], color = red):

> m11 := plot([2.2*cos(t), 6.3*sin(t), t=4.66*Pi/4..5.26*Pi/4], color = red):

> m12 := plot([2.2*cos(t), 6.3*sin(t), t=7.22*Pi/4..7.345*Pi/4], color = red):

> m13 := plot([2.1*cos(t), 6.4*sin(t), t=4.655*Pi/4..5.24*Pi/4], color = red):

> m14 := plot([2.1*cos(t), 6.4*sin(t), t=7.22*Pi/4..7.355*Pi/4], color = red):

> m15 := plot([6*cos(t), -3.26+2*sin(t), t=5.74*Pi/4..6.06*Pi/4], color = red):

> m16 := plot([5*cos(t), -3.33+2*sin(t), t=5.69*Pi/4..6.08*Pi/4], color = red):

> m17 := plot([4*cos(t), -3.4+2*sin(t), t=5.62*Pi/4..6.105*Pi/4], color = red):

> m18 := plot([6.5*cos(t), -3.23+2*sin(t), t=5.76*Pi/4..6.055*Pi/4], color = red):

> m19 := plot([5.5*cos(t), -3.3+2*sin(t), t=5.72*Pi/4..6.07*Pi/4], color = red):

> m20 := plot([4.5*cos(t), -3.36+2*sin(t), t=5.66*Pi/4..6.095*Pi/4], color = red):

> m21 := plot([3.5*cos(t), -3.45+2*sin(t), t=5.57*Pi/4..6.13*Pi/4], color = red):

> m22 := plot([3.5*cos(t), -4.6+2*sin(t), t=1.35*Pi/4..2.65*Pi/4], color = red):

> m23 := plot([4.0*cos(t), -4.7+2*sin(t), t=1.4*Pi/4..2.6*Pi/4], color = red):

> m24 := plot([4.5*cos(t), -4.8+2*sin(t), t=1.42*Pi/4..2.58*Pi/4], color = red):

> m25 := plot([5.0*cos(t), -4.9+2*sin(t), t=1.44*Pi/4..2.56*Pi/4], color = red):

> m26 := plot([3.25*cos(t), -4.55+2*sin(t), t=1.35*Pi/4..2.65*Pi/4], color = red):

> m27 := plot([3.75*cos(t), -4.65+2*sin(t), t=1.4*Pi/4..2.6*Pi/4], color = red):

> m28 := plot([4.25*cos(t), -4.75+2*sin(t), t=1.42*Pi/4..2.58*Pi/4], color = red):

> m29 := plot([4.75*cos(t), -4.85+2*sin(t), t=1.44*Pi/4..2.56*Pi/4], color = red):

> m30 := plot([5.25*cos(t), -4.95+2*sin(t), t=1.47*Pi/4..2.53*Pi/4], color = red):

>

> h1 := polarplot(5.0+.5*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .8000, .9500, .2000)):

> h2 := polarplot(5.025+.525*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .7750, .9500, .2250)):

> h3 := polarplot(5.05+.55*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .7500, .9500, .2500)):

> h4 := polarplot(5.075+.575*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .7250, .9500, .2725)):

> h5 := polarplot(5.10+.6*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .7000, .9500, .3000)):

> h6 := polarplot(5.15+.625*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .6750, .9500, .3250)):

> h7 := polarplot(5.20+.65*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .6500, .9500, .3500)):

> h8 := polarplot(5.25+.675*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .6250, .9500, .3725)):

> h9 := polarplot(5.30+.7*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .6000, .9500, .4000)):

> h10 := polarplot(5.35+.75*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .5750, .9250, .4250)):

> h11 := polarplot(5.40+.8*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .5500, .9000, .4500)):

> h12 := polarplot(5.45+.85*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .5250, .8750, .4725)):

> h13 := polarplot(5.5+.9*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .5000, .8500, .5000)):

> h14 := polarplot(5.575+.975*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .4750, .8250, .5250)):

> h15 := polarplot(5.65+1.05*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .4500, .8000, .5500)):

> h16 := polarplot(5.725+1.125*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .4250, .7750, .5725)):

> h17 := polarplot(5.8+1.2*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .4000, .7500, .6000)):

> h18 := polarplot(5.925+1.325*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .3750, .7250, .6250)):

> h19 := polarplot(6.05+1.45*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .3500, .7000, .6500)):

> h20 := polarplot(6.175+1.575*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .3250, .6750, .6750)):

> h21 := polarplot(6.3+1.7*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .3000, .6500, .7000)):

> h22 := polarplot(6.5+1.9*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .2750, .62500, .7250)):

> h23 := polarplot(6.7+2.1*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .2500, .6000, .7500)):

> h24 := polarplot(6.9+2.3*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .2250, .5750, .7750)):

> h25 := polarplot(7.1+2.5*sin(11*theta), theta=0..1*Pi, color = COLOR(RGB, .2000, .5500, .8000)):

>

> t8 := plot([2.3+1.1*cos(t), -6.34+.45*sin(t), t=.9*Pi/2..3.2*Pi/2], color = red):

> t9 := plot([2.5+1.1*cos(t), -6.34+.45*sin(t), t=-1.1*Pi/2..1.1*Pi/2], color = red):

> t10 := plot([2.2+1.1*cos(t), -6.34+.5*sin(t), t=.85*Pi/2..3.2*Pi/2], color = red):

> t11 := plot([2.6+1.1*cos(t), -6.34+.5*sin(t), t=-1.1*Pi/2..1.15*Pi/2], color = red):

> t12 := plot([2.1+1.1*cos(t), -6.34+.5*sin(t), t=.8*Pi/2..3.2*Pi/2], color = red):

> t13 := plot([2.7+1.1*cos(t), -6.34+.5*sin(t), t=-1.1*Pi/2..1.2*Pi/2], color = red):

> t14 := plot([2.0+1.1*cos(t), -6.32+.5*sin(t), t=.75*Pi/2..2.8*Pi/2], color = red):

> t15 := plot([2.8+1.1*cos(t), -6.32+.5*sin(t), t=-.8*Pi/2..1.25*Pi/2], color = red):

> t16 := plot([1.9+1.1*cos(t), -6.30+.5*sin(t), t=.7*Pi/2..2.7*Pi/2], color = red):

> t17 := plot([2.9+1.1*cos(t), -6.30+.5*sin(t), t=-.7*Pi/2..1.3*Pi/2], color = red):

> t18 := plot([1.81+1.1*cos(t), -6.28+.5*sin(t), t=.65*Pi/2..2.65*Pi/2], color = red):

> t19 := plot([2.99+1.1*cos(t), -6.28+.5*sin(t), t=-.65*Pi/2..1.35*Pi/2], color = red):

> t20 := plot([1.73+1.1*cos(t), -6.26+.5*sin(t), t=.6*Pi/2..2.6*Pi/2], color = red):

> t21 := plot([3.07+1.1*cos(t), -6.26+.5*sin(t), t=-.6*Pi/2..1.4*Pi/2], color = red):

> t22 := plot([1.66+1.1*cos(t), -6.24+.5*sin(t), t=.55*Pi/2..2.55*Pi/2], color = red):

> t23 := plot([3.14+1.1*cos(t), -6.24+.5*sin(t), t=-.55*Pi/2..1.5*Pi/2], color = red):

> t24 := plot([1.59+1.1*cos(t), -6.21+.5*sin(t), t=.5*Pi/2..2.5*Pi/2], color = red):

> t25 := plot([3.21+1.1*cos(t), -6.21+.5*sin(t), t=-.5*Pi/2..1.55*Pi/2], color = red):

> t26 := plot([1.55+1.1*cos(t), -6.18+.5*sin(t), t=.45*Pi/2..2.45*Pi/2], color = red):

> t27 := plot([3.25+1.1*cos(t), -6.18+.5*sin(t), t=-.45*Pi/2..1.6*Pi/2], color = red):

> t28 := plot([1.52+1.1*cos(t), -6.14+.5*sin(t), t=.4*Pi/2..2.4*Pi/2], color = red):

> t29 := plot([3.28+1.1*cos(t), -6.14+.5*sin(t), t=-.4*Pi/2..1.65*Pi/2], color = red):

> t30 := plot([1.50+1.1*cos(t), -6.10+.5*sin(t), t=.35*Pi/2..2.2*Pi/2], color = red):

> t31 := plot([3.30+1.1*cos(t), -6.10+.5*sin(t), t=-.2*Pi/2..1.7*Pi/2], color = red):

> t32 := plot([1.49+1.1*cos(t), -6.06+.5*sin(t), t=.35*Pi/2..2.2*Pi/2], color = red):

> t33 := plot([3.31+1.1*cos(t), -6.06+.5*sin(t), t=-.2*Pi/2..1.75*Pi/2], color = red):

> t34 := plot([1.59+1.1*cos(t), -6.02+.5*sin(t), t=.35*Pi/2..2.2*Pi/2], color = red):

> t35 := plot([3.31+1.1*cos(t), -6.02+.5*sin(t), t=-.2*Pi/2..1.75*Pi/2], color = red):

> t36 := plot([1.50+1.1*cos(t), -5.97+.5*sin(t), t=.35*Pi/2..2.2*Pi/2], color = red):

> t37 := plot([3.30+1.1*cos(t), -5.97+.5*sin(t), t=-.2*Pi/2..1.75*Pi/2], color = red):

> t38 := plot([1.49+1.1*cos(t), -5.92+.5*sin(t), t=.38*Pi/2..2.2*Pi/2], color = red):

> t39 := plot([3.26+1.1*cos(t), -5.92+.5*sin(t), t=-.2*Pi/2..1.72*Pi/2], color = red):

> t40 := plot([1.48+1.1*cos(t), -5.87+.5*sin(t), t=.40*Pi/2..2.2*Pi/2], color = red):

> t41 := plot([3.21+1.1*cos(t), -5.87+.5*sin(t), t=-.2*Pi/2..1.70*Pi/2], color = red):

> t42 := plot([1.47+1.1*cos(t), -5.82+.5*sin(t), t=.42*Pi/2..2.2*Pi/2], color = red):

> t43 := plot([3.17+1.1*cos(t), -5.82+.5*sin(t), t=-.2*Pi/2..1.68*Pi/2], color = red):

> t44 := plot([1.46+1.1*cos(t), -5.77+.5*sin(t), t=.44*Pi/2..2.2*Pi/2], color = red):

> t45 := plot([3.13+1.1*cos(t), -5.77+.5*sin(t), t=-.2*Pi/2..1.66*Pi/2], color = red):

> t46 := plot([1.45+1.1*cos(t), -5.71+.5*sin(t), t=.46*Pi/2..2.2*Pi/2], color = red):

> t47 := plot([3.09+1.1*cos(t), -5.71+.5*sin(t), t=-.2*Pi/2..1.64*Pi/2], color = red):

> t48 := plot([1.44+1.1*cos(t), -5.65+.5*sin(t), t=.48*Pi/2..2.2*Pi/2], color = red):

> t49 := plot([3.05+1.1*cos(t), -5.65+.5*sin(t), t=-.2*Pi/2..1.62*Pi/2], color = red):

> t50 := plot([1.43+1.1*cos(t), -5.59+.5*sin(t), t=.50*Pi/2..2.2*Pi/2], color = red):

> t51 := plot([3.01+1.1*cos(t), -5.59+.5*sin(t), t=-.2*Pi/2..1.60*Pi/2], color = red):

> t52 := plot([1.42+1.1*cos(t), -5.53+.5*sin(t), t=.51*Pi/2..2.2*Pi/2], color = red):

> t53 := plot([2.97+1.1*cos(t), -5.53+.5*sin(t), t=-.2*Pi/2..1.58*Pi/2], color = red):

> t54 := plot([1.41+1.1*cos(t), -5.47+.5*sin(t), t=.52*Pi/2..2.2*Pi/2], color = red):

> t55 := plot([2.93+1.1*cos(t), -5.47+.5*sin(t), t=-.2*Pi/2..1.56*Pi/2], color = red):

> t56 := plot([1.40+1.1*cos(t), -5.41+.5*sin(t), t=.53*Pi/2..2.2*Pi/2], color = red):

> t57 := plot([2.89+1.1*cos(t), -5.41+.5*sin(t), t=-.2*Pi/2..1.54*Pi/2], color = red):

> t58 := plot([1.39+1.1*cos(t), -5.34+.5*sin(t), t=.54*Pi/2..2.2*Pi/2], color = red):

> t59 := plot([2.85+1.1*cos(t), -5.34+.5*sin(t), t=-.2*Pi/2..1.52*Pi/2], color = red):

> t60 := plot([1.38+1.1*cos(t), -5.27+.5*sin(t), t=.55*Pi/2..2.2*Pi/2], color = red):

> t61 := plot([2.81+1.1*cos(t), -5.27+.5*sin(t), t=-.2*Pi/2..1.50*Pi/2], color = red):

> t62 := plot([1.37+1.1*cos(t), -5.20+.5*sin(t), t=.56*Pi/2..2.2*Pi/2], color = red):

> t63 := plot([2.77+1.1*cos(t), -5.20+.5*sin(t), t=-.2*Pi/2..1.50*Pi/2], color = red):

> t64 := plot([1.36+1.1*cos(t), -5.13+.5*sin(t), t=.57*Pi/2..2.2*Pi/2], color = red):

> t65 := plot([2.73+1.1*cos(t), -5.13+.5*sin(t), t=-.2*Pi/2..1.50*Pi/2], color = red):

> t66 := plot([1.35+1.1*cos(t), -5.06+.5*sin(t), t=.58*Pi/2..2.2*Pi/2], color = red):

> t67 := plot([2.69+1.1*cos(t), -5.06+.5*sin(t), t=-.2*Pi/2..1.50*Pi/2], color = red):

> t68 := plot([1.34+1.1*cos(t), -4.99+.5*sin(t), t=.59*Pi/2..2.2*Pi/2], color = red):

> t69 := plot([2.65+1.1*cos(t), -4.99+.5*sin(t), t=-.2*Pi/2..1.50*Pi/2], color = red):

> t70 := plot([1.33+1.1*cos(t), -4.92+.5*sin(t), t=.60*Pi/2..2.2*Pi/2], color = red):

> t71 := plot([2.61+1.1*cos(t), -4.92+.5*sin(t), t=-.2*Pi/2..1.50*Pi/2], color = red):

> t72 := plot([1.32+1.1*cos(t), -4.86+.5*sin(t), t=.61*Pi/2..2.2*Pi/2], color = red):

> t73 := plot([2.57+1.1*cos(t), -4.86+.5*sin(t), t=-.2*Pi/2..1.50*Pi/2], color = red):

> t74 := plot([1.31+1.1*cos(t), -4.80+.5*sin(t), t=.62*Pi/2..2.2*Pi/2], color = red):

> t75 := plot([2.53+1.1*cos(t), -4.80+.5*sin(t), t=-.2*Pi/2..1.50*Pi/2], color = red):

> t76 := plot([1.30+1.1*cos(t), -4.74+.5*sin(t), t=.63*Pi/2..2.2*Pi/2], color = red):

> t77 := plot([2.49+1.1*cos(t), -4.74+.5*sin(t), t=-.2*Pi/2..1.50*Pi/2], color = red):

> t78 := plot([1.29+1.1*cos(t), -4.68+.5*sin(t), t=.64*Pi/2..2.2*Pi/2], color = red):

> t79 := plot([2.45+1.1*cos(t), -4.68+.5*sin(t), t=-.2*Pi/2..1.50*Pi/2], color = red):

> t80 := plot([1.28+1.1*cos(t), -4.62+.5*sin(t), t=.65*Pi/2..2.2*Pi/2], color = red):

> t81 := plot([2.41+1.1*cos(t), -4.62+.5*sin(t), t=-.2*Pi/2..1.43*Pi/2], color = red):

> t82 := plot([1.27+1.1*cos(t), -4.56+.5*sin(t), t=.66*Pi/2..2.2*Pi/2], color = red):

> t83 := plot([2.37+1.1*cos(t), -4.56+.5*sin(t), t=-.2*Pi/2..1.44*Pi/2], color = red):

> t84 := plot([1.26+1.1*cos(t), -4.51+.5*sin(t), t=.67*Pi/2..2.2*Pi/2], color = red):

> t85 := plot([2.33+1.1*cos(t), -4.51+.5*sin(t), t=-.2*Pi/2..1.43*Pi/2], color = red):

> t86 := plot([1.25+1.1*cos(t), -4.46+.5*sin(t), t=.68*Pi/2..2.2*Pi/2], color = red):

> t87 := plot([2.29+1.1*cos(t), -4.46+.5*sin(t), t=-.2*Pi/2..1.42*Pi/2], color = red):

> t88 := plot([1.24+1.1*cos(t), -4.41+.5*sin(t), t=.69*Pi/2..2.2*Pi/2], color = red):

> t89 := plot([2.25+1.1*cos(t), -4.41+.5*sin(t), t=-.2*Pi/2..1.41*Pi/2], color = red):

> t90 := plot([1.23+1.1*cos(t), -4.36+.5*sin(t), t=.70*Pi/2..2.2*Pi/2], color = red):

> t91 := plot([2.21+1.1*cos(t), -4.36+.5*sin(t), t=-.2*Pi/2..1.40*Pi/2], color = red):

> t92 := plot([1.22+1.1*cos(t), -4.31+.5*sin(t), t=.71*Pi/2..2.2*Pi/2], color = red):

> t93 := plot([2.17+1.1*cos(t), -4.31+.5*sin(t), t=-.2*Pi/2..1.39*Pi/2], color = red):

> t94 := plot([1.21+1.1*cos(t), -4.27+.5*sin(t), t=.72*Pi/2..2.2*Pi/2], color = red):

> t95 := plot([2.13+1.1*cos(t), -4.27+.5*sin(t), t=-.2*Pi/2..1.38*Pi/2], color = red):

> t96 := plot([1.20+1.1*cos(t), -4.23+.5*sin(t), t=.73*Pi/2..2.2*Pi/2], color = red):

> t97 := plot([2.09+1.1*cos(t), -4.23+.5*sin(t), t=-.2*Pi/2..1.37*Pi/2], color = red):

> t98 := plot([1.19+1.1*cos(t), -4.19+.5*sin(t), t=.74*Pi/2..2.2*Pi/2], color = red):

> t99 := plot([2.05+1.1*cos(t), -4.19+.5*sin(t), t=-.2*Pi/2..1.35*Pi/2], color = red):

> t100 := plot([1.18+1.1*cos(t), -4.15+.5*sin(t), t=.75*Pi/2..2.2*Pi/2], color = COLOR(RGB, 1.370, .0000, .0000)):

> t101 := plot([2.01+1.1*cos(t), -4.15+.5*sin(t), t=-.2*Pi/2..1.33*Pi/2], color = COLOR(RGB, 1.370, .0000, .0000)):

> t102 := plot([1.17+1.1*cos(t), -4.12+.5*sin(t), t=.76*Pi/2..2.2*Pi/2], color = COLOR(RGB, 1.340, .0000, .0000)):

> t103 := plot([1.97+1.1*cos(t), -4.12+.5*sin(t), t=-.2*Pi/2..1.31*Pi/2], color = COLOR(RGB, 1.340, .0000, .0000)):

> t104 := plot([1.16+1.1*cos(t), -4.09+.5*sin(t), t=.77*Pi/2..2.2*Pi/2], color = COLOR(RGB, 1.310, .0000, .0000)):

> t105 := plot([1.93+1.1*cos(t), -4.09+.5*sin(t), t=-.2*Pi/2..1.29*Pi/2], color = COLOR(RGB, 1.310, .0000, .0000)):

> t106 := plot([1.15+1.1*cos(t), -4.06+.5*sin(t), t=.78*Pi/2..2.2*Pi/2], color = COLOR(RGB, 1.280, .0000, .0000)):

> t107 := plot([1.89+1.1*cos(t), -4.06+.5*sin(t), t=-.2*Pi/2..1.27*Pi/2], color = COLOR(RGB, 1.280, .0000, .0000)):

> t108 := plot([1.14+1.1*cos(t), -4.04+.5*sin(t), t=.79*Pi/2..2.2*Pi/2], color = COLOR(RGB, 1.250, .0000, .0000)):

> t109 := plot([1.85+1.1*cos(t), -4.04+.5*sin(t), t=-.2*Pi/2..1.25*Pi/2], color = COLOR(RGB, 1.250, .0000, .0000)):

> t110 := plot([1.13+1.1*cos(t), -4.02+.5*sin(t), t=.80*Pi/2..2.2*Pi/2], color = COLOR(RGB, 1.220, .0000, .0000)):

> t111 := plot([1.81+1.1*cos(t), -4.02+.5*sin(t), t=-.2*Pi/2..1.23*Pi/2], color = COLOR(RGB, 1.220, .0000, .0000)):

> t112 := plot([1.12+1.1*cos(t), -4.01+.5*sin(t), t=.81*Pi/2..2.2*Pi/2], color = COLOR(RGB, 1.190, .0000, .0000)):

> t113 := plot([1.77+1.1*cos(t), -4.01+.5*sin(t), t=-.2*Pi/2..1.21*Pi/2], color = COLOR(RGB, 1.190, .0000, .0000)):

> t114 := plot([1.1+1.08*cos(t), -4.02+.5*sin(t), t=1.81*Pi/2..2.2*Pi/2], color = COLOR(RGB, 1.160, .0000, .0000)):

> t115 := plot([1.05+1.06*cos(t), -4.04+.48*sin(t), t=1.81*Pi/2..2.3*Pi/2], color = COLOR(RGB, 1.130, .0000, .0000)):

> t116 := plot([1.0+1.04*cos(t), -4.06+.46*sin(t), t=1.81*Pi/2..2.35*Pi/2], color = COLOR(RGB, 1.100, .0000, .0000)):

> t117 := plot([.95+1.02*cos(t), -4.09+.44*sin(t), t=1.81*Pi/2..2.40*Pi/2], color = COLOR(RGB, 1.070, .0050, .0050)):

> t118 := plot([.90+1.00*cos(t), -4.12+.42*sin(t), t=1.81*Pi/2..2.45*Pi/2], color = COLOR(RGB, 1.040, .0100, .0100)):

> t119 := plot([.85+.98*cos(t), -4.15+.40*sin(t), t=1.81*Pi/2..2.50*Pi/2], color = COLOR(RGB, 1.010, .0150, .0150)):

> t120 := plot([.80+.96*cos(t), -4.18+.38*sin(t), t=1.81*Pi/2..2.54*Pi/2], color = COLOR(RGB, .9800, .0200, .0200)):

> t121 := plot([.75+.94*cos(t), -4.22+.36*sin(t), t=1.81*Pi/2..2.58*Pi/2], color = COLOR(RGB, .9500, .0250, .0250)):

> t122 := plot([.70+.92*cos(t), -4.26+.34*sin(t), t=1.81*Pi/2..2.62*Pi/2], color = COLOR(RGB, .9200, .0300, .0300)):

> t123 := plot([.65+.90*cos(t), -4.30+.32*sin(t), t=1.81*Pi/2..2.66*Pi/2], color = COLOR(RGB, .8900, .0350, .0350)):

> t124 := plot([.60+.88*cos(t), -4.34+.30*sin(t), t=1.81*Pi/2..2.70*Pi/2], color = COLOR(RGB, .8600, .0400, .0400)):

> t125 := plot([.55+.86*cos(t), -4.39+.28*sin(t), t=1.81*Pi/2..2.74*Pi/2], color = COLOR(RGB, .83000, .0450, .0450)):

> t126 := plot([.50+.84*cos(t), -4.44+.26*sin(t), t=1.81*Pi/2..2.78*Pi/2], color = COLOR(RGB, .8000, .0500, .0500)):

> t127 := plot([.45+.82*cos(t), -4.49+.24*sin(t), t=1.81*Pi/2..2.82*Pi/2], color = COLOR(RGB, .7700, .0550, .0550)):

> t128 := plot([.40+.80*cos(t), -4.54+.22*sin(t), t=1.81*Pi/2..2.86*Pi/2], color = COLOR(RGB, .7400, .0600, .0600)):

> t129 := plot([.35+.78*cos(t), -4.59+.20*sin(t), t=1.81*Pi/2..2.90*Pi/2], color = COLOR(RGB, .7100, .0650, .0650)):

> t130 := plot([.30+.76*cos(t), -4.63+.18*sin(t), t=1.81*Pi/2..2.94*Pi/2], color = COLOR(RGB, .6800, .0700, .0700)):

> t131 := plot([.25+.74*cos(t), -4.67+.16*sin(t), t=1.81*Pi/2..2.98*Pi/2], color = COLOR(RGB, .65000, .07500, .0750)):

> t132 := plot([.20+.72*cos(t), -4.71+.14*sin(t), t=1.81*Pi/2..3*Pi/2], color = COLOR(RGB, .6200, .0800, .0800)):

> t133 := plot([.15+.70*cos(t), -4.75+.12*sin(t), t=1.81*Pi/2..3*Pi/2], color = COLOR(RGB, .5900, .0850, .0850)):

> t134 := plot([.10+.68*cos(t), -4.79+.10*sin(t), t=1.81*Pi/2..3*Pi/2], color = COLOR(RGB, .5600, .0900, .0900)):

> t135 := plot([.05+.66*cos(t), -4.82+.08*sin(t), t=1.81*Pi/2..3*Pi/2], color = COLOR(RGB, .5300, .0950, .0950)):

> t136 := plot([.64*cos(t), -4.85+.08*sin(t), t=1.81*Pi/2..3*Pi/2], color = COLOR(RGB, .5000, .1000, .1000)):

>

>

> th1 := plot([2.4+1.1*cos(t), -6.34+.4*sin(t), t=0..2*Pi], color = red):

> th2 := plot([2.4+1.1*cos(t), -6.34+.366*sin(t), t=0..2*Pi], color = red):

> th3 := plot([2.4+1.0*cos(t), -6.34+.333*sin(t), t=0..2*Pi], color = red):

> th4 := plot([2.4+1.0*cos(t), -6.34+.3*sin(t), t=0..2*Pi], color = red):

> th5 := plot([2.4+.9*cos(t), -6.34+.266*sin(t), t=0..2*Pi], color = red):

> th6 := plot([2.4+.9*cos(t), -6.34+.233*sin(t), t=0..2*Pi], color = red):

> th7 := plot([2.4+.8*cos(t), -6.34+.2*sin(t), t=0..2*Pi], color = red):

> th8 := plot([2.4+.8*cos(t), -6.34+.166*sin(t), t=0..2*Pi], color = red):

> th9 := plot([2.4+.7*cos(t), -6.34+.133*sin(t), t=0..2*Pi], color = red):

> th10 := plot([2.4+.7*cos(t), -6.34+.1*sin(t), t=0..2*Pi], color = red):

> th11 := plot([2.4+.6*cos(t), -6.34+.066*sin(t), t=0..2*Pi], color = red):

> th12 := plot([2.4+.6*cos(t), -6.34+.033*sin(t), t=0..2*Pi], color = red):

> th13 := plot([2.4+1.2*cos(t), -6.34+.433*sin(t), t=0..2*Pi], color = red):

> th14 := plot([2.4+1.2*cos(t), -6.34+.466*sin(t), t=0..2*Pi], color = red):

> th15 := plot([2.4+1.3*cos(t), -6.34+.5*sin(t), t=0..2*Pi], color = red):

> th16 := plot([2.4+1.3*cos(t), -6.34+.533*sin(t), t=0..2*Pi], color = red):

> th17 := plot([2.4+.4*cos(t), -6.34+.01*sin(t), t=0..2*Pi], color = red):

>

> tr2 := plot([2.4+.20*cos(t), -6.78+.1*sin(t), t=-1.1*Pi/2..-0.9*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr3 := plot([2.4+.20*cos(t), -6.79+.1*sin(t), t=-1.2*Pi/2..-0.8*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr4 := plot([2.4+.20*cos(t), -6.80+.1*sin(t), t=-1.3*Pi/2..-0.7*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr5 := plot([2.4+.20*cos(t), -6.81+.1*sin(t), t=-1.4*Pi/2..-0.6*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr6 := plot([2.4+.20*cos(t), -6.82+.1*sin(t), t=-1.5*Pi/2..-0.5*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr7 := plot([2.4+.20*cos(t), -6.83+.1*sin(t), t=-1.6*Pi/2..-0.4*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr8 := plot([2.4+.20*cos(t), -6.84+.1*sin(t), t=-1.7*Pi/2..-0.3*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr9 := plot([2.4+.20*cos(t), -6.85+.1*sin(t), t=-1.8*Pi/2..-0.2*Pi/2], color = COLOR(RGB, .0100, .0100, .0100)):

> tr10 := plot([2.4+.20*cos(t), -6.86+.1*sin(t), t=-1.9*Pi/2..-0.1*Pi/2], color = COLOR(RGB, .0100, .0100, .0100)):

> tr11 := plot([2.4+.20*cos(t), -6.87+.1*sin(t), t=-2.0*Pi/2..0.00*Pi/2], color = COLOR(RGB, .0100, .0100, .0100)):

> tr12 := plot([2.4+.20*cos(t), -6.88+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .0100, .0100, .0100)):

> tr13 := plot([2.4+.21*cos(t), -6.89+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .0500, .0500, .0500)):

> tr14 := plot([2.4+.22*cos(t), -6.90+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr15 := plot([2.4+.23*cos(t), -6.91+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1500, .1500, .1500)):

> tr16 := plot([2.4+.24*cos(t), -6.92+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .2000, .2000, .2000)):

> tr17 := plot([2.4+.25*cos(t), -6.93+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .2500, .2500, .2500)):

> tr18 := plot([2.4+.26*cos(t), -6.94+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .3000, .3000, .3000)):

> tr19 := plot([2.4+.27*cos(t), -6.95+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .3500, .3500, .3500)):

> tr20 := plot([2.4+.28*cos(t), -6.96+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .4000, .4000, .4000)):

> tr21 := plot([2.4+.29*cos(t), -6.97+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .4500, .4500, .4500)):

> tr22 := plot([2.4+.30*cos(t), -6.98+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .5000, .5000, .5000)):

> tr23 := plot([2.4+.31*cos(t), -6.99+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .5500, .5500, .5500)):

> tr24 := plot([2.4+.32*cos(t), -7.00+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .6000, .6000, .6000)):

> tr25 := plot([2.4+.33*cos(t), -7.01+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .6500, .6500, .6500)):

> tr26 := plot([2.4+.34*cos(t), -7.02+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .7000, .7000, .7000)):

> tr27 := plot([2.4+.35*cos(t), -7.03+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .7500, .7500, .7500)):

> tr28 := plot([2.4+.36*cos(t), -7.04+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .8000, .8000, .8000)):

> tr29 := plot([2.4+.37*cos(t), -7.05+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .8500, .8500, .8500)):

> tr30 := plot([2.4+.38*cos(t), -7.06+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .9000, .9000, .9000)):

> tr31 := plot([2.4+.39*cos(t), -7.07+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .9500, .9500, .9500)):

> tr32 := plot([2.4+.40*cos(t), -7.08+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, 1.000, 1.000, 1.000)):

> tr33 := plot([2.4+.39*cos(t), -7.09+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .9500, .9500, .9500)):

> tr34 := plot([2.4+.38*cos(t), -7.10+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .9000, .9000, .9000)):

> tr35 := plot([2.4+.37*cos(t), -7.11+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .8500, .8500, .8500)):

> tr36 := plot([2.4+.36*cos(t), -7.12+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .8000, .8000, .8000)):

> tr37 := plot([2.4+.35*cos(t), -7.13+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .7500, .7500, .7500)):

> tr38 := plot([2.4+.34*cos(t), -7.14+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .7000, .7000, .7000)):

> tr39 := plot([2.4+.33*cos(t), -7.15+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .6500, .6500, .6500)):

> tr40 := plot([2.4+.32*cos(t), -7.16+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .6000, .6000, .6000)):

> tr41 := plot([2.4+.31*cos(t), -7.17+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .5500, .5500, .5500)):

> tr42 := plot([2.4+.30*cos(t), -7.18+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .5000, .5000, .5000)):

> tr43 := plot([2.4+.29*cos(t), -7.19+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .4500, .4500, .4500)):

> tr44 := plot([2.4+.28*cos(t), -7.20+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .4000, .4000, .4000)):

> tr45 := plot([2.4+.27*cos(t), -7.21+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .3500, .3500, .3500)):

> tr46 := plot([2.4+.26*cos(t), -7.22+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .3000, .3000, .3000)):

> tr47 := plot([2.4+.25*cos(t), -7.23+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .2500, .2500, .2500)):

> tr48 := plot([2.4+.24*cos(t), -7.24+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .2000, .2000, .2000)):

> tr49 := plot([2.4+.23*cos(t), -7.25+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1500, .1500, .1500)):

> tr50 := plot([2.4+.21*cos(t), -7.26+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr51 := plot([2.4+.20*cos(t), -7.27+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .0500, .0500, .0500)):

> tr52 := plot([2.4+.19*cos(t), -7.28+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr53 := plot([2.4+.18*cos(t), -7.29+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr54 := plot([2.4+.17*cos(t), -7.30+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr55 := plot([2.4+.16*cos(t), -7.31+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .100)):

> tr56 := plot([2.4+.15*cos(t), -7.32+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr57 := plot([2.4+.14*cos(t), -7.33+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr58 := plot([2.4+.13*cos(t), -7.34+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr59 := plot([2.4+.12*cos(t), -7.35+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr60 := plot([2.4+.11*cos(t), -7.36+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr61 := plot([2.4+.10*cos(t), -7.37+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr62 := plot([2.4+.09*cos(t), -7.38+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr64 := plot([2.4+.08*cos(t), -7.39+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr63 := plot([2.4+.07*cos(t), -7.40+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr64 := plot([2.4+.06*cos(t), -7.41+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr65 := plot([2.4+.05*cos(t), -7.42+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr66 := plot([2.4+.04*cos(t), -7.43+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr67 := plot([2.4+.03*cos(t), -7.44+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr68 := plot([2.4+.02*cos(t), -7.45+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr69 := plot([2.4+.01*cos(t), -7.46+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

>

> tr71 := plot([2.4+.2*cos(t), -5.70+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr72 := plot([2.4+.2*cos(t), -5.69+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr73 := plot([2.4+.2*cos(t), -5.68+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr74 := plot([2.4+.2*cos(t), -5.67+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr75 := plot([2.4+.2*cos(t), -5.66+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr76 := plot([2.4+.2*cos(t), -5.65+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr77 := plot([2.4+.2*cos(t), -5.64+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr78 := plot([2.4+.2*cos(t), -5.63+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr79 := plot([2.4+.2*cos(t), -5.62+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr80 := plot([2.4+.2*cos(t), -5.61+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr81 := plot([2.4+.2*cos(t), -5.60+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr82 := plot([2.4+.20*cos(t), -5.59+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr83 := plot([2.4+.21*cos(t), -5.58+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .0500, .0500, .0500)):

> tr84 := plot([2.4+.22*cos(t), -5.57+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr85 := plot([2.4+.23*cos(t), -5.56+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1500, .1500, .1500)):

> tr86 := plot([2.4+.24*cos(t), -5.55+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .2000, .2000, .2000)):

> tr87 := plot([2.4+.25*cos(t), -5.54+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .2500, .2500, .2500)):

> tr88 := plot([2.4+.26*cos(t), -5.53+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .3000, .3000, .3000)):

> tr89 := plot([2.4+.27*cos(t), -5.52+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .3500, .3500, .3500)):

> tr90 := plot([2.4+.28*cos(t), -5.51+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .4000, .4000, .4000)):

> tr91 := plot([2.4+.29*cos(t), -5.50+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .4500, .4500, .4500)):

> tr92 := plot([2.4+.30*cos(t), -5.49+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .5000, .5000, .5000)):

> tr93 := plot([2.4+.31*cos(t), -5.48+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .5500, .5500, .5500)):

> tr94 := plot([2.4+.32*cos(t), -5.47+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .6000, .6000, .6000)):

> tr95 := plot([2.4+.33*cos(t), -5.46+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .6500, .6500, .6500)):

> tr96 := plot([2.4+.34*cos(t), -5.45+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .7000, .7000, .7000)):

> tr97 := plot([2.4+.35*cos(t), -5.44+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .7500, .7500, .7500)):

> tr98 := plot([2.4+.36*cos(t), -5.43+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .8000, .8000, .8000)):

> tr99 := plot([2.4+.37*cos(t), -5.42+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .8500, .8500, .8500)):

> tr100 := plot([2.4+.38*cos(t), -5.41+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .9000, .9000, .9000)):

> tr101 := plot([2.4+.39*cos(t), -5.40+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .9500, .9500, .9500)):

> tr102 := plot([2.4+.4*cos(t), -5.39+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, 1.000, 1.000, 1.000)):

> tr103 := plot([2.4+.39*cos(t), -5.38+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .9500, .9500, .9500)):

> tr104 := plot([2.4+.38*cos(t), -5.37+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .9000, .9000, .9000)):

> tr105 := plot([2.4+.37*cos(t), -5.36+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .8500, .8500, .8500)):

> tr106 := plot([2.4+.36*cos(t), -5.35+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .8000, .8000, .8000)):

> tr107 := plot([2.4+.35*cos(t), -5.34+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .7500, .7500, .7500)):

> tr108 := plot([2.4+.34*cos(t), -5.33+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .7000, .7000, .7000)):

> tr109 := plot([2.4+.33*cos(t), -5.32+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .6500, .6500, .6500)):

> tr110 := plot([2.4+.32*cos(t), -5.31+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .6000, .6000, .6000)):

> tr111 := plot([2.4+.31*cos(t), -5.30+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .5500, .5500, .5500)):

> tr112 := plot([2.4+.30*cos(t), -5.29+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .5000, .5000, .5000)):

> tr113 := plot([2.4+.29*cos(t), -5.28+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .4500, .4500, .4500)):

> tr114 := plot([2.4+.28*cos(t), -5.27+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .4000, .4000, .4000)):

> tr115 := plot([2.4+.27*cos(t), -5.26+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .3500, .3500, .3500)):

> tr116 := plot([2.4+.26*cos(t), -5.25+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .3000, .3000, .3000)):

> tr117 := plot([2.4+.25*cos(t), -5.24+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .2500, .2500, .2500)):

> tr118 := plot([2.4+.24*cos(t), -5.23+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .2000, .2000, .2000)):

> tr119 := plot([2.4+.23*cos(t), -5.22+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1500, .1500, .1500)):

> tr120 := plot([2.4+.21*cos(t), -5.21+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr121 := plot([2.4+.20*cos(t), -5.20+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .0500, .0500, .0500)):

> tr122 := plot([2.4+.19*cos(t), -5.19+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1000, .1000, .1000)):

> tr123 := plot([2.4+.18*cos(t), -5.18+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .1500, .1500, .1500)):

> tr124 := plot([2.4+.17*cos(t), -5.17+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .2000, .2000, .2000)):

> tr125 := plot([2.4+.16*cos(t), -5.16+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .2500, .2500, .2500)):

> tr126 := plot([2.4+.15*cos(t), -5.15+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .3000, .3000, .3000)):

> tr127 := plot([2.4+.14*cos(t), -5.14+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .3500, .3500, .3500)):

> tr128 := plot([2.4+.13*cos(t), -5.13+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .4000, .4000, .4000)):

> tr129 := plot([2.4+.12*cos(t), -5.12+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .4500, .4500, .4500)):

> tr130 := plot([2.4+.11*cos(t), -5.11+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .5000, .5000, .5000)):

> tr131 := plot([2.4+.10*cos(t), -5.10+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .5500, .5500, .5500)):

> tr132 := plot([2.4+.09*cos(t), -5.09+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .6000, .6000, .6000)):

> tr134 := plot([2.4+.08*cos(t), -5.08+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .6500, .6500, .6500)):

> tr133 := plot([2.4+.07*cos(t), -5.07+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .7000, .7000, .7000)):

> tr134 := plot([2.4+.06*cos(t), -5.06+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .7500, .7500, .7500)):

> tr135 := plot([2.4+.05*cos(t), -5.05+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .8000, .8000, .8000)):

> tr136 := plot([2.4+.04*cos(t), -5.04+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .8500, .8500, .8500)):

> tr137 := plot([2.4+.03*cos(t), -5.03+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .9000, .9000, .9000)):

> tr138 := plot([2.4+.02*cos(t), -5.02+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, .9500, .9500, .9500)):

> tr139 := plot([2.4+.01*cos(t), -5.01+.1*sin(t), t=-2.1*Pi/2..0.1*Pi/2], color = COLOR(RGB, 1.000, 1.000, 1.000)):

>

> display(tr2,tr3,tr4,tr5,tr6,tr7,tr8,tr9,tr10,tr11,tr12,tr13,tr14,tr15,tr16,tr17,tr18,tr19,tr20,tr21,tr22,tr23,tr24,tr25,tr26,tr27,tr28,tr29,tr30,tr31,tr32,tr33,tr34,tr35,tr36,tr37,tr38,tr39,tr40,tr41,tr42,tr43,tr44,tr45,tr46,tr47,tr48,tr49,tr50,tr51,tr52,tr53,tr54,tr55,tr56,tr57,tr58,tr59,tr60,tr61,tr62,tr63,tr64,tr65,tr66,tr67,tr68,tr69,tr71,tr72,tr73,tr74,tr75,tr76,tr77,tr78,tr79,tr80,tr81,tr82,tr83,tr84,tr85,tr86,tr87,tr88,tr89,tr90,tr91,tr92,tr93,tr94,tr95,tr96,tr97,tr98,tr99,tr100,tr101,tr102,tr103,tr104,tr105,tr106,tr107,tr108,tr109,tr110,tr111,tr112,tr113,tr114,tr115,tr116,tr117,tr118,tr119,tr120,tr121,tr122,tr123,tr124,tr125,tr126,tr127,tr128,tr129,tr130,tr131,tr132,tr133,tr134,tr135,tr136,tr137,tr138,tr139,th1,th2,th3,th4,th5,th6,th7,th8,th9,th10,th11,th12,th13,th14,th15,th16,th17,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18,t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30,t31,t32,t33,t34,t35,t36,t37,t38,t39,t40,t41,t42,t43,t44,t45,t46,t47,t48,t49,t50,t51,t52,t53,t54,t55,t56,t57,t58,t59,t60,t61,t62,t63,t64,t65,t66,t67,t68,t69,t70,t71,t72,t73,t74,t75,t76,t77,t78,t79,t80,t81,t82,t83,t84,t85,t86,t87,t88,t89,t90,t91,t92,t93,t94,t95,t96,t97,t98,t99,t100,t101,t102,t103,t104,t105,t106,t107,t108,t109,t110,t111,t112,t113,t114,t115,t116,t117,t118,t119,t120,t121,t122,t123,t124,t125,t126,t127,t128,t129,t130,t131,t132,t133,t134,t135,t136,m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,m11,m12,m13,m14,m15,m16,m17,m18,m19,m20,m21,m22,m23,m24,m25,m26,m27,m28,m29,m30,p1,h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13,h14,h15,h16,h17,h18,h19,h20,h21,h22,h23,h24,h25,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,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,p156,p157,p158,p159,p160,p161,p162,p163,p164,p165,p166,p167,p168,p169,p170,p171,p172,p173,p174,p175,p176,p177,p178,p179,p180,p181,p182,p183,p184,p185,p186,p187,p188,p189,p190,p191,p192,p193,p194,p195,p196,p197,p198,p199,p200,p201,p202,p203,p204,p205,p206,p207,p208,p209,p210,p211,p212,p213,p214,p215,p216,p127,p218,p219,p220,p221,p222,p223,p224,p225,p226,p227,p228,p229,p230,p231,p232,p233,p234,p235,p236,p237,p238,p239,p240,p241,p242,p243,p244,p245,p246,p247,p248,p249,p250,p251,p252,p253,p254,p255,p256,p257,p258,p259,p260,p261,p262,p263,p264,p265,p266,p267,p268,p269,p270,p271);

>