Image :: Magick 및 Perl로 배경 투명하게 만들기

Question

Image::Magick을 사용하여 배너를 그리는 Perl 스크립트를 만들었습니다.

# ... some code 
my $icon = Image::Magick->new(); 
$icon->Set(size => '16x16'); 
$icon->Transparent(color=>'#010101'); 
$icon->ReadImage($imagepath); 
$full_image->Composite(# small icon 
    image=>$icon, 
    compose=>'Over', 
    opacity=>'99%', 
    x=>'12', 
    y=>'62', 
); 
# ... some code 

는 일반적으로 아이콘 배경 ( #010101)은 투명해야한다,하지만 이 작동하지 않는 이유 어떤 생각이 ... 실패? 아니면이 투명 방법 대신 사용할 수 있을까요?

편집 : 두 이미지는 PNG 파일입니다. Image::Magick 버전은 6.7입니다.

Answer 1

알파 채널을 사용하려면 ImageMagick에 알려야합니다.

명령 줄에서 -alpha On이됩니다.

Answer 2

정말 많은이 모듈을 사용하지 않은 그러나 나는 아이디어 몇 :

1. 당신은 99 %에 $ full_image의 불투명도를 설정할 수 있습니다. 이미지를 투명하게 만들기 위해 작은 값으로 표시하지 않으시겠습니까?

2. this 페이지에 따르면, 당신은 불투명라는 메서드 호출 할 수

   불투명 : 색상 => 색상 이름이 기입 => 색상 이름, 채널 => {모든, 기본, 알파 나는 먼저 이미지를 읽을 것이다

3. } => {참, 거짓, 블랙, 블루, CMYK, 청록색, 회색, 녹색, 색인, 마젠타, 불투명도, 레드, RGB, 노란색}, 반전, 색상을 투명하게 만듭니다 (경우를 대비하여).

   $icon->ReadImage($imagepath); 
   $icon->Transparent(color=>'#010101'); 
   

4. (미운 해킹) 실행 이미지의 시스템 명령으로 변환 후로드 :

   my $icon = Image::Magick->new(); 
   $icon->Set(size => '16x16'); 
   system("convert -transparent '#010101' not_transp.png transp.png"); 
   $icon->ReadImage('transp.png'); 
   $full_image->Composite(# small icon 
       image=>$icon, 
       compose=>'Over', 
       opacity=>'99%', 
       x=>'12', 
       y=>'62', 
   );