מתוך ויקיפדיה, האנציקלופדיה החופשית
אין גרסה ברזולוציה גבוהה יותר.
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' );
הנכם רשאים:
לשתף – להעתיק, להפיץ ולהעביר את העבודה
לערבב בין עבודות – להתאים את העבודה
תחת התנאים הבאים:
ייחוס – יש לתת ייחוס הולם, לתת קישור לרישיון, ולציין אם נעשו שינויים. אפשר לעשות את זה בכל צורה סבירה, אבל לא בשום צורה שמשתמע ממנה שמעניק הרישיון תומך בך או בשימוש שלך.
https://creativecommons.org/licenses/by/3.0 CC BY 3.0 Creative Commons Attribution 3.0 true true
יומן העלאה מקורי
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
עברית נא להוסיף משפט שמסביר מה הקובץ מייצג
אנגלית 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.
היסטוריית הקובץ
שימוש בקובץ
אין בוויקיפדיה דפים המשתמשים בקובץ זה.
שימוש גלובלי בקובץ
אתרי הוויקי השונים הבאים משתמשים בקובץ זה:
שימוש באתר bn.wikipedia.org
שימוש באתר en.wikipedia.org
שימוש באתר en.wikibooks.org
שימוש באתר et.wikipedia.org
שימוש באתר fa.wikipedia.org
שימוש באתר hi.wikipedia.org
שימוש באתר it.wikipedia.org
שימוש באתר ko.wikipedia.org
שימוש באתר ml.wikipedia.org
שימוש באתר ms.wikipedia.org
שימוש באתר nn.wikipedia.org
שימוש באתר ru.wikipedia.org
שימוש באתר simple.wikipedia.org
שימוש באתר sv.wikipedia.org
שימוש באתר th.wikipedia.org
שימוש באתר uk.wikipedia.org
שימוש באתר zh-yue.wikipedia.org