#!/usr/bin/env perl -w

#use strict;
use Image::Magick;
my ($image, $new_image, $status, $background, $x, $y, $new_name, $num);

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

$image -> Set(quality => 10);
$new_image -> Set(quality => 10);

$status = $image -> Read(filename => 's_screen.png');
warn "$status" if $status;
$status = $new_image -> Read(filename => 's_book.png');
warn "$status" if $status;

$y=8;
$num=0;
for ($x=-80; $x <= 120; $x+=8)
{
  $num++; 
  $image -> Composite(compose => Over,
                      image => $new_image,
  		    # -162 , 204
  		    x =>$x , y => $y);

  if ($num < 10) {
    $new_name = "0".$num."forth.gif";
  }else{
    $new_name = $num."forth.gif";
  }

  $status = $image -> Write($new_name);
  undef @$image;
  $status = $image -> Read(filename => 's_screen.png');
}

undef $image;
undef $new_image;