4812.sagews

b1=polygon([(8,20),(8,-4),(11,-4),(11,-7),(8,-7),(8,-18),(-8,-18),(-8,-12),(-10,-10),(-10,-8),(-18,-8),(-18,-6),(-12,-2),(-13,-1),(-13,0),(-12,1),(-10,1),(-12,3),(-12,5),(-10,7),(-10,9),(-8,11),(-8,20),(-7,18),(-6,20),(-5,18),(-4,20),(-3,18),(-2,20),(-1,18),(0,20),(1,18),(2,20),(3,18),(4,20),(5,18),(6,20),(7,18),(8,20)],color="yellow")

b2=polygon([(1,1),(-4,1),(-6,3),(-6,5),(3,5),(3,3),(1,1)],color="white")

b3=polygon([(-4,1),(-10,1),(-12,3),(-12,5),(-6,5),(-6,3),(-4,1)],color="white")

a1=line([(8,20),(8,-4),(11,-4),(11,-7),(8,-7),(8,-18),(-8,-18),(-8,-12),(-10,-10),(-10,-8),(-18,-8),(-18,-6),(-12,-2),(-13,-1),(-13,0),(-12,1),(-10,1),(-12,3),(-12,5),(-10,7),(-10,9),(-8,11),(-8,20),(-7,18),(-6,20),(-5,18),(-4,20),(-3,18),(-2,20),(-1,18),(0,20),(1,18),(2,20),(3,18),(4,20),(5,18),(6,20),(7,18),(8,20)],thickness=2,color="black")

a2=line([(1,1),(-4,1),(-6,3),(-6,5),(3,5),(3,3),(1,1)],thickness=2,color="black")

a3=line([(-4,1),(-10,1),(-12,3),(-12,5),(-6,5),(-6,3),(-4,1)],thickness=2,color="black")

a4=line([(-6,5),(-4,7),(-2,8),(0,8)],thickness=2,color="black")

a5=line([(-12,5),(-10,7),(-8,8),(-6,8)],thickness=2,color="black")

a6=line([(-12,-2),(-9,-2)],thickness=2,color="black")

a7=line([(-10,-8),(-3,-8)],thickness=2,color="black")

a8=line([(-3,-9),(-3,-7)],thickness=2,color="black")

a9=line([(8,-5),(10,-5),(10,-6)],thickness=2,color="black")

a10=line([(8,-6),(9,-6),(9,-5)],thickness=2,color="black")

r1=plot(2*x+4,  (x,7,8),thickness=3, color="red",legend_label="$y=2x+4$")
r2=plot(-2*x+32, (x,6,7),thickness=3, color="orange",legend_label="$y=-2x+32$")
r3=plot(2*x+8, (x,5,6),thickness=3, color="black",legend_label="$y=2x+8$")
r4=plot(-2*x+28, (x,4,5),thickness=3, color="blue",legend_label="$y=-2x+28$")
r5=plot(2*x+12, (x,3,4),thickness=3, color="purple",legend_label="$y=2x+12$")

t1=circle((0,4.7),0.3, fill=true,color="black")

t2=circle((-7.2,4.7),0.3, fill=true,color="black")

show(b1+b2+b3+a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+r1+r2+r3+r4+r5+t1+t2)