Virtual Dub
, 100 jpeg- 5 . , 100 - , , virtual dub .
Virtual Dub , , (job). . Job- :
// VirtualDub job list (Sylia script format)
// This is a program generated file -- edit at your own risk.
//
// $numjobs 1
//
// $job "Job 1"
// $input "F:\09003027.mpg"
// $output "*.tga"
// $state 0
// $start_time 0 0
// $end_time 0 0
// $script
VirtualDub.Open("F:\\09003027.mpg","",0);
VirtualDub.audio.SetSource(1);
VirtualDub.audio.SetMode(0);
VirtualDub.audio.SetInterleave(1,500,1,0,0);
VirtualDub.audio.SetClipMode(1,1);
VirtualDub.audio.SetConversion(0,0,0,0,0);
VirtualDub.audio.SetVolume();
VirtualDub.audio.SetCompression();
VirtualDub.audio.EnableFilterGraph(0);
VirtualDub.video.SetDepth(24,24);
VirtualDub.video.SetMode(3);
VirtualDub.video.SetFrameRate(0,1);
VirtualDub.video.SetIVTC(0,0,-1,0);
VirtualDub.video.SetRange(0,0);
VirtualDub.video.SetCompression();
VirtualDub.video.filters.Clear();
VirtualDub.audio.filters.Clear();
VirtualDub.subset.Clear();
VirtualDub.subset.AddRange(0,17596);
VirtualDub.SaveImageSequence("", ".tga", 0, 1);
VirtualDub.Close();
// $endjob
//
//--------------------------------------------------
// $done
Virtual Dub, . , $done , $script, $job $endjob.
, . , Job-, , "". , Virtual Dub , . job- . , , job- job-.
Job- File - Job conrol - Load Job List. File-Run script. job- , . .
- . - "\" - "\\". , "F:\\\xd1\x83\xd0\xb4\xd0\xb0\xd0\xbb\xd1\x8f\xd1\x82\xd1\x8c". .
,
, , . , COPY/PASTE , , . Windows CMD.
. F:\PM . , Virtual Dub bmp tga. ACDSEE.
dubbing.cmd test.cmd.
DUBBING.CMD
@echo off
rem %1 - script file
rem %2 - avi file
rem %3 - result dir
set sf=%~1
set workfile=%~2
set workdir=%~3%~n2
echo Script File: %sf%
echo Avi File: %workfile%
echo Result Dir: %workdir%
rem pause
if exist %1 goto skip_create
rem echo> %sf% // VirtualDub job list (Sylia script format)
rem echo>>%sf% // This is a program generated file -- edit at your own risk.
rem echo>>%sf% // $numjobs 1000
:skip_create
:addfile
md>nul "%workdir%"
set workfile1=%workfile:\=\\%
echo %workfile1%
set workdir1=%workdir:\=\\%
echo>> %sf% // $job "Job%workfile1%"
echo>> %sf% // $script
echo>> %sf% VirtualDub.Open("%workfile1%","",0);
echo>> %sf% VirtualDub.audio.SetSource(1);
echo>> %sf% VirtualDub.audio.SetMode(0);
echo>> %sf% VirtualDub.audio.SetInterleave(1,500,1,0,0);
echo>> %sf% VirtualDub.audio.SetClipMode(1,1);
echo>> %sf% VirtualDub.audio.SetConversion(0,0,0,0,0);
echo>> %sf% VirtualDub.audio.SetVolume();
echo>> %sf% VirtualDub.audio.SetCompression();
echo>> %sf% VirtualDub.audio.EnableFilterGraph(0);
echo>> %sf% VirtualDub.video.SetDepth(24,24);
echo>> %sf% VirtualDub.video.SetMode(3);
echo>> %sf% VirtualDub.video.SetFrameRate(0,1);
echo>> %sf% VirtualDub.video.SetTargetFrameRate(450,10000);
echo>> %sf% VirtualDub.video.SetIVTC(0,0,-1,0);
rem echo>> %sf% VirtualDub.video.SetRange(0,0);
echo>> %sf% VirtualDub.video.SetCompression();
echo>> %sf% VirtualDub.video.filters.Clear();
echo>> %sf% VirtualDub.audio.filters.Clear();
rem echo >> %sf% VirtualDub.subset.Clear();
rem echo >> %sf% VirtualDub.subset.AddRange(0,999999);
echo>> %sf% VirtualDub.SaveImageSequence("%workdir1%\\", ".bmp", 3, 0);
echo>> %sf% VirtualDub.Close();
echo>> %sf% // $endjob
%sf% . , , COPY/PASTE - , . : - , - avi-, - , .
, . set , , , .. set /? Win 2K.
, . .
TEST.CMD
set sf=F:\_pm\vdub_job.jobs
del %sf%
call dubbing %sf% "F:\Films\Lost Highway CD1.avi" "F:\_pm\"
call dubbing %sf% "F:\Films\Lost Highway CD2.avi" "F:\_pm\"
rem for %%i in (f:\films\*.avi) do call dubbing %sf% %%i "F:\_pm\"
for /R f:\films\ %%i in (*.avi) do call dubbing %sf% %%i "F:\_pm\"
, , - FOR. FOR /R .
, .
