From joejiang799 at gmail.com  Tue Jul 19 01:25:17 2005
From: joejiang799 at gmail.com (Joe Jiang)
Date: Tue, 19 Jul 2005 16:25:17 +0800
Subject: [PerlChina] some article goto CSDN programmer mag
Message-ID: <e6d662d050719012530319ab6@mail.gmail.com>

好消息，今天意外收到 2005 年第 7 期的 程序员 杂志。其中有一篇 Perl 无废话上手指南 的文章，作者是
刘云海。编辑大概是要用这个明确的信息鼓励我们给他们投稿，到 Ruby/Python/Perl 共享的 无废话 栏目。

有鉴于我们已经有了少量的翻译文章的经验，可以考虑和他们联系来扩大影响。改变 程序员 杂志清一色 java
文章的局面。因此个人会考虑用一些源创的文章来做一些尝试，可能会优先选择 POE 作为探路的石头:)

另外今天发现了 perl.com 的文章总揽 http://www.perl.com/all_articles.csp

在此希望大家重新关注 perl 中文化项目 :)

From shijialeee at yahoo.com  Tue Jul 19 13:42:42 2005
From: shijialeee at yahoo.com (James.Q.L)
Date: Tue, 19 Jul 2005 13:42:42 -0700 (PDT)
Subject: [PerlChina] some article goto CSDN programmer mag
In-Reply-To: <e6d662d050719012530319ab6@mail.gmail.com>
Message-ID: <20050719204243.61966.qmail@web50405.mail.yahoo.com>

what was said on CSDN mag ? I actually emailed them a while ago about sending our translated
artilces to CSDN but never got response.

POE is nice.

now i am just hoping chunzi can get the wiki backup as SOON as possible.

Qiang

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 

From yxiaolu at gmail.com  Tue Jul 19 19:09:33 2005
From: yxiaolu at gmail.com (Ye Xiaolu)
Date: Wed, 20 Jul 2005 10:09:33 +0800
Subject: [PerlChina] some article goto CSDN programmer mag
In-Reply-To: <e6d662d050719012530319ab6@mail.gmail.com>
References: <e6d662d050719012530319ab6@mail.gmail.com>
Message-ID: <bc2fdf120507191909c8b3dd0@mail.gmail.com>

我也看到了，好兆头！

On 7/19/05, Joe Jiang <joejiang799 at gmail.com> wrote: 
> 
> 好消息，今天意外收到 2005 年第 7 期的 程序员 杂志。其中有一篇 Perl 无废话上手指南 的文章，作者是
> 刘云海。编辑大概是要用这个明确的信息鼓励我们给他们投稿，到 Ruby/Python/Perl 共享的 无废话 栏目。
> 
> 有鉴于我们已经有了少量的翻译文章的经验，可以考虑和他们联系来扩大影响。改变 程序员 杂志清一色 java
> 文章的局面。因此个人会考虑用一些源创的文章来做一些尝试，可能会优先选择 POE 作为探路的石头:)
> 
> 另外今天发现了 perl.com <http://perl.com> 的文章总揽 
> http://www.perl.com/all_articles.csp
> 
> 在此希望大家重新关注 perl 中文化项目 :)
> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm
-------------- next part --------------
q?????!???,r??m??m???????j+??j)r?j??j?r????9?????kM??!???

From jester at perlchina.org  Thu Jul 28 23:25:47 2005
From: jester at perlchina.org (Jester)
Date: Fri, 29 Jul 2005 14:25:47 +0800
Subject: [PerlChina] =?gb2312?b?x+u9zMrsz6TNvM/xtKbA7bXExfPT0Q==?=
Message-ID: <001d01c59406$5d57b1b0$2f03000a@jester>


哪位做过类似我的附件里面的图形中的这样的处理？
也就是在一个指定的区域中打上底色，而且要求保留原来的文字。
我只会用GD，但是里面没有这样的方法。单是fill肯定不行，因为有些文字有圈的，会fill不上的……
不知道有没有哪位知道用什么方法？或者有什么模块可以做的？
-------------- next part --------------
A non-text attachment was scrubbed...
Name: example.gif
Type: image/gif
Size: 1140 bytes
Desc: not available
Url : http://mail.pm.org/pipermail/china-pm/attachments/20050729/69dbc4d9/example.gif

