FM / demos

/usr/share/doc/perl-GD/demos

Name	Size	Mode	Actions
brushes.pl	923	0755	edit dl rm
copies.pl	1091	0755	edit dl rm
draw_colors.pl	944	0755	edit dl rm
fills.pl	590	0755	edit dl rm
fonttest	936	0755	edit dl rm
font_list.png	22078	0644	edit dl rm
gd_example.cgi	683	0755	edit dl rm
png2jpeg.pl	563	0644	edit dl rm
polyline.pl	8848	0644	edit dl rm
polys.pl	785	0755	edit dl rm
shapes.pl	1293	0755	edit dl rm
tile.png	280	0644	edit dl rm
transform.pl	1013	0755	edit dl rm
truetype_test	864	0755	edit dl rm
ttf.pl	736	0755	edit dl rm

Edit: /usr/share/doc/perl-GD/demos/transform.pl (1013B)

#!/usr/bin/perl

use GD;
use Math::Trig;

# 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 (scale by 0.5,0.2, rotate by 0,1, move by -25,50)
#$poly->transform(0.5,0.2, 0,1, -25,50);
#$poly->scale(1.5);
$poly->rotate(deg2rad(45));
$poly->offset(50,100);
warn "blue: [", join(' ',$poly->bounds), "]";
$im->filledPolygon($poly,$blue);

$poly->rotate(deg2rad(-90));
$poly->offset(180,0);
warn "red:  [", join(' ',$poly->bounds), "]";
$im->filledPolygon($poly,$red);

binmode STDOUT;

print $im->png;

#!/usr/bin/perl use GD; use Math::Trig; # 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 (scale by 0.5,0.2, rotate by 0,1, move by -25,50) #$poly->transform(0.5,0.2, 0,1, -25,50); #$poly->scale(1.5); $poly->rotate(deg2rad(45)); $poly->offset(50,100); warn "blue: [", join(' ',$poly->bounds), "]"; $im->filledPolygon($poly,$blue); $poly->rotate(deg2rad(-90)); $poly->offset(180,0); warn "red: [", join(' ',$poly->bounds), "]"; $im->filledPolygon($poly,$red); binmode STDOUT; print $im->png;