View difference between Paste ID: M2nzce3D and CWFi8arQ
SHOW: | | - or go back to the newest paste.
1
# 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")
2-
# v 1.08
2+
# v 1.09
3
function IResize(clip c, int NewWidth, int NewHeight, string "resifilter", string "res_params", bool "mpeg2", Float "src_left", Float "src_top", string "res_params_c") {
4
  avs26   = VersionNumber() < 2.60 ? false : true
5
  avspmt  = Findstr(VersionString(), "AviSynth+") != 0 && Findstr(VersionString(), "r1576") == 0
6
  resifilter   = default ( resifilter,         "Spline36resize" )
7
  res_params   = default(res_params, "")
8
  mpeg2        = default(mpeg2, true)
9
  src_left     = default(src_left, 0)
10
  src_top      = default(src_top, 0)
11-
  res_params_c = default(res_params_c, res_params)
11+
12
  slumSep = chr420 && avs26
13
  res_params_c = default(!slumSep ? res_params : res_params_c, res_params)
14
  slumres = slumSep ? avspmt ? "ConvertToY()." : "ConvertToY8()." : ""
15
  c_width = Width(c)
16
  ch420m  = slumSep && mpeg2 ? NewWidth == c_width : false
17
  wShift  = ch420m ? 0.25*(1.0-Float(c_width/2.0)/Float(NewWidth/2.0)) : 0
18
  c
19
  SeparateFields() 
20
  Shift = (GetParity() ? -0.25 : 0.25) * (Height()/Float(NewHeight/2)-1.0)
21
  v2=last
22
  SelectEven(v2)
23
  euvcl = slumSep ? avspmt ? Interleave(ExtractU(),ExtractV()) : Interleave(UToY8(),VToY8()) : nop()
24
  eschrres = slumSep ? "euvcl." : ""
25
  E  = Eval(slumres + resifilter + "(NewWidth, NewHeight/2, src_left=src_left, src_top=src_top + Shift" + res_params + ")")
26
  Ec = chr420 ? Eval(eschrres + resifilter + "(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()
27
  SelectOdd(v2)
28
  ouvcl = slumSep ? avspmt ? Interleave(ExtractU(),ExtractV()) : Interleave(UToY8(),VToY8()) : nop()
29
  oschrres = slumSep ? "ouvcl." : ""
30
  O  = Eval(slumres + resifilter + "(NewWidth, NewHeight/2, src_left=src_left, src_top=src_top + (-Shift)" + res_params + ")")
31
  Oc = chr420 ? Eval(oschrres + resifilter + "(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()
32
  Interleave(E, O)
33
  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
34
  Weave()
35
}