/ 
Tk-Chart-1.18
River stage zero No dependents
/ Tk::Chart::Splines

NAME

Tk::Chart::Splines - To create lines graph as Bézier curve.

SYNOPSIS

Do not use this module. Use Tk::Chart::Lines.

DESCRIPTION

You have to use Tk::Chart::Lines module and use -spline and -bezier options.

See "Options for all lines graph" in Tk::Chart::Lines and "Options for spline lines graph" in Tk::Chart::Lines

Be careful, a Bézier curve (http://en.wikipedia.org/wiki/Bezier_curve) does not touch all points of dataset, just the extremity points.

But, Tk::Chart::Lines allow you to create a Bézier curve crossing by all points (-bezier => 1 and -spline => 1).

EXAMPLES

 #!/usr/bin/perl
 use strict;
 use warnings;
 use Tk;
 use Tk::Chart::Lines;

 my $mw = MainWindow->new(
   -title      => 'bezier curve examples',
   -background => 'white',
 );
 my $chart = $mw->Lines(
   -title      => 'bezier curves',
   -xlabel     => 'X Label',
   -ylabel     => 'Y Label',
   -background => 'snow',
   -spline     => 1,
   -bezier     => 1,     
   -linewidth  => 2,
 )->pack(qw / -fill both -expand 1 /);
 
 my @data = (
   [ '1st', '2nd', '3rd', '4th', '5th', '6th', '7th', '8th' ],
   [ 10,    30,    20,    30,    5,     41,    1,     23 ],
   [ 10,    5,     10,    0,     17,    2,     40,    23 ],
   [ 20,    10,    12,    20,    30,    10,    35,    12 ],
 
 );

 # Add a legend to the graph
 my @legends = ( 'legend 1', 'legend 2', 'legend 3' );
 $chart->set_legend(
   -title       => 'Title legend',
   -data        => \@legends,
   -titlecolors => 'blue',
 );

 # Add help identification
 $chart->set_balloon();

 # Create the graph
 $chart->plot( \@data );

 MainLoop();

SEE ALSO

See Tk::Chart::Lines, Tk::Chart::FAQ

COPYRIGHT & LICENSE

Copyright 2011 Djibril Ousmanou, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.