X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=stinger%2Fsting.pl;h=52c99011d3bc8e4287cb96cfb06807106b33a8eb;hb=4d2991a8d05b23222912fb904b436af5f4d740c2;hp=480eff67d7f65f2d142274c724a47d4a66c2d280;hpb=780f5f18be8d28389a6ac9433aa6d8e5d5b80338;p=ultimatescore

diff --git a/stinger/sting.pl b/stinger/sting.pl
index 480eff6..52c9901 100644
--- a/stinger/sting.pl
+++ b/stinger/sting.pl
@@ -5,8 +5,8 @@ use POSIX qw(ceil floor);
 
 for my $i (0..24) {
 #for my $i (23..23) {
-	my @args = ("./stinger/blur");
-	my ($x1, $y1, $x2, $y2) = (0, 0, 346.547, 202.492);  # From Inkscape output when converting by default.
+	my @args = ("./blur");
+	my ($x1, $y1, $x2, $y2) = (0, 0, 2813.0, 2813.0);  # From Inkscape output when converting by default.
 	my $convfactor = 0.26458;  # mm to SVG units, empirical :-/
 
 	for my $j (0..97) {  # 98 hits a movit limit!
@@ -14,7 +14,7 @@ for my $i (0..24) {
 		my $f = $i / 25.0 + ($j * 0.010) / 25.0;
 		#my $f = $i / 255.0;
 
-		my $d = 90.0 / (1.0 - $f) - 80.0;
+		my $d = 90.0 / (1.0 - $f) - 89.0;
 		my $outfilename = sprintf("stinger%03d.png", $i * 10 + $j);
 		print "$outfilename [$d]...\n";
 
@@ -32,7 +32,7 @@ for my $i (0..24) {
 			$h = floor($h / 2);
 		}
 
-		my $cmd = "LANG=C inkscape --export-png=$outfilename --export-area=$x1:$y1:$x2:$y2 --export-width=$w --export-height=$h stinger.svg";
+		my $cmd = "LANG=C inkscape --export-png=$outfilename --export-area=$x1:$y1:$x2:$y2 --export-width=$w --export-height=$h bedre_frisbee.svg";
 	#	print "$cmd\n";
 		system("$cmd 2>/dev/null >/dev/null");
 		#my $x = `$cmd 2>/dev/null`;