Dr Bean > Tk-ForDummies-Graph-1.11 > Tk::ForDummies::Graph::Splines

Download:
Tk-ForDummies-Graph-1.11.tar.gz

Annotate this POD

View/Report Bugs
Source   Latest Release: Tk-ForDummies-Graph-1.14

NAME ^

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

SYNOPSIS ^

Do not use this module. Use Tk::ForDummies::Graph::Lines.

DESCRIPTION ^

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

See "Options for all lines graph" in Tk::ForDummies::Graph::Lines and "Options for spline lines graph" in Tk::ForDummies::Graph::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::ForDummies::Graph::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::ForDummies::Graph::Lines;

  my $mw = new MainWindow(
    -title      => 'bezier curve examples',
    -background => 'white',
  );
  my $GraphDummies = $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' );
  $GraphDummies->set_legend(
    -title       => 'Title legend',
    -data        => \@Legends,
    -titlecolors => 'blue',
  );

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

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

  MainLoop();

SEE ALSO ^

See Tk::ForDummies::Lines, Tk::ForDummies::Graph::FAQ

COPYRIGHT & LICENSE ^

Copyright 2010 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.

syntax highlighting: