:: Cepheid :: - ImageMagickã®ä½¿ç”¨ä¾‹ | ç”»åƒã‚’åˆæˆã™ã‚‹å˜ç´”ãªé‡ãåˆã‚ã›ã®ä¾‹ Composite()を使ã†ã¨2ã¤ã®ç”»åƒã‚’é‡ãåˆã‚ã›ã¦åˆæˆã™ã‚‹ã“ã¨ãŒå‡ºæ¥ã¾ã™ã€‚ç°¡å˜ãªä¾‹ã‹ã‚‰å§‹ã‚ã¾ã™ã€‚ #!/usr/local/bin/perl -w use strict; use Image::Magick; # å…ƒç”»åƒ my $file = "sample.jpg"; # é‡ãã‚‹ç”»åƒ my $file2 = "sample2.jpg"; # 元画åƒèªã¿è¾¼ã‚€ my $image = Image::Magick->new; $image->Read($file); # é‡ãã‚‹ç”»åƒã‚’èªã¿è¾¼ã‚€ my $image2 = Image::Magick->new; $image2->Read($file2); # é‡ãã‚‹ç”»åƒã®ã‚µã‚¤ã‚ºå¤‰æ›´ $image2->Resize(width=>150, height=>105, blur=>0.7); # ç”»åƒã‚’åˆæˆã™ã‚‹ $image-
{{#tags}}- {{label}}
{{/tags}}