polys.pl
上传用户:qdrechuli
上传日期:2022-08-01
资源大小:917k
文件大小:1k
源码类别:

视频捕捉/采集

开发平台:

Visual C++

  1. #!/usr/local/bin/perl
  2. use GD;
  3. $im = new GD::Image(225,180);
  4. $black = $im->colorAllocate(0, 0, 0);
  5. $white = $im->colorAllocate(255, 255, 255);        
  6. $red = $im->colorAllocate(255, 0, 0);      
  7. $blue = $im->colorAllocate(0,0,255);
  8. $yellow = $im->colorAllocate(255,250,205);
  9. # Create a triangle
  10. $poly = new GD::Polygon;
  11. $poly->addPt(0,50);
  12. $poly->addPt(25,25);
  13. $poly->addPt(50,50);
  14. $im->filledPolygon($poly,$blue);
  15. # offset it down and to the right
  16. $poly->offset(100,100);
  17. $im->filledPolygon($poly,$red);
  18. # make it twice as wide and move it upward a bit
  19. $poly->map(50,50,100,100,10,10,110,60);
  20. $im->filledPolygon($poly,$yellow);
  21. # make it real tall
  22. $poly->map($poly->bounds,50,20,80,160);
  23. $im->filledPolygon($poly,$white);
  24. # print the image to stdout
  25. print $im->gif;