restart; with(plots): with (plottools): Madeline N.Pencil Drawing pencil := polygon([ [[2.5,10], [2.5,12], [3.5,12], [3.5,10], [2.5,10], [3,7], [3.5,10]], [[2.83,8], [3.17,8]], [[2.5,12], [2.5,12.5],[3.5,12.5],[3.5,12]] ],color=yellow): draw1 := plot( [[3,5], [4,6]], color=blue): draw2 := plot( [[3,5], [5,7]], color=blue): draw3 := plot( [[3,5], [5,7], [6,7]], color=blue): draw4 := plot( [[3,5], [5,7], [7,7]], color=blue): draw5 := plot( [[3,5], [5,7], [8,7]], color=blue): draw6 := plot( [[3,5], [5,7], [9,7]], color=blue): draw7 := plot( [[3,5], [5,7], [9,7], [10,6]], color=blue): draw8 := plot( [[3,5], [5,7], [9,7], [11,5]], color=blue): draw9 := plot( [[3,5], [5,7], [9,7], [11,5],[10,4]], color=blue): draw10 := plot( [[3,5], [5,7], [9,7], [11,5],[9,3]], color=blue): draw11 := plot( [[3,5], [5,7], [9,7], [11,5],[9,3],[8,3]], color=blue): draw12 := plot( [[3,5], [5,7], [9,7], [11,5],[9,3],[7,3]], color=blue): draw13 := plot( [[3,5], [5,7], [9,7], [11,5],[9,3],[6,3]], color=blue): draw14 := plot( [[3,5], [5,7], [9,7], [11,5],[9,3],[5,3]], color=blue): draw15 := plot( [[3,5], [5,7], [9,7], [11,5],[9,3],[5,3],[4,4]], color=blue): draw16 := plot( [[3,5], [5,7], [9,7], [11,5],[9,3],[5,3],[3,5]], color=blue): draw17 := plot( [[3,5], [5,7], [9,7], [11,5],[9,3],[5,3],[3,5]], color=blue): draw18 := plot( [[3,5], [5,6], [9,6], [11,5],[9,3],[5,3],[3,5]], color=blue): draw19 := plot( [[3,5], [5,4], [9,4], [11,5],[9,3],[5,3],[3,5]], color=blue): draw20 := plot( [[11,5],[9,3],[5,3],[3,5]], color=blue): draw21 := plot([ [[3,5], [5,4], [9,4], [11,5],[9,3],[5,3],[3,5]],[[5,4],[6,3],[8,3],[9,4]] ], color=blue): draw22 := plot([ [[3,5], [5,6], [9,6], [11,5],[9,3],[5,3],[3,5]],[[5,6],[5,4],[6,3],[8,3],[9,4],[9,6]] ], color=blue): draw23 := plot([ [[3,5], [5,7], [9,7], [11,5],[9,3],[5,3],[3,5]],[[5,6],[5,4],[6,3],[8,3],[9,4],[9,6], [8,7],[6,7],[5,6]] ] , color=blue): p1 := display (translate(pencil,0,-1)): p2 := display (translate(pencil,0,-2)): p3 := display ({translate(pencil,1,-1), translate(draw1,0,0)}): p4 := display ({translate(pencil,2,0),translate(draw2,0,0)}): p5 := display ({translate(pencil,3,0),translate(draw3,0,0)}): p6 := display ({translate(pencil,4,0),translate(draw4,0,0)}): p7 := display ({translate(pencil,5,0),translate(draw5,0,0)}): p8 := display ({translate(pencil,6,0),translate(draw6,0,0)}): p9 := display ({translate(pencil,7,-1),translate(draw7,0,0)}): p10 := display ({translate(pencil,8,-2),translate(draw8,0,0)}): p11 := display ({translate(pencil,7,-3),translate(draw9,0,0)}): p12 := display ({translate(pencil,6,-4),translate(draw10,0,0)}): p13 := display ({translate(pencil,5,-4),translate(draw11,0,0)}): p14 := display ({translate(pencil,4,-4),translate(draw12,0,0)}): p15 := display ({translate(pencil,3,-4),translate(draw13,0,0)}): p16 := display ({translate(pencil,2,-4),translate(draw14,0,0)}): p17 := display ({translate(pencil,1,-3),translate(draw15,0,0)}): p18 := display ({translate(pencil,0,-2),translate(draw16,0,0)}): p19 := display (translate(draw19,0,0)): p20 := display (translate(draw20,0,0)): p21 := display (translate(draw21,0,0)): p22 := display (translate(draw22,0,0)): p23 := display (translate(draw23,0,0)): p24 := display (translate(draw23,0,0)): p25 := display (translate(draw23,0,0)): display ( [ p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15, p16,p17,p18, p19, p20, p21, p22, p23, p24, p25], insequence=true, scaling=constrained, axes=none); # speed 7