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

David G.

Hello

arms:=plot([ [0,0], [0,2], [0.7,0.5],[0,2], [-0.7,0.5], [0,2], [0,0], [0,0], [0.7,-1.5], [0,0], [0,0], [-0.7,-1.5] ],color=black, scaling=constrained):

arms1:=plot([ [0,0],[0,2],[0.5,0.5],[0,2],[-0.5,0.5],[0,2], [0,0], [0,0], [0.5,-1.6], [0,0], [0,0], [-0.5,-1.6] ],color=black, scaling=constrained):

arms2:= plot([ [0,0], [0,2], [0.4,0.4], [0,2], [0,0], [0,2], [-0.4,0.4], [0,2], [0,0], [0,0], [0.4,-1.7], [0,0], [0,0], [-0.4,-1.7] ], color=black, scaling=constrained):

arms3:= plot([ [0,0], [0,2], [0.3,0.3], [0,2],[0,0], [0,2], [-0.3,0.3], [0,2], [0,0], [0,0], [0.3,-1.8], [0,0], [0,0], [-0.3,-1.8] ], color=black, scaling=constrained):

arms4:= plot([[0,0], [0,2], [0.2,0.2], [0,2],[0,0], [0,2], [-0.2,0.2], [0,2], [0,0], [0,0], [0.2,-1.9], [0,0], [0,0], [-0.2,-1.9] ], color=black, scaling=constrained):

arms5:= plot([[0,0], [0,2], [0.1,0.1], [0,2], [0,0], [0,2], [-0.1,0.1], [0,2], [0,0], [0,0], [0.1,-2], [0,0], [0,0], [-0.1,-2] ],color=black, scaling=constrained):

arms6:= plot([[0,0],[0,2],[0,0],[0,1.8],[0,0],[0,0],[0,-2.1]], color=black, scaling=constrained):

d2:= disk( [0.2,2.6], 0.04, color=black):LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYoLUkjbWlHRiQ2I1EhRictSSdtc3BhY2VHRiQ2Ji8lJ2hlaWdodEdRJjAuMGV4RicvJSZ3aWR0aEdRJjAuMGVtRicvJSZkZXB0aEdGNC8lKmxpbmVicmVha0dRJWF1dG9GJy1JI21vR0YkNi5RIn5GJy8lJ2ZhbWlseUdRLENvdXJpZXJ+TmV3RicvJSxtYXRodmFyaWFudEdRJ25vcm1hbEYnLyUmZmVuY2VHUSZmYWxzZUYnLyUqc2VwYXJhdG9yR0ZJLyUpc3RyZXRjaHlHRkkvJSpzeW1tZXRyaWNHRkkvJShsYXJnZW9wR0ZJLyUubW92YWJsZWxpbWl0c0dGSS8lJ2FjY2VudEdGSS8lJ2xzcGFjZUdGNy8lJ3JzcGFjZUdGN0ZBLyUrZXhlY3V0YWJsZUdGSUZELUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYmLUkjbW9HRiQ2LlEifkYnLyUnZmFtaWx5R1EsQ291cmllcn5OZXdGJy8lLG1hdGh2YXJpYW50R1Enbm9ybWFsRicvJSZmZW5jZUdRJmZhbHNlRicvJSpzZXBhcmF0b3JHRjcvJSlzdHJldGNoeUdGNy8lKnN5bW1ldHJpY0dGNy8lKGxhcmdlb3BHRjcvJS5tb3ZhYmxlbGltaXRzR0Y3LyUnYWNjZW50R0Y3LyUnbHNwYWNlR1EmMC4wZW1GJy8lJ3JzcGFjZUdGRkYvLyUrZXhlY3V0YWJsZUdGN0Yy

d:= disk( [0,2.5], 0.5, color=tan):

yourface:=display(d):

p1:=display(d2,yourface):

yourface:=display(d):

p2:=display([arms1,p1]):

p3:=display(arms2,p1):

p4:=display(arms3,p1):

p5:=display(arms4,p1):

p6:=display(arms5,p1):

p7:=display(arms6,p1):

p8:=display(arms,p1):

eyes:= disk ([0.18,2.6], 0.04, color=black):

p9:=display(eyes,yourface):

eyes1:= disk ([0.15,2.6], 0.04, color=black):

