ASE Home Page Products Download Purchase Support About ASE
ChartDirector Support
 Forum HomeForum Home   SearchSearch

Message ListMessage List     Post MessagePost Message

  PlotArea line
Posted by vijay on Mar-09-2011 05:19
| Reply | Monitor
Attachments:
Hi,

We are unable to find options to remove plotarea surrounding line when we execute below code. Please suggest solution. Please refer attachment.

#!/usr/bin/perl
use perlchartdir;

       # The data for the bar chart
        my @data = (0.5, 10, 13, 1, 9, 1, 3,5,2,8,10,4,13,4,5,8,2,9,10,1,18,19,0.1);

        my $data_ref = \\@data;

        # The labels for the bar chart
        my $labels = ["1", "2", "3", "4", "5", "6", "7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23"];

        my $c = new XYChart(400, 230,0xffff0000, 0xffff0000, 0);

        $c->addTitle("PERCENTAGE OF SALES PER HOUR", "timesbi.ttf", 8);

        $c->setPlotArea(5,5, 350, 200, 0xFF000000 ,
                -1,-1,
                0xff000000,0xff000000);

        $c->setRoundedFrame(0xffffff, 20);

        my $layer = $c->addBarLayer($data_ref,0xF69898);

        $layer->setBarShape($perlchartdir::SquareShape);

        $layer->setAggregateLabelFormat("{value}%");

        $layer->setAggregateLabelStyle("timesbi.ttf", 10, $perlchartdir::Transparent);

        $c->xAxis()->setLabels($labels);

        # Set y-axes to transparent
        $c->yAxis()->setColors($perlchartdir::Transparent, $perlchartdir::Transparent);

        # Disable ticks on the x-axis by setting the tick color to transparent
        $c->xAxis()->setTickColor(0xF7F1F1);

        # Set the label styles of all axes to 8pt Arial Bold font
        $c->xAxis()->setLabelStyle("arialbd.ttf", 8);

# Output the chart
$c->makeChart("cylinderlightbar1.jpg")
Chart_Bar_issue.png

  Re: PlotArea line
Posted by vijay on Mar-09-2011 05:24
| Reply | Monitor
Thanks . We were able to solve it.