G=10{11,17,9};Image@Join[##,2]&@@Table[Join@@Table[ImageData@ImageResize[Image[{t={g=G+{6,26,6},g,g,G,g,g,g,g},f={g,G,G,G,G,G,G,g},e={g,b=0g,b,G,G,b,b,g},e,{G,G,G,G,G,G,G,g},{g,G,G,G,b,G,G,G},f,t}/255],4*2^j],2^(#-j)],{j,#}]&