Sellest suuremat pilti pole.
Lühikirjeldus
Source code
#!/usr/bin/perl
use strict ;
use warnings ;
use v5 .12 ;
use File::Temp qw/ tempdir / ;
use Graphics::Magick ;
use Math::Round qw(:all) ;
my $p = new Graphics:: Magick ;
$p -> Read ( "Felis_silvestris_silvestris_small.png" );
#$p->Resize('x600');
my ( $width , $height ) = $p -> Get ( 'width' , 'height' );
my $center = $height ;
my $result = new Graphics:: Magick ;
$result -> Set ( size => "${width}x${height}" );
$result -> Read ();
$result -> Set ( 'quality' , 100 );
my $dir = tempdir ( CLEANUP => 1 );
my $chop = 16 ; # 1 MCU normally
my $vertical = 0 ;
for my $n ( 0 .. ( $vertical ? $height:$width )) {
next if $n%$chop ;
my $current = $p -> Clone ();
$current -> Crop ( width => $vertical ? $width:$chop , height => $vertical ? $chop:$height , x => $vertical ? 0 : $n , y => $vertical ? $n:0 );
my $quality = round_even ( 100 * abs (( $n + 6 * $chop ) ** 4 / $center ** 4 ));
say $quality ;
$current -> Set ( 'quality' => $quality );
my $filename = sprintf "%s/%05d.jpg" , $dir , $n ;
$current -> Write ( $filename );
my $m = new Graphics:: Magick ;
$m -> Read ( $filename );
$result -> Composite ( image => $m , x => $vertical ? 0 : $n , y => $vertical ? $n:0 );
}
$result -> Write ( 'Felis_silvestris_silvestris_small_gradual_decrease_of_quality.png' );
Litsents
Tohid:
jagada – teost kopeerida, levitada ja edastada
kohandada – valmistada muudetud teoseid
Järgmistel tingimustel:
omistamine – Pead materjali sobival viisil autorile omistama, tooma ära litsentsi lingi ja märkima ära, kas on tehtud muudatusi. Sobib, kui teed seda mõistlikul viisil, kuid seejuures ei tohi jääda muljet, et litsentsiandja tõstab esile sind või seda, et sina materjali kasutad.
https://creativecommons.org/licenses/by/3.0 CC BY 3.0 Creative Commons Attribution 3.0 true true
Esialgne üleslaadimislogi
This image is a derivative work of the following images:
File:Felis_silvestris_silvestris.jpg licensed with Cc-by-3.0
2010-02-18T00:29:12Z Michael Gäbler 1496x1729 (1659050 Bytes) {{Information |Description=''[[Felis silvestris silvestris|Felis silvestris silvestris]]'' (Schreber, 1775) {{en|1=[[:en: European Wildcat|European Wildcat]]}} {{de|1=[[:de:Europäische Wildkatze|Europäische Wildkatze]] im [
Uploaded with derivativeFX
eesti Lisa üherealine seletus sellest, mida fail esitab
inglise This is an example of the relationship between compression rate to quality of a .jpg image file. The rate is high compression to low quality.
Faili ajalugu
Faili kasutus
Seda faili kasutab järgmine lehekülg:
Globaalne failikasutus
Järgmised muud vikid kasutavad seda faili:
Faili kasutus vikis bn.wikipedia.org
Faili kasutus vikis en.wikipedia.org
Faili kasutus vikis en.wikibooks.org
Faili kasutus vikis fa.wikipedia.org
Faili kasutus vikis hi.wikipedia.org
Faili kasutus vikis it.wikipedia.org
Faili kasutus vikis ko.wikipedia.org
Faili kasutus vikis ml.wikipedia.org
Faili kasutus vikis ms.wikipedia.org
Faili kasutus vikis nn.wikipedia.org
Faili kasutus vikis ru.wikipedia.org
Faili kasutus vikis simple.wikipedia.org
Faili kasutus vikis sv.wikipedia.org
Faili kasutus vikis th.wikipedia.org
Faili kasutus vikis uk.wikipedia.org
Faili kasutus vikis zh-yue.wikipedia.org