Anri-chan/Source/sasami.pl - Revision history

Njahnke: trimming should be totally done - moving to audio now

2008-10-18T20:08:30Z

trimming should be totally done - moving to audio now

Njahnke: thought of this in the shower just now ...

2008-10-16T15:11:21Z

thought of this in the shower just now ...

Njahnke: multiple trims mostly done with some caveats, statid totally done except for special cropping (gba etc)

2008-10-15T22:24:53Z

multiple trims mostly done with some caveats, statid totally done except for special cropping (gba etc)

Show changes

Njahnke: beginning of statid

2008-10-15T05:49:35Z

beginning of statid

Njahnke: gba/gb in; who knew retard bob was built into mencoder? grenola!

2008-10-04T06:00:48Z

gba/gb in; who knew retard bob was built into mencoder? grenola!

Njahnke: getting closer ... mplayer's crop and expand are the very definition of hard to use

2008-09-27T06:41:46Z

getting closer ... mplayer's crop and expand are the very definition of hard to use

Njahnke: working demonstration

2008-09-20T00:21:06Z

working demonstration

New page

<pre><nowiki>
#!/usr/bin/perl
#nathan jahnke <njahnke@gmail.com>

use warnings;
use strict 'subs';
package sasami;

#system("export DYLD_LIBRARY_PATH=/Volumes/l/anrix");

sub sasami {
@sources = ();
open(AVS, "${basename}.avs");
for (<AVS>) {
push(@sources,"${1}.VOB") if m/^.*MPEG2source$"(.+)\.d2v".*$/;
push(@sources,$1) if m/^.*avisource\("([^"]+)".*$/;
push(@sources,$1) if m/^.*directshowsource\("([^"]+)".*$/;
$fieldorder = 1 if m/^AssumeTFF\($/;
$fieldorder = 0 if m/^AssumeBFF/;
$d = 1 if m/^global d1 = true/;
$d = 4 if m/^global d1 = false/;
$f = $1 if m/^changefps$f1\/([0-9])$/;
$vhs = 1 if m/^nate_vhs_head_change_erase/;
}
close(AVS);

die 'sasami: no sources detected in .avs!' if @sources == 0;
#get vital info about first source
$mplayeridentify = <<SABRAC;
mplayer -identify -vo null -slave ${sources[0]} 2>&1 <<ENDOFSCRIPT
quit
ENDOFSCRIPT
SABRAC
for (qx($mplayeridentify)) {
chomp;
$width = $_ if s/ID_VIDEO_WIDTH=([0-9]+)/$1/;
$height = $_ if s/ID_VIDEO_HEIGHT=([0-9]+)/$1/;
$framerate = $_ if s/ID_VIDEO_FPS=([0-9.]+)/$1/;
$maxaudiobitrate = $_ if s/ID_AUDIO_BITRATE=([0-9]+)/$1/;
}
$pal = ($height eq "576");

#build mencoder command to feed fifo
$mencoderargs = "./mencoder";

#note space at start of string
$mencoderargs .= " -vf-add yadif=3 -vf-add mcdeint=1:${fieldorder}" if $d == 1;
$mencoderargs .= " -vf-add tfields=0" if $d == 4;
$mencoderargs .= " -vf-add crop=${width}:".($height-12).":0:0,expand=0:-12:0:0" if $vhs;

$newframerate = ($pal ? (50/$f) : (59.94/$f));
$x264newframerate = "--fps ${newframerate}";
$mp4boxnewframerate = "-fps ${newframerate}";
$mencoderargs .= " -vf-add framestep=${f}";

$newwidth = (($d == 1) ? ($pal ? 704 : 640) : ($pal ? 352 : 320));
$newheight = (($d == 1) ? ($pal ? 576 : 480) : ($pal ? 288 : 240));
$mencoderargs .= " -vf-add scale=${newwidth}:${newheight}";

$mencoderargs .= " -vf-add format=i420 -ovc raw -of rawvideo -nosound";

$mencoderargs .= " ".join(" ",@sources);
$mencoderargs .= " -o ${avs}";
}

$basename = 'test';
$avs = "${basename}.pipe";
for(my $N = 1; $N le 2 ; $N++) {
system("rm ${avs}");
system("mkfifo ${avs}");
# this is a hack to deal with the fact that sometimes x264 takes a while to finish encoding and write out the statsfile
if ($N eq 2) {
while (!(-e "${basename}.stats")) {
print("Waiting for stats file ...\n");
sleep(1);
}
}
&sasami;# if $os eq 'unix';
print("$mencoderargs\n");
$x264command = "./x264 --pass $N --stats ${basename}.stats --bitrate 5000 --qpmin 19 ${x264newframerate} -o ${basename}.264 ${avs} ${newwidth}x${newheight} &";
print("$x264command\n");
system($x264command);
system($mencoderargs);# if $os eq 'unix';
#rm -f "$avs"
}
$mp4boxcommand = "./mp4box ${mp4boxnewframerate} -new -add ${basename}.264 ${basename}.mp4";
print ("$mp4boxcommand\n");
system($mp4boxcommand);

exit 0;
</nowiki></pre>

@@ Line 8: / Line 8: @@
 #system("export DYLD_LIBRARY_PATH=/Volumes/l/anrix");
 #to move to anri config file later
@@ Line 32: / Line 34: @@
 	for (@avs) {
 		chomp;
 		push(@sources,"${1}.VOB") if m/^.*MPEG2source\("(.+)\.d2v".*$/;
 		push(@sources,$1) if m/^.*avisource\("([^"]+)".*$/;
@@ Line 53: / Line 56: @@
+	}
 	die 'sasami: no sources detected in .avs!' if @sources == 0;
 	@mencoderargslist = ();