From jlake at spymac.com  Fri Jul 29 00:05:38 2005
From: jlake at spymac.com (jlake)
Date: Fri, 29 Jul 2005 16:05:38 +0900
Subject: =?utf-8?B?W1BlcmxDaGluYV0g6K+35pWZ54af5oKJ5Zu+5YOP5aSE55CG55qE5pyL?=
	=?utf-8?B?5Y+L?=
In-Reply-To: <001d01c59406$5d57b1b0$2f03000a@jester>
References: <001d01c59406$5d57b1b0$2f03000a@jester>
Message-ID: <op.sunxvdh3dawxfb@cli-ou>

没用过GD。
不过，我想这个问题应该可以用图像叠加的方法解决：
本来写了字的图像弄成透明，作为图像1，
做一个同样大小的涂上色的方块，作为图像2，
把图像1叠加到图像2上面。

提供个思路而已，不知道能不能实现。

On Fri, 29 Jul 2005 15:25:47 +0900, Jester <jester at perlchina.org> wrote:

>
> 哪位做过类似我的附件里面的图形中的这样的处理？
> 也就是在一个指定的区域中打上底色，而且要求保留原来的文字。
> 我只会用GD，但是里面没有这样的方法。单是fill肯定不行，因为有些文字有圈 
> 的，会fill不上的……
> 不知道有没有哪位知道用什么方法？或者有什么模块可以做的？



-- 
Using M2, Opera's revolutionary e-mail client: http://www.opera.com/m2/


From yuzg at nanjing-fnst.com  Fri Jul 29 00:28:08 2005
From: yuzg at nanjing-fnst.com (Yu Zhiguo)
Date: Fri, 29 Jul 2005 15:28:08 +0800
Subject: =?gb2312?B?UmU6IFtQZXJsQ2hpbmFdIMfrvczK7M+kzbzP8bSmwO21xMXz09E=?=
References: <001d01c59406$5d57b1b0$2f03000a@jester>
Message-ID: <014a01c5940f$116e9fd0$6104a8c0@skqianyi>

ncurses库函数应该也可以处理

----- Original Message ----- 
From: "Jester" <jester at perlchina.org>
To: <china-pm at pm.org>
Sent: Friday, July 29, 2005 2:25 PM
Subject: [PerlChina] 请教熟悉图像处理的朋友


> 
> 哪位做过类似我的附件里面的图形中的这样的处理？
> 也就是在一个指定的区域中打上底色，而且要求保留原来的文字。
> 我只会用GD，但是里面没有这样的方法。单是fill肯定不行，因为有些文字有圈的，会fill不上的……
> 不知道有没有哪位知道用什么方法？或者有什么模块可以做的？


--------------------------------------------------------------------------------


> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm

From jester at perlchina.org  Fri Jul 29 00:49:43 2005
From: jester at perlchina.org (Jester)
Date: Fri, 29 Jul 2005 15:49:43 +0800
Subject: =?UTF-8?B?UmU6IFtQZXJsQ2hpbmFdIOivt+aVmeeGn+aCieWbvuWDj+WkhOeQhueahA==?=
	=?UTF-8?B?5pyL5Y+L?=
References: <001d01c59406$5d57b1b0$2f03000a@jester>
	<014a01c5940f$116e9fd0$6104a8c0@skqianyi>
Message-ID: <003401c59412$186aecf0$2f03000a@jester>

不太明白，没找到有叫ncurses的模块呀……
能否说清楚一点，谢谢！


----- Original Message ----- 
From: "Yu Zhiguo" <yuzg at nanjing-fnst.com>
To: <china-pm at pm.org>
Sent: Friday, July 29, 2005 3:28 PM
Subject: Re: [PerlChina] 请教熟悉图像处理的朋友


