#!/usr/bin/env perl -w
# copyright (C) 2005 Sato Makoto
# create zooming images
#use strict;
use Image::Magick;
my ($image, $status, $background, $seventh_img,$i,$i2, $seventh_new_img);

$image = Image::Magick -> new;
$status = $image -> Read(filename => 's_screen.png');
warn "$status" if $status;

$status = $image -> Write('00seventh.gif');
$status = $image -> Write('27seventh.gif');

for($i=1; $i <= 13; $i++) {

  $image -> Zoom('125%');
  $image -> Crop(geometry => '102x77+0+0');

  warn "$status" if $status;
  
  if ($i < 10) {
    $seventh_img = "0".$i."seventh.gif";
  }else{
    $seventh_img = $i."seventh.gif";
  }

  $i2 = 26 - $i + 1;
  $seventh_new_img = $i2."seventh.gif";
  $status = $image -> Write($seventh_img);
  $status = $image -> Write($seventh_new_img);
  warn "$status" if $status;
  undef @$image;
  $status = $image -> Read(filename => $seventh_img);
}
undef $image;