Bilder "überfliegen" (Allgemeine technische Fragen)

[thread]19713[/thread]

Bilder "überfliegen"

Leser: 19

Articles: hide open all | hide show old branches

+12 replies
Gast Gast Tonewheel

2015-07-06 12:30

Hi all,
Da ich bisher mit Bildbearbeitung nie was zu tun hatte und nun einen Anwendungsfall habe, suche ich Hilfe.
Ich schneide z.Zt. einen Film mit kdenlive. Darin benötige ich eine Sqeuenz, die einen Flug über eine Landschaft zeigt. Leider habe ich von dieser Landschaft nur ein Bild (im raw-Format). In kdenlive kann man eine Diashow erzeugen, mit passenden Parametern sieht das aus wie ein Film. Dazu brauche ich die Einzelbilder (ca. 6 Sek. * 25 ...).
Kurz gesagt, das Bild hat genug Pixel und liegt im raw-Format vor. Wie erzeuge ich daraus Einzeldateien (jpg-Format) die fortlaufend einen Ausschnitt des Bildes (jeweils um x Pixel verschoben) darstellen?
Im Netz kursieren einige propritäre Lösungen, ich hätte aber schon gerne eine Perl-Lösung. Anscheinend bietet Image-Magick eine Möglichkeit (kenne ich aber auch nur vom Namen her). Lässt sich hier mit Perl was automatisieren?
Danke!
(PS: Ja, ich bins, Tonewheel, sitze aber im Büro und habe das Passwort nicht im Schädel)
Last edited: 2015-07-06 12:52:26 +0200 (CEST)
- +3 replies
- jan
  
  2015-07-06 19:26
  
  User since
  2003-08-04
  2536 Artikel
  ModeratorIn
  
  Klingt für mich so, als wäre das mit ImageMagick kein Problem. Du hast ein Bild zB 10000x10000 Pixel und willst nun immer 100x100px davon in ein Bild speichern, dann wieder 100x100px aber 10px weiter nach rechts beginnen?
  
  Korrekt zusammengefasst, so an sich?
  - +2 replies
  - tonewheel
    
    2015-07-06 19:40
    
    User since
    2006-10-01
    182 Artikel
    BenutzerIn
    
    2015-07-06T17:26:33 jan
    Korrekt zusammengefasst, so an sich?
    
    Ganz genau so hatte ich mir das gedacht.
    - jan
      
      2015-07-06 19:53
      
      User since
      2003-08-04
      2536 Artikel
      ModeratorIn
      
      http://www.imagemagick.org/script/perl-magick.php
      
      Ich denke, Du kannst praktisch das Original lesen ($magick->Read($file)) und dann mit ->Get("width") die Breite auslesen. Dann drüberloopen mit deinen entsprechenden Werten und mit Composite jeweils aus dem Bild einen Teil in ein neues Bild kopieren (Du könntest auch immer clonen + croppen, aber ->new() + Composite sollte effizienter sein).
- +8 replies
- GwenDragon
  
  2015-07-07 08:58
  
  User since
  2005-01-17
  14762 Artikel
  Admin1
  
  Mit dem Modul Imager und dessen Methode crop() geht sowas.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +7 replies
  - tonewheel
    
    2015-07-07 23:16
    User since
    2006-10-01
    182 Artikel
    BenutzerIn
    
    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 )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
    
    #!/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 )
    
    1 2 3 4
    
    .... 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.
    - +6 replies
    - GwenDragon
      
      2015-07-08 09:31
      
      User since
      2005-01-17
      14762 Artikel
      Admin1
      
      Du willst die Bilder skalieren? Willst du den Ausschnitt (wie im Crop erzeugt) zoomen?
      Oder warum müssen die größer und wieder kleiner werden?
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - Gast tonewheel
        
        2015-07-08 12:29
        
        2015-07-08T07:31:48 GwenDragon
        Du willst die Bilder skalieren? Willst du den Ausschnitt (wie im Crop erzeugt) zoomen?
        Oder warum müssen die größer und wieder kleiner werden?
        
        Ich wollte damit etwas räumlichen Effekt einbringen. Angenommen, auf dem Bild ist ein Berg zu sehen. Dann will ich nicht nur von links nach rechts in einer Linie und im gleichen Abstand daran vorbei fliegen, sondern mal näher bzw. weiter weg daran vorbei fliegen. Die entsprechende Skalierungsmethode muss ich noch überlegen (z.B. Sinusfunktion, o.ä.), das hier war nur ein Test, um zu sehen, wie sich verschiedene Werte auswirken. Aber genau da tut sich eben nichts.
        Last edited: 2015-07-08 12:45:04 +0200 (CEST)
      - Gast tonewheel
        
        2015-07-08 12:37
        
        2015-07-08T07:31:48 GwenDragon
        Du willst die Bilder skalieren? Willst du den Ausschnitt (wie im Crop erzeugt) zoomen?
        Oder warum müssen die größer und wieder kleiner werden?
        
        Nochmal; natürlich meine ich zoomen. Und ich dachte, skalieren sei dasselbe wie zoomen?!
        Last edited: 2015-07-08 12:45:00 +0200 (CEST)
      - +3 replies
      - tonewheel
        
        2015-07-09 09:14
        
        User since
        2006-10-01
        182 Artikel
        BenutzerIn
        
        Hat niemand mehr eine Idee, wie ich gleichzeitig zoomen und schieben kann?
        Ich stehe immer noch auf dem Schlauch.
        
        +2 replies
        
        jan
        
        2015-07-09 09:47
        
        User since
        2003-08-04
        2536 Artikel
        ModeratorIn
        
        Ich kenne Imager noch nicht persönlich, aber noch mal grundsätzlich: Du hast das Bild mit, sagen wir,
        10000x1000px (also 1000px hoch)
        und willst daraus nun 100 Bilder mit 500x500px machen (sonst kannst Du ja nicht zoomen)
        Der Einfachheit halber, würde ich beim zoomen vernachlässigen, dass sich dabei auch die Seitwärtsbewegung verändern sollte.
        Bei den ungezoomten Bildern nimmst Du immer 1000x1000 und skalierst dann zu 500x500.
        Zum zoomen nimmst Du jeweils einen kleineren quadratischen Bereich und skalierst den zu 500x500 bis zu bei 500x500 angekommen bist, also 1000x1000 => 900x900 => 800x800 => 700x700 => 600x600 => 500x500
        Damit hast Du deinen Zoom.
        
        Ich denke, so in etwa sollte das aussehen, wenn ich mich nicht gerade total irre:
        
        ->crop(0, 0, 1000, 1000, 500, 500)
        für ein "ungezoomtes" Bild,
        
        ->crop(1000, 100, 1900, 900, 500, 500)
        für ein etwas eingezoomtes Bild
        
        ->crop(1000, 250, 1500, 750, 500, 500)
        für ein maximal eingezoomtes Bild
        
        tonewheel
        
        2015-07-09 20:23
        
        User since
        2006-10-01
        182 Artikel
        BenutzerIn
        
        Das ist es! Vielen Dank! Nur wird es mir klar. Bisher habe ich immer gleich große Ausschnitte skaliert. Von kdenlive wurden die quasi in ein gleiches Bildformat gepresst und somit hebt sich das ganze auf.
        Logisch, dass man zuerst einen kleineren Ausschnitt ausschneiden muss, denn beim Zoomen wird ja quasi auch der Rand abgeschnitten!
        Übrigens; die Verschiebung setze ich mit einem zweiten crop im Anschluss ans das Zoomen. Funktioniert.
        Besten Dank nochmals!

View all threads created 2015-07-06 12:30.