> ncurses库函数应该也可以处理
> 
> ----- Original Message ----- 
> From: "Jester" <jester at perlchina.org>
> To: <china-pm at pm.org>
> Sent: Friday, July 29, 2005 2:25 PM
> Subject: [PerlChina] 请教熟悉图像处理的朋友
> 
> 
> > 
> > 哪位做过类似我的附件里面的图形中的这样的处理？
> > 也就是在一个指定的区域中打上底色，而且要求保留原来的文字。
> > 我只会用GD，但是里面没有这样的方法。单是fill肯定不行，因为有些文字有圈的，会fill不上的……
> > 不知道有没有哪位知道用什么方法？或者有什么模块可以做的？
> 
> 
> --------------------------------------------------------------------------------
> 
> 
> > _______________________________________________
> > China-pm mailing list
> > China-pm at pm.org
> > http://mail.pm.org/mailman/listinfo/china-pm
> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm

From yuzg at nanjing-fnst.com  Fri Jul 29 01:05:52 2005
From: yuzg at nanjing-fnst.com (Yu Zhiguo)
Date: Fri, 29 Jul 2005 16:05:52 +0800
Subject: =?utf-8?B?UmU6IFtQZXJsQ2hpbmFdIOivt+aVmeeGn+aCieWbvuWDj+WkhOeQhueahA==?=
	=?utf-8?B?5pyL5Y+L?=
References: <001d01c59406$5d57b1b0$2f03000a@jester><014a01c5940f$116e9fd0$6104a8c0@skqianyi>
	<003401c59412$186aecf0$2f03000a@jester>
Message-ID: <017101c59414$56eb11b0$6104a8c0@skqianyi>

是个库，提供一些函数，要编译的时候 -lncurses,
可以参见http://www.linuxfocus.org/ChineseGB/March2002/article233.shtml

----- Original Message ----- 
From: "Jester" <jester at perlchina.org>
To: <china-pm at pm.org>
Sent: Friday, July 29, 2005 3:49 PM
Subject: Re: [PerlChina] 请教熟悉图像处理的朋友


> 不太明白，没找到有叫ncurses的模块呀……
> 能否说清楚一点，谢谢！
> 
> 
> ----- Original Message ----- 
> From: "Yu Zhiguo" <yuzg at nanjing-fnst.com>
> To: <china-pm at pm.org>
> Sent: Friday, July 29, 2005 3:28 PM
> Subject: Re: [PerlChina] 请教熟悉图像处理的朋友
> 
> 
> > ncurses库函数应该也可以处理
> > 
> > ----- Original Message ----- 
> > From: "Jester" <jester at perlchina.org>
> > To: <china-pm at pm.org>
> > Sent: Friday, July 29, 2005 2:25 PM
> > Subject: [PerlChina] 请教熟悉图像处理的朋友
> > 
> > 
> > > 
> > > 哪位做过类似我的附件里面的图形中的这样的处理？
> > > 也就是在一个指定的区域中打上底色，而且要求保留原来的文字。
> > > 我只会用GD，但是里面没有这样的方法。单是fill肯定不行，因为有些文字有圈的，会fill不上的……
> > > 不知道有没有哪位知道用什么方法？或者有什么模块可以做的？
> > 
> > 
> > --------------------------------------------------------------------------------
> > 
> > 
> > > _______________________________________________
> > > China-pm mailing list
> > > China-pm at pm.org
> > > http://mail.pm.org/mailman/listinfo/china-pm
> > _______________________________________________
> > China-pm mailing list
> > China-pm at pm.org
> > http://mail.pm.org/mailman/listinfo/china-pm
> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm

From joejiang799 at gmail.com  Fri Jul 29 02:26:23 2005
From: joejiang799 at gmail.com (Joe Jiang)
Date: Fri, 29 Jul 2005 17:26:23 +0800
Subject: =?GB2312?B?UmU6IFtQZXJsQ2hpbmFdIMfrvczK7M+kzbzP8bSmwO21xMXz09E=?=
In-Reply-To: <017101c59414$56eb11b0$6104a8c0@skqianyi>
References: <001d01c59406$5d57b1b0$2f03000a@jester>
	<014a01c5940f$116e9fd0$6104a8c0@skqianyi>
	<003401c59412$186aecf0$2f03000a@jester>
	<017101c59414$56eb11b0$6104a8c0@skqianyi>
Message-ID: <e6d662d05072902263617d27d@mail.gmail.com>

据我所知 ncurses 主要是用在字符界面的UI上面的，希望不是弄错了 :D 
可以看看 linuxforum bbs 上面的文章，有人问过 ncurses 相关的问题。

