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,resifilter="LanczosResize",res_params=",taps=5")
# some parameters are special for 420 (yv12 in vanilla avs)
# v 1.11
function IResize(clip c, int NewWidth, int NewHeight, string "resifilter", string "res_params", bool "mpeg2", Float "src_left", Float "src_top", string "cresifilter", string "cres_params") {
  avs26   = VersionNumber() < 2.60 ? false : true
  avspmt  = Findstr(VersionString(), "AviSynth+") != 0 && Findstr(VersionString(), "r1576") == 0
  resifilter   = default ( resifilter,         "Spline36resize" )
  res_params   = default(res_params, "")
  mpeg2        = default(mpeg2, true)
  src_left     = default(src_left, 0)
  src_top      = default(src_top, 0)
  res_params_c = default(cres_params, res_params)
  cresifilter  = default(cresifilter, resifilter)
  chr420  = avspmt ? c.is420() : c.isyv12()
  slumSep = chr420 && avs26
  slumres = slumSep ? avspmt ? "ConvertToY()." : "ConvertToY8()." : ""
  c_width = Width(c)
  ch420m  = slumSep && mpeg2 ? NewWidth == c_width : false
  wShift  = ch420m ? 0.25*(1.0-Float(c_width/2.0)/Float(NewWidth/2.0)) : 0
  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_left=src_left, src_top=src_top + Shift" + res_params + ")")
  Ec = chr420 ? Eval(eschrres + cresifilter + "(slumSep ? NewWidth/2 : NewWidth, slumSep ? NewHeight/4 : NewHeight/2, src_left=wShift + (slumSep ? src_left==0 ? 0 : src_left/2 : src_left), src_top=slumSep ? Shift + (src_top==0 ? 0 : src_top/2) : src_top + 2*Shift" + res_params_c + ")") : nop()
  SelectOdd(v2)
  ouvcl = slumSep ? avspmt ? Interleave(ExtractU(),ExtractV()) : Interleave(UToY8(),VToY8()) : nop()
  oschrres = slumSep ? "ouvcl." : ""
  O  = Eval(slumres + resifilter + "(NewWidth, NewHeight/2, src_left=src_left, src_top=src_top + (-Shift)" + res_params + ")")
  Oc = chr420 ? Eval(oschrres + cresifilter + "(slumSep ? NewWidth/2 : NewWidth, slumSep ? NewHeight/4 : NewHeight/2, src_left=wShift + (slumSep ? src_left==0 ? 0 : src_left/2 : src_left), src_top=slumSep ? -Shift + (src_top==0 ? 0 : src_top/2) : src_top + -2*shift" + res_params_c + ")") : 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()
}