restart;with(plots):with(plottools):
eye:=disk([5,3],.30,color=black):
inside:=disk([5,3],.25,color=white):
body:=ellipse([5,2.5],.75,color=yellow,filled=true):
smile:=plot([[4.6,2.6],[5,2.4],[5.4,2.6]],color=black):
strap1:=plot([[4.3,2.85],[4.7,2.85],[4.7,3.15],[4.44,3.15],[4.3,2.85]],color=black,filled=true):
foot1:=plot([[4.6,1.5],[4.8,1.5],[4.8,1.55],[4.7,1.60],[4.65,1.55],[4.6,1.55],[4.6,1.5]],color="DimGray",filled=true):
strap2:=plot([[5.3,2.85],[5.7,2.85],[5.57,3.15],[5.3,3.15],[5.3,2.85]],color=black,filled=true):
foot2:=plot([[5.2,1.5],[5.4,1.5],[5.4,1.55],[5.35,1.55],[5.3,1.60],[5.2,1.55],[5.2,1.5]],color="DimGray",filled=true):
little:=disk([5,2.9],.10,color=black):
OverallS:=plot([[4.35,2],[4.35,2.3],[4.25,2.45],[4.25,2.6],[4.5,2.3],[5.5,2.3],[5.75,2.6],[5.75,2.45],[5.65,2.3],[5.65,2],[5.51,1.78],[5.43,1.68],[5.35,1.61],[5.26,1.55],[5.15,1.52],[5.04,1.5],[4.91,1.5],[4.78,1.53],[4.66,1.6],[4.54,1.7],[4.47,1.8],[4.39,1.92],[4.35,2]],color="Blue",filled=true):
Minion:=display([little,inside,smile,eye,strap1,strap2,OverallS,foot1,foot2,body]):
Minion:
arm1:=polygon([[5.63,2.4],[5.89,2.19],[5.85,2.1],[5.61,2.25],[5.63,2.4]],color=yellow,filled=true):
arm2:=polygon([[4.3,2.45],[4.1,2.24],[4.16,2.16],[4.36,2.35],[4.32,2.43]],color=yellow,filled=true):
TLR:=polygon([[5,3],[5,2.5],[5.01,2.5],[5.01,3],[5,3]],color=black,filled=true):
Ball:=disk([5,1.5],1,color="Silver"):
DiscoBall:=display([TLR,Ball],scaling=constrained):
p1:=translate(display([Minion,rotate(arm1,0,[5.6,2.33]),rotate(arm2,0,[4.32,2.33])]),0,0):
p2:=translate(display([Minion,rotate(arm1,Pi/6,[5.6,2.33]),rotate(arm2,-Pi/6,[4.32,2.33])]),0,-1):
p3:=translate(display([Minion,rotate(arm1,2*Pi/6,[5.6,2.33]),rotate(arm2,-2*Pi/6,[4.32,2.33])]),0,-2):
p4:=translate(display([Minion,rotate(arm1,Pi/6,[5.6,2.33]),rotate(arm2,-Pi/6,[4.32,2.33])]),0,-1):
p5:=display(DiscoBall):
p6:=display(DiscoBall):
p7:=display(DiscoBall):
TLR:=polygon([[5,3],[5,2.5],[5.01,2.5],[5.01,3],[5,3]],color=black,filled=true):
Ball:=disk([5,1.5],1,color="Silver"):
DiscoBall:=display([TLR,Ball],scaling=constrained):
display([p1,p2,p3,p4,p1,p2,p3,p4,p1,p2,p3,p4,p1,p2,p3,p4,p5,p6,p7],insequence=true,scaling=constrained,axes=none);
speed 6