-	$previous_sourcelength = 0;
+	my $sourcelength = 0;
 	foreach $source (@sources) {
 		#get vital info about source
 		$mplayeridentify = <<SABRAC;
 mplayer -identify -vo null -slave ${source} 2>&1 <<ENDOFSCRIPT
@@ Line 79: / Line 85: @@
 		#build mencoder command to feed fifo
-		$mencoderargs = "./mencoder";
+		$mencoderargs = "./mencoder ${really_quiet}";
 		#trimming
@@ Line 85: / Line 91: @@
 	# 	$framerate = 25 if $pal;
-		### FIXME do trim(0,0)
+		### BUG: a trim in a later source followed by a trim in an earlier source does not work as expected
-		### FIXME do multiple trims per source - add to list?
 		my $source_intermediate = 1;
 		for (@trims) {
 			m/^(.*),(.*)$/;
 			if ($1 || $2) {
-				$source_intermediate = 0; #for killing trailing unused sources; there are still trim points so don't need to worry about that this time
+				$source_intermediate = 0; #1 for killing trailing unused sources - there are still trim points so don't need to worry about that this time around
+			}
 			if ($1) {
-				$source_intermediate = 1; #this source might have been trimmed out - see if ($2) block below for more
+				if ($1 ne 0) { #no need to do anything if it's the initial frame - unlike in avisynth, mencoder's first trim argument is optional
-				if ($1 < $sourcelength) {
+					$source_intermediate = 1; #this source might have been trimmed out - see if ($2) block below for more
-					$mencoderargs .= " -ss ".abs(($previous_sourcelength - ($1 / $framerate)));
+					if ($1 < $sourcelength) {
-					$_ = ",$2"; #wipe this trim point out so we don't accidentally use it twice
+						if ($sourcecount) {
 					$source_intermediate = 0; #this source was not trimmed out
+				}
@@ Line 105: / Line 129: @@
 			if ($2) {
-				if (!($1)) {
+				if ($2 ne 0) { #no need to do anything if it's final frame - unlike avisynth, mencoder's second trim argument is optional
-					$source_intermediate = 1; #this source was trimmed out
+					if (!($1)) {
+						$source_intermediate = 1; #this source was trimmed out
-				if ($2 < $sourcelength) {
-					$mencoderargs .= " -endpos ".abs(($previous_sourcelength - ($2 / $framerate)));
+					if ($2 < $sourcelength) {
-					$_ = ","; #wipe this trim point out so we don't accidentally use it twice
+						#have to insert a conversion factor ($newframerate / $framerate) to handle the fact that the output framerate can differ from the input framerate - -endpos is not based on output framerate while -ss is
 					$source_intermediate = 0; #this source was not trimmed out
+				}
@@ Line 117: / Line 156: @@
+		}
 		$previous_sourcelength = $sourcelength;
-		next if $source_intermediate;
+		next if $source_intermediate; #this source was trimmed out entirely
 		#one pixel bob
@@ Line 154: / Line 194: @@
+		}
 		$x264newframerate = "--fps ${newframerate}";
 		$mp4boxnewframerate = "-fps ${newframerate}";
@@ Line 165: / Line 204: @@
 		$mencoderargs .= " -vf-add format=i420 -ovc raw -of rawvideo -nosound";
-		$mencoderargs .= " ${source}";
+		my $mencoderargstemp = '';
-		$mencoderargs .= " -o ${avs}";
+		while (my $trimargs = shift(@trimargsarr)) {
 		push(@mencoderargslist,$mencoderargs);
@@ Line 189: / Line 231: @@
+		}
 		close(MF);
-		$statidmencoderargs = "./mencoder -vf-add scale=${newwidth}:${newheight} -vf-add format=i420 -ovc raw -of rawvideo -nosound -ofps ${newframerate} mf://\@statid.txt -mf fps=${newframerate}:type=tga -o ${avs}";
+		$statidmencoderargs = "./mencoder ${really_quiet} -vf-add scale=${newwidth}:${newheight} -vf-add format=i420 -ovc raw -of rawvideo -nosound -ofps ${newframerate} mf://\@statid.txt -mf fps=${newframerate}:type=tga -o ${avs}";
+	}
+}

@@ Line 116: / Line 116: @@
+		}
 		next if $source_intermediate;
@@ Line 168: / Line 169: @@
 		push(@mencoderargslist,$mencoderargs);
+	}

@@ Line 8: / Line 8: @@
 #system("export DYLD_LIBRARY_PATH=/Volumes/l/anrix");
 sub sasami {
-	open(AVS, "${basename}.avs");
+	open(AVS, "${basename}.avs"); #must be unix text when running sasami under unix ...
 	@avs = <AVS>;
 	close(AVS);
@@ Line 24: / Line 35: @@
 		$d = 4 if m/^global d1 = false/;
 		$f = $1 if m/^changefps\(f1\/([0-9])\)/;
 		$vhs = 1 if m/^nate_vhs_head_change_erase/;
 		$onepixel = 1 if m/^nate_1_pixel_bob_fix/;
-		$nes = 1 if m/^nate_nes/;
+		$nes = 1 if m/^nate_nes$/;
 		if (m/trim\(([0-9]+),([0-9]+)\)/) {
-			trimone=$1;
+			$trimone=$1;
-			trimtwo=$2;
+			$trimtwo=$2;
+		}
+	}
@@ Line 47: / Line 62: @@
 		$maxaudiobitrate = $_ if s/ID_AUDIO_BITRATE=([0-9]+)/$1/;
+	}
 	$pal = ($height eq "576");
@@ Line 55: / Line 74: @@
 # 	$framerate = 29.97;
 # 	$framerate = 25 if $pal;
-	$mencoderargs .= " -ss ".($trimone * $framerate);
+	$mencoderargs .= " -ss ".($trimone * $framerate) if $trimone;
-	$mencoderargs .= " -endpos ".($trimtwo * $framerate);
+	$mencoderargs .= " -endpos ".($trimtwo * $framerate) if $trimtwo;
 	#one pixel bob
@@ Line 68: / Line 87: @@
 	$mencoderargs .= " -vf-add crop=".($width-8).":${height}:8:0,expand=${width}:${height}:8:0" if $nes;
 	#-af channels=6:4:0:0:0:1:0:2:0:3 media.avi
-        #Would change the number of channels to 6 and set up 4 routes that copy channel 0 to channels 0 to 3.  Channel 4 and 5 will contain silence.
+	#Would change the number of channels to 6 and set up 4 routes that copy channel 0 to channels 0 to 3.  Channel 4 and 5 will contain silence.
 	$mencoderargs .= " -vf-add yadif=3 -vf-add mcdeint=1:${fieldorder}" if $d == 1;
-	$mencoderargs .= " -vf-add tfields=0" if $d == 4;
+	$tfields = 0;
-	$mencoderargs .= " -vf-add crop=${width}:".($height-12).":0:0,expand=0:-12:0:0" if $vhs;
+	$tfields = 4 if $deflicker;
-# function nate_retard_bob_2(last) {
+	#i just eyeballed this - someone will need to sync the avisynth and mencoder sharpen filters
-# converttorgb32
+	$mencoderargs .= " -vf-add unsharp=l3x3:0.6:c3x3:0.6" if $deflicker;
-# field1=SelectEven.PointResize(last.width,last.height*4).crop(0,1,0,0).addborders(0,0,0,1).bilinearresize(d1,last.height)
-# field2=SelectOdd.PointResize(last.width,last.height*4).crop(0,0,0,-1).addborders(0,1,0,0).bilinearresize(d1,last.height)
-# interleave(field1,field2)
-# sharpen(0.31)
-# converttoyv12
-# }
-# function nate_gba(last) {
+	$mencoderargs .= " -vf-add crop=${width}:".($height-12).":0:0,expand=0:-12:0:0" if $vhs;
-# converttorgb
-# lanczos4resize(320,240)
+	if ($gba) {
-# crop(43,39,-44,-41)
+		$mencoderargs .= " -vf-add scale=320:240";
-# lanczos4resize(240,160)
+		$mencoderargs .= " -vf-add crop=".(320-$gba_crop_right-$gba_crop_left).":".(240-$gba_crop_bottom-$gba_crop_top).":${gba_crop_left}:${gba_crop_top}";
-# converttoyv12
+		$mencoderargs .= " -vf-add scale=240:160";
-# }
+		$newwidth = 240;
+		$newheight = 160;
-# function nate_gb(last) {
+	} elsif ($gb) {
-# lanczos4resize(320,240)
+		$mencoderargs .= " -vf-add scale=320:240";
-# Crop(80,48,-80,-48) #thanks Quijo
+		$mencoderargs .= " -vf-add crop=".(320-$gb_crop_right-$gb_crop_left).":".(240-$gb_crop_bottom-$gb_crop_top).":${gb_crop_left}:${gb_crop_top}";
-# }
+		$newwidth = (320-$gb_crop_right-$gb_crop_left);
 	$newframerate = ($pal ? (50/$f) : (59.94/$f));
@@ Line 102: / Line 117: @@
 	$mencoderargs .= " -vf-add framestep=${f}";
-	$newwidth  = (($d == 1) ? ($pal ? 704 : 640) : ($pal ? 352 : 320));
+	$newwidth  = (($d == 1) ? ($pal ? 704 : 640) : ($pal ? 352 : 320)) unless $newwidth;
-	$newheight = (($d == 1) ? ($pal ? 576 : 480) : ($pal ? 288 : 240));
+	$newheight = (($d == 1) ? ($pal ? 576 : 480) : ($pal ? 288 : 240)) unless $newheight;
-	$mencoderargs .= " -vf-add scale=${newwidth}:${newheight}";
+	$mencoderargs .= " -vf-add scale=${newwidth}:${newheight}" if $resize;
 	$mencoderargs .= " -vf-add format=i420 -ovc raw -of rawvideo -nosound";
@@ Line 112: / Line 127: @@
+}
-$basename = 'pso';
+$basename = 'pokemon';
 $avs = "${basename}.pipe";
 for(my $N = 1; $N le 2 ; $N++) {

@@ Line 46: / Line 46: @@
 		$gb = 1 if m/^nate_gb$/;
 		$resize = 1 if m/^lanczos4resize\(d1,last\.height\)/;
+	}
@@ Line 125: / Line 128: @@
 	$mencoderargs .= " ".join(" ",@sources);
 	$mencoderargs .= " -o ${avs}";
+}
 $basename = 'pokemon';
 $avs = "${basename}.pipe";
-for(my $N = 1; $N le 2 ; $N++) {
+#for(my $N = 1; $N le 2 ; $N++) {
 	system("rm ${avs}");
 	system("mkfifo ${avs}");
@@ Line 141: / Line 157: @@
 	&sasami;# if $os eq 'unix';
 	print("$mencoderargs\n");
-	$x264command = "./x264 --pass $N --stats ${basename}.stats --bitrate 5000 --qpmin 19 ${x264newframerate} -o ${basename}.264 ${avs} ${newwidth}x${newheight} &";
+#	$x264command = "./x264 --pass $N --stats ${basename}.stats --bitrate 5000 --qpmin 19 ${x264newframerate} -o ${basename}.264 ${avs} ${newwidth}x${newheight} &";
 	print("$x264command\n");
 	system($x264command);
 	system($mencoderargs);# if $os eq 'unix';
 	#rm -f "$avs"
+#}
 $mp4boxcommand = "./mp4box ${mp4boxnewframerate} -new -add ${basename}.264 ${basename}.mp4";
 print ("$mp4boxcommand\n");
@@ Line 152: / Line 169: @@
 exit 0;
 </nowiki></pre>