จากวิกิพีเดีย สารานุกรมเสรี
ไม่มีภาพที่มีรายละเอียดสูงกว่านี้
ความย่อ
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.0CC BY 3.0 Creative Commons Attribution 3.0 truetrue
ปูมการอัปโหลดต้นฉบับ
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
- การใช้บน uk.wikipedia.org
- การใช้บน zh-yue.wikipedia.org