restart: with(plots): with(plottools):
base:=plot([[4,0], [4,4], [10,4], [10,6], [1,6], [1,8], [10,8], [10,15], [25,15], [25,0], [4,0]]):
eye:=circle([11,8], 1, color=blue):
eyeab:=display([base, eye]):
line1:=plot([[10,5], [12,5]]):
eyeabline1:=display([eyeab, line1]):
p1:=display(translate(eyeabline1,-10,0)):
p2:=display(translate(eyeabline1, -20,0)):
p3:=display(translate(eyeabline1, -30,0)):
p4:=display(translate(eyeabline1, -40,0)):
p5:=display(translate(eyeabline1, -50,0)):
p6:=display(translate(eyeabline1, -60,0)):
p7:=display(translate(eyeabline1, -70,0)):
p8:=display(translate(eyeabline1, -80,0)):
p9:=display(translate(eyeabline1, -90,0)):
s1:=display(translate(eyeabline1, -25,0)):
s2:=display(translate(eyeabline1, -35,0)):
s3:=display(translate(eyeabline1, -45,0)):
s4:=display(translate(eyeabline1, -55,0)):
s5:=display(translate(eyeabline1, -65,0)):
s6:=display(translate(eyeabline1, -75,0)):
s7:=display(translate(eyeabline1, -85,0)):
s8:=display(translate(eyeabline1, -95,0)):
dude:=display(plot([[-100,.60], [-100,1.75]],color=black),circle([-100,2], .25)):
leg1:=plot([[-100,.60],[-99,0.0]],color=black):
leg2:=plot([[-100,.60],[-101,0]],color=black):
arm2:=plot([[-100, 1.3],[-101, 1.3]],color=black):
arm:=plot([[-100,1.3],[-99,1.3]],color=black):
n1:=plot([[-80,7], [-85,7]]):
n2:=plot([[-80,7.5], [-85,7.5]]):
n3:=plot([[-80,6.5], [-85,6.5]]):
tdude1:=display([leg1, leg2, arm2, arm, dude]):
p10:=display(p8, n1, n2, n3, tdude1):
n4:=display(p10, n1, n2, n3):
p11:=display(translate(tdude1, 5,5)):
p12:=display(translate(tdude1, 15,7)):
p13:=display(translate(tdude1, 25,6)):
p14:=display(translate(tdude1, 41,6)):
p15:=display(translate(tdude1, 41,0)):
p16:=display(translate(eyeabline1,-80,0), p11):
p17:=display(translate(eyeabline1,-80,0), p12):
p18:=display(translate(eyeabline1,-80,0), p13):
p19:=display(translate(eyeabline1,-80,0), p14):
p20:=display(translate(eyeabline1,-80,0), p15):
p21:=display(translate(tdude1, 0,3)):
p22:=display(translate(tdude1, 30,0),translate(eyeabline1, -80,0)):
p23:=display(translate(tdude1, 44,0),translate(eyeabline1, -80,0)):
p24:=display(translate(tdude1, 25,0),translate(eyeabline1, -80,0)):
p25:=display(rotate(translate(tdude1, 25,0),-Pi/2, [-75,0]) ,translate(eyeabline1, -80,0)):
display([p2, s1, p3, s2, p4, s3, p5, s4, p6, s5, p7, s6, p8, s7, p10, p16, p17, p18, p19, p20, p20, p20, p20, p20, p20, p20, p20, p20, p19, p20, p19, p20, p22, p22, p22, p22, p22, p22, p22, p23, p22, p22, p22, p22, p22, p22, p22, p22, p22, p22, p23, p24, p25, p25, p25, p25, p25, p25, p25, p25],insequence=true, axes=none);
# 10 FPS, scaling unconstrained