Tk::Chart::Splines - To create lines graph as Bézier curve.
Do not use this module. Use Tk::Chart::Lines.
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).
#!/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 Tk::Chart::Lines, Tk::Chart::FAQ
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.
To install Tk::Chart, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Tk::Chart
CPAN shell
perl -MCPAN -e shell install Tk::Chart
For more information on module installation, please visit the detailed CPAN module installation guide.