transform.pl
上传用户:qdrechuli
上传日期:2022-08-01
资源大小:917k
文件大小:1k
- #!/usr/local/bin/perl
- use GD;
- # test scaling, translation, transformation
- $im = new GD::Image(380,225);
- $black = $im->colorAllocate(0, 0, 0);
- $white = $im->colorAllocate(255, 255, 255);
- $red = $im->colorAllocate(255, 0, 0);
- $blue = $im->colorAllocate(0,0,255);
- $yellow = $im->colorAllocate(255,250,205);
- # Create a triangle
- $poly = new GD::Polygon;
- $poly->toPt(50,50);
- $poly->toPt(100,0);
- $poly->toPt(-50,50);
- $poly->toPt(-50,-50);
- $im->filledPolygon($poly,$yellow);
- # Stretch it a bit
- $poly->scale(1.8,1.0);
- $poly->offset(100,0);
- $im->filledPolygon($poly,$red);
- # Rotate it
- $poly->transform(0.55,0.20,0.0,1,-25,50);
- $im->filledPolygon($poly,$blue);
- print $im->gif;