æ˜å’Œã®å†™çœŸã‚¸ã‚§ãƒãƒ¬ãƒ¼ã‚¿ã®ä½œã‚Šæ–¹ - 酒日記 ã¯ã¦ãªæ”¯åº—予想外ã«äººæ°—ã‚’åšã—ã¦ã—ã¾ã£ãŸ æ˜å’Œã®å†™çœŸã‚¸ã‚§ãƒãƒ¬ãƒ¼ã‚¿(ä»®) ã§ã™ãŒã€ç”»åƒåŠ å·¥ã®æ–¹æ³•ã‚’公開ã—ã¦ãŠãã¾ã™ã€‚ [追記] 以下ã®ã‚³ãƒ¼ãƒ‰ã¯èª¬æ˜Žç”¨ã§ã™ã€‚ãªãŠã€å®Ÿéš›ã«å‹•ã„ã¦ã„るコード(ã«é™ã‚Šãªãè¿‘ã„ã‚‚ã®) ã‚’ CodeRepos ã« up ã—ã¾ã—ãŸã€‚svnã¯ã“ã¡ã‚‰ã‹ã‚‰ 用æ„ã™ã‚‹ã‚‚ã®ã€‚ Perl Imagerモジュール å…ƒãƒã‚¿ã®ç”»åƒ モジュールを load ã—ã¦ã€ç”»åƒã‚’ Imager オブジェクトã«èªã¿è¾¼ã¿ã¾ã™ã€‚ use Imager; use Imager::Fill; use List::Util qw/ min max /; my $img = Imager->new; $img->read( file => "source.jpg" ); コントラストをè½ã¨ã—ã¾ã™ã€‚ $img->filter( type => "contrast", intensity => 0.7 ); 少々ã¼ã‹ã—ã¾ã™ã€‚(å°ã•ã„
{{#tags}}- {{label}}
{{/tags}}