eyes2:= disk ([0.43,2.6], 0.04, color=black):

p10:=display(eyes1,eyes2,yourface):

eyes3:= disk ([0.1,2.6], 0.04, color=black):

eyes4:= disk ([0.4,2.6], 0.04, color=black):

p11:= display(eyes3,eyes4,yourface):

eyes5:= disk ([0,2.6], 0.04, color=black):

eyes6:= disk ([.33,2.6], 0.04, color=black):

p12:= display(eyes5,eyes6,yourface):

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYoLUkjbW9HRiQ2LlEifkYnLyUnZmFtaWx5R1EsQ291cmllcn5OZXdGJy8lLG1hdGh2YXJpYW50R1Enbm9ybWFsRicvJSZmZW5jZUdRJmZhbHNlRicvJSpzZXBhcmF0b3JHRjcvJSlzdHJldGNoeUdGNy8lKnN5bW1ldHJpY0dGNy8lKGxhcmdlb3BHRjcvJS5tb3ZhYmxlbGltaXRzR0Y3LyUnYWNjZW50R0Y3LyUnbHNwYWNlR1EmMC4wZW1GJy8lJ3JzcGFjZUdGRi1JJ21zcGFjZUdGJDYmLyUnaGVpZ2h0R1EmMC4wZXhGJy8lJndpZHRoR0ZGLyUmZGVwdGhHRk4vJSpsaW5lYnJlYWtHUSVhdXRvRictSSNtaUdGJDYjUSFGJ0YvLyUrZXhlY3V0YWJsZUdGN0Yyeyes7:= disk ([-0.17,2.6], 0.04, color=black):

p13:= display(eyes7,eyes8,yourface):

p14:= display(p9,arms3):

p15:= display(p10,arms3):

p16:= display(p11,arms3):

p17:= display(p12,arms3):

p18:= display(p13,arms3):

basic:= plot([ [0,0], [0,2], [0.2,1], [0.2,1], [0,2],[0,0], [0,2], [-0.3,0.3], [0,2], [0,0], [0,0], [0.3,-1.8], [0,0], [0,0], [-0.3,-1.8] ], color=black):

wave1:=plot([[0.2,1], [0.45,0.4]]):

hi1:=display([wave1,basic,p13]):

wave2:=plot([[0.2,1], [0.55,0.5]]):

hi2:=display([wave2,basic,p13]):

wave3:=plot([[0.2,1], [0.65,0.65]]):

hi3:=display([wave3,basic,p13]):

wave4:=plot([[0.2,1], [0.8,0.77]]):

hi4:=display([wave4,basic,p13]):

wave5:=plot([[0.2,1], [0.9,0.88]]):

hi5:=display([wave4,basic,p13]):

wave6:=plot([[0.2,1], [01.1,0.99]]):

hi6:=display([wave6,basic,p13]):

wave7:=plot([[0.2,1], [0.8,1.5]]):

hi7:=display([wave7,basic,p13]):

wave8:=plot([[0.2,1], [0.7,1.5]]):

hi8:=display([wave8,basic,p13]):

display([p4,p3,p2,p8,p2,p3,p4,p5,p6,p7,p6,p5,p4,p3,p2,p8,p2,p3,p4,p5,p6,p7,p6,p5,p4,p3,p2,p8,p2,p3,p4,p5,p6,p7,p6,p5,p4,p3,p2,p8,p2,p3,p4,p5,p6,p7,p6,p5,p4,p3,p2,p8,p2,p3,p4,p5,p6,p7,p6,p5,p4,p3,p2,p8,p2,p3,p4,p5,p6,p7,p6,p5,p4,p3,p2,p8,p2,p3,p4,p5,p6,p7,p6,p5,p4,p3,p2,p8,p2,p3,p4,p5,p6,p7,p6,p5,p4,p3,p2,p8,p2,p3,p4,p5,p6,p7,p6,p5,p4,p3,p2,p8,p2,p3,p4,hi1,hi2,hi3,hi4,hi5,hi6,hi7,hi8,hi7,hi6,hi6,hi7,hi8,hi7,hi6,hi7,hi8,hi7,hi6,hi7,hi8,hi7,hi6,hi5,hi4,hi3,hi2,hi1,hi1,hi1,hi1,hi1], insequence=true, scaling=constrained, axes=none);

#speed=11