On 7/29/05, Yu Zhiguo <yuzg at nanjing-fnst.com> wrote:
> 是个库，提供一些函数，要编译的时候 -lncurses,
> 可以参见http://www.linuxfocus.org/ChineseGB/March2002/article233.shtml
> 
> ----- Original Message -----
> From: "Jester" <jester at perlchina.org>
> To: <china-pm at pm.org>
> Sent: Friday, July 29, 2005 3:49 PM
> Subject: Re: [PerlChina] 请教熟悉图像处理的朋友
> 
> 
> > 不太明白，没找到有叫ncurses的模块呀……
> > 能否说清楚一点，谢谢！
> >
> >
> > ----- Original Message -----
> > From: "Yu Zhiguo" <yuzg at nanjing-fnst.com>
> > To: <china-pm at pm.org>
> > Sent: Friday, July 29, 2005 3:28 PM
> > Subject: Re: [PerlChina] 请教熟悉图像处理的朋友
> >
> >
> > > ncurses库函数应该也可以处理
> > >
> > > ----- Original Message -----
> > > From: "Jester" <jester at perlchina.org>
> > > To: <china-pm at pm.org>
> > > Sent: Friday, July 29, 2005 2:25 PM
> > > Subject: [PerlChina] 请教熟悉图像处理的朋友
> > >
> > >
> > > >
> > > > 哪位做过类似我的附件里面的图形中的这样的处理？
> > > > 也就是在一个指定的区域中打上底色，而且要求保留原来的文字。
> > > > 我只会用GD，但是里面没有这样的方法。单是fill肯定不行，因为有些文字有圈的，会fill不上的……
> > > > 不知道有没有哪位知道用什么方法？或者有什么模块可以做的？
> > >
> > >
> > > --------------------------------------------------------------------------------
> > >
> > >
> > > > _______________________________________________
> > > > China-pm mailing list
> > > > China-pm at pm.org
> > > > http://mail.pm.org/mailman/listinfo/china-pm
> > > _______________________________________________
> > > China-pm mailing list
> > > China-pm at pm.org
> > > http://mail.pm.org/mailman/listinfo/china-pm
> > _______________________________________________
> > China-pm mailing list
> > China-pm at pm.org
> > http://mail.pm.org/mailman/listinfo/china-pm
> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm

From yuzg at nanjing-fnst.com  Fri Jul 29 02:29:06 2005
From: yuzg at nanjing-fnst.com (Yu Zhiguo)
Date: Fri, 29 Jul 2005 17:29:06 +0800
Subject: =?utf-8?B?UmU6IFtQZXJsQ2hpbmFdIOivt+aVmeeGn+aCieWbvuWDj+WkhOeQhueahA==?=
	=?utf-8?B?5pyL5Y+L?=
References: <001d01c59406$5d57b1b0$2f03000a@jester><014a01c5940f$116e9fd0$6104a8c0@skqianyi><003401c59412$186aecf0$2f03000a@jester><017101c59414$56eb11b0$6104a8c0@skqianyi>
	<e6d662d05072902263617d27d@mail.gmail.com>
Message-ID: <01ed01c5941f$f74ddf60$6104a8c0@skqianyi>

对的，呵呵
理解错了你说的图象处理，那我也不知道了 ^^

----- Original Message ----- 
From: "Joe Jiang" <joejiang799 at gmail.com>
To: <china-pm at pm.org>
Sent: Friday, July 29, 2005 5:26 PM
Subject: Re: [PerlChina] 请教熟悉图像处理的朋友


