Bilder "überfliegen" - #181501 (Allgemeine technische Fragen)

tonewheel

2015-07-07 23:16

User since
2006-10-01
182 Artikel
BenutzerIn
[default_avatar]

Erstmal besten Dank Euch Beiden!

Ich habe jetzt zuerst mal Imager ausprobiert. Verschieben mittels crop funktioniert. Nun wollte ich das ganze Skalieren, aber da wirkt sich meine mangelnde Erfahrung in Punkto Bildverarbeitung sehr negativ aus. Wie ich auch skaliere, es kommen immer die gleichen Bilder heraus, als hätte ich nie skaliert (der Test bezieht sich auf ein Bild mit 1705 Pixeln Breite):

Code (perl): (dl )

#!/usr/bin/perl -w

use strict;
use Imager;

        my $file = shift;

        my $img = Imager->new(file=>$file)
                or die Imager->errstr();


        my $n = 1;
        my $sn = '';
        my $name = '';
        my $sc = 1;
        my $step = 0.1;
        for (my $x = 500; $x >=0; $x-=10) {

                $sc+=$step;
                if ($sc >= 3.0 || $sc <= 1.0) { 
                        $step = -($step);
                }

                $sn = sprintf('%02d', $n);
                $name = 'dest/newfile_' . $sn . '.jpeg';
                $n++;

                print $name . "    sc = " . $sc . "\n";
                
                my $thumbc = $img->crop(left=>$x, width=>1200);
                my $thumbs = $thumbc->scale(scalefactor=>$sc);
                $thumbs->write(file=>$name);
        }

Ich nehme an, kdenlive skaliert die Bilder in der Diashow auf ein gemeinsames Niveau und hebt das ganze damit auf (keine Einstellung hierzu gefunden), sodass nur noch die Verschiebung übrig bleibt. Also habe ich versucht, über unterschiedliche Bildbreiten zu gehen:

Code (perl): (dl )

....
                my $thumb = $img->crop(left=>$x, width=>1200/$sc);
                $thumb->write(file=>$name);
....

aber dann bekomme ich unterschiedlich breite Bilder, die dann auch tatsächlich so unterschiedlich angezeigt (und eben nicht passend skaliert und somit in die Breite gezogen werden) werden.
Bin ratlos.