polarzones.php

来自「一个绝对棒的报表绘图软件」· PHP 代码 · 共 71 行

<?php
require_once("../lib/phpchartdir.php");

# The data for the chart
$data = array(51, 15, 51, 40, 17, 87, 94, 21, 35, 88, 50, 60);

# The labels for the chart
$labels = array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sept",
    "Oct", "Nov", "Dec");

# Create a PolarChart object of size 400 x 420 pixels
$c = new PolarChart(400, 420);

# Set background color to a 2 pixel pattern color, with a black border and 1 pixel 3D
# border effect
$c->setBackground($c->patternColor(array(0xffffff, 0xe0e0e0), 2), 0, 1);

# Add a title to the chart using 16 pts Arial Bold Italic font. The title text is
# white (0xffffff) on 2 pixel pattern background
$textBoxObj = $c->addTitle("Chemical Concentration", "arialbi.ttf", 16, 0xffffff);
$textBoxObj->setBackground($c->patternColor(array(0x000000, 0x000080), 2));

# Set center of plot area at (200, 240) with radius 145 pixels. Set background color
# to blue (9999ff)
$c->setPlotArea(200, 240, 145, 0x9999ff);

# Color the region between radius = 40 to 80 as green (99ff99)
$radialAxisObj = $c->radialAxis();
$radialAxisObj->addZone(40, 80, 0x99ff99);

# Color the region with radius > 80 as red (ff9999)
$radialAxisObj = $c->radialAxis();
$radialAxisObj->addZone(80, 999, 0xff9999);

# Set the grid style to circular grid
$c->setGridStyle(false);

# Set the radial axis label format
$radialAxisObj = $c->radialAxis();
$radialAxisObj->setLabelFormat("{value} ppm");

# Use semi-transparent (40ffffff) label background so as not to block the data
$radialAxisObj = $c->radialAxis();
$textBoxObj = $radialAxisObj->setLabelStyle();
$textBoxObj->setBackground(0x40ffffff, 0x40000000);

# Add a legend box at (200, 30) top center aligned, using 9 pts Arial Bold font. with
# a black border.
$legendBox = $c->addLegend(200, 30, false, "arialbd.ttf", 9);
$legendBox->setAlignment(TopCenter);

# Add legend keys to represent the red/green/blue zones
$legendBox->addKey("Under-Absorp", 0x9999ff);
$legendBox->addKey("Normal", 0x99ff99);
$legendBox->addKey("Over-Absorp", 0xff9999);

# Add a blue (000080) spline line layer with line width set to 3 pixels and using
# yellow (ffff00) circles to represent the data points
$layer = $c->addSplineLineLayer($data, 0x000080);
$layer->setLineWidth(3);
$layer->setDataSymbol(CircleShape, 11, 0xffff00);

# Set the labels to the angular axis as spokes.
$angularAxisObj = $c->angularAxis();
$angularAxisObj->setLabels($labels);

# output the chart
header("Content-type: image/png");
print($c->makeChart2(PNG));
?>