Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Makefile	2.31 KB	-rw-r--r--
error.pl	179 B	-rw-r--r--
logo.png	2.76 KB	-rw-r--r--
make_index.pl	1.39 KB	-rw-r--r--
rgb.txt	16.72 KB	-rw-r--r--
sample11.pl	930 B	-rw-r--r--
sample12.pl	895 B	-rw-r--r--
sample13.pl	805 B	-rw-r--r--
sample14.pl	2.45 KB	-rw-r--r--
sample15.pl	999 B	-rw-r--r--
sample16.pl	1.22 KB	-rw-r--r--
sample17.pl	1.04 KB	-rw-r--r--
sample18.pl	3.01 KB	-rw-r--r--
sample19.pl	2.82 KB	-rw-r--r--
sample1A.pl	1.08 KB	-rw-r--r--
sample1B.pl	958 B	-rw-r--r--
sample21.pl	705 B	-rw-r--r--
sample22.pl	563 B	-rw-r--r--
sample23.pl	2.69 KB	-rw-r--r--
sample29.pl	732 B	-rw-r--r--
sample31.pl	706 B	-rw-r--r--
sample41.pl	807 B	-rw-r--r--
sample42.dat	103 B	-rw-r--r--
sample42.pl	974 B	-rw-r--r--
sample51.pl	665 B	-rw-r--r--
sample52.pl	873 B	-rw-r--r--
sample53.pl	1.25 KB	-rw-r--r--
sample54.dat	30.73 KB	-rw-r--r--
sample54.pl	1.01 KB	-rw-r--r--
sample55.pl	665 B	-rw-r--r--
sample56.pl	1.16 KB	-rw-r--r--
sample57.pl	579 B	-rw-r--r--
sample58.pl	715 B	-rw-r--r--
sample61.pl	1.33 KB	-rw-r--r--
sample62.pl	838 B	-rw-r--r--
sample63.pl	1.03 KB	-rw-r--r--
sample64.pl	1.48 KB	-rw-r--r--
sample71.pl	2.56 KB	-rw-r--r--
sample72.pl	1.04 KB	-rw-r--r--
sample91.pl	512 B	-rw-r--r--
sample92.pl	616 B	-rw-r--r--
sample93.pl	491 B	-rw-r--r--
sample94.pl	685 B	-rw-r--r--
sample95.pl	2.62 KB	-rw-r--r--
save.pl	288 B	-rw-r--r--

Code Editor : sample71.pl

use strict;
use GD::Graph::mixed;
require 'save.pl';

print STDERR "Processing sample71\n";

my @data = ( 
    ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
    [    1,    2,    5,    6,    3,  1.5,   -1,    -3,    -4],
    [   -4,   -3,    1,    1,   -3, -1.5,   -2,    -1,     0],
    [    9,    8,    9,  8.4,  7.1,  7.5,    8,     3,    -3],
    [  0.1,  0.2,  0.5,  0.4,  0.3,  0.5,  0.1,     0,   0.4],
    [ -0.1,    2,    5,    4,   -3,  2.5,  3.2,     4,    -4],
);
my ($width, $height) = (500, 400);
my $my_graph = new GD::Graph::mixed($width, $height);

$my_graph->set( 
	types => [ qw( lines bars points area linespoints ) ],
	default_type => 'points',
);

$my_graph->set(

x_label => 'X Label',
	y_label => 'Y label',
	title => 'Mixed Type and TTF',

y_max_value => 10,
	y_min_value => -5,
	y_tick_number => 3,
	y_label_skip => 1,
	x_plot_values => 1,
	y_plot_values => 1,

long_ticks => 1,
	x_ticks => 0,
	x_labels_vertical => 1,

legend_marker_width => 24,
	line_width => 3,
	marker_size => 5,

bar_spacing => 6,

legend_placement => 'RC',

transparent => 0,
);

$my_graph->set_title_font('../Dustismo_Sans.ttf', 18);
$my_graph->set_x_label_font('../Dustismo_Sans.ttf', 10);
$my_graph->set_y_label_font('../Dustismo_Sans.ttf', 10);
$my_graph->set_x_axis_font('../Dustismo_Sans.ttf', 8);
$my_graph->set_y_axis_font('../Dustismo_Sans.ttf', 8);
$my_graph->set_legend_font('../Dustismo_Sans.ttf', 9);

$my_graph->set_legend( qw( one two three four five six ) );

# Put some background text in, but only if we have TTF support

if ($my_graph->can_do_ttf)
{
    my $gd = $my_graph->gd;
    my $white = $gd->colorAllocate(255,255,255);
    my $pink = $gd->colorAllocate(255,240,240);
    my $gdta;

$gdta = GD::Text::Align->new($gd,
	text => 'GD::Graph',
	font => '../Dustismo_Sans.ttf',
	ptsize => 72,
	colour => $pink,
	valign => 'center',
	halign => 'center',
    ) or warn $gdta->error;

$gdta->draw($width/2, $height/2, atan2($height, $width));
}

$my_graph->plot(\@data);

# Use a hotspot to draw some extra text on the chart
# XXX This doesn't work nicely. Need a nicer way to get the maximum.
if (1) {
    my $gd = $my_graph->gd;
    my $red = $gd->colorResolve(255,0,0);
    my @l = $my_graph->get_hotspot(1, 3);
    my ($x, $y) = ( ($l[1] + $l[3])/2, ($l[2] + $l[4])/2 );
    my $gdta;

$gdta = GD::Text::Align->new($gd,
	text => 'maximum',
	font => ['../Dustismo_Sans.ttf', GD::Font->Small],
	ptsize => 12,
	colour => $red,
	valign => 'bottom',
	halign => 'center',
    ) or warn $gdta->error;
    
    $gdta->draw($x, $y + 2);
}

save_chart($my_graph, 'sample71');

${this.title}

Code Editor : sample71.pl