File:Felis silvestris silvestris small gradual decrease of quality.png

Frae Wikipedia
Jump to navigation Jump to search

Felis_silvestris_silvestris_small_gradual_decrease_of_quality.png(519 × 600 pixels, file size: 156 KB, MIME type: image/png)

This file is fae Wikimedia Commons n micht be uised bi ither waurks. The descreeption oan its file descreeption page thaur is shawn ablo.

Ootline

Description
English: Gradual JPEG artifacts example, with decreasing quality from right to left
Date
Soorce Felis_silvestris_silvestris.jpg
Author
Other versions

Derivative works of this file: Felis silvestris silvestris small gradual decrease of quality - JPEG compression.jpg

Applications-graphics.svg
This is a retouched picture, which means that it has been digitally altered from its original version. Modifications: Gradual JPEG artifacts example. The original can be viewed here: Felis silvestris silvestris.jpg. Modifications made by AzaToth.

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');

Licensin

w:en:Creative Commons
attribution
This file is licensed under the Creative Commons Attribution 3.0 Unported license.
Ye are free:
  • tae share – tae copy, distribute an transmit the wirk
  • tae remix – tae adapt the wirk
Unner the follaein condeetions:
  • attribution – Ye must attribute the wirk in the manner specified bi the author or licensor (but nae in ony way that suggests that thay endorse ye or yer uise o the wirk).

Original upload log

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

File histerie

Clap oan ae date/time fer tae see the file aes it kithed at that time.

Date/TimeThummnailDimensionsUiserComment
current15:42, 4 Mairch 2017Thumbnail fer version aes o 15:42, 4 Mairch 2017519 × 600 (156 KB)GnashOptimized
21:28, 3 October 2011Thumbnail fer version aes o 21:28, 3 October 2011519 × 600 (278 KB)AzaToth

The follaein pages airts tae this image:

Global file uisage

The follaein ither wikis uise this file: