#! /usr/bin/perl
use LaTeX::PGF::Diagram2D;
my $mp = "	1	2
		2	2
		3	2
		4	2
		5	4
		6	6
		7	6
		8	6
		9	6
		";
my $d = LaTeX::PGF::Diagram2D->new(10, 8);

$d->set_font_size(12.0);

$d->axis('b')->set_linear(0.0, 10.0)->set_grid_step(1.0)
	     ->set_tic_step(1.0)->set_label('\\(x\\)');
$d->axis('l')->set_linear(0.0,  8.0)->set_grid_step(1.0)
	     ->set_tic_step(1.0)->set_label('\\(y\\)');

my $p = $d->plot('b', 'l');
$p->set_xy_points_text($mp);

my $q = $d->copy_plot($p);
$q->set_dots();

$d->write("test018a.pgf");