> 据我所知 ncurses 主要是用在字符界面的UI上面的，希望不是弄错了 :D 
> 可以看看 linuxforum bbs 上面的文章，有人问过 ncurses 相关的问题。
> 
> On 7/29/05, Yu Zhiguo <yuzg at nanjing-fnst.com> wrote:
> > 是个库，提供一些函数，要编译的时候 -lncurses,
> > 可以参见http://www.linuxfocus.org/ChineseGB/March2002/article233.shtml
> > 
> > ----- Original Message -----
> > From: "Jester" <jester at perlchina.org>
> > To: <china-pm at pm.org>
> > Sent: Friday, July 29, 2005 3:49 PM
> > Subject: Re: [PerlChina] 请教熟悉图像处理的朋友
> > 
> > 
> > > 不太明白，没找到有叫ncurses的模块呀……
> > > 能否说清楚一点，谢谢！
> > >
> > >
> > > ----- Original Message -----
> > > From: "Yu Zhiguo" <yuzg at nanjing-fnst.com>
> > > To: <china-pm at pm.org>
> > > Sent: Friday, July 29, 2005 3:28 PM
> > > Subject: Re: [PerlChina] 请教熟悉图像处理的朋友
> > >
> > >
> > > > ncurses库函数应该也可以处理
> > > >
> > > > ----- Original Message -----
> > > > From: "Jester" <jester at perlchina.org>
> > > > To: <china-pm at pm.org>
> > > > Sent: Friday, July 29, 2005 2:25 PM
> > > > Subject: [PerlChina] 请教熟悉图像处理的朋友
> > > >
> > > >
> > > > >
> > > > > 哪位做过类似我的附件里面的图形中的这样的处理？
> > > > > 也就是在一个指定的区域中打上底色，而且要求保留原来的文字。
> > > > > 我只会用GD，但是里面没有这样的方法。单是fill肯定不行，因为有些文字有圈的，会fill不上的……
> > > > > 不知道有没有哪位知道用什么方法？或者有什么模块可以做的？
> > > >
> > > >
> > > > --------------------------------------------------------------------------------
> > > >
> > > >
> > > > > _______________________________________________
> > > > > China-pm mailing list
> > > > > China-pm at pm.org
> > > > > http://mail.pm.org/mailman/listinfo/china-pm
> > > > _______________________________________________
> > > > China-pm mailing list
> > > > China-pm at pm.org
> > > > http://mail.pm.org/mailman/listinfo/china-pm
> > > _______________________________________________
> > > China-pm mailing list
> > > China-pm at pm.org
> > > http://mail.pm.org/mailman/listinfo/china-pm
> > _______________________________________________
> > China-pm mailing list
> > China-pm at pm.org
> > http://mail.pm.org/mailman/listinfo/china-pm
> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm

From cnhacktnt at gmail.com  Fri Jul 29 13:57:24 2005
From: cnhacktnt at gmail.com (cnhack TNT)
Date: Sat, 30 Jul 2005 04:57:24 +0800
Subject: =?GB2312?B?UmU6IFtQZXJsQ2hpbmFdIMfrvczK7M+kzbzP8bSmwO21xMXz09E=?=
In-Reply-To: <001d01c59406$5d57b1b0$2f03000a@jester>
References: <001d01c59406$5d57b1b0$2f03000a@jester>
Message-ID: <f6f3441f0507291357af2ce7b@mail.gmail.com>

用 GD 模块是可以做的，但是我对该模块也不是很熟悉，刚刚看了会儿它的文档，做了下试验，代码如下
-------------------------
#!/usr/bin/perl
# cnhackTNT _at_ perlchina.org
# www.perlchina.org

use GD;

$img = GD::Image->new('flip.gif');
$green = $img->colorAllocateAlpha(0,255,0,127); #这句设置透明绿色
$img->fill(137,13,$green);
open(IMG,">res.gif");
binmode IMG;
print IMG $img->gif;
close IMG;
-------------------------

附件中的 res.gif 即为效果图，flip.gif为未填充图

但是,上面那个gd的例子似乎不完美，实际上处理图片最牛逼的模块是 Image::Magick，结合 GD,我们用 Image::Magick
来试试，我对此模块也不是很熟悉，刚刚看了会儿文档，用种笨方法,即用gd生成一个透明绿色的图片,然后用  Image::Magick
将其与未填充图合并,效果如附件中flip-green.png 所示,基本达到要求.

代码如下:
-----------------------
#!/usr/bin/perl
# cnhackTNT<at>perlchina.org
# www.perlchina.org
use GD;
use Image::Magick;

$img = GD::Image -> new( 40,25 );
$image = new Image::Magick;
$image2 = new Image::Magick;

$green = $img -> colorAllocateAlpha( 0,255,0,90 ); #这句设置透明绿色
$img -> fill( 0,0,$green );
open( IMG,">green.png" );
print IMG $img -> png;
close IMG;
$image -> Read( 'flip.gif' );
$image2 -> Read( 'green.png' );
$image -> Composite( image => $image2,x => '137',y => '13' );
$image -> Write( 'flip-green.png' );

