1#==========================================================================
2#			   Copyright (c) 1995-1998 Martien Verbruggen
3#--------------------------------------------------------------------------
4#
5#	Name:
6#		GIFgraph::linespoints.pm
7#
8# $Id: linespoints.pm,v 1.1.1.1 2002/02/26 10:16:37 oetiker Exp $
9#
10#==========================================================================
11
12package GIFgraph::linespoints;
13
14use strict qw(vars refs subs);
15
16use GIFgraph::axestype;
17use GIFgraph::lines;
18use GIFgraph::points;
19
20# Even though multiple inheritance is not really a good idea,
21# since lines and points have the same parent class, I will do it here,
22# because I need the functionality of the markers and the line types
23
24@GIFgraph::linespoints::ISA = qw( GIFgraph::lines GIFgraph::points );
25
26{
27	sub initialise()
28	{
29		my $s = shift;
30
31		$s->GIFgraph::lines::initialise();
32		$s->GIFgraph::points::initialise();
33	}
34
35	# PRIVATE
36
37	sub draw_data_set($$$) # GD::Image, \@data, $ds
38	{
39		my $s = shift;
40		my $g = shift;
41		my $d = shift;
42		my $ds = shift;
43
44		$s->GIFgraph::points::draw_data_set( $g, $d, $ds );
45		$s->GIFgraph::lines::draw_data_set( $g, $d, $ds );
46	}
47
48	sub draw_legend_marker($$$$) # (GD::Image, data_set_number, x, y)
49	{
50		my $s = shift;
51		my $g = shift;
52		my $n = shift;
53		my $x = shift;
54		my $y = shift;
55
56		$s->GIFgraph::points::draw_legend_marker($g, $n, $x, $y);
57		$s->GIFgraph::lines::draw_legend_marker($g, $n, $x, $y);
58	}
59
60} # End of package GIFgraph::linesPoints
61
621;
63