Bild zentriert einpassen (gelöst) (Allgemeines zu Perl)

[thread]17437[/thread]

Bild zentriert einpassen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+3 replies
pktm

2012-05-22 21:46

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Also, das ist wohl eher eine gedankliche Aufgabe als eine Programmieraufgabe, aber dachte mir, ich halte mal nach Lösungsvorschlägen Ausschau, während ich selbst daran knabbere.

Ich habe ein Bild und eine grafische Oberfläche, in der dieses Bild als Hintergrundbild verwendet werden soll. Die GUI ist immer rechteckig, es ist allerdings nicht gesagt, welche die kürzere Seite ist. Das Bild kann größer oder kleiner sein, als die GUI.

Jetzt möchte ich gerne, dass das Programm immer komplett mit dem Hintergrundbild gefüllt ist, aber so, dass das Bild zentriert wird.

Nehmen wir mal an, es gibt für das Bild ein Objekt $image mit den Methoden width(), height() und resize($faktor_int). Außerdem gibt es ein Objekt für das Rechteck der GUI, das die Methoden width() und height() bereit stellt.

Wie mache ich das am geschicktesten?

Im Moment schwebt mir eine ziemlich lange if-else-Verzweigung vor, da ich nach Bild größer, kleiner und gleich, sowie die Info, nach welcher Seite des Bildes ich skalieren muss beachten muss.

Also, hat jemand einen coolen Vorschlag? Gibt es das schon auf CPAN?

Grüße,
pktm
Last edited: 2012-05-22 21:52:20 +0200 (CEST)
http://www.intergastro-service.de (mein erstes CMS :) )
- +2 replies
- topeg
  
  2012-05-22 22:32
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  So aus der holen Hand:
  
  Code (perl): (dl )
  
  1 2
  
  sub min($$){ $_[0]<$_[1]?$_[0]:$_[1] } $img->resize(min $gui->width(),$gui->height() / min $img->width(),$img->height());
  
  vorausgesetzt resize vergrößert wenn wert>1 und verkleinert wenn wert<1
  
  auseinander genommen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  sub min($$){ $_[0]<$_[1]?$_[0]:$_[1] } my $gh=$gui->height(); my $gw=$gui->width(); my $ih=$img->height(); my $iw=$img->width(); my $gui_min=min($gw,$gh); my $img_min=min($iw,$ih); my $scale=$gui_min/$img_min; $img->resize($scale);
  
  EDIT:
  Ich war zu schnell und habe nicht genau genug gelesen. :-)
  
  Das hier sollte funktionieren (ohne es getestet zu haben):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  my $gui_aspect=$gui->width/$gui->height; my $img_aspect=$img->width/$img->heigth; my $diff_aspect=$gui_aspect-$img_aspect; my $scale=1; if($diff_aspect < 0) { $scale=$gui->height/$img->height; } else { $scale=$gui->width/$img->width; } $img->scale($scale);
  
  Und nun noch alles in einer Zeile :-)
  
  Code: (dl )
  
  $img->scale($gui->width / $gui->height - $img->width / $img->heigth < 0? $gui->height / $img->height: $gui->width / $img->width )
  
  Last edited: 2012-05-22 23:00:43 +0200 (CEST)
  - pktm
    
    2012-05-22 23:09
    User since
    2003-08-07
    2921 Artikel
    BenutzerIn
    
    Wow, ich musste gerade ganzschön grübeln, aber ich glaube, ich habe es verstanden :D
    
    Vorab: richtig, bei einem Faktor > 1 wird das Bild vergrößert.
    
    Allerdings klappt der Ansatz nicht, wenn das Bild höher als breit ist.
    Beispiel:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14
    
    sub min($$){ $_[0]<$_[1]?$_[0]:$_[1] }; my $app_w = 400; my $app_h = 300; my $image_w = 200; my $image_h = 600; my $y_scale = $app_w / $image_w; my $x_scale = $app_h / $image_h; my $factor = min $app_w,$app_h / min $image_w,$image_h; printf("xs: %s, ys: %s, factor: %s", $x_scale, $y_scale, $factor);
    
    Ausgabe:
    
    Quote
    xs: 0.5, ys: 2, factor: 1.5
    
    Das Bild müsste um den Faktor 2 skaliert werden (also vergrößert). Die Methodik liefert aber 1,5.
    
    Ich habe mittlerweile diesen Ansatz:
    Ich errechne beide Faktoren, schaue welcher größer ist und dann weiß ich, nach welcher Seite ich skalieren muss (ich hoffe, ich hab's jetzt nicht wieder verdreht):
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
    
    my $app_w = 400; my $app_h = 300; my $image_w = 600; my $image_h = 200; my $y_scale = $app_w / $image_w; my $x_scale = $app_h / $image_h; if( $y_scale > $x_scale ) { print "scale on x axis(scale y < scale x ==> $y_scale < $x_scale)\n"; printf("y-axis overlap: %s\n", int(int($image_h - $app_h) / 2)); }elsif( $y_scale < $x_scale ) { print "scale on y axis(scale y < scale x ==> $y_scale < $x_scale)\n"; printf("x-axis overlap: %s\n", int(int($image_w - $app_w) / 2)); }else{ print 'doesn\'t matter, it will fit. It has the same aspect ratio as the window.'; }
    
    Edit: da war ich zu langsam, du hast es vorher schon gesehen :D
    Last edited: 2012-05-22 23:10:46 +0200 (CEST)
    http://www.intergastro-service.de (mein erstes CMS :) )

View all threads created 2012-05-22 21:46.