deplacer la legende d'un graph genere avec tk::graph [Résolu]

[Yann-C]

Bonjour
J'utilise Tk::Graph pour generer des graphiques mais je n'ai pas trouve la methode pour declarer la legende ailleurs qu'en haut, à droite.
Y-a-t'il un moyen pour ca?

Merci

[djibril]

Bonjour,

La légende n'est affichable qu'en bas je pense. Il faut revérifier la documentation. quel est ton réel besoin. Sinon, as-tu essayé Tk::chart ?

[Yann-C]

Je souhaite creer un outil de surveillance d'un serveur qui affiche les courbes de differents compteurs.
Comme j'ai plusieurs compteurs, la legende deborde sur les courbes (cf piece jointe)
J'aurai aimé pouvoir la deplacer et les reorganiser pour avoir un graphique plus clair.

Merci

[djibril]

En effet !
Faudrait que je regarde la doc du module. Là je n'utilise que Tk::Chart qui te place la légende en bas et le graphique s'auto-redimensionne en fonction de la taille du widget. Et en plus, tu as une interactivité avec le graphique.

[djibril]

Voici un exemple de programme avec Tk::Chart qui simule une avancée de courbes :

Code :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::Chart::Lines;
 
my $mw = MainWindow->new(
  -title      => 'Tk::Chart::Lines',
  -background => 'white',
);
my $chart = $mw->Lines(
  -background => 'snow',
  -title      => 'Mon graph',
  -xlabel     => 'Axe des abscisses changeant',
  -ylabel     => 'Values',
  -linewidth  => 2,
)->pack(qw / -fill both -expand 1 /);
 
my @data = (
  [ '10', '20', '30', '40', '50', '60', '70', '80', '90' ],
  [ 1,     2,     5,     6,     3,     1.5,   1,     3,     4 ],
  [ 4,     2,     5,     2,     3,     5.5,   7,     9,     4 ],
  [ 1,     2,     52,    6,     3,     17.5,  1,     43,    10 ]
);
 
# Add a legend to the graph
my @legends = ( 'Serveur 1', 'Serveur 2', 'Serveur 3' );
$chart->set_legend(
  -title       => 'Liste des serveurs de mon graph',
  -data        => \@legends,
);
 
# Add help identification
$chart->set_balloon();
 
# Create the graph
$chart->plot( \@data );
 
# Création d'un déplacement de la courbe toutes les deux secondes
$mw->repeat( 2000, [ \&changement_courbe, \@data, ] );
 
 
MainLoop();
 
sub changement_courbe {
  my ( $ref_data) = @_;
 
  my $legende_suivante = $ref_data->[0][ scalar(@{$ref_data->[0]} -1 ) ] + 10;
  push @{ $ref_data->[0] }, $legende_suivante;
  for my $i (0..$#data) {
    shift @{ $ref_data->[$i] };
    push @{ $ref_data->[$i] }, int rand 100 if ($i != 0);          
  }
  $chart->plot( $ref_data );
  return;    
}

[Yann-C]

Salut

J'ai utilise Tk::Chart::Lines comme conseille et c'est nettement plus sympa.
D'autre part, j'ai l'impression que l'affichage est plus fluide.

Merci beaucoup