Mean Flags

flagsworld = CountryData[#, "Flag"] & /@ CountryData["Countries"];
flagseur = CountryData[#, "Flag"] & /@ CountryData["Europe"];
padflag[f_] :=
 ImageData@
  Graphics[Inset[f, {Left, Top}, {Left, Top}, {1, 1}],
   PlotRange -> 0.7, ImageSize -> 300];
meanflag[n_,flagset_] := Image[Mean[padflag /@ flagset[[;; n]]]];
anim = Table[meanflag[n,flagseur], {n, 1, Length[flagseur]}];
Export["europe.gif", anim];
Export["meanflagworld.png", meanflag[Length[flagsworld], flagsworld]];