void fall(int x,int y){
   point(x,y);
   pause(9);
   }

void plop(int x,int y){
   point(x,y);
   pause(7);
   }

//page 1
while(true){

canvas();
int up=0;

for(int i=0;i<=52;++i){
   canvas();
   //D
   line((10-i),3,(10-i),7);
   point((11-i),3);
   point((11-i),7);
   point((12-i),3);
   point((12-i),7);
   line((13-i),4,(13-i),6);
   //R
   line((15-i),3,(15-i),7);
   point((16-i),3);
   point((16-i),5);
   point((17-i),3);
   point((17-i),5);
   point((18-i),4);
   line((18-i),6,(18-i),7);
   //I
   point((20-i),3);
   point((20-i),7);
   line((21-i),3,(21-i),7);
   point((22-i),3);
   point((22-i),7);
   //N
   line((24-i),3,(24-i),7);
   point((25-i),4);
   point((26-i),5);
   line((27-i),3,(27-i),7);
   //K
   line((29-i),3,(29-i),7);
   point((30-i),5);
   line((31-i),3,(31-i),4);
   line((31-i),6,(31-i),7);
   //M
   line((35-i),3,(35-i),7);
   point((36-i),4);
   point((37-i),5);
   point((38-i),4);
   line((39-i),3,(39-i),7);
   //E
   line((41-i),3,(41-i),7);
   point((42-i),3);
   point((42-i),5);
   point((42-i),7);
   point((43-i),3);
   point((43-i),7);
   pause(10);
   canvas();
   }

for(int b=2;b<=6;++b){
   circle(7,(8-up),b);
   if(b==2){
     stroke(2);
     line(9,6,9,8);
     }
   else if(b==3){
     stroke(2);
     rect(5,8,5,2);
     }
   else if(b==4){
     stroke(2);
     line(6,9,8,9);
     line(5,8,9,8);
     line(4,7,9,7);
     }
   else if(b==5){
     stroke(2);
     line(5,9,9,9);
     line(4,8,9,8);
     line(3,7,9,7);
     line(3,6,9,6);
     }
   else{
     stroke(2);
     line(5,9,9,9);
     line(3,8,9,8);
     line(3,7,9,7);
     line(2,6,9,6);
     }
   up=(up+1);
   pause(15);
   stroke(1);
   canvas();
   }


for(int c=6;c>=2;--c){
   circle(7,(8-up),c);
   if(c==2){
     stroke(2);
     line(9,6,9,8);
     }
   else if(c==3){
     stroke(2);
     rect(5,8,5,2);
     }
   else if(c==4){
     stroke(2);
     line(6,9,8,9);
     line(5,8,9,8);
     line(4,7,9,7);
     }
   else if(c==5){
     stroke(2);
     line(5,9,9,9);
     line(4,8,9,8);
     line(3,7,9,7);
     line(3,6,9,6);
     }
   else{
     stroke(2);
     line(5,9,9,9);
     line(3,8,9,8);
     line(3,7,9,7);
     line(2,6,9,6);
     }
   up=(up-1);
   pause(15);
   stroke(1);
   canvas();
   }


//page 2

canvas();

display(0);
for(int ia=0;ia<=23;++ia){
   //head and neck
   line(3,(14-ia),5,(14-ia));
   point(2,(15-ia));
   point(6,(15-ia));
   point(2,(16-ia));
   point(6,(16-ia));
   point(2,(17-ia));
   point(6,(17-ia));
   point(3,(18-ia));
   point(5,(18-ia));
   //arms and torso
   line(1,(19-ia),3,(19-ia));
   line(5,(19-ia),7,(19-ia));
   point(0,(20-ia));
   point(8,(20-ia));
   point(9,(21-ia));
   line(1,(22-ia),2,(22-ia));
   line(6,(22-ia),7,(22-ia));
   point(0,(23-ia));
   point(2,(23-ia));
   point(6,(23-ia));
   point(8,(23-ia));
   point(2,(24-ia));
   point(6,(24-ia));
   point(9,(24-ia));
   point(2,(25-ia));
   point(6,(25-ia));
   point(2,(26-ia));
   point(6,(26-ia));
   //hips
   point(1,(27-ia));
   point(7,(27-ia));
   point(1,(28-ia));
   point(7,(28-ia));
   point(1,(29-ia));
   point(4,(29-ia));
   point(7,(29-ia));
   point(1,(30-ia));
   point(4,(30-ia));
   point(7,(30-ia));
   //legs
   line(2,(31-ia),3,(31-ia));
   line(5,(31-ia),6,(31-ia));
   line(2,(32-ia),3,(32-ia));
   line(5,(32-ia),6,(32-ia));
   line(2,(33-ia),3,(33-ia));
   line(5,(33-ia),6,(33-ia));
   line(2,(34-ia),3,(34-ia));
   line(5,(34-ia),6,(34-ia));
   line(1,(35-ia),3,(35-ia));
   line(5,(35-ia),7,(35-ia));
   line(0,(36-ia),2,(36-ia));
   line(6,(36-ia),8,(36-ia));

   pause(10);
   if(ia==23){
     }
   else{
     canvas();
     }
}

//page 3

canvas();
for(int ib=0;ib<=44;++ib){
   //T
   point((10-ib),8);
   line((11-ib),8,(11-ib),12);
   point((12-ib),8);
   //A
   line((14-ib),9,(14-ib),12);
   point((15-ib),8);
   point((15-ib),11);
   line((16-ib),9,(16-ib),12);
   //S
   point((18-ib),9);
   point((19-ib),8);
   point((19-ib),10);
   point((19-ib),12);
   point((20-ib),8);
   point((20-ib),10);
   point((20-ib),12);
   point((21-ib),11);
   //T
   point((23-ib),8);
   line((24-ib),8,(24-ib),12);
   point((25-ib),8);
   //E
   line((27-ib),8,(27-ib),12);
   point((28-ib),8);
   point((28-ib),10);
   point((28-ib),12);
   point((29-ib),8);
   point((29-ib),12);
   //M
   line((33-ib),8,(33-ib),12);
   point((34-ib),9);
   point((35-ib),10);
   point((36-ib),9);
   line((37-ib),8,(37-ib),12);
   //E
   line((39-ib),8,(39-ib),12);
   point((40-ib),8);
   point((40-ib),10);
   point((40-ib),12);
   point((41-ib),8);
   point((41-ib),12);
   //plate
   circle((49-ib),7,5);
   fill(1);
   circle((49-ib),7,3);
   fill(0);
   pause(10);

   if(ib==44){
     }
   else{
     canvas();
     }
   }

   stroke(0);
   for(int pa=6;pa<=8;++pa){
     point(1,pa);
     pause(3);
     }
   for(int pb=5;pb<=9;++pb){
     point(2,pb);
     pause(3);
     }
   for(int pc=4;pc<=10;++pc){
     point(3,pc);
     pause(3);
     }
   for(int pd=4;pd<=10;++pd){
     point(4,pd);
     pause(3);
     }
   for(int pe=4;pe<=10;++pe){
     point(5,pe);
     pause(3);
     }
   for(int pf=5;pf<=9;++pf){
     point(6,pf);
     pause(3);
     }
   for(int pg=6;pg<=8;++pg){
     point(7,pg);
     pause(3);
     }
   stroke(1);
   fill(0);
//page 4

canvas();

for(int ic=23;ic>=0;--ic){
   //head and neck
   line(3,(14-ic),5,(14-ic));
   point(2,(15-ic));
   point(6,(15-ic));
   point(2,(16-ic));
   point(6,(16-ic));
   point(2,(17-ic));
   point(6,(17-ic));
   point(3,(18-ic));
   point(5,(18-ic));
   //arms and torso
   line(1,(19-ic),3,(19-ic));
   line(5,(19-ic),7,(19-ic));
   point(0,(20-ic));
   point(8,(20-ic));
   point(9,(21-ic));
   line(1,(22-ic),2,(22-ic));
   line(6,(22-ic),7,(22-ic));
   point(0,(23-ic));
   point(2,(23-ic));
   point(6,(23-ic));
   point(8,(23-ic));
   point(2,(24-ic));
   point(6,(24-ic));
   point(9,(24-ic));
   point(2,(25-ic));
   point(6,(25-ic));
   point(2,(26-ic));
   point(6,(26-ic));
   //hips
   point(1,(27-ic));
   point(7,(27-ic));
   point(1,(28-ic));
   point(7,(28-ic));
   point(1,(29-ic));
   point(4,(29-ic));
   point(7,(29-ic));
   point(1,(30-ic));
   point(4,(30-ic));
   point(7,(30-ic));
   //legs
   line(2,(31-ic),3,(31-ic));
   line(5,(31-ic),6,(31-ic));
   line(2,(32-ic),3,(32-ic));
   line(5,(32-ic),6,(32-ic));
   line(2,(33-ic),3,(33-ic));
   line(5,(33-ic),6,(33-ic));
   line(2,(34-ic),3,(34-ic));
   line(5,(34-ic),6,(34-ic));
   line(1,(35-ic),3,(35-ic));
   line(5,(35-ic),7,(35-ic));
   line(0,(36-ic),2,(36-ic));
   line(6,(36-ic),8,(36-ic));

   pause(25);
   if(ic==23){
     }
   else{
     canvas();
     }
}

//page 5
canvas();


//draw all
stroke(1);
point(4,13);
point(1,12);
point(6,12);
point(8,12);
point(0,11);
point(3,11);
point(2,10);
point(5,10);
point(7,10);
point(9,10);
point(0,9);
point(3,9);
point(2,8);
point(6,8);
point(8,8);
point(4,7);
point(1,6);
point(3,6);
point(7,6);
point(5,5);
point(1,4);
point(3,4);
point(6,4);
point(8,4);
point(9,3);
point(0,2);
point(3,2);
point(5,2);
point(7,2);
point(1,0);
point(4,0);
point(6,0);
point(9,0);
pause(50);
//remove others
stroke(0);
fall(4,13);
fall(6,0);
fall(8,12);
fall(3,4);
fall(0,11);
fall(2,10);
fall(5,5);
fall(1,4);
fall(0,9);
fall(2,8);
fall(3,2);
fall(6,12);
fall(8,8);
fall(4,7);
fall(1,12);
fall(9,0);
fall(5,2);
fall(9,10);
fall(1,6);
fall(8,4);
fall(7,10);
fall(3,6);
fall(7,6);
fall(5,10);
fall(6,4);
fall(4,0);
fall(6,8);
fall(9,3);
fall(0,2);
fall(3,11);
fall(7,2);
fall(1,0);
//zoom in
stroke(1);
for(int id=1;id<=5;++id){
   circle(3,9,id);
    if(id==3){
       point(2,8);
       point(4,8);
       line(2,10,4,10);
       }
     else if(id==4){
       point(2,8);
       point(4,8);
       point(1,10);
       point(2,11);
       point(3,11);
       point(4,11);
       point(5,10);
       }
     else if(id==5){
       point(1,7);
       point(1,8);
       point(5,7);
       point(5,8);
       point(0,11);
       line(1,12,4,12);
       point(5,11);
       }
     else{
       }
   pause(30);
   canvas();
   }
//zoom out
for(int j=4;j>=1;--j){
   circle(3,9,j);
    if(j==3){
       point(2,8);
       point(4,8);
       line(2,10,4,10);
       }
     else if(j==4){
       point(2,8);
       point(4,8);
       point(1,10);
       point(2,11);
       point(3,11);
       point(4,11);
       point(5,10);
       }
     else{
       }
   pause(30);
   canvas();
   }
//redraw
stroke(1);
fall(4,13);
fall(6,0);
fall(8,12);
fall(3,4);
fall(0,11);
fall(2,10);
fall(5,5);
fall(1,4);
fall(0,9);
fall(2,8);
fall(3,2);
fall(6,12);
fall(8,8);
fall(4,7);
fall(1,12);
fall(9,0);
fall(5,2);
fall(9,10);
fall(1,6);
fall(8,4);
fall(7,10);
fall(3,6);
fall(7,6);
fall(5,10);
fall(6,4);
fall(4,0);
fall(6,8);
fall(9,3);
fall(0,2);
fall(3,11);
fall(7,2);
fall(1,0);

//page 6
canvas();

int x=0;
int y=0;

//outline
plop(6,2);
plop(5,2);
plop(4,2);
plop(3,2);
plop(2,2);
plop(1,2);
plop(0,2);
plop(0,3);
plop(0,4);
plop(0,5);
plop(0,6);
plop(0,7);
plop(0,8);
plop(0,9);
plop(0,10);
plop(0,11);
plop(1,11);
plop(2,11);
plop(3,11);
plop(4,11);
plop(5,11);
plop(6,11);
plop(7,11);
plop(8,11);
plop(9,11);
plop(9,10);
plop(9,9);
plop(9,8);
plop(9,7);
plop(9,6);
plop(9,5);
plop(9,4);
plop(9,3);
plop(9,2);
plop(8,2);
plop(7,2);
//face, eyes
plop(2,4);
plop(7,4);
//face, nose
plop(4,4);
plop(4,5);
plop(5,5);
//face, mouth
plop(2,8);
plop(3,8);
plop(4,8);
plop(5,8);
plop(6,8);
plop(7,8);

}