view release on metacpan or  search on metacpan

examples/image2grl.pl  view on Meta::CPAN

#! /usr/bin/env perl
use strict; use warnings;
use Term::Graille qw/colour paint printAt clearScreen border/;
use Image::Magick;

# convert2grl--converts an image to .grl format.

my %params=%ARGV;

my $canvas = Term::Graille->new(
    width  => $params{width}||72,
    height => $params{height}||60,
    top=>2,
    left=>10,
    borderStyle => "double",
  );
clearScreen();
my $inFile=$params{-i}||"perl2.jpg";
my $outFile=$params{-o}||($inFile=~s/\..+$//r).".grl";
loadImage($inFile);
$canvas->exportCanvas($outFile);

sub loadImage{
	my $imgfile=shift;
	my $image = Image::Magick->new();
	my $wh = $image->Read($imgfile); 
	$image->Resize(geometry => "$canvas->{width}x$canvas->{height}", filter=>"Cubic");
	warn $wh if $wh; 
	$image->set('monochrome'=>'True','dither'=>'True','dither-method'=>"Floyd-Steinberg");
	for (my $x =0;$x<$canvas->{width};$x++){
		for (my $y=0;$y<$canvas->{height};$y++){
			$canvas->set($x,$y) if $image->GetPixel("x"=>$x,"y",$canvas->{height}-$y); 
		}
	}
}

$canvas->draw();
print "\n";
print " "x8,"Viewing $inFile, saved as $outFile\n";
printAt(18,0," ")
;