restart:with(plots):with(plottools): Orion H. "Door to the Donut Dimension" #SHARED backgr:=(polygon([[0,0],[0,20],[20,20],[20,0]],style=polygon,color="PowderBlue")): #DOOR dorhol:=(polygon([[5,0],[15,0],[15,20],[5,20]],color="PowderBlue")): dor1:=display(polygon([[5,0],[15,0],[15,20],[5,20]],color="aa5500")): dor2:=display(polygon([[5,0], [14,0], [14,20], [5,20]],color="aa5500"),dorhol): dor3:=display(polygon([[5,0], [12,0], [12,20], [5,20]],color="aa5500"),dorhol): dor4:=display(polygon([[5,0], [9,0], [9,20], [5,20]],color="aa5500"),dorhol): dor5:=display(polygon([[5,0], [7,0], [7,20], [5,20]],color="aa5500"),dorhol): dor6:=display(polygon([[5,0], [6,0], [6,20], [5,20]],color="aa5500"),dorhol): zhol1:=(polygon([[4,0],[16,0],[16,20],[4,20]],color="PowderBlue")): zhol2:=(polygon([[2,0],[18,0],[18,20],[2,20]],color="PowderBlue")): zdor1:=display(polygon([[4,0], [5.5,0], [5.5,20],[4,20]],color="aa5500"),zhol1): zdor2:=display(polygon([[2,0], [4,0], [4,20], [2,20]],color="aa5500"),zhol1): zdor3:=display(polygon([[0,0], [2.5,0], [2.5,20], [0,20]],color="aa5500"),backgr): #DONUT zdon1:=display((ellipse([10,10.5],0.3,0.15,filled=true,color="#ffdf86"),[ellipse([10,10.5],1,.5,filled=true,color="#34240f"),ellipse([10,10.2],1,.5,filled=true,color="#ffdf86")],scaling=constrained),backgr): zdon2:=display((ellipse([10,10.5],0.6,0.3,filled=true,color="#ffdf86"),[ellipse([10,10.5],2,1,filled=true,color="#34240f"),ellipse([10,10],2,1,filled=true,color="#ffdf86")],scaling=constrained),backgr): zdon3:=display((ellipse([10,10.5],1.2,0.6,filled=true,color="#ffdf86"),[ellipse([10,10.5],4,2,filled=true,color="#34240f"),ellipse([10,9.5],4,2,filled=true,color="#ffdf86")],scaling=constrained),backgr): zdon4:=display((ellipse([10,10.5],1.8,0.9,filled=true,color="#ffdf86"),[ellipse([10,10.5],5,3,filled=true,color="#34240f"),ellipse([10,9.5],5,3,filled=true,color="#ffdf86")],scaling=constrained),backgr): #EAT_DONUT_BASIC dude:=[plot([[15,6],[15,0]]),disk([15,10],4,color=white),backgr]: dude2:=display(dude,plot([[13,11],[16,11]],style=point,symbol=solidcircle)): dude3:=display(dude,plot([[12.5,11],[13.5,11]]),plot([[15.5,11],[16.5,11]])): cmou:=(dude2,plot([13,16],[9,9])): omou:=(dude3,ellipse([14.5,9],2,1)): chmou1:=display(dude3,plot([13,16],[9,9]),plot([16,16],[9.5,8.5])): chmou2:=display((dude3,plot([13,16],[8.5,8.5]),plot([16,16],[9,8]))): ymou:=display(plot([[12,9],[14,7],[16,9],[12,9]]),dude2, textplot([10,15,"yum"], font=[Times,36])): #EAT_DONUT_COMPLEX domou1:=display((ellipse([5.25,15.25],0.6,0.3,filled=true,color="#ffdf86"),[ellipse([5.25,15.25],2,1,filled=true,color="#34240f"),ellipse([5.25,14.75],2,1,filled=true,color="#ffdf86")],scaling=constrained),cmou): domou2:=display((ellipse([5.5,15],0.6,0.3,filled=true,color="#ffdf86"),[ellipse([5.5,15],2,1,filled=true,color="#34240f"),ellipse([5.5,14.5],2,1,filled=true,color="#ffdf86")],scaling=constrained),cmou): domou3:=display((ellipse([6,14.5],0.6,0.3,filled=true,color="#ffdf86"),[ellipse([6,14.5],2,1,filled=true,color="#34240f"),ellipse([6,14],2,1,filled=true,color="#ffdf86")],scaling=constrained),cmou): domou4:=display((ellipse([7,13.5],0.6,0.3,filled=true,color="#ffdf86"),[ellipse([7,13.5],2,1,filled=true,color="#34240f"),ellipse([7,13],2,1,filled=true,color="#ffdf86")],scaling=constrained),cmou): domou5:=display((ellipse([8,12.5],0.6,0.3,filled=true,color="#ffdf86"),[ellipse([8,12.5],2,1,filled=true,color="#34240f"),ellipse([8,12],2,1,filled=true,color="#ffdf86")],scaling=constrained),cmou): domou6:=display((ellipse([9,11.5],0.6,0.3,filled=true,color="#ffdf86"),[ellipse([9,11.5],2,1,filled=true,color="#34240f"),ellipse([9,11],2,1,filled=true,color="#ffdf86")],scaling=constrained),omou): domou7:=display((ellipse([10,10.5],0.6,0.3,filled=true,color="#ffdf86"),[ellipse([10,10.5],2,1,filled=true,color="#34240f"),ellipse([10,10],2,1,filled=true,color="#ffdf86")],scaling=constrained),omou): domou8:=display((ellipse([10.5,10],0.6,0.3,filled=true,color="#ffdf86"),[ellipse([10.5,10],2,1,filled=true,color="#34240f"),ellipse([10.5,9.5],2,1,filled=true,color="#ffdf86")],scaling=constrained),omou): #FINISHED_ANIMATION display([dor1,dor2,dor3,dor4,dor5,dor6,zdor1,zdor2,zdor3, backgr,backgr,backgr, zdon1,zdon2,zdon4,zdon3,zdon3,zdon3,zdon3,zdon3,zdon3,zdon3, domou1,domou2,domou3,domou4,domou5,domou6,domou7,domou8,chmou1,chmou2,chmou1,chmou2,ymou,ymou,ymou,ymou,ymou,ymou,ymou,ymou,ymou,ymou,ymou,ymou],insequence=true,axes=none,scaling=constrained); #speed 12