Re: [PerlChina] 请教熟悉图像处理的朋友(我的解决方案)

[cnhack TNT]

哇!一个象素点一个象素点的描啊....这个方法效果不错
嗯嗯~!要顶一顶!
谢谢分享! :-)
On 8/17/05, Jester <jester at perlchina.org> wrote:
> 上次的问题多谢各位朋友的热心帮忙。
> 最近我想出了一个只用GD模块的解决方案，和大家共享一下。
> 
> 附件中的example.png是处理前的图像。
> 我尝试给GD添加了一个方法，代码如下：
> #---------------------------------------
> sub GD::Image::JesterPaint{
>  my $this=shift;
>  @_==5 or croak('Usage: KEGGrender(x1,y1,x2,y2,color)');
>  my ($x1,$y1,$x2,$y2,$color)=@_;
>  my $old=$this->getPixel($x1,$y1); #这里我取了左上角这点的颜色作为替换的对象，可以根据需要自行修改
>  for(my $i=$x1;$i<=$x2;$i++)
>  {
>  for(my $j=$y1;$j<=$y2;$j++)
>  {
>  next if($this->getPixel($i,$j) eq $old); #change 'if' to 'unless' if you want to paint foreground instead
>  $this->setPixel($i,$j,$color);
>  }
>  }
> }
> #---------------------------------------
> 可以把这段代码放在程序里，也可以直接放在系统安装的GD.pm文件里（如果你希望以后用的话咯！:P）
> 
> 用法很简单，把你想要涂色的区域的坐标和颜色作为参数即可。主程序如下：
> #---------------------------------------
> use GD;
> open F,$ARGV[0] or die "Usage: $0 <example.png>  >  output.png\n";
> my $i=newFromPng GD::Image(*F);
> close F;
> my $w=$i->colorAllocate(255,255,255);
> my $g=$i->colorAllocate(0,255,0);
> $i->JesterPaint(12,2,58,19,$g);
> binmode STDOUT;
> print $i->png;
> #---------------------------------------
> 
> 完整的代码，我也放在附件里面（test.pl）。运行的后得到的效果是output.png。
> 另外，作为一个附带的收获，我发现它还有另外一个功能――改变前景色（也就是这里的字体颜色）而不是背景色。
> 方法很简单，把JesterPaint方法代码里面的if替换成unless，然后把主程序里面的颜色改成红色（$g=$i->colorAllocate(255,0,0);
> ）。再试试吧，就能得到附件中output2.png的效果了。算是个意外的收获吧。^_^
> 
> 因为，我所要处理的区域都很小，所以暂时没有看出运行速度上的问题，因为是遍历，我还是有些担心……
> 另外，现在处理的都是简单的纯色图像，复杂了，比如有渐进色什么的，肯定就有问题了……:(
> 
> 
> +----------------------+
> |        Jester        |
> |                      |
> | jester at perlchina.org |
> +----------------------+
> 
> ----- Original Message -----
> From: "Jester" <jester at perlchina.org>
> To: <china-pm at pm.org>
> Sent: Friday, July 29, 2005 2:25 PM
> Subject: 请教熟悉图像处理的朋友
> 
> 
> >
> > 哪位做过类似我的附件里面的图形中的这样的处理？
> > 也就是在一个指定的区域中打上底色，而且要求保留原来的文字。
> > 我只会用GD，但是里面没有这样的方法。单是fill肯定不行，因为有些文字有圈的，会fill不上的……
> > 不知道有没有哪位知道用什么方法？或者有什么模块可以做的？
> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm
> 
>