http://www.perlmonks.org?node_id=1055680


in reply to Re: Creating Pie chart based graph network
in thread Creating Pie chart based graph network

I have a file consisting of some nodes (and edges) with the coordinates of the nodes. I also need to map some data specific to the nodes that are in form of pie charts.Here is a cropped snipped of the code.

my $index = 0; if(open(FH, 'layout_coords')) { while($line = <FH>) { chomp($line); @arr = (); @arr = split('\t', $line ); my $label = $node_labels[$index]; my $x = $arr[0]; my $y = $arr[1]; my $x1 = $x + 20; my $y1 = $y + 20; $canvas->createOval($x,$y, $x1, $y1,-fill => 'green'); ## I need this +oval as a pie (I have the data for each node in form of a fixed array + like (2,3,1,3), etc.) $canvas->createText($x,$y, -text => $label); $index++; } } else { die "can't open file layout_coords: $!"; } close FH;