wolfie-restyle.ma

Clear[nestPimp2];
Options[nestPimp2] = Join[
   {
    PimpFunction -> Identity,
    PostPimpFunction -> Identity,
    PrePimpFunction -> Identity,
    InnerPimpFunction -> Identity
    },
   Options[ImageRestyle]
   ];
nestPimp2[startImg_, restyleImgs_, level_, opts : OptionsPattern[]] :=

    Module[{res},
   res = Nest[
     OptionValue[PimpFunction]@
       ImageRestyle[OptionValue[InnerPimpFunction]@#, restyleImgs, 
        Evaluate[FilterRules[{opts}, Options[ImageRestyle]]]] &,
     OptionValue[PrePimpFunction]@startImg, level];
   OptionValue[PostPimpFunction]@res
   ];
   
Module[{
  large = Import["http://bl0rg.net/~manuel/wolfram-imgs/large.png"],
  fire = Import["http://bl0rg.net/~manuel/wolfram-imgs/fire.png"],
    schiele = Import["http://bl0rg.net/~manuel/wolfram-imgs/schiele.png"],
  },
  
  {nestPimp2[small, {.3 -> fire, .3 -> schiele}, 5,
 PostPimpFunction -> (ColorConvert[#, "Grayscale"] &),
 PimpFunction -> (ImageAdjust[
     Colorize[#, ColorFunction -> "GrayYellowTones"], 1] &)
 ],
 nestPimp2[small, {.1 -> fire, .3 -> schiele}, 3,
 PerformanceGoal -> "Speed",
 PimpFunction -> (Sharpen[#, 5] &),
 InnerPimpFunction -> 
  Function[x, 
   ImageAdjust[Colorize[x, ColorFunction -> "CherryTones"], .5]]]
   }]