restart; with(plots): with(plottools): Harrison M. Brontosaurus Abuse brontotai := polygon( [ [30,21], [37,21], [38,21.5], [37,22], [30,22], [30,21] ], view = [0..50, 0..50], color=green ): insertuncreativevariablenamehere := plot( [ [41,19], [41,17], [40.5,15], [41,17], [41.5,15], [41,17], [41,18], [43,18] ], view = [0..50, 0..50], color=black): unnaturallylongleftarm := plot( [ [41,18], [38,21.5] ], view = [0..50, 0..50], color=black): brontosaurus1111 := polygon( [ [4,23], [5,24], [13,24], [13,39], [14,40], [16,40], [16.75,39], [16,38], [15,38], [15,19], [14,18], [13,18], [13,13], [11,13], [11,18], [8,18], [8,13], [6,13], [6,18], [5,18], [4,19], [4,21], [3,21], [3,18], [2.5,17], [2,18], [2,22], [4,22], [4,23] ], view = [0.. 50, 0.. 50], color=green ): brontopup := plot( [ [4,23], [5,24], [13,24], [13,39], [14,40], [16,40], [16.75,39], [16,38], [15,38], [15,19], [14,18], [13,18], [13,13], [11,13], [11,18], [8,18], [8,13], [6,13], [6,18], [5,18], [4,19], [4,21], [3,21], [3,18], [2.5,17], [2,18], [2,22], [4,22], [4,23] ], view = [0.. 50, 0.. 50], color=green, thickness=3 ): brontosaurus1 := display( [brontosaurus1111, brontopup] ): personhead := circle( [41,20], 1, color=black): bs1eye := textplot([15,38.5,"."],'align'={'above','right'} ): brnt1 := display( [brontosaurus1] ): brontosaurus2lowerneckandbodd := polygon( [ [26,28.5], [26,19], [27,18], [27,13], [29,13], [29,18], [32,18], [32,13], [34,13], [34,18], [35,18], [36,19], [36,23], [35,24], [28,24], [28,28.5], [26,28.5] ], view = [0.. 50, 0.. 50], color=green ): b2lnadoutline := plot( [ [26,28.5], [26,19], [27,18], [27,13], [29,13], [29,18], [32,18], [32,13], [34,13], [34,18], [35,18], [36,19], [36,23], [35,24], [28,24], [28,28.5], [26,28.5] ], view = [0.. 50, 0.. 50], color=green, thickness=3 ): brontosaurus2lowerneckandbody := display( [b2lnadoutline, brontosaurus2lowerneckandbodd] ): bs2eye := textplot([24.5,38.5,"."],'align'={'above','right'} ): bs2upperbodd := polygon( [ [28,28.5], [28,39], [27,40], [25,40], [24.25,39], [25,38], [26,38], [26,28.5], [28,28.5] ], view = [0.. 50, 0.. 50], color=green ): bs2upperbodyoutline := plot( [ [28,28.5], [28,39], [27,40], [25,40], [24.25,39], [25,38], [26,38], [26,28.5], [28,28.5] ], view = [0.. 50, 0.. 50], color=green, thickness=3 ): brontosaurus2upperbody := display( [bs2upperbodd, bs2upperbodyoutline] ): brontosauri := display( [brnt1, brontosaurus2lowerneckandbody, brontosaurus2upperbody] ): brontotail2 := plot( [ [30,21], [37,21], [38,21.5], [37,22], [30,22], [30,21] ], view = [0..50, 0..50], thickness=3, color=green ): brontotail := display( [brontotai, brontotail2] ): p1 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p2 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p3 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p4 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p5 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p6 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,8.5,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p7 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,8.5,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p8 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,8.5,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p9 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,8.5,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p10 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,8.5,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p11 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p12 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p13 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p14 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,8.5,0), translate(insertuncreativevariablenamehere,8.5,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p15 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,7,0), translate(insertuncreativevariablenamehere,7,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p16 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,6,0), translate(insertuncreativevariablenamehere,6,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p17 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,5,0), translate(insertuncreativevariablenamehere,5,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p18 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,4,0), translate(insertuncreativevariablenamehere,4,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p19 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,3,0), translate(insertuncreativevariablenamehere,3,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p20 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,2,0), translate(insertuncreativevariablenamehere,2,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p21 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,1,0), translate(insertuncreativevariablenamehere,1,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p22 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,0,0), translate(insertuncreativevariablenamehere,0,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p23 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,0,0), translate(insertuncreativevariablenamehere,0,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p24 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,0,0), translate(insertuncreativevariablenamehere,0,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p25 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,0,0), translate(insertuncreativevariablenamehere,0,0), translate(unnaturallylongleftarm,0,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p26 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,0), translate(personhead,0,0), translate(insertuncreativevariablenamehere,0,0), translate(unnaturallylongleftarm,0,0), translate(brontotail,0,0), translate(bs1eye,0,0), translate(bs2eye,0,0)}, view = [0.. 50, 0.. 50] ): p27 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-1), translate(personhead,1,0), translate(insertuncreativevariablenamehere,1,0), translate(unnaturallylongleftarm,1,0), translate(brontotail,1,0), translate(bs1eye,0,0), translate(bs2eye,0,-1)}, view = [0.. 50, 0.. 50] ): p28 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-2), translate(personhead,2,0), translate(insertuncreativevariablenamehere,2,0), translate(unnaturallylongleftarm,2,0), translate(brontotail,2,0), translate(bs1eye,0,0), translate(bs2eye,0,-2)}, view = [0.. 50, 0.. 50] ): p29 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-3), translate(personhead,3,0), translate(insertuncreativevariablenamehere,3,0), translate(unnaturallylongleftarm,3,0), translate(brontotail,3,0), translate(bs1eye,0,0), translate(bs2eye,0,-3)}, view = [0.. 50, 0.. 50] ): p30 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-4), translate(personhead,4,0), translate(insertuncreativevariablenamehere,4,0), translate(unnaturallylongleftarm,4,0), translate(brontotail,4,0), translate(bs1eye,0,0), translate(bs2eye,0,-4)}, view = [0.. 50, 0.. 50] ): p31 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-5), translate(personhead,5,0), translate(insertuncreativevariablenamehere,5,0), translate(unnaturallylongleftarm,5,0), translate(brontotail,5,0), translate(bs1eye,0,0), translate(bs2eye,0,-5)}, view = [0.. 50, 0.. 50] ): p32 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,6,0), translate(insertuncreativevariablenamehere,6,0), translate(unnaturallylongleftarm,6,0), translate(brontotail,6,0), translate(bs1eye,0,0), translate(bs2eye,0,-6)}, view = [0.. 50, 0.. 50] ): p33 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,6,0), translate(insertuncreativevariablenamehere,6,0), translate(unnaturallylongleftarm,6,0), translate(brontotail,6,0), translate(bs1eye,0,0), translate(bs2eye,0,-6)}, view = [0.. 50, 0.. 50] ): p34 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,6,0), translate(insertuncreativevariablenamehere,6,0), translate(unnaturallylongleftarm,6,0), translate(brontotail,6,0), translate(bs1eye,0,0), translate(bs2eye,0,-6)}, view = [0.. 50, 0.. 50] ): p35 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,7,0), translate(insertuncreativevariablenamehere,7,0), translate(unnaturallylongleftarm,7,0), translate(brontotail,6,0), translate(bs1eye,0,0), translate(bs2eye,0,-6)}, view = [0.. 50, 0.. 50] ): p36 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,9,0), translate(insertuncreativevariablenamehere,9,0), translate(unnaturallylongleftarm,9,0), translate(brontotail,6,0), translate(bs1eye,0,0), translate(bs2eye,0,-6)}, view = [0.. 50, 0.. 50] ): p37 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,10,0), translate(insertuncreativevariablenamehere,10,0), translate(unnaturallylongleftarm,10,0), translate(brontotail,6,0), translate(bs1eye,0,0), translate(bs2eye,0,-6)}, view = [0.. 50, 0.. 50] ): p38 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,6,0), translate(bs1eye,0,0), translate(bs2eye,0,-6)}, view = [0.. 50, 0.. 50] ): p39 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,6,0), translate(bs1eye,0,0), translate(bs2eye,0,-6)}, view = [0.. 50, 0.. 50] ): p40 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,6,0), translate(bs1eye,0,0), translate(bs2eye,0,-6)}, view = [0.. 50, 0.. 50] ): p41 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,6,0), translate(bs1eye,0,0), translate(bs2eye,0,-6)}, view = [0.. 50, 0.. 50] ): p42 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,6,0), translate(bs1eye,0,0), translate(bs2eye,0,-6)}, view = [0.. 50, 0.. 50] ): p43 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,6,0), translate(bs1eye,0,0), translate(bs2eye,0,-6)}, view = [0.. 50, 0.. 50] ): p44 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,6,0), translate(bs1eye,0,0), translate(bs2eye,0,-6)}, view = [0.. 50, 0.. 50] ): p45 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,6,0), translate(bs1eye,0,-0.25), translate(bs2eye,0,-5.75)}, view = [0.. 50, 0.. 50] ): p46 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,6,0), translate(bs1eye,0,-0.25), translate(bs2eye,0,-5.75)}, view = [0.. 50, 0.. 50] ): p47 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,6,0), translate(bs1eye,0,-0.25), translate(bs2eye,0,-5.75)}, view = [0.. 50, 0.. 50] ): p48 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,6,0), translate(bs1eye,0,-0.25), translate(bs2eye,0,-5.75)}, view = [0.. 50, 0.. 50] ): p49 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,6,0), translate(bs1eye,0,-0.25), translate(bs2eye,0,-5.75)}, view = [0.. 50, 0.. 50] ): p50 := display({translate(brnt1,0,0), translate(brontosaurus2lowerneckandbody,0,0), translate(brontosaurus2upperbody,0,-6), translate(personhead,100,0), translate(insertuncreativevariablenamehere,100,0), translate(unnaturallylongleftarm,100,0), translate(brontotail,6,0), translate(bs1eye,0,-0.25), translate(bs2eye,0,-5.75)}, view = [0.. 50, 0.. 50] ): 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, p26, p27, p28, p28, p30, p31, p32, p33, p34, p35, p36, p37, p38, p39, p40, p41, p42, p43, p44, p45, p46, p47, p48, p49, p50 ], insequence=true, scaling=constrained, view=[0..50, 10..45], axes=none); #speed=7