STAR WARS, BY GEORGE LUCCHESE AND JOHN VALENTA with(plots):with(plottools):with(ListTools): macro(darkgray=COLOR(RGB, .55, .55, .55)); macro(lightgray=COLOR(RGB, .9, .9, .9)); macro(midgray=COLOR(RGB, .65, .65, .65)); This is the linear transformation function used to change from one value (a) to another (b) over a period of time (ir) and find the value at one instance of time (i) change:=(a,b,ir,i)->a+((b-a)/ir)*(i mod ir); space:=plot([[16,12],[-16,12],[-16,-12],[16,-12],[16,12]],color=black,filled=true); XWING MODELS p:=plot([[0,1.5],[7,1.25],[7,.75],[0,0],[0,1.5]],color=gray, filled=true); c1:=translate(scale(plot([(cos(t)),(sin(t)),t=0..Pi*2],filled=true,color=darkgray),1/2,1/2,[0,0]),6.5,1.75); c2:=translate(scale(plot([(cos(t)),(sin(t)),t=0..Pi*2],filled=true,color=darkgray),1/1.25,1/1.25,[0,0]),1,2.25); c3:=translate(scale(plot([(cos(t)),(sin(t)),t=0..Pi*2],filled=true,color=red),1/1.5,1/1.5,[0,0]),1,2.25); wing:=translate(rotate(display(p,c1,c3,c2,scaling=constrained, axes=none),Pi/8,[0,.75]),1,0); w1:=display(reflect(wing,[[0,0],[1,0]])); w2:=display(reflect(wing,[[0,0],[0,1]])); w3:=display(reflect(wing,[0,0])); body:=plot([[.75,1.5],[1.25,0],[.75,-1.5],[-.75,-1.5],[-1.25,0],[-.75,1.5],[.75,1.5],[1.25,0]],color=darkgray,filled=true); xwingback:=display(body,wing,w1,w2,w3); c3b:=translate(scale(plot([(cos(t)),(sin(t)),t=0..Pi*2],filled=true,color=darkgray),1/1.5,1/1.5,[0,0]),1,2.25); wingb:=translate(rotate(display(p,c1,c3b,c2,scaling=constrained, axes=none),Pi/8,[0,.75]),1,0); w1b:=display(reflect(wingb,[[0,0],[1,0]])); w2b:=display(reflect(wingb,[[0,0],[0,1]])); w3b:=display(reflect(wingb,[0,0])); window:=plot([[.5,1.25],[1,0],[.25,-.25],[-.25,-.25],[-1,0],[-.5,1.25],[.5,1.25],[1,0]],color=blue,filled=true); xwingfront:=display(window,body,wingb,w1b,w2b,w3b); w4:=plot([[0,2],[6,2],[6,1],[2,0],[0,0],[0,2]],color=gray,filled=true,scaling=constrained); w5:=plot([[.5,2],[1.5,2],[1.5,0],[.5,0],[.5,2]],filled=true,color=darkgray,scaling=constrained); w6:=plot([[.75,0],[1.25,0],[1.25,-2],[.75,-2],[.75,0]],filled=true,color=darkgray,scaling=constrained); w7:=scale(plot([[0,2],[6,2],[6,1],[2,0],[0,0],[0,2]],color=red,filled=true,scaling=constrained),.75,.75,[0,1]); e1:=translate(display(w5,w6),0,1); g1:=translate(plot([[0,0],[.5,0],[.5,1.5],[.4,1.5],[.4,7.5],[.1,7.5],[.1,1.5],[0,1.5],[0,0]],filled=true,color=darkgray,scaling=constrained),6,.75); wingtop:=display(e1,g1,w7,w4); b1:=plot([[0,0],[2,0],[2,3],[1.75,5],[1.75,10],[1.5,12],[.5,12],[.25,10],[.25,5],[0,3],[0,0]],filled=true,color=gray,scaling=constrained); b2:=plot([[0,0],[.25,-.25],[.75,-.25],[1,0],[1,.5],[.75,2],[.25,2],[0,.5],[0,0]],filled=true,color=blue,scaling=constrained); xwingtop:=rotate(translate(display(translate(b2,.5,3.5),translate(wingtop,2,1),reflect(translate(wingtop,0,1),[[0,2],[0,1]]),b1),-1,-2),Pi/2,[0,0]); rl1:=plot([[7.1,0],[7.4,0],[7.4,2],[7.1,2],[7.1,0]],color=red,filled=true); rl2:=reflect(rl1,[[0,0],[0,1]]); redlaser:=rotate(translate(display(rl1,rl2,scaling=constrained),0,8),Pi/2,[0,0]); redlaser2:=plot([[0,0],[6,0],[6,.3],[0,.3],[0,0]],color=red,filled=true); trenchwall:=display(s3,s1); ex1:=plot([(cos(t)),(sin(t)),t=0..Pi*2],filled=true,color=yellow); ex2:=scale(plot([(cos(t)),(sin(t)),t=0..Pi*2],filled=true,color=orange),1.25,1.25); explosion:=display(ex1,ex2); explosion2a:=scale(plot([(cos(t)),(sin(t)),t=Pi..2*Pi],filled=true,color=white),10,2,[0,0]); explosion2b:=scale(plot([(cos(t)),(sin(t)),t=0..Pi],filled=true,color=white),10,2,[0,0]); DEATH STAR BIG c4:=scale(plot([(cos(t)),(sin(t)),t=0..Pi*2],filled=true,color=lightgray),10,10,[0,0]); c5:=scale(plot([(cos(t)),(sin(t)),t=Pi..2*Pi],filled=false,color=midgray),10,2,[0,0]); c6:=translate(rotate(scale(plot([(cos(t)),(sin(t)),t=0..Pi*2],filled=true,color=midgray),3,4,[0,0]),Pi/8,[0,0]),4,4); deathstar:=display(c6,c5,c4); DEATH STAR SURFACE s1:=plot([[-16,12],[16,12],[16,-12],[-16,-12],[-16,12]],filled=true,color=lightgray); t1:=plot([[-16,2],[16,2],[16,-2],[-16,-2],[-16,2]],filled=true,color=midgray); dstrs1:=display(t1,s1,scaling=constrained); cannontop:=translate(plot([[0,2],[.3,2],[.3,3],[.7,3],[.7,2],[1,2],[1.3,2],[1.3,3],[1.7,3],[1.7,2],[2,2],[2,0],[0,0],[0,2]],filled=true,color=midgray,scaling=constrained),-1,-1); t2:=plot([[-16,6],[0,0],[16,6],[16,-12],[-16,-12],[-16,6],[0,0]],filled=true,color=midgray); t3:=plot([[-16,-12],[0,0],[16,-12],[-16,-12],[0,0]],filled=true,color=lightgray); trench:=display(t3,t2); s3:=plot([[10,12],[16,12],[16,-12],[10,-12]],filled=true,color=midgray); s4:=reflect(s3,[[0,0],[0,1]]); trench2:=display(s3,s4,s1); tower:=translate(plot([[0,0],[0,3],[.5,4],[1.5,4],[2,3],[2,0],[0,0]],filled=true,color=lightgray),-1,0); laser:=plot([[0,0],[0,.2],[1,.2],[1,0],[0,0]],filled=true,color=green); INTRO title:=seq(textplot({[0,5,"Star Wars"],[0,4,"by"],[0,3,"George Lucchese"],[0,2,"and"],[0,1, "John Valenta"]},axes=none),i=0..25); ANIMATE SCENE 1 xwing1a:=(i)->display(translate(rotate(scale(xwingback,change(1,.25,25,i),change(1,.25,25,i),[0,0]),change(0,Pi/2,25,i),[0,0]),change(10,-18,25,i),change(10,-10,25,i))); xwing1b:=(i)->display(translate(rotate(scale(xwingback,change(.75,.2,25,i),change(.75,.2,25,i),[0,0]),change(0,Pi/2,25,i),[0,0]),change(12,-16,25,i),change(-4,-2,25,i))); scene1:=seq(display(xwing1a(i),xwing1b(i),deathstar,space),i=0..25): ANIMATE SCENE 2 xwing2a_xo:=10:xwing2a_xf:=-4:xwing2a_yo:=10:xwing2a_yf:=2: xwing2b_xo:=12:xwing2b_xf:=-8:xwing2b_yo:=-10:xwing2b_yf:=-1: xwing2a:=(i)->display(translate(scale(xwingtop,change(1,.25,25,i),change(1,.25,25,i),[0,0]),change(xwing2a_xo,xwing2a_xf,25,i),change(xwing2a_yo,xwing2a_yf,25,i))); xwing2b:=(i)->display(translate(scale(xwingtop,change(1,.25,25,i),change(1,.25,25,i),[0,0]),change(xwing2b_xo,xwing2b_xf,25,i),change(xwing2b_yo,xwing2b_yf,25,i))); -NOTE- the cannons in this sequence track the xwings cannon2a:=(i)->display(translate(rotate(cannontop,Pi+arctan(6+change(xwing2a_xo,xwing2a_xf,25,i),8-change(xwing2a_yo,xwing2a_yf,25,i)),[0,0]),-6,8)); cannon2b:=(i)->display(translate(rotate(cannontop,Pi+arctan(-6+change(xwing2b_xo,xwing2b_xf,25,i),-10-change(xwing2b_yo,xwing2b_yf,25,i)),[0,0]),6,-9)); scene2:=seq(display(xwing2a(i),xwing2b(i),cannon2a(i),cannon2b(i),dstrs1),i=0..25); ANIMATE SCENE 3 xwing3a:=(i)->display(translate(rotate(scale(xwingback,change(1,.8,25,i),change(1,.8,25,i),[0,0]),change(0,Pi/12,25,i),[0,0]),change(5,-2,25,i),change(5,0,25,i))); tower3a:=(i)->display(translate(scale(tower,change(.3,3,25,i),change(.3,3,25,i),[0,0]),change(1,19,25,i),change(0,4,25,i))); laser3a:=(i)->display(translate(scale(laser,change(.3,6,25,i),1,[0,0]),change(1,22,25,i),0)); scene3:=seq(display(xwing3a(i),laser3a(i),trench,tower3a(i),space),i=0..25); ANIMATE SCENE 3b xwing3b:=(i)->display(translate(rotate(scale(xwingback,change(.8,.9,25,i),change(.8,.9,25,i),[0,0]),change(Pi/12,-Pi/12,25,i),[0,0]),change(-2,3,25,i),change(0,-2,25,i))); tower3b:=(i)->display(translate(scale(tower,change(.3,3,25,i),change(.3,3,25,i),[0,0]),change(-1,-19,25,i),change(0,4,25,i))); laser3b:=(i)->display(translate(rotate(scale(laser,change(.3,6,25,i),1),Pi/2,[0,0]),0,change(0,16,25,i))); scene3b:=seq(display(xwing3b(i),laser3b(i),trench,tower3b(i),space),i=0..25): SCENE 4 redlaser4a:=(i)->display(translate(rotate(redlaser,-Pi/2,[0,0]),0,change(-6,10,5,i))); scene4:=seq(display(scale(display(translate(rotate(xwingtop,-Pi/2,[0,0]),0,-6),redlaser4a(i)),change(1,.75,25,i),change(1,.75,25,i)),trench2),i=0..25): SCENE 5 explosion5a:=(i)->display(translate(scale(explosion,change(.25,12,25,i),change(.25,12,25,i),[0,0]),10,0)); redlaser5a:=(i)->display(translate(redlaser2,change(-18,10,5,i+4),0)); scene5:=seq(display(s3,explosion5a(i),redlaser5a(i),s1),i=0..25): SCENE 6 xwing6a:=(i)->display(translate(rotate(scale(xwingfront,change(.1,1,25,i),change(.1,1,25,i),[0,0]),change(0,Pi/6,25,i),[0,0]),change(0,-18,25,i),change(0,4,25,i))); explosion6a:=(i)->display(translate(scale(explosion,change(.25,20,25,i),change(.25,20,25,i),[0,0]),16,-12)); scene6:=seq(display(explosion6a(i),xwing6a(i),trench,space),i=0..25): SCENE 7 xwing7a:=(i)->display(translate(rotate(scale(xwingfront,change(.25,1,25,i),change(.25,1,25,i),[0,0]),change(Pi/2,0,25,i),[0,0]),change(-18,10,25,i),change(-10,10,25,i))); xwing7b:=(i)->display(translate(rotate(scale(xwingfront,change(.2,.75,25,i),change(.2,.75,25,i),[0,0]),change(Pi/2,0,25,i),[0,0]),change(-16,12,25,i),change(-2,-4,25,i))); scene7:=seq(display(xwing7a(i),xwing7b(i),deathstar,space),i=0..25): SCENE 8 explosion8a:=(i)->display(scale(explosion,change(10,6,25,i),change(10,6,25,i),[0,0])); explosion8b:=(i)->display(scale(explosion2a,change(.25,6,25,i),change(.25,6,25,i),[0,0])); explosion8c:=(i)->display(scale(explosion2b,change(.25,6,25,i),change(.25,6,25,i),[0,0])); scene8:=seq(display(explosion8b(i),explosion8a(i),explosion8c(i),space),i=0..25): FINAL ANIMATION The animation should be loaded one section at a time (title \342\200\223 scene8), exported in pieces and recombined later display([title, scene1, scene2, scene3, scene3b, scene4, scene5, scene6, scene7, scene8],insequence=true,view=[-16..16,-12..12],axes=none,scaling=constrained);