Discussion :

[maxlegrand]

Bonjour,

j'ai écrit le code suivant qui me permet de générer un camembert. Le soucis que j'ai, c'est que je n'arrive pas à savoir comment ajouter une légende.
Dans le cas de courbe, je sais quelle méthode appélée mais cette méthode ne fonctionne pas pour le cas des camemberts.
Le code que j'ai écrit est le suivant :
Quelqu'un pourrait-il m'indiquer la méthode qu'il faut utilisée ?

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
 
#! usr/bin/perl -w
 
use strict;
use GD::Graph::pie;
 
my@tab = qw(Foot Tennis Badmington Rugby Natation Danse);
 
my @data = ( ["Foot", "Tennis", "Badmington", "Rugby", "Natation", "Danse"],
			 [ 60,  ,  5,  5,  20,  9,  1]);
my $graph = GD::Graph::pie->new(600,400);
$graph->set(
             start_angle => 90,
             label       => 'Sport',
             transparent => 0,
           );
$graph->set_value_font(GD::Font->Giant);
my $gd = $graph->plot(\@data);
open(PNG, '>', "camembert.png") || die "Erreur d'ecriture : $!";
binmode PNG;
print PNG $gd->png;
close PNG;

Merci

[djibril]

c'est quelle methode pour les courbes?

[djibril]

j'espere qu'on pourra me contredire, mais je pense que ce n'est pas possible. Du moment pas de méthode pour pour l'instant :
http://search.cpan.org/~bwarfield/GD...pe_graphs_only)
C'est uniquement possible pour les graph avec axes.

[maxlegrand]

j'espere qu'on pourra me contredire, mais je pense que ce n'est pas possible. Du moment pas de méthode pour pour l'instant :
http://search.cpan.org/~bwarfield/GD...pe_graphs_only)
C'est uniquement possible pour les graph avec axes.

Et en utilisant un autre module ?
Il faut impérativement que j'arrive à intégrer une légende au diagramme circulaire que je dois créer.

Merci

[djibril]

Sinon ce que je pourrais te dire s'il n'a pas de methode pour generer de legende pour les graphique circulaire, c'est de la creer toi même en creant des petits carré coloré avec ta légende, de la bidouille quoi.

[maxlegrand]

C'est ce que j'ai essayé de faire mais j'ai un soucis. J'ai crée un rectangle avec du texte mais je n'arrive pas à placer ce texte à l'extérieur
du rectangle.

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
#!usr/bin/perl -w
use strict;
use GD;
 
my $im = new GD::Image(100,100);
 
my $white = $im->colorAllocate(255,255,255);
my $black = $im->colorAllocate(0,0,0);       
my $red = $im->colorAllocate(255,0,0);
my $blue = $im->colorAllocate(0,0,255);
 
$im->transparent($white);
$im->interlaced('true');
 
$im->rectangle(0,0,99,99,$black);
 
$im->string(gdSmallFont,10,10,"rectangle",$blue);
 
$im->fill(50,50,$red);
 
open(PNG, '>', "couleur.png") || die "Erreur d'ecriture : $!";
binmode PNG;
print PNG $im->png;
close PNG;

Merci