-----------------------
关于 gd 和 的相关方法调用,请参看:

http://search.cpan.org/~lds/GD-2.25/GD.pm.PLS

http://www.imagemagick.org/script/perl-magick.php


希望能对你有些许帮助,也许你自习看过文档找过资料后会有聪明的办法,不像我这个呵呵.




On 7/29/05, Jester <jester at perlchina.org> wrote:
> 
> 哪位做过类似我的附件里面的图形中的这样的处理？
> 也就是在一个指定的区域中打上底色，而且要求保留原来的文字。
> 我只会用GD，但是里面没有这样的方法。单是fill肯定不行，因为有些文字有圈的，会fill不上的……
> 不知道有没有哪位知道用什么方法？或者有什么模块可以做的？
> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm
> 
>

From cnhacktnt at gmail.com  Fri Jul 29 14:02:12 2005
From: cnhacktnt at gmail.com (cnhack TNT)
Date: Sat, 30 Jul 2005 05:02:12 +0800
Subject: =?GB2312?B?UmU6IFtQZXJsQ2hpbmFdIMfrvczK7M+kzbzP8bSmwO21xMXz09E=?=
In-Reply-To: <f6f3441f0507291357af2ce7b@mail.gmail.com>
References: <001d01c59406$5d57b1b0$2f03000a@jester>
	<f6f3441f0507291357af2ce7b@mail.gmail.com>
Message-ID: <f6f3441f05072914021c326a67@mail.gmail.com>

用 GD 模块是可以做的，但是我对该模块也不是很熟悉，刚刚看了会儿它的文档，做了下试验，代码如下
-------------------------
#!/usr/bin/perl
# cnhackTNT _at_ perlchina.org
# www.perlchina.org

use GD;

$img = GD::Image->new('flip.gif');
$green = $img->colorAllocateAlpha(0,255,0,127); #这句设置透明绿色
$img->fill(137,13,$green);
open(IMG,">res.gif");
binmode IMG;
print IMG $img->gif;
close IMG;
-------------------------

附件中的 res.gif 即为效果图，flip.gif为未填充图

但是,上面那个gd的例子似乎不完美，实际上处理图片最牛逼的模块是 Image::Magick，结合 GD,我们用 Image::Magick
来试试，我对此模块也不是很熟悉，刚刚看了会儿文档，用种笨方法,即用gd生成一个透明绿色的图片,然后用  Image::Magick
将其与未填充图合并,效果如附件中flip-green.png 所示,基本达到要求.

代码如下:
-----------------------
#!/usr/bin/perl
# cnhackTNT<at>perlchina.org
# www.perlchina.org
use GD;
use Image::Magick;

$img = GD::Image -> new( 40,25 );
$image = new Image::Magick;
$image2 = new Image::Magick;

$green = $img -> colorAllocateAlpha( 0,255,0,90 ); #这句设置透明绿色
$img -> fill( 0,0,$green );
open( IMG,">green.png" );
print IMG $img -> png;
close IMG;
$image -> Read( 'flip.gif' );
$image2 -> Read( 'green.png' );
$image -> Composite( image => $image2,x => '137',y => '13' );
$image -> Write( 'flip-green.png' );

-----------------------
关于 gd 和 的相关方法调用,请参看:

http://search.cpan.org/~lds/GD-2.25/GD.pm.PLS

http://www.imagemagick.org/script/perl-magick.php


希望能对你有些许帮助,也许你自习看过文档找过资料后会有聪明的办法,不像我这个呵呵.




On 7/29/05, Jester <jester at perlchina.org> wrote:
>
> 哪位做过类似我的附件里面的图形中的这样的处理？
> 也就是在一个指定的区域中打上底色，而且要求保留原来的文字。
> 我只会用GD，但是里面没有这样的方法。单是fill肯定不行，因为有些文字有圈的，会fill不上的……
> 不知道有没有哪位知道用什么方法？或者有什么模块可以做的？
> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm
>
>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: flip.gif
Type: image/gif
Size: 891 bytes
Desc: not available
Url : http://mail.pm.org/pipermail/china-pm/attachments/20050729/eb3c572f/flip.gif
-------------- next part --------------
A non-text attachment was scrubbed...
Name: res.gif
Type: image/gif
Size: 930 bytes
Desc: not available
Url : http://mail.pm.org/pipermail/china-pm/attachments/20050729/eb3c572f/res.gif
-------------- next part --------------
A non-text attachment was scrubbed...
Name: flip-green.png
Type: image/png
Size: 1298 bytes
Desc: not available
Url : http://mail.pm.org/pipermail/china-pm/attachments/20050729/eb3c572f/flip-green.png

