restart: with(plottools): with(plots): Robert M. Ultimate Cube head:=disk([-5,13], 3, thickness=2, thickness=5, color=white): body:=plot([[-5,10],[-5,5]], thickness=5, color=black): mouth:=disk([-4,11.5], 0.5, thickness=4, color=red): mouth2:=disk([-4,11.5], 0.75, thickness=4, color=red): eyeaa:=circle([-3,13.5], 1, color=black): eyeab:=disk([-2.5,13], .5, color=black): eyeA:=display([eyeab, eyeaa]): eyeba:=circle([-5,13.5], 1, color=black): eyebb:=disk([-4.5,13], .5, color=black): eyeB:=display([eyebb, eyeba]): legA:=plot([[-5,5],[-7,1]], thickness=5, color=black): legB:=plot([[-5,5],[-3,1]], thickness=5, color=black): armA:=plot([[-5,8],[-8,6]], thickness=5, color=black): armB:=plot([[-5,8],[-2,6]], thickness=5, color=black): eyeclosedA:=plot([[-6.5,13],[-4.5,13]]): eyeclosedB:=plot([[-4,13],[-2,13]]): Person1:=display([eyeA, eyeB, mouth, head, body, legA, legB, armA, armB], view=[0..-15, 1..16]): Person2:=display([eyeclosedA, eyeclosedB, mouth2, head, body, legA, legB, armA, armB], view=[0..-15, 1..16]): circrad:=1: circleA:=circle([5,4], circrad*0, thickness=1, color=red): circleB:=circle([5,4], circrad*1, thickness=1, color=magenta): circleC:=circle([5,4], circrad*2, thickness=1, color=blue): circleD:=circle([5,4], circrad*3, thickness=1, color=cyan): circleE:=circle([5,4], circrad*4, thickness=1, color=green): circleF:=circle([5,4], circrad*5, thickness=1, color=yellow): circleG:=circle([5,4], circrad*6, thickness=1, color=coral): circleH:=circle([5,4], circrad*7, thickness=1, color=brown): logoA:=plot([[14.25,5.1],[14.6,5.6],[15,5.1],[14.720,5.45],[14.5,5.45]], thickness=3, color=white): logoT:=plot([[15,5.1],[15,6.5],[14,6.5],[16,6.5]], thickness=5, color=white): logoM:=plot([[15.1,5.1],[15.3,5.6],[15.5,5.1],[15.7,5.6],[15.9,5.1]], thickness=3, color=white): logo:=display(logoA, logoT, logoM): revbody:=polygon([[12,4],[18,4],[18,7],[12,7],[12,4]], color=gold): revbodyacc:=polygon([[17,4],[13,5],[14,7],[12,7],[12,4],[17,4]], color=white): revcape:=polygon([[12,7],[12,5],[16,5],[17,7],[12,7]], color=brown): revlegL:=polygon([[12,1],[13,1],[13,4],[12,4],[12,1]], color=gold): revlegLacc:=polygon([[12,1],[13,1],[13,2],[12.5,1.5],[12,2],[12,1]], color=white): revlegR:=polygon([[17,1],[18,1],[18,4],[17,4],[17,1]], color=gold): revlegRacc:=polygon([[17,1],[18,1],[18,2],[17.5,1.5],[17,2],[17,1]], color=white): revhead:=ellipse([12,7], 1.25, 1.5, thickness=1, filled=true, color=gold): revsnout:=ellipse([11,6], 1, .6, filled=true, color=gold): revnose:=disk([10.5,6.25], .05, color=black): reveye:=disk([11,7], .1): revearL:=ellipse([12,7.75], 0.75, .6, filled=true, color=sienna): revearR:=ellipse([11.5,7.75], 0.75, .6, filled=true, color=sienna): revtail:=ellipse([18,5], .6, 1.5, filled=true, color=gold): revsmile:=plot([[10.25,6],[10.5,5.75],[10.75,6]], color=black): rev:=display([revearL, reveye, revhead, revnose, revsmile, revsnout, revearR, logo, revcape, revbodyacc, revbody, revlegLacc, revlegL, revlegRacc, revlegR, revtail]): rev2:=display([revearL, revhead, revnose, revsmile, revsnout, revearR, logo, revcape, revbodyacc, revbody, revlegLacc, revlegL, revlegRacc, revlegR, revtail]): sky:=plot([[-15,1],[20,1],[20,16],[-15,16],[-15,1]], filled=true, color=cyan): ground:=polygon([[-15,1],[20,1],[20,2],[-15,2],[-15,1]], color=green): sun:=disk([-12,14], 2, color=yellow): aa:=plot([[2,2.5],[6,1],[8,2.5],[8,7],[6,8],[2,7],[2,2.5]], color=[brown]): ab:=plot([[2,7],[6,6],[8,7],[6,6],[6,1]], color=[brown]): ac:=polygon([[2,2.5],[6,1],[8,2.5],[8,7],[6,8],[2,7],[2,2.5]], color=[red]): A:=display([Person1, rev, aa, ab, ac, circleA, sun, ground, sky]): ba:=plot([[2,2.5],[7,1],[8,2.5],[8,7],[5,8],[2,7],[2,2.5]], color=[maroon]): bb:=plot([[2,7],[7,6],[8,7],[7,6],[7,1]], color=[maroon]): bc:=polygon([[2,2.5],[7,1],[8,2.5],[8,7],[5,8],[2,7],[2,2.5]], color=[magenta]): B:=display([Person1, rev, ba, bb, bc, circleB, sun, ground, sky]): ca:=plot([[2.5,2.5],[8,1],[8,2.5],[8,7],[4.5,7.5],[2.5,7],[2.5,2.5]], color=[navy]): cb:=plot([[2.5,7],[8,6.5],[8,7],[8,6.5],[8,1]], color=[navy]): cc:=polygon([[2.5,2.5],[8,1],[8,2.5],[8,7],[4.5,7.5],[2.5,7],[2.5,2.5]], color=[blue]): C:=display([Person1, rev, ca, cb, cc, circleC], sun, ground, sky): da:=plot([[2.5,2.5],[9,1],[8,2.5],[8,7],[5.5,7.5],[2.5,7],[2.5,2.5]], color=[turquoise]): db:=plot([[2.5,7],[9,6],[8,7],[9,6],[9,1]], color=[turquoise]): dc:=polygon([[2.5,2.5],[9,1],[9,6],[8,7],[5.5,7.5],[2.5,7],[2.5,2.5]], color=[cyan]): DD:=display([Person1, rev, da, db, dc, circleD, sun, ground, sky]): ea:=plot([[3,2],[10,1],[8,2.5],[8,7],[5.5,7.5],[3,7],[3,2]], color=[aquamarine]): eb:=plot([[3,7],[10,6],[8,7],[10,6],[10,1]], color=[aquamarine]): ec:=polygon([[3,2],[10,1],[10,6],[8,7],[5.5,7.5],[3,7],[3,2]], color=[green]): E:=display([Person1, rev, ea, eb, ec, circleE, sun, ground, sky]): fa:=plot([[3,2],[3,7],[8,7],[8,2],[3,2]], color=[gold]): fb:=plot([[3,6.5],[8,6.5]], color=[gold]): fc:=polygon([[3,2],[3,7],[8,7],[8,2],[3,2]], color=[yellow]): F:=display([Person1, rev, fa, fb, fc, circleF, sun, ground, sky]): ga:=plot([[2,2.5],[2,7],[7.5,7.5],[8,7],[8,2],[3,1],[2,2.5]], color=[gold]): gb:=plot([[8,7],[3,6],[2,7],[3,6],[3,1]], color=[gold]): gcc:=polygon([[2,2.5],[2,7],[7.5,7.5],[8,7],[8,2],[3,1],[2,2.5]], color=[coral]): G:=display([Person1, rev, ga, gb, gcc, circleG, sun, ground, sky]): ha:=plot([[2,2.5],[2,7],[6.5,7.5],[8,7],[8,2],[4,1],[2,2.5]], color=[red]): hb:=plot([[8,7],[4,6],[2,7],[4,6],[4,1]], color=[red]): hc:=polygon([[2,2.5],[2,7],[6.5,7.5],[8,7],[8,2],[4,1],[2,2.5]], color=[brown]): H:=display([Person1, rev, ha, hb, hc, circleH, sun, ground, sky]): H2:=display([Person2, rev, ha, hb, hc, circleH, sun, ground, sky]): A2:=display([Person1, rev2, aa, ab, ac, circleA, sun, ground, sky]): cubespin:=display([A,B,C,DD,E,F,G,H,A,B,C,DD,E,F,G,H,A,B,C,DD,E,F,G,A2,B,C,DD,E,F,G,H,A,B,C,DD,E,F,G,H2],insequence=true, view=[-15..20, 1..16], axes=none, scaling=constrained); #speed 15