restart: with(plots): with(plottools):

jacqueline_r

The Planet Explosion

p1:=display(disk([0,0],5,color=blue)):

p2:=display(disk([10,10],5,color=grey)):

frame1:=display(p1,p2):

frame2:=display(translate(p1,1,1),translate(p2,-1,-1)):

line1:=[ [4.0,6.5],[-2.8,0.7] ]:

line2:=[ [6.3,4.3],[1.4,-2.7] ]:

line3:=[ [6.6,3.6],[-2.9,0.9] ]:

line4:=[ [5.1,5.9],[12.4,10.2] ]:

line5:=[ [3.8,6.7],[12.9,7.9] ]:

line6:=[ [6.5,4.3],[5.3,12.1] ]:

lines:=plot([line1,line2,line3,line4,line5,line6],color=black):

frame3:=display(translate(p1,2,2),translate(p2,-2,-2),lines):

d1:=display(disk([2,2],-1,color=white)):

d2:=display(disk([4,4],0.9,color=white)):

a:=display([d1,d2]):

d3:=display(disk([10,10],1,color=white)):

b:=display(a,d3):

d4:=display(disk([2,6],1,color=white)):

c:=display(b,d4):

d5:=display(disk([6,2],1.5,color=white)):

d:=display(c,d5):

d6:=display(disk([9,4],1,color=white)):

e:=display(d,d6):

d7:=display(disk([9.5,1.5],0.9,color=white)):

f:=display(d7,e):

d8:=display(disk([10.5,7],1.5,color=white)):

g:=display(f,d8):

d9:=display(disk([7,5],0.9,color=white)):

h:=display(g,d9):

d10:=display(disk([3,10],2,color=white)):

i:=display(h,d10):

d11:=display(disk([12,3],0.9,color=white)):

j:=display(i,d11):

d12:=display(disk([5,7],1,color=white)):

k:=display(j,d12):

d13:=display(disk([7.5,9],1,color=white)):

l:=display(k,d13):

finish:=display(frame1,frame2,frame3,l,axes=none,insequence=true);#speed 2