Advertisement
Guest User

Untitled

a guest
Aug 22nd, 2016
189
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 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,#}]&
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement