Making an image from an array of numbers

This is equivalent to the data in the OP:

data = Uncompress["1:eJzdlLsVwyAMRV1lj2zAZZSkTZUFsnCGCQjMR3zdRvaxC18/noTQ/f15PL+34zCb8TLYP2A57zWLJdxbrHWg3WEd5Un3YMUKFoMCb1j3jahqgzwDltPpmk1GC7TLkpxWuLeMYqWgXd1Tu2S7IRlo3T4clmpzg5F2pw4ty4gdqKZS1LpDxyK+p3uVtaxq1tcdFSyhmV2oVrptL5Scv2oPygb5jaqD/5V2n+OCai/QvqUbQ0vSnIuaFVfS153eMekUkUwW00efzXJhmM8SYiKEMs1YcjJxs+asFM+s5xk5G+9j6kGP3Ck7iyvsD3y6V+M="];

From there:

ArrayPlot[(FromDigits /@ Characters[#]) & /@ StringSplit[data, "\n"], 
          ColorRules -> {1 -> Red, 2 -> Blue, _ -> White}]

Stealing data from J.M.:

Colorize[ToCharacterCode[StringSplit[data]] - 48]

Also stealing from J.M....

s = Uncompress["1:eJzdlLsVwyAMRV1lj2zAZZSkTZUFsnCGCQjMR3zdRvaxC18/noTQ/f15PL+34zCb8TLYP2A57zWLJdxbrHWg3WEd5Un3YMUKFoMCb1j3jahqgzwDltPpmk1GC7TLkpxWuLeMYqWgXd1Tu2S7IRlo3T4clmpzg5F2pw4ty4gdqKZS1LpDxyK+p3uVtaxq1tcdFSyhmV2oVrptL5Scv2oPygb5jaqD/5V2n+OCai/QvqUbQ0vSnIuaFVfS153eMekUkUwW00efzXJhmM8SYiKEMs1YcjJxs+asFM+s5xk5G+9j6kGP3Ck7iyvsD3y6V+M="];
ClearAll[f];
f["0"] = List @@ ColorData[97][1];
f["1"] = List @@ ColorData[97][2];
f["2"] = List @@ ColorData[97][3];
img = Image[Map[f, Characters /@ StringSplit[s], {2}]]