Need AVISynth Script Help...

[mh2360]

Here's the script im working on...

# Universal DIVX/XVID TO DVD (Anamorphic eventually) Conversion Script... MH2360

AVISource("TestClip", false)

AspectRatio=(Width / Height)

NewHeight = (720 / Width) * Height
NewHeight = NewHeight * 1.33333 # 4:3 Aspect Ratio.

# need Anamorphic Calculation here

NewHeight = int(NewHeight / 2) # Make NewHeight an even number.
NewHeight = NewHeight * 2

BorderHeight = (576 - NewHeight) / 2 # Find the border Height.


LanczosResize(720, int(NewHeight))
Blockbuster(method="noise",detail_min=1,detail_max =3,variance=0.1,seed=1)
AddBorders(0, BorderHeight, 0, BorderHeight)
ConvertToYUY2(interlaced=false)

I want to use this script to convert widescreen (640 x 272 etc..) AVI files to (PAL) anamorphic DVD resolution, only changing the input filename each time i use it. As it is, it seems to convert to 4:3 letterboxed OK. But I want to convert to Anamorphic. My guess is that i would have to multiply the height by 1.7777 (16/9).

[Ejoc]

To keep the aspect ratio in check you would need to crop the height so its the correct ratio 16/9 in reguards to its width, then resize to to 720,480

So something like:
crop(width,width/(16/9))
resize(720,480)

if the avi's are already 16/9, then a simple resize would do, but I'm guessing you wanna make this generic.

[mh2360]

Ok, a revised script, which seems to work fine... Does someone want to check my numbrers.

# Universal DIVX/XVID TO PAL DVD Anamorphic Conversion Script... MH2360

AVISource("test.avi", false)
AspectRatio=(Width / Height)

NewHeight = (480 * 1.7777777)#................................. 16:9

NewHeight = (NewHeight / AspectRatio)

NewHeight = (NewHeight * 1.2) #................................. Adjust for PAL Output.

NewHeight = int(NewHeight / 2)#...................................Make NewHeight an even number.
NewHeight = (NewHeight * 2)

NewHeight = (NewHeight>576)?576:NewHeight#............. if Height > 576 then Height = 576

BorderHeight = (576 - NewHeight) / 2#...........................Find the border Height.
LanczosResize(720, NewHeight)
Blockbuster(method="noise",detail_min=1,detail_max =3,variance=0.1,seed=1)
AddBorders(0, BorderHeight, 0, BorderHeight)
ConvertToYUY2(interlaced=false)
AssumeFPS(25.000, false)