restart:with(plots):with(plottools):
can:=polygon([[11,20],[11.5,20.5],[12.5,20.5],[13,20],[13,16],[12.5,15.5],[11.5,15.5],[11,16]],color=red):
display(can):
rec:=polygon([[1,11],[8,11],[8,10],[1,10]],color=brown, scaling=constrained):
table1:
rec:
display(can,rec):
can2:=translate(can,-10,-4.5):
f1:=display(can2, rec):
display([f1, f1, f1, f1, f1], insequence=true):
hand:=polygon([[0,11.5],[2,11.5],[2,10.5],[2.5,10.5],[2.5,11.5],[4,11.5],[4,13.5],[0,13.5]],color="PeachPuff"):
display(hand):
line1:=display(line([2.5,12],[4,12],color=black)):
display(line1):
display(hand,line1):
line2:=display(line([2.5,12.5],[4,12.5],color=black)):
display(hand,line1,line2):
line3:=display(line([2.5,13],[4,13],color=black)):
display(hand,line1,line2,line3):
display([f1, f1, f1, f1, f1], insequence=true):
f2:=display(hand,line1,line2,line3):
f2:
display([f1,f1,f1,f1,f1,f2],insequence=true):
tch1:=translate(f2,-10,0):
tch:
display(tch1):
tch1:
display(f1,tch1,scaling=constrained):
display(f1,f1,f1,f1,f1,tch1,insequence=true):
tch2:=translate(tch1,2,0):
frame2:=display(tch1, f1):
frame3:=display(tch2, f1):
display([f1,f1,f1,f1,frame2,frame2, frame2, frame2,frame3,frame3],insequence=true, scaling=constrained, view=[-8..8,0..16]):
display([f1,f1,f1,f1,frame2,frame2, frame2, frame2,frame3,frame3],insequence=true, scaling=constrained):
tch3:=translate(tch2,2,0):
display(tch3):
f4:=display(tch3,f1,scaling=constrained):
display(f4):
display(f1,f1,f1,f1,frame2,frame2,frame3,frame3,f4,f4,insequence=true,scaling=constrained):
tch4:=translate(tch3,2,0):
f5:=display(tch4,f1,scaling=constrained):
display(f1,f1,f1,f1,frame2,frame2,frame2,frame3,frame3,frame3,f4,f4,f4,f5,f5,f5,insequence=true,scaling=constrained):
tch5:=translate(tch4,2,0):
f6:=display(tch5,f1):
display(f1,f1,f1,f1,frame2,frame2,frame2,frame3,frame3,frame3,f4,f4,f4,f5,f5,f5,f6,f6,f6,insequence=true,scaling=constrained):
tch6:=translate(tch5,1,0):
f7:=display(tch6,can2,rec):
f0:=display(tch6,can2):
display(f1,f1,f1,f1,frame2,frame2,frame2,frame3,frame3,frame3,f4,f4,f4,f5,f5,f5,f6,f6,f6,f7,f7,f7,insequence=true,scaling=constrained):
bin:=polygon([[1,5],[1,4.5],[2,4.5],[3,0],[15,0],[16,4.5],[17,4.5],[17,5]],scaling=constrained,color="ForestGreen"):
display(bin):
hand2:=translate(rotate(f0,-Pi/2,[2,12.5]),7,11):
display(hand2,scaling=constrained):
display(bin,hand2):
hoc:=translate(hand2,0,-10):
display(hoc):
f8:=display(bin,hoc):
display(f1,f1,f1,f1,frame2,frame2,frame2,frame3,frame3,frame3,f4,f4,f4,f5,f5,f5,f6,f6,f6,f7,f7,f7,f8,f8,f8,insequence=true,scaling=constrained,axes=none):
hoc2:=translate(hoc,0,-3):
f9:=display(bin,hoc2):
display(f1,f1,f1,f1,frame2,frame2,frame2,frame3,frame3,frame3,f4,f4,f4,f5,f5,f5,f6,f6,f6,f7,f7,f7,f8,f8,f8,f9,f9,f9,insequence=true,scaling=constrained,axes=none):
hoc3:=translate(hoc2,0,-3):
f10:=display(bin,hoc3):
display(f1,f1,f1,f1,frame2,frame2,frame2,frame3,frame3,frame3,f4,f4,f4,f5,f5,f5,f6,f6,f6,f7,f7,f7,f8,f8,f8,f9,f9,f9,f10,f10,f10,insequence=true,scaling=constrained,axes=none):
hoc4:=translate(hoc3,0,-3):
f11:=display(bin,hoc4):
display(f1,f1,f1,f1,frame2,frame2,frame2,frame3,frame3,frame3,f4,f4,f4,f5,f5,f5,f6,f6,f6,f7,f7,f7,f8,f8,f8,f9,f9,f9,f10,f10,f10,f11,f11,f11,insequence=true,scaling=constrained,axes=none):
display(f1,f1,f1,f1,frame2,frame2,frame2,frame3,frame3,frame3,f4,f4,f4,f5,f5,f5,f6,f6,f6,f7,f7,f7,f8,f8,f8,f9,f9,f9,f10,f10,f10,f11,f11,f11,insequence=true,scaling=constrained,axes=none):
bin2:=polygon([[1,5],[1,4.5],[2,4.5],[3,0],[15,0],[16,4.5],[17,4.5],[17,5]],scaling=constrained,color="ForestGreen"):
sun:=disk([4,10],10,color=yellow):
rrr:=textplot([0,0,"Reduce"],font=["times","roman",20]):
rrr2:=textplot([0,1,"Reuse"],font=["times","roman",20]):
display(rrr,rrr2):
display(sun):
reduce:=translate(rrr,-9.5,10.5):
reuse:=translate(rrr2,17,10):
f12:=display(reduce,reuse,sun,axes=none):
display(f1,f1,f1,f1,frame2,frame2,frame2,frame3,frame3,frame3,f4,f4,f4,f5,f5,f5,f6,f6,f6,f7,f7,f7,f8,f8,f8,f9,f9,f9,f10,f10,f10,f11,f11,f11,f12,f12,f12,f12,f12,f12,f12,f12,f12,f12,f12,insequence=true,scaling=constrained,axes=none):
rrr3:=textplot([1,1,"RECYCLE!!!"],font=["times","roman",30]):
display(rrr3):
recycle:=translate(rrr3,5,10):
display(recycle):
f13:=display(recycle):
display(f1,f1,f1,f1,frame2,frame2,frame2,frame3,frame3,frame3,f4,f4,f4,f5,f5,f5,f6,f6,f6,f7,f7,f7,f8,f8,f8,f9,f9,f9,f10,f10,f10,f11,f11,f11,f12,f12,f12,f12,f12,f12,f12,f12,f12,f12,f12,f13,f13,f13,f13,f13,f13,f13,f13,f13,f13,insequence=true,scaling=constrained,axes=none);
%speed=10: