view release on metacpan or  search on metacpan

demos/curses.pl  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;
use lib '../lib';
use Curses;
use Term::ReadKey;
use Image::Caa;
use Image::Magick;


#
# load the image
#

my $image = Image::Magick->new;

my $x = $image->Read('kitten.jpg');

warn "$x" if "$x";


#
# set up window
#

my ($cols, $lines) = GetTerminalSize;

initscr;

my $s = newwin($lines, $cols, 0, 0);

$s->erase;
$s->clear;


#
# output it
#

#my $caa = new Image::Caa('driver' => 'DriverCurses', 'window' => $s, 'black_bg' => 1);
my $caa = new Image::Caa('driver' => 'DriverCurses', 'window' => $s);

$caa->draw_bitmap(2, 2, $cols-2, $lines-5, $image);

$s->noutrefresh();

doupdate;
sleep(3);

endwin;