restart;with(plots):with(plottools):
legs1:=plot([[0,0],[1,2],[2,0]], color=yellow):
body1:=plot([[1,2],[1,4]], color=yellow):
arms1:=plot([[0,4],[1,3],[2,4]], color=yellow):
head1:=circle([1,5], 1, color=black):
person1:=display([legs1,body1,arms1,head1]):
legs2:=plot([[3,0],[4,2],[5,0]], color=yellow):
body2:=plot([[4,2],[4,4]], color=yellow):
arms2:=plot([[3,4],[4,3],[5,4]], color=yellow):
head2:=circle([4,5], 1, color=black):
person2:=display([legs2,body2,arms2,head2]):
test1:=display([person1,person2]):
legs3:=plot([[7,0],[8,2],[9,0]],color=orange):
body3:=plot([[8,2],[8,4]],color=orange):
arms3:=plot([[7,4],[8,3],[9,4]],color=orange):
head3:=circle([8,5],1,color=black):
person3:=display([legs3],[head3],[body3],[arms3]):
test2:=display(person1,person2,person3):
launchpad:=polygon([[0,0],[0,5],[1,5],[1,4],[2.5,4],[2.5,3.5],[1,3.5],[1,3],[2.5,3],[2.5,2.5],[1,2.5],[1,0]],color=gray):
shuttlepart1:=polygon([[3,1],[3,4],[4.55,5],[6,4],[6,1]],color=orange):
shuttlepart2:=polygon([[2.5,0.5],[2.5,5],[3,6],[3,0.5]],color=white):
shuttlepart3:=polygon([[6,0.5],[6,6],[6.5,5],[6.5,0.5]],color=white):
shuttlepart4:=polygon([[3.5,0],[3.5,1],[2.5,1],[3.5,2],[3.5,4],[4.5,4.5],[5.5,4],[5.5,2],[6.5,1],[5.5,1],[5.5,0]],color=white):
test4:=display(launchpad,shuttlepart4,shuttlepart2,shuttlepart3,shuttlepart1):
sp1:=polygon([[1,3],[1,6],[2,7],[3,6],[3,3]],color=orange):
sp2:=polygon([[0.5,2.5],[0.5,6],[1,7],[1,2.5]],color=white):
sp3:=polygon([[3,2.5],[3,7],[3.5,6],[3.5,2.5]],color=white):
sp4:=polygon([[1,2],[1,3],[0,3],[1,4],[1,5],[2,6],[3,5],[3,4],[4,3],[3,3],[3,2],[1,2]],color=white):
f1:=polygon([[0.8,2],[0.5,2.5],[1,2.5]],color=orange):
f2:=polygon([[1,2],[2,2],[1.5,1]],color=orange):
f3:=polygon([[3.3,2],[3,2.5],[3.5,2.5]],color=orange):
f4:=polygon([[2,2],[3,2],[2.5,1]],color=orange):
test5:=display(sp4,f2,f4,sp2,f1,sp3,f3,sp1):
sp1:=polygon([[1,3],[1,6],[2,7],[3,6],[3,3]],color=orange):
sp2:=polygon([[1,2],[1,3],[0,3],[1,4],[1,5],[2,6],[3,5],[3,4],[4,3],[3,3],[3,2]],color=white):
f1:=polygon([[1,2],[2,2],[1.5,1]],color=orange):
f2:=polygon([[2,2],[3,2],[2.5,1]],color=orange):
test6:=display(sp2,sp1,f1,f2):
sp:=polygon([[1,3],[0,3],[1,4],[1,5],[2,6],[3,5],[3,4],[4,3],[3,3]],color=white):
f1:=polygon([[1,3],[2,3],[1.5,2]],color=orange):
f2:=polygon([[2,3],[3,3],[2.5,2]],color=orange):
test7:=display(sp,f1,f2):
Mars:=disk([2,2],2, color=red):
s:=polygon([[6,1],[5,1],[6,2],[6,3],[7,4],[8,3],[8,2],[9,1],[8,1]],color=white):
f1:=polygon([[6,1],[7,1],[6.5,0]],color=orange):
f2:=polygon([[7,1],[8,1],[7.5,0]],color=orange):
test8:=display(Mars,s,f1,f2):
R1:=display(s,f1,f2):
R2:=display(translate(rotate(scale(R1,.9,.9),Pi/9),-2,2)):
R3:=display(translate(rotate(scale(R2,.7,.7),Pi/2),4.5,1.25)):
R3a:=display(translate(rotate(scale(R3,1,1),-Pi/4),-3.5,2.25)):
R4:=display(translate(rotate(scale(R3,.7,.7),Pi/2),0.0,0.00)):
R5:=display(translate(rotate(scale(R4,.5,.5),Pi/2),0.0,0.00)):
R6:=display(translate(rotate(scale(R5,.8,.8),Pi/4),1.5,0.00)):
R7:=display(translate(rotate(scale(R6,.6,.6),Pi/4),.5,1.5)):
R8:=display(translate(scale(R7,.6,.6),.9,.9)):
P1:=display(Mars,s,f1,f2):
P2:=display(Mars,R2):
P3:=display(R3a,Mars):
P4:=display(Mars,R4):
P5:=display(Mars,R5):
P6:=display(Mars,R6):
P7:=display(R7,Mars):
P8:=display(R8,Mars):
hlegs:=plot([[0,0],[1,2],[2,0]],color=orange):
hbody:=plot([[1,2],[1,4]],color=orange):
ha1:=plot([[1,3],[0,4]],color=orange):
ha2:=plot([[1,3],[2,4]],color=orange):
hhead:=circle([1,5],1,color=black):
h:=display([hlegs,hbody,ha1,ha2,hhead]):
alegs:=plot([[4,0],[5,1],[6,0]],color=green):
abody:=polygon([[5,1],[4,4],[6,4]],color=green):
aa1:=plot([[4.5,3],[3,3]],color=green):
aa2:=plot([[5.5,3],[7,3]],color=green):
ah:=polygon([[4,4],[4,6],[6,4],[6,6]],color=green):
a:=display([alegs,abody,aa1,aa2,ah]):
gun:=polygon([[3,2.5],[3,3],[2.5,3],[2.5,3.3],[3,3.3],[3,3],[3,2.5]],color=gray):
bullet:=disk([2.7,3.15],.1,color=gray):
test9:=display([h,a,gun]):
test10:=display([test9, translate(bullet, -.5, 0)]):
test11:=display([test9, translate(bullet, -1, 0)]):
test12:=display([test9, translate(bullet, -1.5, 0)]):
test13:=display([test9, translate(bullet, -2, 0)]):
hlegs:=plot([[0,0],[1,2],[2,0]],color=gray):
hbody:=plot([[1,2],[1,4]],color=gray):
ha1:=plot([[1,3],[0,4]],color=gray):
ha2:=plot([[1,3],[2,4]],color=gray):
hhead:=circle([1,5],1,color=gray):
h:=display([hlegs,hbody,ha1,ha2,hhead]):
alegs:=plot([[4,0],[5,1],[6,0]],color=green):
abody:=polygon([[5,1],[4,4],[6,4]],color=green):
aa1:=plot([[4.5,3],[3,3]],color=green):
aa2:=plot([[5.5,3],[7,3]],color=green):
ah:=polygon([[4,4],[4,6],[6,4],[6,6]],color=green):
a:=display([alegs,abody,aa1,aa2,ah]):
gun:=polygon([[3,2.5],[3,3],[2.5,3],[2.5,3.3],[3,3.3],[3,3],[3,2.5]],color=gray):
test14:=display([h,a,gun]):
display([test2,test4,test5,test6,test7,P1,P2,P3,P4,P5,P6,P7,P8,test9,test10,test11,test12,test13,test14],axes=none,insequence=true);
(* speed 1*)