From joejiang799 at gmail.com  Fri Jul 29 17:20:22 2005
From: joejiang799 at gmail.com (Joe Jiang)
Date: Sat, 30 Jul 2005 08:20:22 +0800
Subject: =?GB2312?B?UmU6IFtQZXJsQ2hpbmFdIMfrvczK7M+kzbzP8bSmwO21xMXz09E=?=
In-Reply-To: <f6f3441f0507291357af2ce7b@mail.gmail.com>
References: <001d01c59406$5d57b1b0$2f03000a@jester>
	<f6f3441f0507291357af2ce7b@mail.gmail.com>
Message-ID: <e6d662d050729172024b34ff@mail.gmail.com>

hello cnhacktnt, please give me your postal address, i am too busy
these days. would like to send out t-shirt this weekend or next week.
thanks & sorry for laziness.
btw would you like to get any interesting book? i'd like to give you
as a gift:)
you said you always go to hospital these days, anything to share more? 

On 7/30/05, cnhack TNT <cnhacktnt at gmail.com> wrote:
> 用 GD 模块是可以做的，但是我对该模块也不是很熟悉，刚刚看了会儿它的文档，做了下试验，代码如下
> -------------------------
> #!/usr/bin/perl
> # cnhackTNT _at_ perlchina.org
> # www.perlchina.org
> 
> use GD;
> 
> $img = GD::Image->new('flip.gif');
> $green = $img->colorAllocateAlpha(0,255,0,127); #这句设置透明绿色
> $img->fill(137,13,$green);
> open(IMG,">res.gif");
> binmode IMG;
> print IMG $img->gif;
> close IMG;
> -------------------------
> 
> 附件中的 res.gif 即为效果图，flip.gif为未填充图
> 
> 但是,上面那个gd的例子似乎不完美，实际上处理图片最牛逼的模块是 Image::Magick，结合 GD,我们用 Image::Magick
> 来试试，我对此模块也不是很熟悉，刚刚看了会儿文档，用种笨方法,即用gd生成一个透明绿色的图片,然后用  Image::Magick
> 将其与未填充图合并,效果如附件中flip-green.png 所示,基本达到要求.
> 
> 代码如下:
> -----------------------
> #!/usr/bin/perl
> # cnhackTNT<at>perlchina.org
> # www.perlchina.org
> use GD;
> use Image::Magick;
> 
> $img = GD::Image -> new( 40,25 );
> $image = new Image::Magick;
> $image2 = new Image::Magick;
> 
> $green = $img -> colorAllocateAlpha( 0,255,0,90 ); #这句设置透明绿色
> $img -> fill( 0,0,$green );
> open( IMG,">green.png" );
> print IMG $img -> png;
> close IMG;
> $image -> Read( 'flip.gif' );
> $image2 -> Read( 'green.png' );
> $image -> Composite( image => $image2,x => '137',y => '13' );
> $image -> Write( 'flip-green.png' );
> 
> -----------------------
> 关于 gd 和 的相关方法调用,请参看:
> 
> http://search.cpan.org/~lds/GD-2.25/GD.pm.PLS
> 
> http://www.imagemagick.org/script/perl-magick.php
> 
> 
> 希望能对你有些许帮助,也许你自习看过文档找过资料后会有聪明的办法,不像我这个呵呵.
> 
> 
> 
> 
> On 7/29/05, Jester <jester at perlchina.org> wrote:
> >
> > 哪位做过类似我的附件里面的图形中的这样的处理？
> > 也就是在一个指定的区域中打上底色，而且要求保留原来的文字。
> > 我只会用GD，但是里面没有这样的方法。单是fill肯定不行，因为有些文字有圈的，会fill不上的……
> > 不知道有没有哪位知道用什么方法？或者有什么模块可以做的？
> > _______________________________________________
> > China-pm mailing list
> > China-pm at pm.org
> > http://mail.pm.org/mailman/listinfo/china-pm
> >
> >
> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm

