Discussion :

[Andr42]

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

[djibril]

Bonjour,

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

[Andr42]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :



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

[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.

[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...

[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é.

[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!!

[djibril]

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