Tk::Chart::Splines - To create lines graph as BE<eacute>zier curve. |
Tk::Chart::Splines - To create lines graph as Bézier curve.
Do not use this module. Use the Tk::Chart::Lines manpage.
You have to use Tk::Chart::Lines module and use -spline and -bezier options.
See Options for all lines graph in the Tk::Chart::Lines manpage and Options for spline lines graph in the Tk::Chart::Lines manpage
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 the Tk::Chart::Lines manpage, the Tk::Chart::FAQ manpage
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.
Tk::Chart::Splines - To create lines graph as BE<eacute>zier curve. |