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