Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
linespoints.pm
Package: mrtg-2.13.2.zip [view]
Upload User: shbosideng
Upload Date: 2013-05-04
Package Size: 1555k
Code Size: 2k
Category:
SNMP
Development Platform:
C/C++
- #==========================================================================
- # Copyright (c) 1995-1998 Martien Verbruggen
- #--------------------------------------------------------------------------
- #
- # Name:
- # GIFgraph::linespoints.pm
- #
- # $Id: linespoints.pm,v 1.1.1.1 2002/02/26 10:16:37 oetiker Exp $
- #
- #==========================================================================
- package GIFgraph::linespoints;
- use strict qw(vars refs subs);
- use GIFgraph::axestype;
- use GIFgraph::lines;
- use GIFgraph::points;
- # Even though multiple inheritance is not really a good idea,
- # since lines and points have the same parent class, I will do it here,
- # because I need the functionality of the markers and the line types
- @GIFgraph::linespoints::ISA = qw( GIFgraph::lines GIFgraph::points );
- {
- sub initialise()
- {
- my $s = shift;
- $s->GIFgraph::lines::initialise();
- $s->GIFgraph::points::initialise();
- }
- # PRIVATE
- sub draw_data_set($$$) # GD::Image, @data, $ds
- {
- my $s = shift;
- my $g = shift;
- my $d = shift;
- my $ds = shift;
- $s->GIFgraph::points::draw_data_set( $g, $d, $ds );
- $s->GIFgraph::lines::draw_data_set( $g, $d, $ds );
- }
- sub draw_legend_marker($$$$) # (GD::Image, data_set_number, x, y)
- {
- my $s = shift;
- my $g = shift;
- my $n = shift;
- my $x = shift;
- my $y = shift;
- $s->GIFgraph::points::draw_legend_marker($g, $n, $x, $y);
- $s->GIFgraph::lines::draw_legend_marker($g, $n, $x, $y);
- }
- } # End of package GIFgraph::linesPoints
- 1;