[ONScripter] 나는 이렇게 컨버터를 제작했다. #015 필요한 이미지를 잘라보쟈

이 강의는 MPPC (미소녀 & PocketPC)의 Pure Ani에게 저작권이 있습니다.

이번에는 이미지를 잘라보는것을 해보겠습니다.

이 게임의 CG갤러리입니다.

사진에서는 잘 안보이지만, 이 게임은 특징중 하나가 CG위에 마우스를 가져다대도 이미지가 변하지 않습니다.

일단 필요한 이미지를 자르고, 이미지를 임의 변환해서 마우스를 가져다대면 바뀌도록 해보겠습니다.

일단 이미지를 자르는것을 설명합니다.

use Image::Magick;
use File::Copy;

펄을 사용할거기에 상단에 위의 두줄을 추가합니다.
(펄과함께 Image::Magick이 설치되어 있어야합니다.)

먼저 자를 이미지는..

위와같이 되어있는 이미지입니다.

 my $image = Image::Magick->new;
# 변수$image에 새로운 파렛트을 준비합니다.
# 그림 그릴 도화지를 준비한다는 느낌?
 $image -> Read("\@b1\.png");
# 변수 $image에 이미지파일(@b1.png)을 읽습니다.
 $image -> Crop( x => 0 , y => 0 , width => 30 , height => 30 );
# 읽은 이미지파일의 x, y 0, 0좌표에서 30, 30을 잘라냅니다.
# 가로가 180인데 총 6개 있으니 가로가 30.
# 세로는 그대로 쓸것이니 30을 줍니다.
 $image -> Write("\@b1_0\.png");
# 잘라낸 이미지를 @b1_0.png에 저장합니다.
 undef $image;

이렇게 이미지를 전부 잘라내도록 코딩후에는 썸내일 이미지를 생성해보겠습니다.

왼쪽의 이미지를 오른쪽의 이미지처럼 변환해서 백업을 만들겁니다.

오른쪽의 이미지를 먼저 출력하고 마우스를 가져다대면 왼쪽이 뜨도록 만들 예정입니다.

 my $image = Image::Magick->new;
 $image -> Read("cg\@thumb1\.jpg");
 $image -> SepiaToneImage();
# 이미지를 세피아톤으로 변환합니다.
# 세피아톤 말고 다른걸로 해도 됩니다.
# 여기서 세피아톤인 이유는 필자가 세피아톤을 좋아하기때문입니다.
 $image -> Write("cg\@thumb1_1\.jpg");
 undef $image;

작성자 Pure Ani
출　처 MPPC (미소녀 & PocketPC)