Enregistrer un graphique en image

Version imprimable

13/03/2015, 10h30
Andr42

Enregistrer un graphique en image

Bonjour,

J'ai commencé le Perl il n'a pas très longtemps.

Mon problème est le suivant : j'ai crée un graphique en Perl/Tk et j'aimerai pouvoir l’enregistrer en image (jpg, ...) pour être facilement utilisable. Je ne sais pas si c'est possible? Le but n'étant que tout ce face automatiquement.

Je vous remercie par avance de votre aide.

Si je suis pas très clair n'hésiter pas a me le dire.

Merci,
Paul
13/03/2015, 11h47
djibril

Bonjour,

Comment as-tu créé ce graphique via Perl/Tk ?

1 pièce(s) jointe(s)

Avec le module Chart, si dessous un exemple de code :

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
use strict;
  use warnings;
  use Tk;
  use Tk::Chart::Mixed;
 
  my $mw = MainWindow->new(
    -title      => 'Tk::Chart::Mixed',
    -background => 'white',
  );
 
  my @types = ( 'areas', 'bars', 'lines', 'points', 'bars', 'dashlines' );
  my $chart = $mw->Mixed(
    -title      => 'Tk::Chart::Mixed',
    -xlabel     => 'X Label',
    -ylabel     => 'Y Label',
    -background => '#D0D0FF',
    -linewidth  => 2,
    -typemixed  => \@types,
    -markers    => [ 3, 5, 6 ],
 
    -longticks => 1,
  )->pack(qw / -fill both -expand 1 /);
 
  my @data = (
    [ '1st', '2nd', '3rd', '4th', '5th', '6th', '7th', '8th', '9th' ],
    [ 90,    29,    25,    6,     -20,   1,     1,     3,     4 ],
    [ 15,    10,    5,     2,     3,     5,     7,     9,     12 ],
    [ 1,     2,     12,    6,     3,     5,     1,     23,    5 ],
    [ 15,    12,    24,    33,    19,    8,     6,     15,    21 ],
    [ 15,    2,     52,    6,     3,     17.5,  1,     43,    10 ],
    [ 30,    2,     5,     6,     3,     1.5,   1,     3,     4 ],
    [ 24,    12,    35,    20,    13,    31.5,  41,    6,     25 ],
 
  );
 
  # Add a legend to the graph
  my @legends = @types;
  $chart->set_legend(
    -title       => "Title legend",
    -data        => [ 'legend 1', 'legend 2', 'legend 3', 'legend 4', 'legend 5', 'legend 6', 'legend 7', ],
    -titlecolors => "blue",
  );
 
  # Add help identification
  $chart->set_balloon();
 
  # Create the graph
  $chart->plot( \@data );
 
  # background order wanted
  $chart->display_order( [qw/ areas lines bars  dashlines points /] );
 
  MainLoop();

Se qui donne cette fenêtre :
Pièce jointe 171621

Ce que je voudrais c'est que en même temps que le graphique s'affiche il soit enregistrer dans une image.

Je me demande aussi s'il est possible de crée le fichier image sans afficher le graphique?

Merci

13/03/2015, 13h51
djibril

Bonjour,

Tu as la réponse dans la documentation du module : Tk::Chart::FAQ (How to save graph in postscript, jpeg, png, gif format file ?).
Maintenant, si tu souhaites ne pas afficher l'image dans un widget Tk, l'utilisation du module n'a plus de sens. Autant utiliser un module ne servant qu'à la génération d'images comme GD::Graph.
13/03/2015, 15h47
Andr42

Merci, je n'ai pas vue la FAQ de Chart.

Pour l’affichage qui graphique j'aurai voulut mettre une option pour afficher ou non le graphique. Le programme pourra être exécuter de de deux manière soit "manuellement" avec une interaction graphique (choix des paramètres pour les graphes a afficher, zoom, ...) soit de manière "automatique" appelé par un autre programme qui fait plein de tests et qui viendra récupéré des infos dont les image de graphique.

Après je peut aussi faire des fonctions avec affichage => Tk::Chart ou juste image => GD::Graph mais y aura des chances de pas avoir exactement les mêmes graphes...
13/03/2015, 20h03
djibril

Le problème avec postscript de Tk, c'est la qualité de l'image qui n'est vraiment pas bonne. C'est pour cela que je préconise l'utilisation d'un autre module pour la création d'image à enregistrer.
Par contre, pour l'interaction ou l'affichage dans un widget Tk, là, Tk::Chart fonctionne très bien et est bien adapté.
17/03/2015, 13h40
Andr42

Je viens de voir qu j'ai oublier de réponde...

Je pense que je vais utilisé Tk::Chart pour l'interaction et GD::Graph pour les images.

Merci beaucoup pour l'aide!!
17/03/2015, 13h49
djibril

Je préfère que tu crées un autre post.