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

s:=display(plot([[9,39],[5,39],[5,35],[9,35],[9,31],[5,31]],color=cyan)):

k:=display(plot([[10,39],[10,31],[10,35],[14,39],[10,35],[14,31]],color=cyan)):

a:=display(plot([[15,31],[18,39],[21,31],[19.5,35],[16.5,35]],color=cyan)):

t:=display(plot([[22,39],[28,39],[25,39],[25,31]],color=cyan)):

e:=display(plot([[33,39],[29,39],[29,35],[33,35],[29,35],[29,31],[33,31]],color=cyan)):

l:=display(plot([[5,29],[33,29],[33,30],[32,30],[5,27],[5,28],[6,28],[33,25]],color=cyan)):

skate:=display([s,k,a,t,e,l]):

hl:=pieslice([13.5,20],4.5,0..Pi,color=red,style=polygon):

hr:=pieslice([22.5,20],4.5,0..Pi, color=red,style=polygon):

h1:=display(plot([[9,20],[18,9]],color=red)):

h2:=display(plot([[27,20],[18,9]],color=red)):

hm:=polygonplot([[9,20],[18,9],[27,20]],color=red,style=polygon):

heart:=display([hl,hr,hm]):

pro:=display([heart,skate]):

rec3:=display(polygon([[0,0],[0,45],[45,45],[45,0]],color="LightCyan")):

s3:=display([pro,rec3]):

t1:=textplot([22,25,"KEEP"],'font'=[PoorRichard,100]):

sl1:=display([t1,rec3]):

t2:=textplot([22,25,"CALM"],'font'=[PoorRichard,90]):

sl2:=display([t2,rec3]):

t3:=textplot([22,25,"AND"],'font'=[PoorRichard,100]):

sl3:=display([t3,rec3]):

t4:=textplot([22,25,"ON"],'font'=[PoorRichard,100]):

sl4:=display([t4,rec3]):

p1:=display(rec3):

p2:=display(sl1):

p3:=display(sl2):

p4:=display(sl3):

p5:=display(rec3):

p6:=display(rec3,s):

p7:=display(rec3,s,k):

p8:=display(rec3,s,k,a):

p9:=display(rec3,s,k,a,t):

p10:=display(rec3,s,k,a,t,e):

p11:=display(rec3,s,k,a,t,e,l):

p12:=display(s3):

p13:=display(sl4):

p14:=display(rec3):

display([p1,p2,p2,p3,p3,p4,p4,p5,p6,p7,p8,p9,p10,p11,p12,p12,p12,p12,p13,p13,p14],insequence=true,scaling=constrained,axes=none);

#fps=5