Sign In/My Account | View Cart

Article:		Creating Scalable Vector Graphics with Perl
Subject:
Date:		2001-10-15 21:48:39
From:		Nguyen Thai Ha


my $pi = '3.14159256'; my $pie_radius = '90'; my $pie_center_x = '150'; my $pie_center_y = '125'; my $wedge_rotation = '0'; my $legend_start = $pie_center_y + $pie_radius + 10; my $image_height = $legend_start + (20 * scalar (keys (%browsers))); # generate random hex colors for the wedges my @colors = map {join "", map { sprintf "%02x", rand(255) } (0..2) } (0..63);

Previous Message

Sponsored By:

©2010, O'Reilly Media, Inc.
(707) 827-7000 / (800) 998-9938
All trademarks and registered trademarks appearing on oreilly.com are the property of their respective owners.