restart; with(plots): Andrew F.Lunch Time!! s1 := plot([ [5,0], [3,5], [5.5,6], [6.5,6], [9,5], [7,0], [5,0] ], color=red): s2 := plot([ [5,0], [3,5], [5.5,5], [6.5,5], [9,5], [7,0], [5,0] ], color=orange): s3 := plot([ [5,0], [3,5], [5.5,4], [6.5,4], [9,5], [7,0], [5,0] ], color=yellow): s4 := plot([ [5,0], [3,5], [5.5,3], [6.5,3], [9,5], [7,0], [5,0] ], color=green): s5 := plot([ [5,0], [3,5], [5.5,2], [6.5,2], [9,5], [7,0], [5,0] ], color=blue): s6 := plot([ [5,0], [3,5], [5.5,1], [6.5,1], [9,5], [7,0], [5,0] ], color=purple): s7 := plot([ [5,0], [3,5], [5.5,0], [6.5,0], [9,5], [7,0], [5,0] ], color=magenta): display([s1, s2, s3 ,s4, s5, s6, s7], insequence=true, axes=none, scaling=constrained); # speed=5