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

视频捕捉/采集

开发平台:

Visual C++

  1. #!/usr/local/bin/perl
  2. use GD;
  3. $im = new GD::Image(300,300);
  4. $white = $im->colorAllocate(255, 255, 255);        
  5. $black = $im->colorAllocate(0, 0, 0);
  6. $red = $im->colorAllocate(255, 0, 0);      
  7. $blue = $im->colorAllocate(0,0,255);
  8. $yellow = $im->colorAllocate(255,250,205);
  9. # Create a flat wide rectangle paintbrush
  10. $brush = new GD::Image(10,10);
  11. $brush->colorAllocate(255,255,255); # white
  12. $brush->colorAllocate(0,0,0); # black
  13. $brush->transparent($white); # white is transparent
  14. $brush->filledRectangle(0,0,5,2,$black); # a black rectangle
  15. $im->setBrush($brush);
  16. $im->arc(100,100,100,150,0,360,gdBrushed);
  17. $poly = new GD::Polygon;
  18. $poly->addPt(30,30);
  19. $poly->addPt(100,10);
  20. $poly->addPt(190,290);
  21. $poly->addPt(30,290);
  22. $im->polygon($poly,gdBrushed);
  23. $im->fill(132,62,$blue);
  24. $im->fill(100,70,$red);
  25. $im->fill(40,40,$yellow);
  26. $im->interlaced(1);
  27. # Copy the 20,20,70,70 region
  28. # to a location at 150,150
  29. $im->copy($im,150,150,20,20,50,50);
  30. # Same thing, but doubling the size
  31. $im->copyResized($im,10,200,20,20,100,100,50,50);
  32. # print the image to stdout
  33. print $im->gif;