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

trace_b

Wonderfull Mess

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYpLUkjbWlHRiQ2JVEjbWVGJy8lJ2l0YWxpY0dRJXRydWVGJy8lLG1hdGh2YXJpYW50R1EnaXRhbGljRictSSNtb0dGJDYtUSomY29sb25lcTtGJy9GM1Enbm9ybWFsRicvJSZmZW5jZUdRJmZhbHNlRicvJSpzZXBhcmF0b3JHRj0vJSlzdHJldGNoeUdGPS8lKnN5bW1ldHJpY0dGPS8lKGxhcmdlb3BHRj0vJS5tb3ZhYmxlbGltaXRzR0Y9LyUnYWNjZW50R0Y9LyUnbHNwYWNlR1EsMC4yNzc3Nzc4ZW1GJy8lJ3JzcGFjZUdGTC1GLDYlUShkaXNwbGF5RidGL0YyLUkobWZlbmNlZEdGJDYkLUYjNiUtRiw2JVElZGlza0YnRi9GMi1GUzYkLUYjNistRlM2Ji1GIzYnLUkjbW5HRiQ2JFEiNkYnRjktRjY2LVEiLEYnRjlGOy9GP0YxRkBGQkZERkZGSC9GS1EmMC4wZW1GJy9GTlEsMC4zMzMzMzMzZW1GJ0Zcby8lK2V4ZWN1dGFibGVHRj1GOUY5LyUlb3BlbkdRJyZsc3FiO0YnLyUmY2xvc2VHUScmcnNxYjtGJ0Zgby1GXW82JFEiNUYnRjlGYG8tRiw2JVEmY29sb3JGJ0YvRjItRjY2LVEpJmVxdWFscztGJ0Y5RjtGPkZARkJGREZGRkhGSkZNLUYsNiVRJ3llbGxvd0YnRi9GMkZob0Y5RjlGOUY5LUY2Ni1RIjpGJ0Y5RjtGPkZARkJGREZGRkhGSkZNRmhvRjk=

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYpLUkjbWlHRiQ2JVEmbGluZTFGJy8lJ2l0YWxpY0dRJXRydWVGJy8lLG1hdGh2YXJpYW50R1EnaXRhbGljRictSSNtb0dGJDYtUSJ+RicvRjNRJ25vcm1hbEYnLyUmZmVuY2VHUSZmYWxzZUYnLyUqc2VwYXJhdG9yR0Y9LyUpc3RyZXRjaHlHRj0vJSpzeW1tZXRyaWNHRj0vJShsYXJnZW9wR0Y9LyUubW92YWJsZWxpbWl0c0dGPS8lJ2FjY2VudEdGPS8lJ2xzcGFjZUdRJjAuMGVtRicvJSdyc3BhY2VHRkwtRjY2LVEqJmNvbG9uZXE7RidGOUY7Rj5GQEZCRkRGRkZIL0ZLUSwwLjI3Nzc3NzhlbUYnL0ZORlMtSShtZmVuY2VkR0YkNiYtRiM2KC1GVjYmLUYjNictSSNtbkdGJDYkUSIzRidGOS1GNjYtUSIsRidGOUY7L0Y/RjFGQEZCRkRGRkZIRkovRk5RLDAuMzMzMzMzM2VtRictRmluNiRRIjZGJ0Y5LyUrZXhlY3V0YWJsZUdGPUY5RjkvJSVvcGVuR1EiW0YnLyUmY2xvc2VHUSJdRidGXG9GNS1GVjYmLUYjNictRmluNiRRIjVGJ0Y5RlxvRmJvRmVvRjlGOUZnb0Zqb0Zlb0Y5RjlGZ29Gam8tRjY2LVEiOkYnRjlGO0Y+RkBGQkZERkZGSEZSRlRGZW9GOQ==

line2:=[[8,6], [10,6]]:

lines:=plot([line1,line2], colour=[black,black]):

you:=plot([[5,5] , [6,5] , [7,5]], colour=black):