From jester at perlchina.org  Sun Jul 31 18:35:10 2005
From: jester at perlchina.org (Jester)
Date: Mon, 1 Aug 2005 09:35:10 +0800
Subject: =?gb2312?B?UmU6IFtQZXJsQ2hpbmFdIMfrvczK7M+kzbzP8bSmwO21xMXz09E=?=
References: <001d01c59406$5d57b1b0$2f03000a@jester><f6f3441f0507291357af2ce7b@mail.gmail.com>
	<f6f3441f05072914021c326a67@mail.gmail.com>
Message-ID: <003601c59639$46582050$2f03000a@jester>

多谢多谢！
一直想学习ImageMagick的，但是苦于它的perldoc文档太少，现在终于有了！
谢谢！

+----------------------+
|        Jester        |
|                      |
| jester at perlchina.org |
+----------------------+
----- Original Message ----- 
From: "cnhack TNT" <cnhacktnt at gmail.com>
To: <china-pm at pm.org>
Sent: Saturday, July 30, 2005 5:02 AM
Subject: Re: [PerlChina] 请教熟悉图像处理的朋友


> 用 GD 模块是可以做的，但是我对该模块也不是很熟悉，刚刚看了会儿它的文档，做了下试验，代码如下
> -------------------------
> #!/usr/bin/perl
> # cnhackTNT _at_ perlchina.org
> # www.perlchina.org
> 
> use GD;
> 
> $img = GD::Image->new('flip.gif');
> $green = $img->colorAllocateAlpha(0,255,0,127); #这句设置透明绿色
> $img->fill(137,13,$green);
> open(IMG,">res.gif");
> binmode IMG;
> print IMG $img->gif;
> close IMG;
> -------------------------
> 
> 附件中的 res.gif 即为效果图，flip.gif为未填充图
> 
> 但是,上面那个gd的例子似乎不完美，实际上处理图片最牛逼的模块是 Image::Magick，结合 GD,我们用 Image::Magick
> 来试试，我对此模块也不是很熟悉，刚刚看了会儿文档，用种笨方法,即用gd生成一个透明绿色的图片,然后用  Image::Magick
> 将其与未填充图合并,效果如附件中flip-green.png 所示,基本达到要求.
> 
> 代码如下:
> -----------------------
> #!/usr/bin/perl
> # cnhackTNT<at>perlchina.org
> # www.perlchina.org
> use GD;
> use Image::Magick;
> 
> $img = GD::Image -> new( 40,25 );
> $image = new Image::Magick;
> $image2 = new Image::Magick;
> 
> $green = $img -> colorAllocateAlpha( 0,255,0,90 ); #这句设置透明绿色
> $img -> fill( 0,0,$green );
> open( IMG,">green.png" );
> print IMG $img -> png;
> close IMG;
> $image -> Read( 'flip.gif' );
> $image2 -> Read( 'green.png' );
> $image -> Composite( image => $image2,x => '137',y => '13' );
> $image -> Write( 'flip-green.png' );
> 
> -----------------------
> 关于 gd 和 的相关方法调用,请参看:
> 
> http://search.cpan.org/~lds/GD-2.25/GD.pm.PLS
> 
> http://www.imagemagick.org/script/perl-magick.php
> 
> 
> 希望能对你有些许帮助,也许你自习看过文档找过资料后会有聪明的办法,不像我这个呵呵.
> 
> 
> 
> 
> On 7/29/05, Jester <jester at perlchina.org> wrote:
> >
> > 哪位做过类似我的附件里面的图形中的这样的处理？
> > 也就是在一个指定的区域中打上底色，而且要求保留原来的文字。
> > 我只会用GD，但是里面没有这样的方法。单是fill肯定不行，因为有些文字有圈的，会fill不上的……
> > 不知道有没有哪位知道用什么方法？或者有什么模块可以做的？
> > _______________________________________________
> > China-pm mailing list
> > China-pm at pm.org
> > http://mail.pm.org/mailman/listinfo/china-pm
> >
> >
> 


--------------------------------------------------------------------------------


> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm