digitalFAQ.com Forums [Archives]

digitalFAQ.com Forums [Archives] (http://www.digitalfaq.com/archives/)
-   Video Encoding and Conversion (http://www.digitalfaq.com/archives/encode/)
-   -   KVCD: What's the best program to do it all? (http://www.digitalfaq.com/archives/encode/14232-kvcd-best-program.html)

NittoLive 04-29-2006 03:24 AM

KVCD: What's the best program to do it all?
 
Sparkster, you showed me the script for watermark! now This is what i wanna do. i got some .avi movies, and some .mpg movies, and i wanna rip some of my dvds , into either avi or kvcd mpg, whatever 1, i can make the file size the smallest!

Could you tell me the best program to take my avi, or mpg and add that watermark and reencode it, either back to avi or kvcd mpg format. i dont know if avi would come out smaller then lvcd mpg. i think kvcd mpg would come out smaller. and could you tell me the best settings. !!!!!

kwag 04-29-2006 10:38 AM

Re: sparskter! Please read! Whats the best program to do it
 
Quote:

Originally Posted by NittoLive
i got some .avi movies, and some .mpg movies, and i wanna rip some of my dvds , into either avi or kvcd mpg, whatever 1, i can make the file size the smallest!

As far as DVDs, that's fine. As far as reencoding AVIs or MPGs, that's the worst thing you could do :!:
Quote:


Could you tell me the best program to take my avi, or mpg and add that watermark and reencode it, either back to avi or kvcd mpg format. i dont know if avi would come out smaller then lvcd mpg. i think kvcd mpg would come out smaller. and could you tell me the best settings. !!!!!
Read the forums and learn. ANY reencode will degrade quality.
And if you reencode an AVI, which has already been encoded at least once (or twice!), the result will be crap!

-kwag

NittoLive 04-29-2006 12:04 PM

kwag, thanks for trying to help, but if you read most of my topics. i dont care bout excellent quality, just watchable quality,

kwag 04-29-2006 12:55 PM

Quote:

Originally Posted by NittoLive
kwag, thanks for trying to help, but if you read most of my topics. i dont care bout excellent quality, just watchable quality,

Then by all means, download this: http://www.kvcd.net/KVCD-ULBR-352x24...Film_-PLUS.mcf
Put that in your templates folder of TMPGEnc, and encode "as-is".
If 352x240 resolution is OK for you, then you can put up to 360 minutes of video on a CD-R with that.

-kwag

NittoLive 04-29-2006 01:04 PM

yea i tried using that template, on tmpgenc for dvdrips, i got alot of mpg and avi , files. i wanted to know if theres a progra, like batch , where i can add like 25 videos, and it encodes them all. separetly, not joining them?>

Dialhot 04-29-2006 03:33 PM

There is nothing like this that will give you KVCDs.

kwag 04-29-2006 03:43 PM

Well, unless he creates a bunch of batch encodes in TMPGEnc!

-kwag

Dialhot 04-29-2006 04:50 PM

Quote:

Originally Posted by kwag
Well, unless he creates a bunch of batch encodes in TMPGEnc!

Right.

NittoLive 04-30-2006 07:44 PM

Hoe do i create a bunch of batch encodes in TMPGEnc!

Dialhot 05-01-2006 04:41 AM

Quote:

Originally Posted by NittoLive
Hoe do i create a bunch of batch encodes in TMPGEnc!

Karl was talking about doing it by hand (open tmpgenc, load your source, set all the settings, than use "crtl+atl+M" to add a job in the batch list (or go in the file menu -> add current project to batch list).
If you have some skills in programing language you can also developp a script for that (I did it in perl for my own usage).

NittoLive 05-02-2006 08:19 PM

DIAL!!!!! can you run me this script , please

Dialhot 05-03-2006 03:58 AM

Quote:

Originally Posted by NittoLive
DIAL!!!!! can you run me this script , please

No I can't. I did it for my own usage. It is definitely NOT something that is usable by other one, except if they have skills in perl and in that case... the script takes 10 min to write.
Sorry but to explain to someone how to use my scripts takes much more than that, I already did the experiment and don't want to do again. But if you think you will be abble to understand a simple script I can send it to you "as it".

rds_correia 05-03-2006 04:03 AM

NittoLive, maybe you could try a very easy scripting language named AutoIT which is actually free.
You'll see that the learning curve is really fast and you'll have a workable script in executable (*.exe) format in less than a few hours.
Even with a GUI where you can use KODA form designer.
Just use google and you'll find these downloadable for free.
Cheers

NittoLive 05-04-2006 10:02 AM

dial. i know about perl. please run me that script

Also. on Tmpgenc? using this batch encode thingy. Will it encode all the files into 1 file? or encode each file. separetly?

Dialhot 05-04-2006 10:37 AM

Quote:

Originally Posted by NittoLive
dial. i know about perl. please run me that script

Okay then :).

Code:

use strict;
use Cwd;
use File::Copy;

my $dir = getcwd;
my @dv=glob("*.d2v");
my $file;
my $template="Dvd_cce.tmpl";
my $tmpgtempl = "tmpgencprojet.tmpl";
my $style="generateur.style";
my $total="Total.avs";
my $job=0;
my $lettre=ord("a");
my $source="";

sub Controle {
        my ($dir,$name) = @_;

        open (OUT,">controle-${name}.avs") || die "Can't write controle-$name.avs\n";
        print OUT "DGDecode_Mpeg2Source(\"$dir\\$name.d2v\",idct=7)\n";
        print OUT "FieldDeinterlace(map=true)\n";
        print OUT "Autocrop()\n";

        close(OUT);
       
        return;
}

sub Tmpgenc {
        my ($dir,$name) = @_;

        return if (! -r $tmpgtempl);

        open (IN,$tmpgtempl) || die "Can't open $tmpgtempl\n";
        my $tmpl=<IN>;
        close (IN);
       
        $tmpl=~s/NAME/$name/g;
        $tmpl=~s/PATH/$dir/g;       
        $tmpl=~s/\//\\/g;
       
        open (OUT,">$name.tpr") || die "Can't write $name.tpr\n";
        print OUT $tmpl;
        close(OUT);
       
        return;
}

$dir=~s/Z\:/D\:/;
       
undef $/;
open (IN,$template) || die "Can't open $template\n";
my $tmpl=<IN>;
close (IN);

open (TOTAL,">$total") || die "Can't open $total\n";

foreach $file (@dv) {
        my $out=$file;
        my $avs=$tmpl;
        my $name=$file;
        my $name1;
       
#        next if ($name =~ "_1");
        $job++;
       
        $out=~s/\.d2v/\.avs/;       
        $name=~s/\.d2v//;
        $name1=$name."_1";
        if (-f "$name1.d2v") {
                copy("$name.srt","$name1.srt");
        }
       
        $avs=~s/NAME/$name/g;
        $avs=~s/PATH/$dir/g;
        $avs=~s/\//\\/g;
       
       
        print "$out\n";
       
#        copy ($out,"$out.old") if (-r $out) ;
       
        open(OUT,">$out") || die "Can't write $out\n";
        print OUT $avs;
        close(OUT);
       
        print TOTAL chr($lettre)."=AviSource(\"$dir\\$out\")\n";
        $source=$source.chr($lettre)."+";
        $lettre++;
       
        (-r $style) && copy ($style,"$name.srt.style");
       
        Tmpgenc($dir,$name);
#        Controle($dir,$name);
       
}

chop($source);
print TOTAL "$source\n\n\#Sampler(length=15)\n";
close (TOTAL);

You need two external files :
- "tmpgencprojet.tmpl" that is a tmpgenc text project file, with all settings correctly done, but where all filenames are replaced by NAME and all pathnames by PATH

- "DVD_cce.tmpl" that is an avisynth script where all filenames are replaced by NAME and all pathnames by PATH

The script as to be run in a directory where you put all the d2v project that you want to encode. It creates an avs file for each, a "Total.avs" that is a script calling all other ones and a tpr (tmpgenc project) file for each. After you have to concatenate all the projects into a tmpgnec batch list with this script :
Code:

use strict;
use Cwd;
use File::Copy;

my @tpr=glob("*.tpr");
my $file;
my $video="video.tbe";

sub Entete_Video {
        print VIDEO qq(object TTMPGEncBatchEncodeList\n);
        print VIDEO qq(  List = <\n);
}

sub Pied_Video {
        print VIDEO qq(  >\n);
        print VIDEO qq(end\n);
}

open (VIDEO,">$video") || die "Can't write $video\n";

Entete_Video();

foreach $file (@tpr) {
        my $name=$file;
       
        next if ($name =~ "_1");
       
        print $name."\n";

        undef $/;
        open (IN,$file) || die "Can't open $file\n";
        my $tmpl=<IN>;
        close (IN);
       
        $tmpl=~s/object TMPEGEncodeJobFile/item/;
       
#        print VIDEO qq(item\n);
        print VIDEO $tmpl;
#        print VIDEO qq(end\n);
}

Pied_Video();

close(VIDEO);

The batch list will encode all file in a separate video. If you want to encode all into one single video, then you don't need the batch file, but you have to encode the "Total.avs" created by the first perl script.


All times are GMT -5. The time now is 02:23 PM  —  vBulletin © Jelsoft Enterprises Ltd

Site design, images and content © 2002-2024 The Digital FAQ, www.digitalFAQ.com
Forum Software by vBulletin · Copyright © 2024 Jelsoft Enterprises Ltd.