Daripada Wikipedia, ensiklopedia bebas.
Tiada leraian lebih besar.
Fail ini dari Wikimedia Commons dan mungkin digunakan oleh projek lain.
Penerangan pada laman penerangan failnya di sana ditunjukkan di bawah.
Ringkasan
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' );
Perlesenan
Anda bebas:
untuk berkongsi – untuk menyalin, mengedar dan memindah hasil kerja
untuk mencampur semula – untuk menyesuaikan karya
Di bawah syarat berikut:
pengiktirafan – Anda mesti memberi penghargaan yang berpatutan, bekalkan pautan ke lesen, dan tunjukkan jika perubahan telah dibuat. Anda boleh lakukannya dalam sebarang cara yang munasabah, tetapi bukan dalam sebarang cara yang mencadangkan pemberi lesen mengendors anda atau penggunaan anda.
https://creativecommons.org/licenses/by/3.0 CC BY 3.0 Creative Commons Attribution 3.0 true true
Log muat naik asal
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
Bahasa Melayu Add a one-line explanation of what this file represents
Inggeris Example of the relationship between compression rate to quality of a .jpg image file. The rate is high compression to low quality.
Poland Przykład zależności między stopniem kompresji a jakością pliku obrazu .jpg. Wysoki stopień kompresji oznacza niską jakość.
Sejarah fail
Penggunaan fail
Laman berikut menggunakan fail ini:
Penggunaan fail sejagat
Fail ini digunakan oleh wiki-wiki lain yang berikut:
Penggunaan di bn.wikipedia.org
Penggunaan di en.wikipedia.org
Penggunaan di et.wikipedia.org
Penggunaan di fa.teknopedia.teknokrat.ac.id
Penggunaan di fr.wiktionary.org
Penggunaan di hi.wikipedia.org
Penggunaan di it.teknopedia.teknokrat.ac.id
Penggunaan di ko.wikipedia.org
Penggunaan di ml.wikipedia.org
Penggunaan di nn.wikipedia.org
Penggunaan di pl.teknopedia.teknokrat.ac.id
Penggunaan di ru.teknopedia.teknokrat.ac.id
Penggunaan di simple.wikipedia.org
Penggunaan di sv.wikipedia.org
Penggunaan di th.wikipedia.org
Penggunaan di uk.wikipedia.org
Penggunaan di ur.wikipedia.org
Penggunaan di zh-yue.wikipedia.org