Ich würde z.B. aus folgendem Chart ein JPG machen:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#!/usr/local/bin/perl -w
use strict;
use lib '../.';
use Tk;
use Tk::Graph;
my $mw = MainWindow->new;
my $data = {
'one' => 0.1,
'two' => 0.1,
'three' => 10,
};
my $ca = $mw->Graph(
-type => 'HBARS',
# -shadowdepth => 5,
-padding => [50,50,50,50],
-light => [80,50,0],
-wire => 'gray',
-bg => 'white',
-threed => 10,
)->pack(-expand => 1,
-fill => 'both');
$ca->set($data); # Auf Daten anzeigen
MainLoop;
Last edited: 2010-07-02 22:41:39 +0200 (CEST)