IResize

# IResize by Gavino and IanB and mod by A.SONY to use Custom resizer and Extra resizer parameters may be passed via res_params. like this IResize(240,480,res_params=",src_left=5")
# v 1.05
function IResize(clip c, int NewWidth, int NewHeight, string "resifilter", string "res_params") {
  resifilter   = default ( resifilter,         "Spline36resize" )
  res_params = default(res_params, "")
  avs26   = VersionNumber() < 2.60 ? false : true
  avspmt  = Findstr(VersionString(), "AviSynth+") != 0 && Findstr(VersionString(), "r1576") == 0
  chr420  = avspmt ? c.is420() : c.isyv12()
  slumSep = chr420 && avs26
  slumres = slumSep ? avspmt ? "ConvertToY()." : "ConvertToY8()." : ""
  c
  SeparateFields()
  Shift = (GetParity() ? -0.25 : 0.25) * (Height()/Float(NewHeight/2)-1.0)
  v2=last
  SelectEven(v2)
  euvcl = slumSep ? avspmt ? Interleave(ExtractU(),ExtractV()) : Interleave(UToY8(),VToY8()) : nop()
  eschrres = slumSep ? "euvcl." : ""
  E  = Eval(slumres + resifilter + "(NewWidth, NewHeight/2, src_top=Shift" + res_params + ")")
  Ec = chr420 ? Eval(eschrres + resifilter + "(slumSep ? NewWidth/2 : NewWidth, slumSep ? NewHeight/4 : NewHeight/2, src_top=slumSep ? Shift : 2*Shift" + res_params + ")") : nop()
  SelectOdd(v2)
  ouvcl = slumSep ? avspmt ? Interleave(ExtractU(),ExtractV()) : Interleave(UToY8(),VToY8()) : nop()
  oschrres = slumSep ? "ouvcl." : ""
  O  = Eval(slumres + resifilter + "(NewWidth, NewHeight/2, src_top=-Shift" + res_params + ")")
  Oc = chr420 ? Eval(oschrres + resifilter + "(slumSep ? NewWidth/2 : NewWidth, slumSep ? NewHeight/4 : NewHeight/2, src_top=slumSep ? -Shift : -2*shift" + res_params + ")") : nop()
  Interleave(E, O)
  chr420 ? avs26 ? avspmt ? CombinePlanes(last, Interleave(Ec.Selecteven(),Oc.Selecteven()), Interleave(Ec.SelectOdd(),Oc.SelectOdd()), planes="YUV", source_planes="YYY", pixel_type=c.PixelType()) : YtoUV( Interleave(Ec.Selecteven(),Oc.Selecteven()), Interleave(Ec.SelectOdd(),Oc.SelectOdd()), last ) : MergeChroma(Interleave(Ec, Oc)) : Last
  Weave()
}