them := display(disk([0.5, 0.5], 5, color = red)):

p1:=display([you,me,them,lines]):

p2 :=display([you, me]):

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYpLUkjbWlHRiQ2JVEkeWF5RicvJSdpdGFsaWNHUSV0cnVlRicvJSxtYXRodmFyaWFudEdRJ2l0YWxpY0YnLUkjbW9HRiQ2LVEqJmNvbG9uZXE7RicvRjNRJ25vcm1hbEYnLyUmZmVuY2VHUSZmYWxzZUYnLyUqc2VwYXJhdG9yR0Y9LyUpc3RyZXRjaHlHRj0vJSpzeW1tZXRyaWNHRj0vJShsYXJnZW9wR0Y9LyUubW92YWJsZWxpbWl0c0dGPS8lJ2FjY2VudEdGPS8lJ2xzcGFjZUdRLDAuMjc3Nzc3OGVtRicvJSdyc3BhY2VHRkwtRiw2JVEoZGlzcGxheUYnRi9GMi1JKG1mZW5jZWRHRiQ2JC1GIzYpLUYsNiNRIUYnLUYjNiYtRiw2JVEqcmVjdGFuZ2xlRidGL0YyLUY2Ni1RMCZBcHBseUZ1bmN0aW9uO0YnRjlGO0Y+RkBGQkZERkZGSC9GS1EmMC4wZW1GJy9GTkZdby1GUzYkLUYjNistRlM2Ji1GIzYnLUkjbW5HRiQ2JFEiMEYnRjktRjY2LVEiLEYnRjlGOy9GP0YxRkBGQkZERkZGSEZcby9GTlEsMC4zMzMzMzMzZW1GJy1GaG82JFEjMTBGJ0Y5LyUrZXhlY3V0YWJsZUdGPUY5RjkvJSVvcGVuR1EnJmxzcWI7RicvJSZjbG9zZUdRJyZyc3FiO0YnRltwLUZTNiYtRiM2Jy1GaG82JFEjMjBGJ0Y5RltwRmdvRmRwRjlGOUZmcEZpcEZbcC1GLDYlUSZjb2xvckYnRi9GMi1GNjYtUSkmZXF1YWxzO0YnRjlGO0Y+RkBGQkZERkZGSEZKRk0tRiw2JVErYXF1YW1hcmluZUYnRi9GMkZkcEY5RjlGOUZbcC1GIzYmLUYsNiVRKHNjYWxpbmdGJ0YvRjJGZnEtRiw2JVEsY29uc3RyYWluZWRGJ0YvRjJGOUZXRmRwRjlGOS1GNjYwUSI6RicvJSdmYW1pbHlHUSxDb3VyaWVyfk5ld0YnLyUrZm9yZWdyb3VuZEdRK1sxMjAsMCwxNF1GJy8lMGZvbnRfc3R5bGVfbmFtZUdRLE1hcGxlfklucHV0RidGOUY7Rj5GQEZCRkRGRkZIRkpGTUZkcEY5

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYpLUkjbWlHRiQ2KFEkbGllRicvJSdmYW1pbHlHUSxDb3VyaWVyfk5ld0YnLyUnaXRhbGljR1EldHJ1ZUYnLyUrZm9yZWdyb3VuZEdRK1sxMjAsMCwxNF1GJy8lMGZvbnRfc3R5bGVfbmFtZUdRLE1hcGxlfklucHV0RicvJSxtYXRodmFyaWFudEdRJ2l0YWxpY0YnLUkjbW9HRiQ2MFEqJmNvbG9uZXE7RidGL0Y1RjgvRjxRJ25vcm1hbEYnLyUmZmVuY2VHUSZmYWxzZUYnLyUqc2VwYXJhdG9yR0ZGLyUpc3RyZXRjaHlHRkYvJSpzeW1tZXRyaWNHRkYvJShsYXJnZW9wR0ZGLyUubW92YWJsZWxpbWl0c0dGRi8lJ2FjY2VudEdGRi8lJ2xzcGFjZUdRLDAuMjc3Nzc3OGVtRicvJSdyc3BhY2VHRlUtRiw2JVEoZGlzcGxheUYnRjJGOy1JKG1mZW5jZWRHRiQ2JC1GIzYyLUYsNiVRKHBvbHlnb25GJ0YyRjstRmZuNiQtRmZuNiYtRiM2Ki1GZm42Ji1GIzYnLUkjbW5HRiQ2JFEiM0YnRkItRj82LVEiLEYnRkJGRC9GSEY0RklGS0ZNRk9GUS9GVFEmMC4wZW1GJy9GV1EsMC4zMzMzMzMzZW1GJy1GaG82JFEjMTBGJ0ZCLyUrZXhlY3V0YWJsZUdGRkZCRkIvJSVvcGVuR1EnJmxzcWI7RicvJSZjbG9zZUdRJyZyc3FiO0YnRltwLUZmbjYmLUYjNictRmhvNiRRJDMuNUYnRkJGW3AtRmhvNiRRIzEyRidGQkZmcEZCRkIvRmlwUSJbRicvRlxxUSJdRidGW3AtRj82LVEifkYnRkJGREZHRklGS0ZNRk9GUUZfcC9GV0ZgcC1GZm42Ji1GIzYnLUZobzYkUSI0RidGQkZbcEZjcEZmcEZCRkJGaHFGanFGZnBGQkZCRmhwRltxRkJGW3AtRiw2JVEmY29sb3JGJ0YyRjstRj82LVEpJmVxdWFscztGJ0ZCRkRGR0ZJRktGTUZPRlFGU0ZWLUYsNiVRJmJsYWNrRidGMkY7RltwLUYsNiVRKmxpbmVzdHlsZUYnRjJGOy1GPzYtUSI9RidGQkZERkdGSUZLRk1GT0ZRRlNGVi1GLDYlUSVkYXNoRidGMkY7RltwLUYsNiVRKnRoaWNrbmVzc0YnRjJGO0Zjcy1GaG82JFEiMkYnRkJGZnBGQkZCLUY/Ni1RIjpGJ0ZCRkRGR0ZJRktGTUZPRlFGU0ZWRmZwRkI=

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYpLUkjbWlHRiQ2KFEkYnllRicvJSdmYW1pbHlHUSxDb3VyaWVyfk5ld0YnLyUnaXRhbGljR1EldHJ1ZUYnLyUrZm9yZWdyb3VuZEdRK1sxMjAsMCwxNF1GJy8lMGZvbnRfc3R5bGVfbmFtZUdRLE1hcGxlfklucHV0RicvJSxtYXRodmFyaWFudEdRJ2l0YWxpY0YnLUkjbW9HRiQ2MFEqJmNvbG9uZXE7RidGL0Y1RjgvRjxRJ25vcm1hbEYnLyUmZmVuY2VHUSZmYWxzZUYnLyUqc2VwYXJhdG9yR0ZGLyUpc3RyZXRjaHlHRkYvJSpzeW1tZXRyaWNHRkYvJShsYXJnZW9wR0ZGLyUubW92YWJsZWxpbWl0c0dGRi8lJ2FjY2VudEdGRi8lJ2xzcGFjZUdRLDAuMjc3Nzc3OGVtRicvJSdyc3BhY2VHRlUtRiw2JVEoZGlzcGxheUYnRjJGOy1JKG1mZW5jZWRHRiQ2JC1GIzYmLUYsNiVRJWRpc2tGJ0YyRjstRj82LVEwJkFwcGx5RnVuY3Rpb247RidGQkZERkdGSUZLRk1GT0ZRL0ZUUSYwLjBlbUYnL0ZXRmFvLUZmbjYkLUYjNistRmZuNiYtRiM2Jy1JI21uR0YkNiRRJDAuNUYnRkItRj82LVEiLEYnRkJGRC9GSEY0RklGS0ZNRk9GUUZgby9GV1EsMC4zMzMzMzMzZW1GJ0ZbcC8lK2V4ZWN1dGFibGVHRkZGQkZCLyUlb3BlbkdRJyZsc3FiO0YnLyUmY2xvc2VHUScmcnNxYjtGJ0ZfcC1GXHA2JFEiNUYnRkJGX3AtRiw2JVEmY29sb3JGJ0YyRjstRj82LVEpJmVxdWFscztGJ0ZCRkRGR0ZJRktGTUZPRlFGU0ZWLUYsNiVRJWJsdWVGJ0YyRjtGZXBGQkZCRkJGQi1GPzYtUSI6RidGQkZERkdGSUZLRk1GT0ZRRlNGVkZlcEZC

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYpLUkjbWlHRiQ2KFEkcmVkRicvJSdmYW1pbHlHUSxDb3VyaWVyfk5ld0YnLyUnaXRhbGljR1EldHJ1ZUYnLyUrZm9yZWdyb3VuZEdRK1sxMjAsMCwxNF1GJy8lMGZvbnRfc3R5bGVfbmFtZUdRLE1hcGxlfklucHV0RicvJSxtYXRodmFyaWFudEdRJ2l0YWxpY0YnLUkjbW9HRiQ2MFEqJmNvbG9uZXE7RidGL0Y1RjgvRjxRJ25vcm1hbEYnLyUmZmVuY2VHUSZmYWxzZUYnLyUqc2VwYXJhdG9yR0ZGLyUpc3RyZXRjaHlHRkYvJSpzeW1tZXRyaWNHRkYvJShsYXJnZW9wR0ZGLyUubW92YWJsZWxpbWl0c0dGRi8lJ2FjY2VudEdGRi8lJ2xzcGFjZUdRLDAuMjc3Nzc3OGVtRicvJSdyc3BhY2VHRlUtRiw2JVEoZGlzcGxheUYnRjJGOy1JKG1mZW5jZWRHRiQ2JC1GIzYmLUYsNiVRJWRpc2tGJ0YyRjstRj82LVEwJkFwcGx5RnVuY3Rpb247RidGQkZERkdGSUZLRk1GT0ZRL0ZUUSYwLjBlbUYnL0ZXRmFvLUZmbjYkLUYjNistRmZuNiYtRiM2Jy1JI21uR0YkNiRRJDAuNUYnRkItRj82LVEiLEYnRkJGRC9GSEY0RklGS0ZNRk9GUUZgby9GV1EsMC4zMzMzMzMzZW1GJ0ZbcC8lK2V4ZWN1dGFibGVHRkZGQkZCLyUlb3BlbkdRJyZsc3FiO0YnLyUmY2xvc2VHUScmcnNxYjtGJ0ZfcC1GXHA2JFEiNUYnRkJGX3AtRiw2JVEmY29sb3JGJ0YyRjstRj82LVEpJmVxdWFscztGJ0ZCRkRGR0ZJRktGTUZPRlFGU0ZWLUYsNiVRJXBpbmtGJ0YyRjtGZXBGQkZCRkJGQi1GPzYtUSI6RidGQkZERkdGSUZLRk1GT0ZRRlNGVkZlcEZC

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYpLUkjbWlHRiQ2KFEkbGVkRicvJSdmYW1pbHlHUSxDb3VyaWVyfk5ld0YnLyUnaXRhbGljR1EldHJ1ZUYnLyUrZm9yZWdyb3VuZEdRK1sxMjAsMCwxNF1GJy8lMGZvbnRfc3R5bGVfbmFtZUdRLE1hcGxlfklucHV0RicvJSxtYXRodmFyaWFudEdRJ2l0YWxpY0YnLUkjbW9HRiQ2MFEqJmNvbG9uZXE7RidGL0Y1RjgvRjxRJ25vcm1hbEYnLyUmZmVuY2VHUSZmYWxzZUYnLyUqc2VwYXJhdG9yR0ZGLyUpc3RyZXRjaHlHRkYvJSpzeW1tZXRyaWNHRkYvJShsYXJnZW9wR0ZGLyUubW92YWJsZWxpbWl0c0dGRi8lJ2FjY2VudEdGRi8lJ2xzcGFjZUdRLDAuMjc3Nzc3OGVtRicvJSdyc3BhY2VHRlUtRiw2JVEoZGlzcGxheUYnRjJGOy1JKG1mZW5jZWRHRiQ2JC1GIzYmLUYsNiVRJWRpc2tGJ0YyRjstRj82LVEwJkFwcGx5RnVuY3Rpb247RidGQkZERkdGSUZLRk1GT0ZRL0ZUUSYwLjBlbUYnL0ZXRmFvLUZmbjYkLUYjNistRmZuNiYtRiM2Jy1JI21uR0YkNiRRJDAuNUYnRkItRj82LVEiLEYnRkJGRC9GSEY0RklGS0ZNRk9GUUZgby9GV1EsMC4zMzMzMzMzZW1GJ0ZbcC8lK2V4ZWN1dGFibGVHRkZGQkZCLyUlb3BlbkdRJyZsc3FiO0YnLyUmY2xvc2VHUScmcnNxYjtGJ0ZfcC1GXHA2JFEiNUYnRkJGX3AtRiw2JVEmY29sb3JGJ0YyRjstRj82LVEpJmVxdWFscztGJ0ZCRkRGR0ZJRktGTUZPRlFGU0ZWLUYsNiVRK2FxdWFtYXJpbmVGJ0YyRjtGZXBGQkZCRkJGQi1GPzYtUSI6RidGQkZERkdGSUZLRk1GT0ZRRlNGVkZlcEZC

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYpLUkjbWlHRiQ2KFEkYmVkRicvJSdmYW1pbHlHUSxDb3VyaWVyfk5ld0YnLyUnaXRhbGljR1EldHJ1ZUYnLyUrZm9yZWdyb3VuZEdRK1sxMjAsMCwxNF1GJy8lMGZvbnRfc3R5bGVfbmFtZUdRLE1hcGxlfklucHV0RicvJSxtYXRodmFyaWFudEdRJ2l0YWxpY0YnLUkjbW9HRiQ2MFEqJmNvbG9uZXE7RidGL0Y1RjgvRjxRJ25vcm1hbEYnLyUmZmVuY2VHUSZmYWxzZUYnLyUqc2VwYXJhdG9yR0ZGLyUpc3RyZXRjaHlHRkYvJSpzeW1tZXRyaWNHRkYvJShsYXJnZW9wR0ZGLyUubW92YWJsZWxpbWl0c0dGRi8lJ2FjY2VudEdGRi8lJ2xzcGFjZUdRLDAuMjc3Nzc3OGVtRicvJSdyc3BhY2VHRlUtRiw2JVEoZGlzcGxheUYnRjJGOy1JKG1mZW5jZWRHRiQ2JC1GIzYmLUYsNiVRJWRpc2tGJ0YyRjstRj82LVEwJkFwcGx5RnVuY3Rpb247RidGQkZERkdGSUZLRk1GT0ZRL0ZUUSYwLjBlbUYnL0ZXRmFvLUZmbjYkLUYjNistRmZuNiYtRiM2Jy1JI21uR0YkNiRRJDAuNUYnRkItRj82LVEiLEYnRkJGRC9GSEY0RklGS0ZNRk9GUUZgby9GV1EsMC4zMzMzMzMzZW1GJ0ZbcC8lK2V4ZWN1dGFibGVHRkZGQkZCLyUlb3BlbkdRJyZsc3FiO0YnLyUmY2xvc2VHUScmcnNxYjtGJ0ZfcC1GXHA2JFEiNUYnRkJGX3AtRiw2JVEmY29sb3JGJ0YyRjstRj82LVEpJmVxdWFscztGJ0ZCRkRGR0ZJRktGTUZPRlFGU0ZWLUYsNiVRJ3llbGxvd0YnRjJGO0ZlcEZCRkJGQkZCLUY/Ni1RIjpGJ0ZCRkRGR0ZJRktGTUZPRlFGU0ZWRmVwRkI=

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYpLUkjbWlHRiQ2KFEkc2h5RicvJSdmYW1pbHlHUSxDb3VyaWVyfk5ld0YnLyUnaXRhbGljR1EldHJ1ZUYnLyUrZm9yZWdyb3VuZEdRK1sxMjAsMCwxNF1GJy8lMGZvbnRfc3R5bGVfbmFtZUdRLE1hcGxlfklucHV0RicvJSxtYXRodmFyaWFudEdRJ2l0YWxpY0YnLUkjbW9HRiQ2MFEqJmNvbG9uZXE7RidGL0Y1RjgvRjxRJ25vcm1hbEYnLyUmZmVuY2VHUSZmYWxzZUYnLyUqc2VwYXJhdG9yR0ZGLyUpc3RyZXRjaHlHRkYvJSpzeW1tZXRyaWNHRkYvJShsYXJnZW9wR0ZGLyUubW92YWJsZWxpbWl0c0dGRi8lJ2FjY2VudEdGRi8lJ2xzcGFjZUdRLDAuMjc3Nzc3OGVtRicvJSdyc3BhY2VHRlUtRiw2JVEoZGlzcGxheUYnRjJGOy1JKG1mZW5jZWRHRiQ2JC1GIzYyLUYsNiVRKHBvbHlnb25GJ0YyRjstRmZuNiQtRmZuNiYtRiM2Ki1GZm42Ji1GIzYnLUkjbW5HRiQ2JFEiOEYnRkItRj82LVEiLEYnRkJGRC9GSEY0RklGS0ZNRk9GUS9GVFEmMC4wZW1GJy9GV1EsMC4zMzMzMzMzZW1GJy1GaG82JFEjMTBGJ0ZCLyUrZXhlY3V0YWJsZUdGRkZCRkIvJSVvcGVuR1EnJmxzcWI7RicvJSZjbG9zZUdRJyZyc3FiO0YnRltwLUZmbjYmLUYjNictRmhvNiRRJDguNUYnRkJGW3AtRmhvNiRRIzEyRidGQkZmcEZCRkIvRmlwUSJbRicvRlxxUSJdRidGW3AtRj82LVEifkYnRkJGREZHRklGS0ZNRk9GUUZfcC9GV0ZgcC1GZm42Ji1GIzYnLUZobzYkUSI5RidGQkZbcEZjcEZmcEZCRkJGaHFGanFGZnBGQkZCRmhwRltxRkJGW3AtRiw2JVEmY29sb3JGJ0YyRjstRj82LVEpJmVxdWFscztGJ0ZCRkRGR0ZJRktGTUZPRlFGU0ZWLUYsNiVRJmJsYWNrRidGMkY7RltwLUYsNiVRKmxpbmVzdHlsZUYnRjJGOy1GPzYtUSI9RidGQkZERkdGSUZLRk1GT0ZRRlNGVi1GLDYlUSVkYXNoRidGMkY7RltwLUYsNiVRKnRoaWNrbmVzc0YnRjJGO0Zjcy1GaG82JFEiMkYnRkJGZnBGQkZCLUY/Ni1RIjpGJ0ZCRkRGR0ZJRktGTUZPRlFGU0ZWRmZwRkI=

nose:=circle([6.5,6], .25, color=orange):

p3:=display({p1, nose}):

p4:=display({p2, nose}):

p5:=translate(rotate(p2, -Pi/4, [2.5,2.5]) , 2, -1):

p6:=translate(rotate(p4, -Pi/2, [2.5,2.5]) , 4, -2):

p7:=translate(rotate(p3, -3*Pi/4, [2.5,2.5]) , 4, -2):

p8:=translate(rotate(p1, -Pi, [2.5,2.5]) , 8, 0):

display([p1, p5, p6, p7, p8, p7,p6, p5,lie,bye,red,led,bed,shy], insequence=true, scaling=constrained, axes=none); #speed=10