restart;

with(plots):

with(plottools):

eithne_g

Russian Dolls

innerhead:=disk([0,0],1,color=white):

outerhead:=disk([0,0],1.5,color=yellow):

upperhalf:=ellipticArc([0,-2.75],1,2,0..Pi,color=white):

head:=display(innerhead,outerhead):

lowerhalf:=ellipticArc([0,-2.75],1,2,0..-Pi,color=white):

torso:=display(upperhalf,lowerhalf):

body1:=display(head,torso):

tophalf:=display(head,upperhalf):

backdrop:=polygon([[5,4],[-5,4],[-5,-7],[5,-7]],color=black):

stage:=polygon([[-5,-4.75],[-5,-7],[5,-7],[5,-4.75]],color=gold):

backround:=(stage,backdrop):

innerhead2:=disk([0,0],.25,color=white):

outerhead2:=disk([0,0],.375,color=yellow):

head2:=display(innerhead2,outerhead2):

innerhead3:=disk([0,-2.5],.15,color=white):

outerhead3:=disk([0,-2.5],.3,color=yellow):

head3:=display(innerhead3,outerhead3):

innerhead4:=disk([0,-2.75],.075,color=white):

outerhead4:=disk([0,-2.75],.15,color=yellow):

head4:=display(innerhead4,outerhead4):

upperhalf2:=ellipticArc([0,-2.75],.75,.5,0..Pi,color=white):

lowerhalf2:=ellipticArc([0,-2.75].75,.5,0..-Pi,color=white):

torso2:=display(upperhalf2,lowerhalf2):

upperhalf3:=ellipticArc([0,-3],.375,.25,0..Pi,color=white):

lowerhalf3:=ellipticArc([0,-.3],.375,.25,0..-Pi,color=white):

torso3:=display(lowerhalf3,upperhalf3):

lowerhalf4:=ellipticArc([0,-.145],.1875,.125,0..-Pi,color=white):

upperhalf4:=ellipticArc([0,-3],.1875,.125,0..Pi,color=white):

torso4:=display(upperhalf4,lowerhalf4):

body2:=display(torso2,head2):

body3:=display(torso3,head3):

tophalf3:=display(head3,upperhalf3):

tophalf4:=display(head4,upperhalf4):

p1:=display(translate(tophalf,0,3)):

p3:=display(translate(tophalf3,0,3)):

p4:=display(translate(tophalf4,0,3)):

f1:=display(stage,body1,backround):

f2:=display(p1,tophalf3,stage,lowerhalf,backround):

f3:=display(p3,tophalf4,stage,lowerhalf,backround):

f4:=display(p4,stage,lowerhalf,backround):

f5:=display(stage,lowerhalf,backround):

display([f1,f2,f3,f4,f5],insequence=true,scaling=constrained,axes=none);

speed=12