fig21_01.pl

PERL语言资料 可以用于PERL程序设计

#!/usr/bin/perl
# Fig 21.1: fig21_01.pl
# Using the GD module to create shapes.

use strict;
use warnings;
use GD;

my $image = new GD::Image( 320, 320 );

my $white = $image->colorAllocate( 255, 255, 255 );
my $red = $image->colorAllocate( 255, 0, 0 );
my $green = $image->colorAllocate( 0, 255, 0 );
my $blue = $image->colorAllocate( 0, 0, 255 );
my $black = $image->colorAllocate( 0, 0, 0 );
my $purple = $image->colorAllocate( 255, 0, 255 );

$image->filledRectangle( 15, 15, 150, 150, $red );
$image->arc( 200, 200, 50, 50, 0, 360, $black );
$image->fill( 200, 200, $blue );
$image->rectangle( 100, 100, 200, 125, $green );
$image->fillToBorder( 150, 110, $green, $green );

my $polygon = new GD::Polygon();
$polygon->addPt( 20, 300 );
$polygon->addPt( 20, 175 );
$polygon->addPt( 100, 175 );

$image->polygon( $polygon, $blue );
$image->fill( 50, 200, $purple );

$polygon->setPt( 0, 30, 300 );
$polygon->setPt( 1, 110, 300 );
$polygon->setPt( 2, 110, 175 );

$image->filledPolygon( $polygon, $black );

open( PICT, ">fig21_02.png" ) or 
   die( "Can not open picture: $!" );

binmode( PICT );
print( PICT $image->png() );
close( PICT ) or die( "Can not close file: $!" );

###########################################################################
#  (C) Copyright 2001 by Deitel & Associates, Inc. and Prentice Hall.     #
#  All Rights Reserved.                                                   #
#                                                                         #
#  DISCLAIMER: The authors and publisher of this book have used their     #
#  best efforts in preparing the book. These efforts include the          #
#  development, research, and testing of the theories and programs        #
#  to determine their effectiveness. The authors and publisher make       #
#  no warranty of any kind, expressed or implied, with regard to these    #
#  programs or to the documentation contained in these books. The authors #
#  and publisher shall not be liable in any event for incidental or       #
#  consequential damages in connection with, or arising out of, the       #
#  furnishing, performance, or use of these programs.                     #
###########################################################################