restart: with (plots): with (plottools): Neil T.Creeper Attack backround1 := polygon( [[-1,0], [20,0], [20,7], [-1,7], [-1,0]], color="LightGreen", border=0 ): backround2 := polygon( [[-1,7], [-1,15], [20,15], [20,7], [-1,7]], color="LightBlue", border=0): backround3 := display( [backround1, backround2]): backround2 := polygon( [[-1,7], [-1,15], [20,15], [20,7], [-1,7]], color="LightBlue", border=0): stevehair := polygon ([[0,0],[0,.375],[2,.375],[2,0],[1.75,0],[1.75,.125],[.25,.125],[.25,0],[0,0]]): eyeblue := polygon ( [[0,0], [.25,0], [.25,.25], [0,.25], [0,0]], color=blue ): eyewhite := polygon ( [[0,0], [.25,0], [.25,.25], [0,.25], [0,0]], color=white ): steveeyes := display( [translate (eyeblue, .25,0),translate (eyeblue, 1,0), translate (eyewhite, 1.25,0)], eyewhite): leg1 := polygon ( [[0,0], [0,4], [1,4], [1,0], [0,0]], color="DarkBlue"): arm := polygon ( [[0,0], [0,4], [1,4], [1,0], [0,0]], color="BlanchedAlmond"): sleeve := polygonplot ( [[0,0], [0,1], [1,1], [1,0], [0,0]], color="DodgerBlue"): leg2 := polygon ( [[2,0], [2,4], [3,4], [3,0], [2,0]], color="DarkBlue" ): stevelegs := display(leg1, leg2): stevebody := polygonplot ( [[0,4], [0,8], [3,8], [3,4], [0,4]], color="DodgerBlue"): stevehead := polygon ( [[.5,8], [2.5,8], [2.5,10], [.5,10], [.5,8]], color="BlanchedAlmond" ): stevehair := polygonplot ([[0,0],[0,.375],[2,.375],[2,0],[1.75,0],[1.75,.125],[.25,.125],[.25,0],[0,0]], color="Sienna"): stevenose := polygon( [[0,0], [0,.25], [.5,.25], [.5,0], [0,0]], color="Tan", scaling=constraned): display (stevenose): stevemouth := polygonplot( [[0,0], [0,.5], [.25,.5], [.25,.25], [.75,.25], [.75,.5], [1,.5], [1,0], [0,0]], color="Sienna" ): steve := display( [translate (stevehair, 0.5,9.625), translate (steveeyes, .75,9), translate (stevenose, 1.25,8.75), translate (stevemouth, 1,8.25), translate (sleeve, -1,7), translate (sleeve, 3,7), translate (arm, -1,4), translate (arm, 3,4), stevelegs, stevebody, stevehead, translate (backround3, -15.5,0)]) : sidehair := polygon ( [[0,1], [0,2], [2,2], [2,.5], [1.5,.5], [1.5,.75], [1,.75], [1,1.25], [.25,1.25], [.25,1], [0,1]], color="Sienna" ): steveheadp := display( [translate (sidehair, .5,8), stevehead] ): steve1 := display( [stevelegs, stevebody, steveheadp, translate (sleeve, -1,7), translate (sleeve, 3,7), translate (arm, -1,4), translate (arm, 3,4),translate (backround3, -15.5,0)]) : stevebody1 := polygon ( [[0,4], [0,8], [1,8], [1,4], [0,4]], color="DodgerBlue"): display (stevebody1): steve2 := display( [translate (steveheadp, -1,0), leg1, translate (sleeve, 0,7), translate (arm, 0,4), stevebody1, translate (backround3, -15.5,0)]) : arm2 := polygon ( [[0,0], [0,3], [1,3], [1,0], [0,0]], color="BlanchedAlmond"): arm1 := display ( rotate(sleeve, 90*Pi/180), rotate(arm2, 90*Pi/180)): steve3 := display( [translate (steveheadp, -1,0), leg1, translate (sleeve, 0,7), translate (arm, 0,4), stevebody1, translate (backround3, -15.5,0)]) : feet := polygon ( [[-.5,0], [-.5,.5], [.2,.5], [.2,0], [-.5,0]], color=green ): feet2 := polygon ( [[3.5,0], [2.8,0], [2.8,.5], [3.5,.5], [3.5,0]], color=green): creeper_head := polygon( [[-.5,4.5], [-.5,7.5], [3.5,7.5], [3.5,4.5], [-.5,4.5]], color="DarkGreen" ) : body := polygon( [[0,0], [0,4], [3,4], [3,0], [0,0]], color="DarkGreen"): creeper := display( [translate (body, 0,.5), feet, feet2, creeper_head]): cr := display( [rotate (feet, 50*Pi/180, [-.25,1]), rotate (feet2, 45*Pi/180, [2.75,.5]), translate (body, 0,.5), creeper_head]): steve1 := display( [translate (leg1, 15.5,0), translate (leg2, 15.5,0), translate (stevebody, 15.5,0), translate (steveheadp, 15.5,0), translate (sleeve, 14.5,7), translate (sleeve, 18.5,7), translate (arm, 14.5,4), translate (arm, 18.5,4), creeper, backround3]) : steve2 := display( [translate (steveheadp, 14.5,0), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm, 15.5,4), translate (stevebody1, 15.5,0), translate (creeper, 0,0), translate (backround3, 0,0)]): shield := polygonplot( [[0,0], [5,0], [5,1.5], [0,1.5], [0,0]], color="SlateGray"): shield1 := polygonplot( [[0,0], [.25,0], [.25,5], [0,5], [0,0]], color="SlateGray"): steve3 := display( [translate (steveheadp, 14.5,0), translate (shield, 13.5,4), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm, 15.5,4), translate (stevebody1, 15.5,0), translate (creeper, 0,0), translate (backround3, 0,0)]) : steve4 := display( [translate (steveheadp, 14.5,0), translate (shield1, 12.5,4), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm1, 15.5,7), translate (stevebody1, 15.5,0), translate (creeper, 0,0), translate (backround3, 0,0)]): c1 := display( [translate (steveheadp, 14.5,0), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm, 15.5,4), translate (stevebody1, 15.5,0), translate (cr, .5,0), translate (backround3, 0,0)]): c2 := display( [translate (steveheadp, 14.5,0), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm, 15.5,4), translate (stevebody1, 15.5,0), translate (creeper, 1,0), translate (backround3, 0,0)]): c3 := display( [translate (steveheadp, 14.5,0), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm, 15.5,4), translate (stevebody1, 15.5,0), translate (cr, 1.5,0), translate (backround3, 0,0)]): c4 := display( [translate (steveheadp, 14.5,0), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm, 15.5,4), translate (stevebody1, 15.5,0), translate (creeper, 2,0), translate (backround3, 0,0)]): c5 := display( [translate (steveheadp, 14.5,0), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm, 15.5,4), translate (stevebody1, 15.5,0), translate (cr, 2.5,0), translate (backround3, 0,0)]): c6 := display( [translate (steveheadp, 14.5,0), translate (shield, 13.5,4), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm, 15.5,4), translate (stevebody1, 15.5,0), translate (creeper, 3,0), translate (backround3, 0,0)]): c7 := display( [translate (steveheadp, 14.5,0), translate (shield1, 12.5,4), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm1, 15.5,7), translate (stevebody1, 15.5,0), translate (cr, 3.5,0), translate (backround3, 0,0)]): c8 := display( [translate (steveheadp, 14.5,0), translate (shield1, 12.5,4), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm1, 15.5,7), translate (stevebody1, 15.5,0), translate (creeper, 4,0), translate (backround3, 0,0)]): c9 := display( [translate (steveheadp, 14.5,0), translate (shield1, 12.5,4), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm1, 15.5,7), translate (stevebody1, 15.5,0), translate (cr, 4.5,0), translate (backround3, 0,0)]): c10 := display( [translate (steveheadp, 14.5,0), translate (shield1, 12.5,4), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm1, 15.5,7), translate (stevebody1, 15.5,0), translate (creeper, 5,0), translate (backround3, 0,0)]): c11 := display( [translate (steveheadp, 14.5,0), translate (shield1, 12.5,4), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm1, 15.5,7), translate (stevebody1, 15.5,0), translate (cr, 5.5,0), translate (backround3, 0,0)]): c12 := display( [translate (steveheadp, 14.5,0), translate (shield1, 12.5,4), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm1, 15.5,7), translate (stevebody1, 15.5,0), translate (creeper, 6,0), translate (backround3, 0,0)]): c13 := display( [translate (steveheadp, 14.5,0), translate (shield1, 12.5,4), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm1, 15.5,7), translate (stevebody1, 15.5,0), translate (cr, 6.5,0), translate (backround3, 0,0)]): c14 := display( [translate (steveheadp, 14.5,0), translate (shield1, 12.5,4), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm1, 15.5,7), translate (stevebody1, 15.5,0), translate (cr, 7,0), translate (backround3, 0,0)]): c15 := display( [translate (steveheadp, 14.5,0), translate (shield1, 12.5,4), translate (leg1, 15.5,0), translate (sleeve, 15.5,7), translate (arm1, 15.5,7), translate (stevebody1, 15.5,0), translate (creeper, 7.5,0), translate (backround3, 0,0)]): hole := polygon( [[.25,.25], [0,.25], [0,.5], [.25,.5], [.25,.75], [.5,.75], [.5,.5], [.75,.5], [.75,.25], [.5,.25], [.5,0], [.25,0]], color=white): display (hole): steve5 := display( [translate (stevehair, 0.5,9.625), translate (steveeyes, .75,9), translate (stevenose, 1.25,8.75), translate (stevemouth, 1,8.25), translate (sleeve, -1,7), translate (sleeve, 3,7), translate (arm, -1,4), translate (arm, 3,4), stevelegs, stevebody, stevehead, translate( scale (hole, 5, 5, [.35,.35]),-5,3), translate (backround3, -15.5,0)]) : movie := display( [translate(steve, 15.5,0), translate(steve, 15.5,0), steve1, steve1, steve2, steve2, c1, c2, c3, c4, c5, c6, c7, c8, c9, c10, c11, c12, c13, c14, c15, translate (steve5, 15.5,0), translate (steve5, 15.5,0), translate (steve5, 15.5,0), translate (steve5, 15.5,0)], scaling=constrained, insequence=true, axes=none); #3 fps