Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Fellow monks,I am using PDF::Reuse::OverlayChart to generate chart and the following code works perfectly for me, in the graph in y axis (percent) the increment is in 10, but i want 2 percent increment. Instead of 10, 20, 30 ...100 i want 2, 4, 6....100. Is it possible to achieve that through this module. I went through that documentation but i cant able to find any method to achieve this. If anyone have some idea to achieve, Please enlighten me.

use strict;
use PDF::Reuse::OverlayChart;
use PDF::Reuse;

   prFile('myFile.pdf');
   my $s = PDF::Reuse::OverlayChart->new();
   
   my $a = 52;
   my $b = 22;
   my $c = 25;
   $s->columns(qw(Status  Ahead Ontime  Delay));
   $s->add(      'Percent',     $a,    $b ,  $c);      
   #$s->color( 'bright' );
   $s->color( '0.3 0.6 0.3' );

   $s->draw(x     => 100,
            y     => 200,
            xsize => 1,
            ysize => 1,
            height=> 300,
            width => 300,
            initialMinY=>10,
            initialMaxY=>100,            
            title => 'File Status',
            yUnit => 'Percentage',
            type  => 'bars');
   prEnd();

[download]

Replies are listed 'Best First'.
Re: Question in PDF::Reuse::OverlayChart
by Scott7477 (Chaplain) on May 05, 2006 at 18:32 UTC
    I couldn't figure out how to adust the Y axis increments as you would like but I did rework the code so that it runs on Windows as follows:

    use strict;
use Win32::API;
use PDF::Reuse::OverlayChart;
use PDF::Reuse;


my $filetouse = "myfile.pdf";
   prFile($filetouse);
   my $s = PDF::Reuse::OverlayChart->new();
   
   my $a = 52;
   my $b = 22;
   my $c = 25;
   $s->columns(qw(Status  Ahead Ontime  Delay));
   $s->add(      'Percent',     $a,    $b ,  $c);      
   #$s->color( 'bright' );
    $s->color( '0.3 0.6 0.3' );

   $s->draw(x     => 100,
            y     => 200,
            xsize => 1,
            ysize => 1,
            height=> 300,
            width => 300,
            initialMinY=>10,
            initialMaxY=>100,            
            title => 'File Status',
            yUnit => 'Percentage',
            type  => 'bars');
   prEnd();


my $shellopen = new Win32::API("shell32", "ShellExecute", 
                             ['N', 'P', 'P', 'P', 'P', 'I'],
                              'N');

$shellopen->Call(0, "open", $filetouse, 0, 0, 0);

    [download]
[reply]
[d/l]

Back to Seekers of Perl Wisdom