Doom9's Forum - View Single Post

heyt · 18th July 2010, 20:03

Thanks, your script works very well for my purpose.

The only thing left is "zooming". The different PAR of PAL and NTSC video seem to result in some problem in AR after correction. So it is not real zooming but more a correction in height and width separately. But for now it seems I don't have to change the zoom for some bigger parts of the movie. It is only necessary after a change in telecine or change of LD side. So only a few adjustment that can be handled manually.

Anyway if you have any suggestion for a script solution I'd be very grateful since I have some more LD to do this stuff. I uploaded a short clip of PAL and NTSC original video to http://www.megaupload.com/?d=7F4Q06SX

The code I am using at the moment comes here:

Code:

NTSC = AviSource("C:\Users\Heyt\Desktop\NTSC.avi").ConvertToRGB
PAL = AviSource("C:\Users\Heyt\Desktop\PAL.avi").ConvertToRGB

NTSC = Crop(NTSC,8,0,-8,0)
NTSC = Lanczos4resize(NTSC,704,640)
NTSC = Crop(NTSC,0,80,0,-80)
NTSC = Lanczos4resize(NTSC,702,473).AddBorders(1,4,1,3)
NTSC = Trim(NTSC,1,0)

PAL = Crop(PAL,8,0,-8,0)
PAL = Lanczos4Resize(PAL,704,640)
PAL = Crop(PAL,0,80,0,-80)
#PAL = Crop(PAL,0,72,0,-72)
PAL = AssumeFPS(PAL,24000,1001)

bPAL = PAL.AddBorders((800-PAL.Width)/2, (650-PAL.Height)/2, (800-PAL.Width)/2, (650-PAL.Height)/2, color=$000000)
bNTSC = NTSC.AddBorders((800-NTSC.Width)/2, (650-NTSC.Height)/2, (800-NTSC.Width)/2, (650-NTSC.Height)/2, color=$000000)

int = Interleave(bNTSC,bPAL).ConvertToYV12()
est = int.Greyscale().depanestimate(range=1,pixaspect=1.0,zoommax=1,improve=false,trust=0)
dep = int.depaninterleave(est,pixaspect=1.0,prev=0,next=1,subpixel=2,mirror=0)#.ShowFrameNumber(x=300,y=300)
acol = dep.SelectEvery(4, 1)

Overlay(bNTSC,acol,mode="blend",opacity=0.5)
Crop(49,137,-49,-134)
AddBorders((720-Width)/2, (480-Height)/2, (720-Width)/2, (480-Height)/2, color=$000000)

Most important here is the small correction of the size of the NTSC clip (second resize). Here I have to figure out the exact values to achieve good results after each major change to the video material. The values given work very well for the given clip.

18th July 2010, 20:03	#3 \| Link
heyt Registered User Join Date: Jan 2007 Location: Hamburg, Germany Posts: 6	Thanks, your script works very well for my purpose. The only thing left is "zooming". The different PAR of PAL and NTSC video seem to result in some problem in AR after correction. So it is not real zooming but more a correction in height and width separately. But for now it seems I don't have to change the zoom for some bigger parts of the movie. It is only necessary after a change in telecine or change of LD side. So only a few adjustment that can be handled manually. Anyway if you have any suggestion for a script solution I'd be very grateful since I have some more LD to do this stuff. I uploaded a short clip of PAL and NTSC original video to http://www.megaupload.com/?d=7F4Q06SX The code I am using at the moment comes here: Code: NTSC = AviSource("C:\Users\Heyt\Desktop\NTSC.avi").ConvertToRGB PAL = AviSource("C:\Users\Heyt\Desktop\PAL.avi").ConvertToRGB NTSC = Crop(NTSC,8,0,-8,0) NTSC = Lanczos4resize(NTSC,704,640) NTSC = Crop(NTSC,0,80,0,-80) NTSC = Lanczos4resize(NTSC,702,473).AddBorders(1,4,1,3) NTSC = Trim(NTSC,1,0) PAL = Crop(PAL,8,0,-8,0) PAL = Lanczos4Resize(PAL,704,640) PAL = Crop(PAL,0,80,0,-80) #PAL = Crop(PAL,0,72,0,-72) PAL = AssumeFPS(PAL,24000,1001) bPAL = PAL.AddBorders((800-PAL.Width)/2, (650-PAL.Height)/2, (800-PAL.Width)/2, (650-PAL.Height)/2, color=$000000) bNTSC = NTSC.AddBorders((800-NTSC.Width)/2, (650-NTSC.Height)/2, (800-NTSC.Width)/2, (650-NTSC.Height)/2, color=$000000) int = Interleave(bNTSC,bPAL).ConvertToYV12() est = int.Greyscale().depanestimate(range=1,pixaspect=1.0,zoommax=1,improve=false,trust=0) dep = int.depaninterleave(est,pixaspect=1.0,prev=0,next=1,subpixel=2,mirror=0)#.ShowFrameNumber(x=300,y=300) acol = dep.SelectEvery(4, 1) Overlay(bNTSC,acol,mode="blend",opacity=0.5) Crop(49,137,-49,-134) AddBorders((720-Width)/2, (480-Height)/2, (720-Width)/2, (480-Height)/2, color=$000000) Most important here is the small correction of the size of the NTSC clip (second resize). Here I have to figure out the exact values to achieve good results after each major change to the video material. The values given work very well for the given clip.