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!
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";
$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`;