trAvis - MANAGER

Edit File: transform.pl

#!/usr/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); binmode STDOUT; print $im->png;