首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → 请教perl的GD模块

请教perl的GD模块

时间：2010-09-05

来源：互联网

本帖最后由 komais 于 2010-09-05 10:49 编辑
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;

  5. print "Hello, World...\n";

  7. use GD;
  8. my ($im,);
  9. open DHOUT , ">*.out.png";
  10. open DH,"*.png";

  12. $im=new GD::Image(*DH);
  13. my $red=$im->colorAllocate(255,0,0);
  14. $im->filledRectangle(203,255,849,772,$red);
  15. binmode DHOUT;
  16. print DHOUT $im->png;
  17. close DHOUT;
  18. close DH;
复制代码
在对附件里的图1 和2 标注时，为什么图1不能被标注成红色呢？？
各位大侠 求给我个解释 谢谢了

1.png (150.65 KB)

下载次数:1

2010-09-05 10:31

2.png (32.5 KB)

下载次数:1

2010-09-05 10:31

作者: komais   发布时间: 2010-09-05

以truecolor方式打开图片，再进行操作：
  1. #!/usr/bin/perl

  3. use strict;
  4. use warnings;

  6. use GD;
  7. open DHOUT , ">out.png";
  8. open DH,"1.png";
  9. my $im = newFromPng GD::Image(*DH,1);
  10. my $red=$im->colorAllocate(255,0,0);
  11. $im->filledRectangle(10,10,150,150,$red);
  12. binmode DHOUT;
  13. print DHOUT $im->png;
  14. close DHOUT;
  15. close DH;

  17. print "OK";
复制代码

作者: iamlimeng   发布时间: 2010-09-05

相关阅读 更多

热门阅读

热门下载

更多
关于本站 免责申明 联系我们

Copyright 2006-2020 php爱好者(phpfans.net) All Rights Reserved.备案号：湘ICP备2023016114号-2

本站为非盈利性网站，不接受任何广告。本站所有资源均由网友上传，如有侵权，请发邮件至 [email protected] phpfans.net