restart:with(plots):with(plottools):

spence_e

Building a Bunny

line1 := [ [1,0.55], [1,1.55] ]:

line2 := [ [2,0.55], [2,1.55] ]:

line3 := [ [3,0.55], [3,1.55] ]:

line4 := [ [4,0.55], [4,1.55] ]:

line5 := [ [5,0.55], [5,1.55] ]:

line6 := [ [6,0.55], [6,1.55] ]:

line7 := [ [7,0.55], [7,1.55] ]:

line8 := [ [8,0.55], [8,1.55] ]:

line9 := [ [9,0.55], [9,1.55] ]:

bunny := plot([ [5, 1], [4, 2], [3.5, 3], [3.5, 4], [3.5, 5], [4.5, 6], [5.5, 6.5], [6.5, 6.5], [7.5, 6.5], [8.5, 6.5], [9.5, 6.5], [10.5, 6.5], [11.5, 6.5], [12.5, 6.5], [13, 6], [13, 7], [13.5, 7], [14, 6.875], [14.5, 6.75], [15, 6.625], [15.5, 6.5], [16, 6.25], [16.5, 5.875], [17, 5.5], [17, 5.25], [16.9, 4.75], [16.5, 4.5], [16, 4.275], [15, 4.15], [14.5, 4.1], [14, 4], [13.5, 3.75], [13, 3.3], [12.975, 2.95], [13.1, 2.45], [13.275, 1.95], [13.625, 1.45], [14, 1], [14.5, 0.9675], [15.1, 0.96], [15.3, 0.875], [15.4, 0.625], [14, 0.6225], [13.5, 0.625], [12.75, 0.925], [11.9, 1.2], [11, 1.2875], [9.5, 1.2925], [8, 1.25], [6.15, 1.1], [5.95, 1.05], [6.1, 0.875], [6.6, 0.85], [7.2, 0.8475], [7.4, 0.7375], [7.5, 0.55], [5.5, 0.55], [5, 1] ], color=brown):

line10 := [ [10,0.55], [10,1.55] ]:

line11 := [ [11,0.55], [11,1.55] ]:

line12 := [ [12,0.55], [12,1.55] ]:

line13 := [ [13,0.55], [13,1.55] ]:

line14 := [ [14,0.55], [14,1.55] ]:

line15 := [ [15,0.55], [15,1.55] ]:

line16 := [ [16,0.55], [16,1.55] ]:

line17 := [ [17,0.55], [17,1.55] ]:

line18 := [ [18,0.55], [18,1.55] ]:

line19 := [ [1.5,0.55], [1.5,1.55] ]:

line20 := [ [2.5,0.55], [2.5,1.55] ]:

line21 := [ [3.5,0.55], [3.5,1.55] ]:

line22 := [ [4.5,0.55], [4.5,1.55] ]:

line23 := [ [5.5,0.55], [5.5,1.55] ]:

line24 := [ [6.5,0.55], [6.5,1.55] ]:

line25 := [ [7.5,0.55], [7.5,1.55] ]:

line26 := [ [8.5,0.55], [8.5,1.55] ]:

line27 := [ [9.5,0.55], [9.5,1.55] ]:

line28 := [ [10.5,0.55], [10.5,1.55] ]:

line29 := [ [11.5,0.55], [11.5,1.55] ]:

line30 := [ [12.5,0.55], [12.5,1.55] ]:

line31 := [ [13.5,0.55], [13.5,1.55] ]:

line32 := [ [14.5,0.55], [14.5,1.55] ]:

line33 := [ [15.5,0.55], [15.5,1.55] ]:

line34 := [ [16.5,0.55], [16.5,1.55] ]:

line35 := [ [17.5,0.55], [17.5,1.55] ]:

line36 := [ [18.5,0.55], [18.5,1.55] ]:

grass := plot([line1, line2, line3, line4, line5, line6, line7, line8, line9, line10, line11, line12, line13, line14, line15, line16, line17, line18, line19, line20, line21, line22, line23, line24, line25, line26, line27, line28, line29, line30, line31, line32, line33, line34, line35, line36], color=[darkgreen]):

eye := disk([15.925, 5.8375], 0.25, color=black):

p1 := display([bunny, eye]):

tail := plot([ [5.475, 0.58], [4, 0.6], [3, 0.635], [2.25, 0.7825], [1.675, 1.25], [1.875, 1.6], [2.575, 1.815], [3.25, 1.9275], [4,2] ], color=brown):

p2 := display([bunny, tail]):

ear := plot([ [13.5, 7], [13.5, 6], [13.725, 5.5], [14.2, 5.05], [14.65, 4.975], [15.15, 5.025], [15.4, 5.375], [15.6, 5.925], [15.6, 6.46265] ], color=brown):

p3 := display([bunny, ear]):

p4 := display([bunny, grass]):

whisker1 := [ [16.5, 5.475], [18.5, 5.675] ]:

whisker2 := [ [16.5, 5.275], [18.5, 5.275] ]:

whisker3 := [ [16.5, 5.075], [18.5, 4.875] ]:

whiskers := plot([whisker1, whisker2, whisker3], color=[black]):

p5 := display([bunny, whiskers]):

fullbunny := display([p1, p2, p3, p5]):

fullset := display([p1, p2, p3, p4, p5]):

p6 := translate(fullbunny,0,1.5):

fullset2 := display([grass, p6]):

whisker4 := [ [16.5, 5.5375], [18.5, 5.75] ]:

whisker5 := [ [16.5, 5.3375], [18.5, 5.4375] ]:

whisker6 := [ [16.5, 5.1375], [18.5, 5.125] ]:

whiskers2 := plot([whisker4, whisker5, whisker6], color=[black]):

p7 := display([p1, p2, p3, p4, whiskers2]):

smile := plot([ [16.475, 4.5], [15.975, 4.5], [15.55, 4.575] ], color=brown):

p8 := display([fullset, smile]):

carrotp1 := plot([ [18.175, 0.55], [16, 0.55], [18.175, 0.95], [18.175, 0.55] ], color=coral):

carrotp2 := plot([ [18.175, 0.95], [18.4675, 1.15], [18.2675, 0.8], [18.65, 0.7325], [18.2675, 0.650], [18.5175, 0.55], [18.175, 0.55] ], color=green):

carrot := display([carrotp1, carrotp2]):

fullsetcarrot := display([fullset, carrot]):

p9 := display([p8, carrot]):

display([bunny, p1, p2, p3, p4, p5, fullset, fullset2, fullset, p7, fullset, fullsetcarrot, p9], insequence, axes=none, size=[600,400]);#speed=2