4802.sagews

a=line([(-8.5,10.5),(-8.5,11),(-11,11),(-12,10),(-11,8),(-10,5),(-10.5,3.5),(-10,0),(-9.5,-1),(-11,-2.5),(-11,-5),(-10,-6.5),(-9,-6.5),(-8.5,-6),(-9.5,-5.5),(-10,-3),(-7.5,-1.5),(-7,0.5),(-6,1),(-5,0.5),(-3,-2),(0,-3),(0.5,-4.5),(0,-5.5),(0,-7.5),(0.5,-8.5),(-0.1,-9.5),(0,-10.5),(0.2,-11.5),(1,-11.5),(1.5,-10.5),(1,-9.5),(1,-6.5),(3,-4),(4.5,-2.5),(5,0),(8,-1),(9,-1),(9,0),(8,2),(8.5,3),(8,4),(8,5),(7,6),(5,5.5),(4,5),(3,5),(2,4),(-6,7),(-8.5,6.5),(-10.5,8),(-11.5,10),(-10.5,10.5),(-8.5,10.5)],thickness=1.5, color='black')

b=line([(8.9,0.2),(8,0),(8,-1)],thickness=1.5, color='black')

c=line([(-5.2,0.7),(-7,-1),(-6,-3),(-5,-3),(-5.3,-4),(-7,-3.5),(-7.8,-1.6)],thickness=1.5, color='black')

d=line([(3,-4),(2,-5.5),(2,-6.6),(2.5,-7),(2.5,-8),(1.5,-7.9),(1,-6.5)],thickness=1.5, color='black')

e=line([(3,5),(3.5,3.5),(3.7,3.6),(4.5,2.5),(5,4),(5.9,5),(4.9,5.4)],thickness=1.5, color='black')

f=line([(8,4),(9,5),(8.9,5.7),(7,5.9)],thickness=1.5, color='black')

g=polygon([(-8.5,10.5),(-8.5,11),(-11,11),(-12,10),(-11,8),(-10,5),(-10.5,3.5),(-10,0),(-9.5,-1),(-11,-2.5),(-11,-5),(-10,-6.5),(-9,-6.5),(-8.5,-6),(-9.5,-5.5),(-10,-3),(-7.5,-1.5),(-7,0.5),(-6,1),(-5,0.5),(-3,-2),(0,-3),(0.5,-4.5),(0,-5.5),(0,-7.5),(0.5,-8.5),(-0.1,-9.5),(0,-10.5),(0.2,-11.5),(1,-11.5),(1.5,-10.5),(1,-9.5),(1,-6.5),(3,-4),(4.5,-2.5),(5,0),(8,-1),(9,-1),(9,0),(8,2),(8.5,3),(8,4),(8,5),(7,6),(5,5.5),(4,5),(3,5),(2,4),(-6,7),(-8.5,6.5),(-10.5,8),(-11.5,10),(-10.5,10.5),(-8.5,10.5)],color='brown')

o=polygon([(8,4),(9,5),(8.9,5.7),(7,5.9)],color='brown')

p=polygon([(9,0.2),(8,0),(8,-1),(9,-1)],color='black')

p1=polygon([(-5.2,0.7),(-7,-1),(-6,-3),(-5,-3),(-5.2,-4),(-7,-3.6),(-7.8,-1.6),(-7,0.5),(-6,1)],color='brown')

p2=polygon([(3,-4),(2,-5.5),(2,-6.6),(2.5,-7),(2.5,-8),(1.5,-7.9),(1,-6.5)],color='brown')

c1=circle((6.1,2),0.3,fill=true,color='white')

c2=circle((6.2,2),0.2,fill=true,color='black')

m=line([(5,0),(3.1,1),(3.5,3.6)],thickness=1.5, color='black')

y1=plot(1*x+22, (x,-12,-11), thickness=4, color='green', legend_label='$y=1*x+22$')

y2=plot(-0.33*x-3, (x,-3,0), thickness=4, color='yellow', legend_label='$y=-1/3*x-3$')

y3=plot(-1, (x,8,9), thickness=4, color='red', legend_label='$y=-1$')

y4=plot(-0.37*x+4.75, (x,-6,2), thickness=4, color='blue', legend_label='$y=-3/8*x+19/4$')

show(a+b+c+d+e+f+g+o+p+p1+p2+c+c1+c2+m+y1+y2+y3+y4)