function __construct($aDir, $aPattern, $aMin, $aMax, $aColor = "black", $aWeight = 1, $aDepth = DEPTH_BACK)
{
$f = new RectPatternFactory();
$this->prect = $f->Create($aPattern, $aColor, $aWeight);
if (is_numeric($aMin) && is_numeric($aMax) && $aMin > $aMax) {
JpGraphError::RaiseL(16004);
}
//('Min value for plotband is larger than specified max value. Please correct.');
$this->dir = $aDir;
$this->min = $aMin;
$this->max = $aMax;
$this->depth = $aDepth;
}
function Stroke(&$aImg)
{
// Constant
$fillBoxFrameWeight = 1;
if ($this->hide) {
return;
}
$aImg->SetFont($this->font_family, $this->font_style, $this->font_size);
if ($this->reverse) {
$this->txtcol = array_reverse($this->txtcol);
}
$n = count($this->txtcol);
if ($n == 0) {
return;
}
// Find out the max width and height of each column to be able
// to size the legend box.
$numcolumns = $n > $this->layout_n ? $this->layout_n : $n;
for ($i = 0; $i < $numcolumns; ++$i) {
$colwidth[$i] = $aImg->GetTextWidth($this->txtcol[$i][0]) + 2 * $this->xmargin + 2 * $this->mark_abs_hsize;
$colheight[$i] = 0;
}
// Find our maximum height in each row
$rows = 0;
$rowheight[0] = 0;
for ($i = 0; $i < $n; ++$i) {
$h = max($this->mark_abs_vsize, $aImg->GetTextHeight($this->txtcol[$i][0])) + $this->ymargin;
if ($i % $numcolumns == 0) {
$rows++;
$rowheight[$rows - 1] = 0;
}
$rowheight[$rows - 1] = max($rowheight[$rows - 1], $h);
}
$abs_height = 0;
for ($i = 0; $i < $rows; ++$i) {
$abs_height += $rowheight[$i];
}
// Make sure that the height is at least as high as mark size + ymargin
$abs_height = max($abs_height, $this->mark_abs_vsize);
// We add 3 extra pixels height to compensate for the difficult in
// calculating font height
$abs_height += $this->ymargin + 3;
// Find out the maximum width in each column
for ($i = $numcolumns; $i < $n; ++$i) {
$colwidth[$i % $numcolumns] = max($aImg->GetTextWidth($this->txtcol[$i][0]) + 2 * $this->xmargin + 2 * $this->mark_abs_hsize, $colwidth[$i % $numcolumns]);
}
// Get the total width
$mtw = 0;
for ($i = 0; $i < $numcolumns; ++$i) {
$mtw += $colwidth[$i];
}
// Find out maximum width we need for legend box
$abs_width = $mtw + $this->xlmargin;
if ($this->xabspos === -1 && $this->yabspos === -1) {
$this->xabspos = $this->xpos * $aImg->width;
$this->yabspos = $this->ypos * $aImg->height;
}
// Positioning of the legend box
if ($this->halign == "left") {
$xp = $this->xabspos;
} elseif ($this->halign == "center") {
$xp = $this->xabspos - $abs_width / 2;
} else {
$xp = $aImg->width - $this->xabspos - $abs_width;
}
$yp = $this->yabspos;
if ($this->valign == "center") {
$yp -= $abs_height / 2;
} elseif ($this->valign == "bottom") {
$yp -= $abs_height;
}
// Stroke legend box
$aImg->SetColor($this->color);
$aImg->SetLineWeight($this->frameweight);
$aImg->SetLineStyle('solid');
if ($this->shadow) {
$aImg->ShadowRectangle($xp, $yp, $xp + $abs_width + $this->shadow_width, $yp + $abs_height + $this->shadow_width, $this->fill_color, $this->shadow_width, $this->shadow_color);
} else {
$aImg->SetColor($this->fill_color);
$aImg->FilledRectangle($xp, $yp, $xp + $abs_width, $yp + $abs_height);
$aImg->SetColor($this->color);
$aImg->Rectangle($xp, $yp, $xp + $abs_width, $yp + $abs_height);
}
// x1,y1 is the position for the legend mark
$x1 = $xp + $this->mark_abs_hsize + $this->xlmargin;
$y1 = $yp + $this->ymargin;
$f2 = round($aImg->GetTextHeight('X') / 2);
$grad = new Gradient($aImg);
$patternFactory = null;
// Now stroke each legend in turn
// Each plot has added the following information to the legend
// p[0] = Legend text
// p[1] = Color,
// p[2] = For markers a reference to the PlotMark object
// p[3] = For lines the line style, for gradient the negative gradient style
// p[4] = CSIM target
// p[5] = CSIM Alt text
$i = 1;
$row = 0;
foreach ($this->txtcol as $p) {
// STROKE DEBUG BOX
if (_JPG_DEBUG) {
$aImg->SetLineWeight(1);
$aImg->SetColor('red');
$aImg->SetLineStyle('solid');
$aImg->Rectangle($xp, $y1, $xp + $abs_width, $y1 + $rowheight[$row]);
}
$aImg->SetLineWeight($this->weight);
$x1 = round($x1);
$y1 = round($y1);
if ($p[2] != "" && $p[2]->GetType() > -1) {
// Make a plot mark legend
$aImg->SetColor($p[1]);
if (is_string($p[3]) || $p[3] > 0) {
$aImg->SetLineStyle($p[3]);
$aImg->StyleLine($x1 - $this->mark_abs_hsize, $y1 + $f2, $x1 + $this->mark_abs_hsize, $y1 + $f2);
}
// Stroke a mark with the standard size
// (As long as it is not an image mark )
if ($p[2]->GetType() != MARK_IMG) {
$p[2]->iFormatCallback = '';
// Since size for circles is specified as the radius
// this means that we must half the size to make the total
// width behave as the other marks
if ($p[2]->GetType() == MARK_FILLEDCIRCLE || $p[2]->GetType() == MARK_CIRCLE) {
$p[2]->SetSize(min($this->mark_abs_vsize, $this->mark_abs_hsize) / 2);
$p[2]->Stroke($aImg, $x1, $y1 + $f2);
} else {
$p[2]->SetSize(min($this->mark_abs_vsize, $this->mark_abs_hsize));
$p[2]->Stroke($aImg, $x1, $y1 + $f2);
}
}
} elseif ($p[2] != "" && (is_string($p[3]) || $p[3] > 0)) {
// Draw a styled line
$aImg->SetColor($p[1]);
$aImg->SetLineStyle($p[3]);
$aImg->StyleLine($x1 - 1, $y1 + $f2, $x1 + $this->mark_abs_hsize, $y1 + $f2);
$aImg->StyleLine($x1 - 1, $y1 + $f2 + 1, $x1 + $this->mark_abs_hsize, $y1 + $f2 + 1);
} else {
// Draw a colored box
$color = $p[1];
// We make boxes slightly larger to better show
$boxsize = min($this->mark_abs_vsize, $this->mark_abs_hsize) + 2;
$ym = round($y1 + $f2 - $boxsize / 2);
// We either need to plot a gradient or a
// pattern. To differentiate we use a kludge.
// Patterns have a p[3] value of < -100
if ($p[3] < -100) {
// p[1][0] == iPattern, p[1][1] == iPatternColor, p[1][2] == iPatternDensity
if ($patternFactory == null) {
$patternFactory = new RectPatternFactory();
}
$prect = $patternFactory->Create($p[1][0], $p[1][1], 1);
$prect->SetBackground($p[1][3]);
$prect->SetDensity($p[1][2] + 1);
$prect->SetPos(new Rectangle($x1, $ym, $boxsize, $boxsize));
$prect->Stroke($aImg);
$prect = null;
} else {
if (is_array($color) && count($color) == 2) {
// The client want a gradient color
$grad->FilledRectangle($x1, $ym, $x1 + $boxsize, $ym + $boxsize, $color[0], $color[1], -$p[3]);
} else {
$aImg->SetColor($p[1]);
$aImg->FilledRectangle($x1, $ym, $x1 + $boxsize, $ym + $boxsize);
}
$aImg->SetColor($this->color);
$aImg->SetLineWeight($fillBoxFrameWeight);
$aImg->Rectangle($x1, $ym, $x1 + $boxsize, $ym + $boxsize);
}
}
$aImg->SetColor($this->font_color);
$aImg->SetFont($this->font_family, $this->font_style, $this->font_size);
$aImg->SetTextAlign("left", "top");
$aImg->StrokeText(round($x1 + $this->mark_abs_hsize + $this->xmargin), $y1, $p[0]);
// Add CSIM for Legend if defined
if ($p[4] != "") {
$xe = $x1 + $this->xmargin + $this->mark_abs_hsize + $aImg->GetTextWidth($p[0]);
$ye = $y1 + max($this->mark_abs_vsize, $aImg->GetTextHeight($p[0]));
$coords = "{$x1},{$y1},{$xe},{$y1},{$xe},{$ye},{$x1},{$ye}";
if (!empty($p[4])) {
$this->csimareas .= "<area shape=\"poly\" coords=\"{$coords}\" href=\"" . $p[4] . "\"";
if (!empty($p[5])) {
$tmp = sprintf($p[5], $p[0]);
$this->csimareas .= " title=\"{$tmp}\"";
}
$this->csimareas .= " alt=\"\" />\n";
}
}
if ($i >= $this->layout_n) {
$x1 = $xp + $this->mark_abs_hsize + $this->xlmargin;
$y1 += $rowheight[$row++];
$i = 1;
} else {
$x1 += $colwidth[($i - 1) % $numcolumns];
++$i;
}
}
}
public function Stroke($img, $xscale, $yscale)
{
$numpoints = count($this->coords[0]);
if (isset($this->coords[1])) {
if (count($this->coords[1]) != $numpoints) {
Util\JpGraphError::RaiseL(2003, count($this->coords[1]), $numpoints);
//"Number of X and Y points are not equal. Number of X-points:".count($this->coords[1])."Number of Y-points:$numpoints");
} else {
$exist_x = true;
}
} else {
$exist_x = false;
}
$numbars = count($this->coords[0]);
// Use GetMinVal() instead of scale[0] directly since in the case
// of log scale we get a correct value. Log scales will have negative
// values for values < 1 while still not representing negative numbers.
if ($yscale->GetMinVal() >= 0) {
$zp = $yscale->scale_abs[0];
} else {
$zp = $yscale->Translate(0);
}
if ($this->abswidth > -1) {
$abswidth = $this->abswidth;
} else {
$abswidth = round($this->width * $xscale->scale_factor, 0);
}
// Count pontetial pattern array to avoid doing the count for each iteration
if (is_array($this->iPattern)) {
$np = count($this->iPattern);
}
$grad = null;
for ($i = 0; $i < $numbars; ++$i) {
// If value is NULL, or 0 then don't draw a bar at all
if ($this->coords[0][$i] === null || $this->coords[0][$i] === '') {
continue;
}
if ($exist_x) {
$x = $this->coords[1][$i];
} else {
$x = $i;
}
$x = $xscale->Translate($x);
// Comment Note: This confuses the positioning when using acc together with
// grouped bars. Workaround for fixing #191
/*
if( !$xscale->textscale ) {
if($this->align=="center")
$x -= $abswidth/2;
elseif($this->align=="right")
$x -= $abswidth;
}
*/
// Stroke fill color and fill gradient
$pts = array($x, $zp, $x, $yscale->Translate($this->coords[0][$i]), $x + $abswidth, $yscale->Translate($this->coords[0][$i]), $x + $abswidth, $zp);
if ($this->grad) {
if ($grad === null) {
$grad = new Gradient($img);
}
if (is_array($this->grad_fromcolor)) {
// The first argument (grad_fromcolor) can be either an array or a single color. If it is an array
// then we have two choices. It can either a) be a single color specified as an RGB triple or it can be
// an array to specify both (from, to style) for each individual bar. The way to know the difference is
// to investgate the first element. If this element is an integer [0,255] then we assume it is an RGB
// triple.
$ng = count($this->grad_fromcolor);
if ($ng === 3) {
if (is_numeric($this->grad_fromcolor[0]) && $this->grad_fromcolor[0] > 0 && $this->grad_fromcolor[0] < 256) {
// RGB Triple
$fromcolor = $this->grad_fromcolor;
$tocolor = $this->grad_tocolor;
$style = $this->grad_style;
} else {
$fromcolor = $this->grad_fromcolor[$i % $ng][0];
$tocolor = $this->grad_fromcolor[$i % $ng][1];
$style = $this->grad_fromcolor[$i % $ng][2];
}
} else {
$fromcolor = $this->grad_fromcolor[$i % $ng][0];
$tocolor = $this->grad_fromcolor[$i % $ng][1];
$style = $this->grad_fromcolor[$i % $ng][2];
}
$grad->FilledRectangle($pts[2], $pts[3], $pts[6], $pts[7], $fromcolor, $tocolor, $style);
} else {
$grad->FilledRectangle($pts[2], $pts[3], $pts[6], $pts[7], $this->grad_fromcolor, $this->grad_tocolor, $this->grad_style);
}
} elseif (!empty($this->fill_color)) {
if (is_array($this->fill_color)) {
$img->PushColor($this->fill_color[$i % count($this->fill_color)]);
} else {
$img->PushColor($this->fill_color);
}
$img->FilledPolygon($pts);
$img->PopColor();
}
/////////////////////////kokorahen rectangle polygon//////////////////////
// Remember value of this bar
$val = $this->coords[0][$i];
if (!empty($val) && !is_numeric($val)) {
Util\JpGraphError::RaiseL(2004, $i, $val);
//'All values for a barplot must be numeric. You have specified value['.$i.'] == \''.$val.'\'');
}
// Determine the shadow
if ($this->bar_shadow && $val != 0) {
$ssh = $this->bar_shadow_hsize;
$ssv = $this->bar_shadow_vsize;
// Create points to create a "upper-right" shadow
if ($val > 0) {
$sp[0] = $pts[6];
$sp[1] = $pts[7];
$sp[2] = $pts[4];
$sp[3] = $pts[5];
$sp[4] = $pts[2];
$sp[5] = $pts[3];
$sp[6] = $pts[2] + $ssh;
$sp[7] = $pts[3] - $ssv;
$sp[8] = $pts[4] + $ssh;
$sp[9] = $pts[5] - $ssv;
$sp[10] = $pts[6] + $ssh;
$sp[11] = $pts[7] - $ssv;
} elseif ($val < 0) {
$sp[0] = $pts[4];
$sp[1] = $pts[5];
$sp[2] = $pts[6];
$sp[3] = $pts[7];
$sp[4] = $pts[0];
$sp[5] = $pts[1];
$sp[6] = $pts[0] + $ssh;
$sp[7] = $pts[1] - $ssv;
$sp[8] = $pts[6] + $ssh;
$sp[9] = $pts[7] - $ssv;
$sp[10] = $pts[4] + $ssh;
$sp[11] = $pts[5] - $ssv;
}
if (is_array($this->bar_shadow_color)) {
$numcolors = count($this->bar_shadow_color);
if ($numcolors == 0) {
Util\JpGraphError::RaiseL(2005);
//('You have specified an empty array for shadow colors in the bar plot.');
}
$img->PushColor($this->bar_shadow_color[$i % $numcolors]);
} else {
$img->PushColor($this->bar_shadow_color);
}
$img->FilledPolygon($sp);
$img->PopColor();
} elseif ($this->bar_3d && $val != 0) {
// Determine the 3D
$ssh = $this->bar_3d_hsize;
$ssv = $this->bar_3d_vsize;
// Create points to create a "upper-right" shadow
if ($val > 0) {
$sp1[0] = $pts[6];
$sp1[1] = $pts[7];
$sp1[2] = $pts[4];
$sp1[3] = $pts[5];
$sp1[4] = $pts[4] + $ssh;
$sp1[5] = $pts[5] - $ssv;
$sp1[6] = $pts[6] + $ssh;
$sp1[7] = $pts[7] - $ssv;
$sp2[0] = $pts[4];
$sp2[1] = $pts[5];
$sp2[2] = $pts[2];
$sp2[3] = $pts[3];
$sp2[4] = $pts[2] + $ssh;
$sp2[5] = $pts[3] - $ssv;
$sp2[6] = $pts[4] + $ssh;
$sp2[7] = $pts[5] - $ssv;
} elseif ($val < 0) {
$sp1[0] = $pts[4];
$sp1[1] = $pts[5];
$sp1[2] = $pts[6];
$sp1[3] = $pts[7];
$sp1[4] = $pts[6] + $ssh;
$sp1[5] = $pts[7] - $ssv;
$sp1[6] = $pts[4] + $ssh;
$sp1[7] = $pts[5] - $ssv;
$sp2[0] = $pts[6];
$sp2[1] = $pts[7];
$sp2[2] = $pts[0];
$sp2[3] = $pts[1];
$sp2[4] = $pts[0] + $ssh;
$sp2[5] = $pts[1] - $ssv;
$sp2[6] = $pts[6] + $ssh;
$sp2[7] = $pts[7] - $ssv;
}
$base_color = $this->fill_color;
$img->PushColor($base_color . ':0.7');
$img->FilledPolygon($sp1);
$img->PopColor();
$img->PushColor($base_color . ':1.1');
$img->FilledPolygon($sp2);
$img->PopColor();
}
// Stroke the pattern
if (is_array($this->iPattern)) {
$f = new RectPatternFactory();
if (is_array($this->iPatternColor)) {
$pcolor = $this->iPatternColor[$i % $np];
} else {
$pcolor = $this->iPatternColor;
}
$prect = $f->Create($this->iPattern[$i % $np], $pcolor, 1);
$prect->SetDensity($this->iPatternDensity[$i % $np]);
if ($val < 0) {
$rx = $pts[0];
$ry = $pts[1];
} else {
$rx = $pts[2];
$ry = $pts[3];
}
$width = abs($pts[4] - $pts[0]) + 1;
$height = abs($pts[1] - $pts[3]) + 1;
$prect->SetPos(new Rectangle($rx, $ry, $width, $height));
$prect->Stroke($img);
} else {
if ($this->iPattern > -1) {
$f = new RectPatternFactory();
$prect = $f->Create($this->iPattern, $this->iPatternColor, 1);
$prect->SetDensity($this->iPatternDensity);
if ($val < 0) {
$rx = $pts[0];
$ry = $pts[1];
} else {
$rx = $pts[2];
$ry = $pts[3];
}
$width = abs($pts[4] - $pts[0]) + 1;
$height = abs($pts[1] - $pts[3]) + 1;
$prect->SetPos(new Rectangle($rx, $ry, $width, $height));
$prect->Stroke($img);
}
}
// Stroke the outline of the bar
if (is_array($this->color)) {
$img->SetColor($this->color[$i % count($this->color)]);
} else {
$img->SetColor($this->color);
}
$pts[] = $pts[0];
$pts[] = $pts[1];
if ($this->weight > 0) {
$img->SetLineWeight($this->weight);
$img->Polygon($pts);
}
// Determine how to best position the values of the individual bars
$x = $pts[2] + ($pts[4] - $pts[2]) / 2;
$this->value->SetMargin(5);
if ($this->valuepos == 'top') {
$y = $pts[3];
if ($img->a === 90) {
if ($val < 0) {
$this->value->SetAlign('right', 'center');
} else {
$this->value->SetAlign('left', 'center');
}
} else {
if ($val < 0) {
$this->value->SetMargin(-5);
$y = $pts[1];
$this->value->SetAlign('center', 'bottom');
} else {
$this->value->SetAlign('center', 'bottom');
}
}
$this->value->Stroke($img, $val, $x, $y);
} elseif ($this->valuepos == 'max') {
$y = $pts[3];
if ($img->a === 90) {
if ($val < 0) {
$this->value->SetAlign('left', 'center');
} else {
$this->value->SetAlign('right', 'center');
}
} else {
if ($val < 0) {
$this->value->SetAlign('center', 'bottom');
} else {
$this->value->SetAlign('center', 'top');
}
}
$this->value->SetMargin(-5);
$this->value->Stroke($img, $val, $x, $y);
} elseif ($this->valuepos == 'center') {
$y = ($pts[3] + $pts[1]) / 2;
$this->value->SetAlign('center', 'center');
$this->value->SetMargin(0);
$this->value->Stroke($img, $val, $x, $y);
} elseif ($this->valuepos == 'bottom' || $this->valuepos == 'min') {
$y = $pts[1];
if ($img->a === 90) {
if ($val < 0) {
$this->value->SetAlign('right', 'center');
} else {
$this->value->SetAlign('left', 'center');
}
}
$this->value->SetMargin(3);
$this->value->Stroke($img, $val, $x, $y);
} else {
Util\JpGraphError::RaiseL(2006, $this->valuepos);
//'Unknown position for values on bars :'.$this->valuepos);
}
// Create the client side image map
$rpts = $img->ArrRotate($pts);
$csimcoord = round($rpts[0]) . ", " . round($rpts[1]);
for ($j = 1; $j < 4; ++$j) {
$csimcoord .= ", " . round($rpts[2 * $j]) . ", " . round($rpts[2 * $j + 1]);
}
if (!empty($this->csimtargets[$i])) {
$this->csimareas .= '<area shape="poly" coords="' . $csimcoord . '" ';
$this->csimareas .= " href=\"" . htmlentities($this->csimtargets[$i]) . "\"";
if (!empty($this->csimwintargets[$i])) {
$this->csimareas .= " target=\"" . $this->csimwintargets[$i] . "\" ";
}
$sval = '';
if (!empty($this->csimalts[$i])) {
$sval = sprintf($this->csimalts[$i], $this->coords[0][$i]);
$this->csimareas .= " title=\"{$sval}\" alt=\"{$sval}\" ";
}
$this->csimareas .= " />\n";
}
}
return true;
}
function Stroke($aImg, $aScale)
{
$factory = new RectPatternFactory();
$prect = $factory->Create($this->iPattern, $this->iPatternColor);
$prect->SetDensity($this->iPatternDensity);
// If height factor is specified as a float between 0,1 then we take it as meaning
// percetage of the scale width between horizontal line.
// If it is an integer > 1 we take it to mean the absolute height in pixels
if ($this->iHeightFactor > -0.0 && $this->iHeightFactor <= 1.1) {
$vs = $aScale->GetVertSpacing() * $this->iHeightFactor;
} elseif (is_int($this->iHeightFactor) && $this->iHeightFactor > 2 && $this->iHeightFactor < 200) {
$vs = $this->iHeightFactor;
} else {
JpGraphError::RaiseL(6028, $this->iHeightFactor);
}
//("Specified height (".$this->iHeightFactor.") for gantt bar is out of range.");
// Clip date to min max dates to show
$st = $aScale->NormalizeDate($this->iStart);
$en = $aScale->NormalizeDate($this->iEnd);
$limst = max($st, $aScale->iStartDate);
$limen = min($en, $aScale->iEndDate);
$xt = round($aScale->TranslateDate($limst));
$xb = round($aScale->TranslateDate($limen));
$yt = round($aScale->TranslateVertPos($this->iVPos) - $vs - ($aScale->GetVertSpacing() / 2 - $vs / 2));
$yb = round($aScale->TranslateVertPos($this->iVPos) - ($aScale->GetVertSpacing() / 2 - $vs / 2));
$middle = round($yt + ($yb - $yt) / 2);
$this->StrokeActInfo($aImg, $aScale, $middle);
// CSIM for title
if (!empty($this->title->csimtarget)) {
$colwidth = $this->title->GetColWidth($aImg);
$colstarts = array();
$aScale->actinfo->GetColStart($aImg, $colstarts, true);
$n = min(count($colwidth), count($this->title->csimtarget));
for ($i = 0; $i < $n; ++$i) {
$title_xt = $colstarts[$i];
$title_xb = $title_xt + $colwidth[$i];
$coords = "{$title_xt},{$yt},{$title_xb},{$yt},{$title_xb},{$yb},{$title_xt},{$yb}";
if (!empty($this->title->csimtarget[$i])) {
$this->csimarea .= "<area shape=\"poly\" coords=\"{$coords}\" href=\"" . $this->title->csimtarget[$i] . "\"";
if (!empty($this->title->csimwintarget[$i])) {
$this->csimarea .= "target=\"" . $this->title->csimwintarget[$i] . "\" ";
}
if (!empty($this->title->csimalt[$i])) {
$tmp = $this->title->csimalt[$i];
$this->csimarea .= " title=\"{$tmp}\" alt=\"{$tmp}\" ";
}
$this->csimarea .= " />\n";
}
}
}
// Check if the bar is totally outside the current scale range
if ($en < $aScale->iStartDate || $st > $aScale->iEndDate) {
return;
}
// Remember the positions for the bar
$this->SetConstrainPos($xt, $yt, $xb, $yb);
$prect->ShowFrame(false);
$prect->SetBackground($this->iFillColor);
if ($this->iShadow) {
$aImg->SetColor($this->iFrameColor);
$aImg->ShadowRectangle($xt, $yt, $xb, $yb, $this->iFillColor, $this->iShadowWidth, $this->iShadowColor);
$prect->SetPos(new Rectangle($xt + 1, $yt + 1, $xb - $xt - $this->iShadowWidth - 2, $yb - $yt - $this->iShadowWidth - 2));
$prect->Stroke($aImg);
} else {
$prect->SetPos(new Rectangle($xt, $yt, $xb - $xt + 1, $yb - $yt + 1));
$prect->Stroke($aImg);
$aImg->SetColor($this->iFrameColor);
$aImg->Rectangle($xt, $yt, $xb, $yb);
}
// CSIM for bar
if (!empty($this->csimtarget)) {
$coords = "{$xt},{$yt},{$xb},{$yt},{$xb},{$yb},{$xt},{$yb}";
$this->csimarea .= "<area shape=\"poly\" coords=\"{$coords}\" href=\"" . $this->csimtarget . "\"";
if (!empty($this->csimwintarget)) {
$this->csimarea .= " target=\"" . $this->csimwintarget . "\" ";
}
if ($this->csimalt != '') {
$tmp = $this->csimalt;
$this->csimarea .= " title=\"{$tmp}\" alt=\"{$tmp}\" ";
}
$this->csimarea .= " />\n";
}
// Draw progress bar inside activity bar
if ($this->progress->iProgress > 0) {
$xtp = $aScale->TranslateDate($st);
$xbp = $aScale->TranslateDate($en);
$len = ($xbp - $xtp) * $this->progress->iProgress;
$endpos = $xtp + $len;
if ($endpos > $xt) {
// Take away the length of the progress that is not visible (before the start date)
$len -= $xt - $xtp;
// Is the the progress bar visible after the start date?
if ($xtp < $xt) {
$xtp = $xt;
}
// Make sure that the progess bar doesn't extend over the end date
if ($xtp + $len - 1 > $xb) {
$len = $xb - $xtp;
}
$prog = $factory->Create($this->progress->iPattern, $this->progress->iColor);
$prog->SetDensity($this->progress->iDensity);
$prog->SetBackground($this->progress->iFillColor);
$barheight = $yb - $yt + 1;
if ($this->iShadow) {
$barheight -= $this->iShadowWidth;
}
$progressheight = floor($barheight * $this->progress->iHeight);
$marg = ceil(($barheight - $progressheight) / 2);
$pos = new Rectangle($xtp, $yt + $marg, $len, $barheight - 2 * $marg);
$prog->SetPos($pos);
$prog->Stroke($aImg);
}
}
// We don't plot the end mark if the bar has been capped
if ($limst == $st) {
$y = $middle;
// We treat the RIGHT and LEFT triangle mark a little bi
// special so that these marks are placed right under the
// bar.
if ($this->leftMark->GetType() == MARK_LEFTTRIANGLE) {
$y = $yb;
}
$this->leftMark->Stroke($aImg, $xt, $y);
}
if ($limen == $en) {
$y = $middle;
// We treat the RIGHT and LEFT triangle mark a little bi
// special so that these marks are placed right under the
// bar.
if ($this->rightMark->GetType() == MARK_RIGHTTRIANGLE) {
$y = $yb;
}
$this->rightMark->Stroke($aImg, $xb, $y);
$margin = $this->iCaptionMargin;
if ($this->rightMark->show) {
$margin += $this->rightMark->GetWidth();
}
$this->caption->Stroke($aImg, $xb + $margin, $middle);
}
}
function Stroke(&$img, &$xscale, &$yscale)
{
$pattern = NULL;
$img->SetLineWeight($this->weight);
for ($i = 0; $i < $this->numpoints - 1; $i++) {
$accy = 0;
$accy_neg = 0;
for ($j = 0; $j < $this->nbrplots; ++$j) {
$img->SetColor($this->plots[$j]->color);
if ($this->plots[$j]->coords[0][$i] >= 0) {
$yt = $yscale->Translate($this->plots[$j]->coords[0][$i] + $accy);
$accyt = $yscale->Translate($accy);
$accy += $this->plots[$j]->coords[0][$i];
} else {
//if ( $this->plots[$j]->coords[0][$i] < 0 || $accy_neg < 0 ) {
$yt = $yscale->Translate($this->plots[$j]->coords[0][$i] + $accy_neg);
$accyt = $yscale->Translate($accy_neg);
$accy_neg += $this->plots[$j]->coords[0][$i];
}
$xt = $xscale->Translate($i);
if ($this->abswidth > -1) {
$abswidth = $this->abswidth;
} else {
$abswidth = round($this->width * $xscale->scale_factor, 0);
}
$pts = array($xt, $accyt, $xt, $yt, $xt + $abswidth, $yt, $xt + $abswidth, $accyt);
if ($this->bar_shadow) {
$ssh = $this->bar_shadow_hsize;
$ssv = $this->bar_shadow_vsize;
// We must also differ if we are a positive or negative bar.
if ($j === 0) {
// This gets extra complicated since we have to
// see all plots to see if we are negative. It could
// for example be that all plots are 0 until the very
// last one. We therefore need to save the initial setup
// for both the negative and positive case
// In case the final bar is positive
$sp[0] = $pts[6] + 1;
$sp[1] = $pts[7];
$sp[2] = $pts[6] + $ssh;
$sp[3] = $pts[7] - $ssv;
// In case the final bar is negative
$nsp[0] = $pts[0];
$nsp[1] = $pts[1];
$nsp[2] = $pts[0] + $ssh;
$nsp[3] = $pts[1] - $ssv;
$nsp[4] = $pts[6] + $ssh;
$nsp[5] = $pts[7] - $ssv;
$nsp[10] = $pts[6] + 1;
$nsp[11] = $pts[7];
}
if ($j === $this->nbrplots - 1) {
// If this is the last plot of the bar and
// the total value is larger than 0 then we
// add the shadow.
if (is_array($this->bar_shadow_color)) {
$numcolors = count($this->bar_shadow_color);
if ($numcolors == 0) {
JpGraphError::Raise('You have specified an empty array for shadow colors in the bar plot.');
}
$img->PushColor($this->bar_shadow_color[$i % $numcolors]);
} else {
$img->PushColor($this->bar_shadow_color);
}
if ($accy > 0) {
$sp[4] = $pts[4] + $ssh;
$sp[5] = $pts[5] - $ssv;
$sp[6] = $pts[2] + $ssh;
$sp[7] = $pts[3] - $ssv;
$sp[8] = $pts[2];
$sp[9] = $pts[3] - 1;
$sp[10] = $pts[4] + 1;
$sp[11] = $pts[5];
$img->FilledPolygon($sp, 4);
} elseif ($accy_neg < 0) {
$nsp[6] = $pts[4] + $ssh;
$nsp[7] = $pts[5] - $ssv;
$nsp[8] = $pts[4] + 1;
$nsp[9] = $pts[5];
$img->FilledPolygon($nsp, 4);
}
$img->PopColor();
}
}
// If value is NULL or 0, then don't draw a bar at all
if ($this->plots[$j]->coords[0][$i] == 0) {
continue;
}
if ($this->plots[$j]->grad) {
$grad = new Gradient($img);
$grad->FilledRectangle($pts[2], $pts[3], $pts[6], $pts[7], $this->plots[$j]->grad_fromcolor, $this->plots[$j]->grad_tocolor, $this->plots[$j]->grad_style);
} else {
if (is_array($this->plots[$j]->fill_color)) {
$numcolors = count($this->plots[$j]->fill_color);
$img->SetColor($this->plots[$j]->fill_color[$i % $numcolors]);
} else {
$img->SetColor($this->plots[$j]->fill_color);
}
$img->FilledPolygon($pts);
$img->SetColor($this->plots[$j]->color);
}
// Stroke the pattern
if ($this->plots[$j]->iPattern > -1) {
if ($pattern === NULL) {
$pattern = new RectPatternFactory();
}
$prect = $pattern->Create($this->plots[$j]->iPattern, $this->plots[$j]->iPatternColor, 1);
$prect->SetDensity($this->plots[$j]->iPatternDensity);
$prect->SetPos(new Rectangle($pts[2], $pts[3], $pts[4] - $pts[0] + 1, $pts[1] - $pts[3] + 1));
$prect->Stroke($img);
}
// CSIM array
if ($i < count($this->plots[$j]->csimtargets)) {
// Create the client side image map
$rpts = $img->ArrRotate($pts);
$csimcoord = round($rpts[0]) . ", " . round($rpts[1]);
for ($k = 1; $k < 4; ++$k) {
$csimcoord .= ", " . round($rpts[2 * $k]) . ", " . round($rpts[2 * $k + 1]);
}
if (!empty($this->plots[$j]->csimtargets[$i])) {
$this->csimareas .= '<area shape="poly" coords="' . $csimcoord . '" ';
$this->csimareas .= " href=\"" . $this->plots[$j]->csimtargets[$i] . "\"";
if (!empty($this->plots[$j]->csimalts[$i])) {
$sval = sprintf($this->plots[$j]->csimalts[$i], $this->plots[$j]->coords[0][$i]);
$this->csimareas .= " alt=\"{$sval}\" title=\"{$sval}\" ";
}
$this->csimareas .= ">\n";
}
}
$pts[] = $pts[0];
$pts[] = $pts[1];
$img->Polygon($pts);
}
// Draw labels for each acc.bar
$x = $pts[2] + ($pts[4] - $pts[2]) / 2;
$y = $yscale->Translate($accy);
if ($this->bar_shadow) {
$x += $ssh;
}
$this->value->Stroke($img, $accy, $x, $y);
$accy = 0;
$accy_neg = 0;
for ($j = 0; $j < $this->nbrplots; ++$j) {
// We don't print 0 values in an accumulated bar plot
if ($this->plots[$j]->coords[0][$i] == 0) {
continue;
}
if ($this->plots[$j]->coords[0][$i] > 0) {
$yt = $yscale->Translate($this->plots[$j]->coords[0][$i] + $accy);
$accyt = $yscale->Translate($accy);
$y = $accyt - ($accyt - $yt) / 2;
$accy += $this->plots[$j]->coords[0][$i];
} else {
$yt = $yscale->Translate($this->plots[$j]->coords[0][$i] + $accy_neg);
$accyt = $yscale->Translate($accy_neg);
//$y=0;
$accy_neg += $this->plots[$j]->coords[0][$i];
$y = $accyt - ($accyt - $yt) / 2;
// TODO : Check this fix
}
$this->plots[$j]->value->SetAlign("center", "center");
$this->plots[$j]->value->SetMargin(0);
$this->plots[$j]->value->Stroke($img, $this->plots[$j]->coords[0][$i], $x, $y);
}
}
return true;
}
function Stroke($img, $xscale, $yscale)
{
$pattern = NULL;
$img->SetLineWeight($this->weight);
$grad = null;
for ($i = 0; $i < $this->numpoints - 1; $i++) {
$accy = 0;
$accy_neg = 0;
for ($j = 0; $j < $this->nbrplots; ++$j) {
$img->SetColor($this->plots[$j]->color);
if ($this->plots[$j]->coords[0][$i] >= 0) {
$yt = $yscale->Translate($this->plots[$j]->coords[0][$i] + $accy);
$accyt = $yscale->Translate($accy);
$accy += $this->plots[$j]->coords[0][$i];
} else {
//if ( $this->plots[$j]->coords[0][$i] < 0 || $accy_neg < 0 ) {
$yt = $yscale->Translate($this->plots[$j]->coords[0][$i] + $accy_neg);
$accyt = $yscale->Translate($accy_neg);
$accy_neg += $this->plots[$j]->coords[0][$i];
}
$xt = $xscale->Translate($i);
if ($this->abswidth > -1) {
$abswidth = $this->abswidth;
} else {
$abswidth = round($this->width * $xscale->scale_factor, 0);
}
$pts = array($xt, $accyt, $xt, $yt, $xt + $abswidth, $yt, $xt + $abswidth, $accyt);
if ($this->bar_shadow) {
$ssh = $this->bar_shadow_hsize;
$ssv = $this->bar_shadow_vsize;
// We must also differ if we are a positive or negative bar.
if ($j === 0) {
// This gets extra complicated since we have to
// see all plots to see if we are negative. It could
// for example be that all plots are 0 until the very
// last one. We therefore need to save the initial setup
// for both the negative and positive case
// In case the final bar is positive
$sp[0] = $pts[6] + 1;
$sp[1] = $pts[7];
$sp[2] = $pts[6] + $ssh;
$sp[3] = $pts[7] - $ssv;
// In case the final bar is negative
$nsp[0] = $pts[0];
$nsp[1] = $pts[1];
$nsp[2] = $pts[0] + $ssh;
$nsp[3] = $pts[1] - $ssv;
$nsp[4] = $pts[6] + $ssh;
$nsp[5] = $pts[7] - $ssv;
$nsp[10] = $pts[6] + 1;
$nsp[11] = $pts[7];
}
if ($j === $this->nbrplots - 1) {
// If this is the last plot of the bar and
// the total value is larger than 0 then we
// add the shadow.
if (is_array($this->bar_shadow_color)) {
$numcolors = count($this->bar_shadow_color);
if ($numcolors == 0) {
JpGraphError::RaiseL(2013);
//('You have specified an empty array for shadow colors in the bar plot.');
}
$img->PushColor($this->bar_shadow_color[$i % $numcolors]);
} else {
$img->PushColor($this->bar_shadow_color);
}
if ($accy > 0) {
$sp[4] = $pts[4] + $ssh;
$sp[5] = $pts[5] - $ssv;
$sp[6] = $pts[2] + $ssh;
$sp[7] = $pts[3] - $ssv;
$sp[8] = $pts[2];
$sp[9] = $pts[3] - 1;
$sp[10] = $pts[4] + 1;
$sp[11] = $pts[5];
$img->FilledPolygon($sp, 4);
} elseif ($accy_neg < 0) {
$nsp[6] = $pts[4] + $ssh;
$nsp[7] = $pts[5] - $ssv;
$nsp[8] = $pts[4] + 1;
$nsp[9] = $pts[5];
$img->FilledPolygon($nsp, 4);
}
$img->PopColor();
}
}
// If value is NULL or 0, then don't draw a bar at all
if ($this->plots[$j]->coords[0][$i] == 0) {
continue;
}
if ($this->plots[$j]->grad) {
if ($grad === null) {
$grad = new Gradient($img);
}
if (is_array($this->plots[$j]->grad_fromcolor)) {
// The first argument (grad_fromcolor) can be either an array or a single color. If it is an array
// then we have two choices. It can either a) be a single color specified as an RGB triple or it can be
// an array to specify both (from, to style) for each individual bar. The way to know the difference is
// to investgate the first element. If this element is an integer [0,255] then we assume it is an RGB
// triple.
$ng = count($this->plots[$j]->grad_fromcolor);
if ($ng === 3) {
if (is_numeric($this->plots[$j]->grad_fromcolor[0]) && $this->plots[$j]->grad_fromcolor[0] > 0 && $this->plots[$j]->grad_fromcolor[0] < 256) {
// RGB Triple
$fromcolor = $this->plots[$j]->grad_fromcolor;
$tocolor = $this->plots[$j]->grad_tocolor;
$style = $this->plots[$j]->grad_style;
} else {
$fromcolor = $this->plots[$j]->grad_fromcolor[$i % $ng][0];
$tocolor = $this->plots[$j]->grad_fromcolor[$i % $ng][1];
$style = $this->plots[$j]->grad_fromcolor[$i % $ng][2];
}
} else {
$fromcolor = $this->plots[$j]->grad_fromcolor[$i % $ng][0];
$tocolor = $this->plots[$j]->grad_fromcolor[$i % $ng][1];
$style = $this->plots[$j]->grad_fromcolor[$i % $ng][2];
}
$grad->FilledRectangle($pts[2], $pts[3], $pts[6], $pts[7], $fromcolor, $tocolor, $style);
} else {
$grad->FilledRectangle($pts[2], $pts[3], $pts[6], $pts[7], $this->plots[$j]->grad_fromcolor, $this->plots[$j]->grad_tocolor, $this->plots[$j]->grad_style);
}
} else {
if (is_array($this->plots[$j]->fill_color)) {
$numcolors = count($this->plots[$j]->fill_color);
$fillcolor = $this->plots[$j]->fill_color[$i % $numcolors];
// If the bar is specified to be non filled then the fill color is false
if ($fillcolor !== false) {
$img->SetColor($this->plots[$j]->fill_color[$i % $numcolors]);
}
} else {
$fillcolor = $this->plots[$j]->fill_color;
if ($fillcolor !== false) {
$img->SetColor($this->plots[$j]->fill_color);
}
}
if ($fillcolor !== false) {
$img->FilledPolygon($pts);
}
}
$img->SetColor($this->plots[$j]->color);
// Stroke the pattern
if ($this->plots[$j]->iPattern > -1) {
if ($pattern === NULL) {
$pattern = new RectPatternFactory();
}
$prect = $pattern->Create($this->plots[$j]->iPattern, $this->plots[$j]->iPatternColor, 1);
$prect->SetDensity($this->plots[$j]->iPatternDensity);
if ($this->plots[$j]->coords[0][$i] < 0) {
$rx = $pts[0];
$ry = $pts[1];
} else {
$rx = $pts[2];
$ry = $pts[3];
}
$width = abs($pts[4] - $pts[0]) + 1;
$height = abs($pts[1] - $pts[3]) + 1;
$prect->SetPos(new Rectangle($rx, $ry, $width, $height));
$prect->Stroke($img);
}
// CSIM array
if ($i < count($this->plots[$j]->csimtargets)) {
// Create the client side image map
$rpts = $img->ArrRotate($pts);
$csimcoord = round($rpts[0]) . ", " . round($rpts[1]);
for ($k = 1; $k < 4; ++$k) {
$csimcoord .= ", " . round($rpts[2 * $k]) . ", " . round($rpts[2 * $k + 1]);
}
if (!empty($this->plots[$j]->csimtargets[$i])) {
$this->csimareas .= '<area shape="poly" coords="' . $csimcoord . '" ';
$this->csimareas .= " href=\"" . $this->plots[$j]->csimtargets[$i] . "\" ";
if (!empty($this->plots[$j]->csimwintargets[$i])) {
$this->csimareas .= " target=\"" . $this->plots[$j]->csimwintargets[$i] . "\" ";
}
$sval = '';
if (!empty($this->plots[$j]->csimalts[$i])) {
$sval = sprintf($this->plots[$j]->csimalts[$i], $this->plots[$j]->coords[0][$i]);
$this->csimareas .= " title=\"{$sval}\" ";
}
$this->csimareas .= " alt=\"{$sval}\" />\n";
}
}
$pts[] = $pts[0];
$pts[] = $pts[1];
$img->SetLineWeight($this->plots[$j]->weight);
$img->Polygon($pts);
$img->SetLineWeight(1);
}
// Daw potential bar around the entire accbar bar
if ($this->weight > 0) {
$y = $yscale->Translate(0);
$img->SetColor($this->color);
$img->SetLineWeight($this->weight);
$img->Rectangle($pts[0], $y, $pts[6], $pts[5]);
}
// Draw labels for each acc.bar
$x = $pts[2] + ($pts[4] - $pts[2]) / 2;
if ($this->bar_shadow) {
$x += $ssh;
}
// First stroke the accumulated value for the entire bar
// This value is always placed at the top/bottom of the bars
if ($accy_neg < 0) {
$y = $yscale->Translate($accy_neg);
$this->value->Stroke($img, $accy_neg, $x, $y);
} else {
$y = $yscale->Translate($accy);
$this->value->Stroke($img, $accy, $x, $y);
}
$accy = 0;
$accy_neg = 0;
for ($j = 0; $j < $this->nbrplots; ++$j) {
// We don't print 0 values in an accumulated bar plot
if ($this->plots[$j]->coords[0][$i] == 0) {
continue;
}
if ($this->plots[$j]->coords[0][$i] > 0) {
$yt = $yscale->Translate($this->plots[$j]->coords[0][$i] + $accy);
$accyt = $yscale->Translate($accy);
if ($this->plots[$j]->valuepos == 'center') {
$y = $accyt - ($accyt - $yt) / 2;
} elseif ($this->plots[$j]->valuepos == 'bottom') {
$y = $accyt;
} else {
// top or max
$y = $accyt - ($accyt - $yt);
}
$accy += $this->plots[$j]->coords[0][$i];
if ($this->plots[$j]->valuepos == 'center') {
$this->plots[$j]->value->SetAlign("center", "center");
$this->plots[$j]->value->SetMargin(0);
} elseif ($this->plots[$j]->valuepos == 'bottom') {
$this->plots[$j]->value->SetAlign('center', 'bottom');
$this->plots[$j]->value->SetMargin(2);
} else {
$this->plots[$j]->value->SetAlign('center', 'top');
$this->plots[$j]->value->SetMargin(1);
}
} else {
$yt = $yscale->Translate($this->plots[$j]->coords[0][$i] + $accy_neg);
$accyt = $yscale->Translate($accy_neg);
$accy_neg += $this->plots[$j]->coords[0][$i];
if ($this->plots[$j]->valuepos == 'center') {
$y = $accyt - ($accyt - $yt) / 2;
} elseif ($this->plots[$j]->valuepos == 'bottom') {
$y = $accyt;
} else {
$y = $accyt - ($accyt - $yt);
}
if ($this->plots[$j]->valuepos == 'center') {
$this->plots[$j]->value->SetAlign("center", "center");
$this->plots[$j]->value->SetMargin(0);
} elseif ($this->plots[$j]->valuepos == 'bottom') {
$this->plots[$j]->value->SetAlign('center', $j == 0 ? 'bottom' : 'top');
$this->plots[$j]->value->SetMargin(-2);
} else {
$this->plots[$j]->value->SetAlign('center', 'bottom');
$this->plots[$j]->value->SetMargin(-1);
}
}
$this->plots[$j]->value->Stroke($img, $this->plots[$j]->coords[0][$i], $x, $y);
}
}
return true;
}
function Stroke(&$img, &$xscale, &$yscale)
{
$numpoints = count($this->coords[0]);
if (isset($this->coords[1])) {
if (count($this->coords[1]) != $numpoints) {
die("JpGraph Error: Number of X and Y points are not equal.<br>\n\t\t\t\t\tNumber of X-points:" . count($this->coords[1]) . "<br>\n\t\t\t\t\tNumber of Y-points:{$numpoints}");
} else {
$exist_x = true;
}
} else {
$exist_x = false;
}
$numbars = count($this->coords[0]);
// Use GetMinVal() instead of scale[0] directly since in the case
// of log scale we get a correct value. Log scales will have negative
// values for values < 1 while still not representing negative numbers.
if ($yscale->GetMinVal() >= 0) {
$zp = $yscale->scale_abs[0];
} else {
$zp = $yscale->Translate(0);
}
if ($this->abswidth > -1) {
$abswidth = $this->abswidth;
} else {
$abswidth = round($this->width * $xscale->scale_factor, 0);
}
for ($i = 0; $i < $numbars; $i++) {
// If value is NULL, or 0 then don't draw a bar at all
if ($this->coords[0][$i] === null || $this->coords[0][$i] === '' || $this->coords[0][$i] === 0) {
continue;
}
if ($exist_x) {
$x = $this->coords[1][$i];
} else {
$x = $i;
}
$x = $xscale->Translate($x);
if (!$xscale->textscale) {
if ($this->align == "center") {
$x -= $abswidth / 2;
} elseif ($this->align == "right") {
$x -= $abswidth;
}
}
// Stroke fill color and fill gradient
$pts = array($x, $zp, $x, $yscale->Translate($this->coords[0][$i]), $x + $abswidth, $yscale->Translate($this->coords[0][$i]), $x + $abswidth, $zp);
if ($this->grad) {
$grad = new Gradient($img);
$grad->FilledRectangle($pts[2], $pts[3], $pts[6], $pts[7], $this->grad_fromcolor, $this->grad_tocolor, $this->grad_style);
} elseif (!empty($this->fill_color)) {
if (is_array($this->fill_color)) {
$img->PushColor($this->fill_color[$i % count($this->fill_color)]);
} else {
$img->PushColor($this->fill_color);
}
$img->FilledPolygon($pts);
$img->PopColor();
}
// Remember value of this bar
$val = $this->coords[0][$i];
if (!empty($val) && !is_numeric($val)) {
JpGraphError::Raise('All values for a barplot must be numeric. You have specified value[' . $i . '] == \'' . $val . '\'');
}
// Determine the shadow
if ($this->bar_shadow && $val != 0) {
$ssh = $this->bar_shadow_hsize;
$ssv = $this->bar_shadow_vsize;
// Create points to create a "upper-right" shadow
if ($val > 0) {
$sp[0] = $pts[6];
$sp[1] = $pts[7];
$sp[2] = $pts[4];
$sp[3] = $pts[5];
$sp[4] = $pts[2];
$sp[5] = $pts[3];
$sp[6] = $pts[2] + $ssh;
$sp[7] = $pts[3] - $ssv;
$sp[8] = $pts[4] + $ssh;
$sp[9] = $pts[5] - $ssv;
$sp[10] = $pts[6] + $ssh;
$sp[11] = $pts[7] - $ssv;
} elseif ($val < 0) {
$sp[0] = $pts[4];
$sp[1] = $pts[5];
$sp[2] = $pts[6];
$sp[3] = $pts[7];
$sp[4] = $pts[0];
$sp[5] = $pts[1];
$sp[6] = $pts[0] + $ssh;
$sp[7] = $pts[1] - $ssv;
$sp[8] = $pts[6] + $ssh;
$sp[9] = $pts[7] - $ssv;
$sp[10] = $pts[4] + $ssh;
$sp[11] = $pts[5] - $ssv;
}
if (is_array($this->bar_shadow_color)) {
$numcolors = count($this->bar_shadow_color);
if ($numcolors == 0) {
JpGraphError::Raise('You have specified an empty array for shadow colors in the bar plot.');
}
$img->PushColor($this->bar_shadow_color[$i % $numcolors]);
} else {
$img->PushColor($this->bar_shadow_color);
}
$img->FilledPolygon($sp);
$img->PopColor();
}
// Stroke the pattern
if ($this->iPattern > -1) {
$f = new RectPatternFactory();
$prect = $f->Create($this->iPattern, $this->iPatternColor, 1);
$prect->SetDensity($this->iPatternDensity);
$prect->SetPos(new Rectangle($pts[2], $pts[3], $pts[4] - $pts[0] + 1, $pts[1] - $pts[3] + 1));
$prect->Stroke($img);
}
// Stroke the outline of the bar
if (is_array($this->color)) {
$img->SetColor($this->color[$i % count($this->color)]);
} else {
$img->SetColor($this->color);
}
$pts[] = $pts[0];
$pts[] = $pts[1];
if ($this->weight > 0) {
$img->SetLineWeight($this->weight);
$img->Polygon($pts);
}
// Determine how to best position the values of the individual bars
$x = $pts[2] + ($pts[4] - $pts[2]) / 2;
if ($this->valuepos == 'top') {
$y = $pts[3];
if ($img->a === 90) {
if ($val < 0) {
$this->value->SetAlign('right', 'center');
} else {
$this->value->SetAlign('left', 'center');
}
}
$this->value->Stroke($img, $val, $x, $y);
} elseif ($this->valuepos == 'max') {
$y = $pts[3];
if ($img->a === 90) {
if ($val < 0) {
$this->value->SetAlign('left', 'center');
} else {
$this->value->SetAlign('right', 'center');
}
} else {
$this->value->SetAlign('center', 'top');
}
$this->value->SetMargin(-3);
$this->value->Stroke($img, $val, $x, $y);
} elseif ($this->valuepos == 'center') {
$y = ($pts[3] + $pts[1]) / 2;
$this->value->SetAlign('center', 'center');
$this->value->SetMargin(0);
$this->value->Stroke($img, $val, $x, $y);
} elseif ($this->valuepos == 'bottom' || $this->valuepos == 'min') {
$y = $pts[1];
if ($img->a === 90) {
if ($val < 0) {
$this->value->SetAlign('right', 'center');
} else {
$this->value->SetAlign('left', 'center');
}
}
$this->value->SetMargin(3);
$this->value->Stroke($img, $val, $x, $y);
} else {
JpGraphError::Raise('Unknown position for values on bars :' . $this->valuepos);
die;
}
// Create the client side image map
$rpts = $img->ArrRotate($pts);
$csimcoord = round($rpts[0]) . ", " . round($rpts[1]);
for ($j = 1; $j < 4; ++$j) {
$csimcoord .= ", " . round($rpts[2 * $j]) . ", " . round($rpts[2 * $j + 1]);
}
if (!empty($this->csimtargets[$i])) {
$this->csimareas .= '<area shape="poly" coords="' . $csimcoord . '" ';
$this->csimareas .= " href=\"" . $this->csimtargets[$i] . "\"";
if (!empty($this->csimalts[$i])) {
$sval = sprintf($this->csimalts[$i], $this->coords[0][$i]);
$this->csimareas .= " alt=\"{$sval}\" title=\"{$sval}\" ";
}
$this->csimareas .= ">\n";
}
}
return true;
}
function Stroke($aImg)
{
// Constant
$fillBoxFrameWeight = 1;
if ($this->hide) {
return;
}
$aImg->SetFont($this->font_family, $this->font_style, $this->font_size);
if ($this->reverse) {
$this->txtcol = array_reverse($this->txtcol);
}
$n = count($this->txtcol);
if ($n == 0) {
return;
}
// Find out the max width and height of each column to be able
// to size the legend box.
$numcolumns = $n > $this->layout_n ? $this->layout_n : $n;
for ($i = 0; $i < $numcolumns; ++$i) {
$colwidth[$i] = $aImg->GetTextWidth($this->txtcol[$i][0]) + 2 * $this->xmargin + 2 * $this->mark_abs_hsize;
$colheight[$i] = 0;
}
// Find our maximum height in each row
$rows = 0;
$rowheight[0] = 0;
for ($i = 0; $i < $n; ++$i) {
$h = max($this->mark_abs_vsize, $aImg->GetTextHeight($this->txtcol[$i][0])) + $this->ylinespacing;
// Makes sure we always have a minimum of 1/4 (1/2 on each side) of the mark as space
// between two vertical legend entries
//$h = round(max($h,$this->mark_abs_vsize+$this->ymargin));
//echo "Textheight #$i: tetxheight=".$aImg->GetTextHeight($this->txtcol[$i][0]).', ';
//echo "h=$h ({$this->mark_abs_vsize},{$this->ymargin})<br>";
if ($i % $numcolumns == 0) {
$rows++;
$rowheight[$rows - 1] = 0;
}
$rowheight[$rows - 1] = max($rowheight[$rows - 1], $h) + 1;
}
$abs_height = 0;
for ($i = 0; $i < $rows; ++$i) {
$abs_height += $rowheight[$i];
}
// Make sure that the height is at least as high as mark size + ymargin
$abs_height = max($abs_height, $this->mark_abs_vsize);
$abs_height += $this->ybottom_margin;
// Find out the maximum width in each column
for ($i = $numcolumns; $i < $n; ++$i) {
$colwidth[$i % $numcolumns] = max($aImg->GetTextWidth($this->txtcol[$i][0]) + 2 * $this->xmargin + 2 * $this->mark_abs_hsize, $colwidth[$i % $numcolumns]);
}
// Get the total width
$mtw = 0;
for ($i = 0; $i < $numcolumns; ++$i) {
$mtw += $colwidth[$i];
}
// remove the last rows interpace margin (since there is no next row)
$abs_height -= $this->ylinespacing;
// Find out maximum width we need for legend box
$abs_width = $mtw + $this->xlmargin + ($numcolumns - 1) * $this->mark_abs_hsize;
if ($this->xabspos === -1 && $this->yabspos === -1) {
$this->xabspos = $this->xpos * $aImg->width;
$this->yabspos = $this->ypos * $aImg->height;
}
// Positioning of the legend box
if ($this->halign == 'left') {
$xp = $this->xabspos;
} elseif ($this->halign == 'center') {
$xp = $this->xabspos - $abs_width / 2;
} else {
$xp = $aImg->width - $this->xabspos - $abs_width;
}
$yp = $this->yabspos;
if ($this->valign == 'center') {
$yp -= $abs_height / 2;
} elseif ($this->valign == 'bottom') {
$yp -= $abs_height;
}
// Stroke legend box
$aImg->SetColor($this->color);
$aImg->SetLineWeight($this->frameweight);
$aImg->SetLineStyle('solid');
if ($this->shadow) {
$aImg->ShadowRectangle($xp, $yp, $xp + $abs_width + $this->shadow_width + 2, $yp + $abs_height + $this->shadow_width + 2, $this->fill_color, $this->shadow_width + 2, $this->shadow_color);
} else {
$aImg->SetColor($this->fill_color);
$aImg->FilledRectangle($xp, $yp, $xp + $abs_width, $yp + $abs_height);
$aImg->SetColor($this->color);
$aImg->Rectangle($xp, $yp, $xp + $abs_width, $yp + $abs_height);
}
if ($this->bkg_gradtype >= 0) {
$grad = new Gradient($aImg);
$grad->FilledRectangle($xp + 1, $yp + 1, $xp + $abs_width - 3, $yp + $abs_height - 3, $this->bkg_gradfrom, $this->bkg_gradto, $this->bkg_gradtype);
}
// x1,y1 is the position for the legend marker + text
// The vertical position is the baseline position for the text
// and every marker is adjusted acording to that.
// For multiline texts this get more complicated.
$x1 = $xp + $this->xlmargin;
$y1 = $yp + $rowheight[0] - $this->ylinespacing + 2;
// The ymargin is included in rowheight
// Now, y1 is the bottom vertical position of the first legend, i.e if
// the legend has multiple lines it is the bottom line.
$grad = new Gradient($aImg);
$patternFactory = null;
// Now stroke each legend in turn
// Each plot has added the following information to the legend
// p[0] = Legend text
// p[1] = Color,
// p[2] = For markers a reference to the PlotMark object
// p[3] = For lines the line style, for gradient the negative gradient style
// p[4] = CSIM target
// p[5] = CSIM Alt text
$i = 1;
$row = 0;
foreach ($this->txtcol as $p) {
// STROKE DEBUG BOX
if (_JPG_DEBUG) {
$aImg->SetLineWeight(1);
$aImg->SetColor('red');
$aImg->SetLineStyle('solid');
$aImg->Rectangle($x1, $y1, $xp + $abs_width - 1, $y1 - $rowheight[$row]);
}
$aImg->SetLineWeight($this->weight);
$x1 = round($x1) + 1;
// We add one to not collide with the border
$y1 = round($y1);
// This is the center offset up from the baseline which is
// considered the "center" of the marks. This gets slightly complicated since
// we need to consider if the text is a multiline paragraph or if it is only
// a single line. The reason is that for single line the y1 corresponds to the baseline
// and that is fine. However for a multiline paragraph there is no single baseline
// and in that case the y1 corresponds to the lowest y for the bounding box. In that
// case we center the mark in the middle of the paragraph
if (!preg_match('/\\n/', $p[0])) {
// Single line
$marky = ceil($y1 - $this->mark_abs_vsize / 2) - 1;
} else {
// Paragraph
$marky = $y1 - $aImg->GetTextHeight($p[0]) / 2;
// echo "y1=$y1, p[o]={$p[0]}, marky=$marky<br>";
}
//echo "<br>Mark #$i: marky=$marky<br>";
$x1 += $this->mark_abs_hsize;
if (!empty($p[2]) && $p[2]->GetType() > -1) {
// Make a plot mark legend. This is constructed with a mark which
// is run through with a line
// First construct a bit of the line that looks exactly like the
// line in the plot
$aImg->SetColor($p[1]);
if (is_string($p[3]) || $p[3] > 0) {
$aImg->SetLineStyle($p[3]);
$aImg->StyleLine($x1 - $this->mark_abs_hsize, $marky, $x1 + $this->mark_abs_hsize, $marky);
}
// Stroke a mark using image
if ($p[2]->GetType() == MARK_IMG) {
$p[2]->Stroke($aImg, $x1, $marky);
}
// Stroke a mark with the standard size
// (As long as it is not an image mark )
if ($p[2]->GetType() != MARK_IMG) {
// Clear any user callbacks since we ont want them called for
// the legend marks
$p[2]->iFormatCallback = '';
$p[2]->iFormatCallback2 = '';
// Since size for circles is specified as the radius
// this means that we must half the size to make the total
// width behave as the other marks
if ($p[2]->GetType() == MARK_FILLEDCIRCLE || $p[2]->GetType() == MARK_CIRCLE) {
$p[2]->SetSize(min($this->mark_abs_vsize, $this->mark_abs_hsize) / 2);
$p[2]->Stroke($aImg, $x1, $marky);
} else {
$p[2]->SetSize(min($this->mark_abs_vsize, $this->mark_abs_hsize));
$p[2]->Stroke($aImg, $x1, $marky);
}
}
} elseif (!empty($p[2]) && (is_string($p[3]) || $p[3] > 0)) {
// Draw a styled line
$aImg->SetColor($p[1]);
$aImg->SetLineStyle($p[3]);
$aImg->StyleLine($x1 - $this->mark_abs_hsize, $marky, $x1 + $this->mark_abs_hsize, $marky);
$aImg->StyleLine($x1 - $this->mark_abs_hsize, $marky + 1, $x1 + $this->mark_abs_hsize, $marky + 1);
} else {
// Draw a colored box
$color = $p[1];
// We make boxes slightly larger to better show
$boxsize = max($this->mark_abs_vsize, $this->mark_abs_hsize) + 2;
$ym = $marky - ceil($boxsize / 2);
// Marker y-coordinate
// We either need to plot a gradient or a
// pattern. To differentiate we use a kludge.
// Patterns have a p[3] value of < -100
if ($p[3] < -100) {
// p[1][0] == iPattern, p[1][1] == iPatternColor, p[1][2] == iPatternDensity
if ($patternFactory == null) {
$patternFactory = new RectPatternFactory();
}
$prect = $patternFactory->Create($p[1][0], $p[1][1], 1);
$prect->SetBackground($p[1][3]);
$prect->SetDensity($p[1][2] + 1);
$prect->SetPos(new Rectangle($x1, $ym, $boxsize, $boxsize));
$prect->Stroke($aImg);
$prect = null;
} else {
if (is_array($color) && count($color) == 2) {
// The client want a gradient color
$grad->FilledRectangle($x1 - $boxsize / 2, $ym, $x1 + $boxsize / 2, $ym + $boxsize, $color[0], $color[1], -$p[3]);
} else {
$aImg->SetColor($p[1]);
$aImg->FilledRectangle($x1 - $boxsize / 2, $ym, $x1 + $boxsize / 2, $ym + $boxsize);
}
// Draw a plot frame line
$aImg->SetColor($this->color);
$aImg->SetLineWeight($fillBoxFrameWeight);
$aImg->Rectangle($x1 - $boxsize / 2, $ym, $x1 + $boxsize / 2, $ym + $boxsize);
}
}
$aImg->SetColor($this->font_color);
$aImg->SetFont($this->font_family, $this->font_style, $this->font_size);
$aImg->SetTextAlign('left', 'baseline');
$debug = false;
$aImg->StrokeText($x1 + $this->mark_abs_hsize + $this->xmargin, $y1, $p[0], 0, 'left', $debug);
// Add CSIM for Legend if defined
if (!empty($p[4])) {
$xs = $x1 - $this->mark_abs_hsize;
$ys = $y1 + 1;
$xe = $x1 + $aImg->GetTextWidth($p[0]) + $this->mark_abs_hsize + $this->xmargin;
$ye = $y1 - $rowheight[$row] + 1;
$coords = "{$xs},{$ys},{$xe},{$y1},{$xe},{$ye},{$xs},{$ye}";
if (!empty($p[4])) {
$this->csimareas .= "<area shape=\"poly\" coords=\"{$coords}\" href=\"" . htmlentities($p[4]) . "\"";
if (!empty($p[6])) {
$this->csimareas .= " target=\"" . $p[6] . "\"";
}
if (!empty($p[5])) {
$tmp = sprintf($p[5], $p[0]);
$this->csimareas .= " title=\"{$tmp}\" alt=\"{$tmp}\" ";
}
$this->csimareas .= " />\n";
}
}
if ($i >= $this->layout_n) {
$x1 = $xp + $this->xlmargin;
$row++;
if (!empty($rowheight[$row])) {
$y1 += $rowheight[$row];
}
$i = 1;
} else {
$x1 += $colwidth[($i - 1) % $numcolumns];
++$i;
}
}
}
function PlotBand($aDir, $aPattern, $aMin, $aMax, $aColor = "black", $aWeight = 1, $aDepth = DEPTH_BACK)
{
$f = new RectPatternFactory();
$this->prect = $f->Create($aPattern, $aColor, $aWeight);
$this->dir = $aDir;
$this->min = $aMin;
$this->max = $aMax;
$this->depth = $aDepth;
}
function PlotBand($aDir, $aPattern, $aMin, $aMax, $aColor = "black", $aWeight = 1, $aDepth = DEPTH_BACK)
{
$f = new RectPatternFactory();
$this->prect = $f->Create($aPattern, $aColor, $aWeight);
if (is_numeric($aMin) && is_numeric($aMax) && $aMin > $aMax) {
JpGraphError::RaiseL(16004);
}
$this->dir = $aDir;
$this->min = $aMin;
$this->max = $aMax;
$this->depth = $aDepth;
}
function Stroke(&$aImg, $aScale)
{
$factory = new RectPatternFactory();
$prect = $factory->Create($this->iPattern, $this->iPatternColor);
$prect->SetDensity($this->iPatternDensity);
if ($this->iHeightFactor > -0.0 && $this->iHeightFactor <= 1.1) {
$vs = $aScale->GetVertSpacing() * $this->iHeightFactor;
} elseif (is_int($this->iHeightFactor) && $this->iHeightFactor > 2 && $this->iHeightFactor < 200) {
$vs = $this->iHeightFactor;
} else {
JpGraphError::RaiseL(6028, $this->iHeightFactor);
}
$st = $aScale->NormalizeDate($this->iStart);
$en = $aScale->NormalizeDate($this->iEnd);
$limst = max($st, $aScale->iStartDate);
$limen = min($en, $aScale->iEndDate);
$xt = round($aScale->TranslateDate($limst));
$xb = round($aScale->TranslateDate($limen));
$yt = round($aScale->TranslateVertPos($this->iVPos) - $vs - ($aScale->GetVertSpacing() / 2 - $vs / 2));
$yb = round($aScale->TranslateVertPos($this->iVPos) - ($aScale->GetVertSpacing() / 2 - $vs / 2));
$middle = round($yt + ($yb - $yt) / 2);
$this->StrokeActInfo($aImg, $aScale, $middle);
if (!empty($this->title->csimtarget)) {
$colwidth = $this->title->GetColWidth($aImg);
$colstarts = array();
$aScale->actinfo->GetColStart($aImg, $colstarts, true);
$n = min(count($colwidth), count($this->title->csimtarget));
for ($i = 0; $i < $n; ++$i) {
$title_xt = $colstarts[$i];
$title_xb = $title_xt + $colwidth[$i];
$coords = "{$title_xt},{$yt},{$title_xb},{$yt},{$title_xb},{$yb},{$title_xt},{$yb}";
if (!empty($this->title->csimtarget[$i])) {
$this->csimarea .= "<area shape=\"poly\" coords=\"{$coords}\" href=\"" . $this->title->csimtarget[$i] . "\"";
if (!empty($this->title->csimwintarget[$i])) {
$this->csimarea .= "target=\"" . $this->title->csimwintarget[$i] . "\" ";
}
if (!empty($this->title->csimalt[$i])) {
$tmp = $this->title->csimalt[$i];
$this->csimarea .= " title=\"{$tmp}\" alt=\"{$tmp}\" ";
}
$this->csimarea .= " />\n";
}
}
}
if ($en < $aScale->iStartDate || $st > $aScale->iEndDate) {
return;
}
$this->SetConstrainPos($xt, $yt, $xb, $yb);
$prect->ShowFrame(false);
$prect->SetBackground($this->iFillColor);
if ($this->iShadow) {
$aImg->SetColor($this->iFrameColor);
$aImg->ShadowRectangle($xt, $yt, $xb, $yb, $this->iFillColor, $this->iShadowWidth, $this->iShadowColor);
$prect->SetPos(new Rectangle($xt + 1, $yt + 1, $xb - $xt - $this->iShadowWidth - 2, $yb - $yt - $this->iShadowWidth - 2));
$prect->Stroke($aImg);
} else {
$prect->SetPos(new Rectangle($xt, $yt, $xb - $xt + 1, $yb - $yt + 1));
$prect->Stroke($aImg);
$aImg->SetColor($this->iFrameColor);
$aImg->Rectangle($xt, $yt, $xb, $yb);
}
if (!empty($this->csimtarget)) {
$coords = "{$xt},{$yt},{$xb},{$yt},{$xb},{$yb},{$xt},{$yb}";
$this->csimarea .= "<area shape=\"poly\" coords=\"{$coords}\" href=\"" . $this->csimtarget . "\"";
if (!empty($this->csimwintarget)) {
$this->csimarea .= " target=\"" . $this->csimwintarget . "\" ";
}
if ($this->csimalt != '') {
$tmp = $this->csimalt;
$this->csimarea .= " title=\"{$tmp}\" alt=\"{$tmp}\" ";
}
$this->csimarea .= " />\n";
}
if ($this->progress->iProgress > 0) {
$xtp = $aScale->TranslateDate($st);
$xbp = $aScale->TranslateDate($en);
$len = ($xbp - $xtp) * $this->progress->iProgress;
$endpos = $xtp + $len;
if ($endpos > $xt) {
$len -= $xt - $xtp;
if ($xtp < $xt) {
$xtp = $xt;
}
if ($xtp + $len - 1 > $xb) {
$len = $xb - $xtp;
}
$prog = $factory->Create($this->progress->iPattern, $this->progress->iColor);
$prog->SetDensity($this->progress->iDensity);
$prog->SetBackground($this->progress->iFillColor);
$barheight = $yb - $yt + 1;
if ($this->iShadow) {
$barheight -= $this->iShadowWidth;
}
$progressheight = floor($barheight * $this->progress->iHeight);
$marg = ceil(($barheight - $progressheight) / 2);
$pos = new Rectangle($xtp, $yt + $marg, $len, $barheight - 2 * $marg);
$prog->SetPos($pos);
$prog->Stroke($aImg);
}
}
if ($limst == $st) {
$y = $middle;
if ($this->leftMark->GetType() == MARK_LEFTTRIANGLE) {
$y = $yb;
}
$this->leftMark->Stroke($aImg, $xt, $y);
}
if ($limen == $en) {
$y = $middle;
if ($this->rightMark->GetType() == MARK_RIGHTTRIANGLE) {
$y = $yb;
}
$this->rightMark->Stroke($aImg, $xb, $y);
$margin = $this->iCaptionMargin;
if ($this->rightMark->show) {
$margin += $this->rightMark->GetWidth();
}
$this->caption->Stroke($aImg, $xb + $margin, $middle);
}
}
function Stroke(&$img, &$xscale, &$yscale)
{
$pattern = NULL;
$img->SetLineWeight($this->weight);
for ($i = 0; $i < $this->numpoints - 1; $i++) {
$accy = 0;
$accy_neg = 0;
for ($j = 0; $j < $this->nbrplots; ++$j) {
$img->SetColor($this->plots[$j]->color);
if ($this->plots[$j]->coords[0][$i] >= 0) {
$yt = $yscale->Translate($this->plots[$j]->coords[0][$i] + $accy);
$accyt = $yscale->Translate($accy);
$accy += $this->plots[$j]->coords[0][$i];
} else {
$yt = $yscale->Translate($this->plots[$j]->coords[0][$i] + $accy_neg);
$accyt = $yscale->Translate($accy_neg);
$accy_neg += $this->plots[$j]->coords[0][$i];
}
$xt = $xscale->Translate($i);
if ($this->abswidth > -1) {
$abswidth = $this->abswidth;
} else {
$abswidth = round($this->width * $xscale->scale_factor, 0);
}
$pts = array($xt, $accyt, $xt, $yt, $xt + $abswidth, $yt, $xt + $abswidth, $accyt);
if ($this->bar_shadow) {
$ssh = $this->bar_shadow_hsize;
$ssv = $this->bar_shadow_vsize;
if ($j === 0) {
$sp[0] = $pts[6] + 1;
$sp[1] = $pts[7];
$sp[2] = $pts[6] + $ssh;
$sp[3] = $pts[7] - $ssv;
$nsp[0] = $pts[0];
$nsp[1] = $pts[1];
$nsp[2] = $pts[0] + $ssh;
$nsp[3] = $pts[1] - $ssv;
$nsp[4] = $pts[6] + $ssh;
$nsp[5] = $pts[7] - $ssv;
$nsp[10] = $pts[6] + 1;
$nsp[11] = $pts[7];
}
if ($j === $this->nbrplots - 1) {
if (is_array($this->bar_shadow_color)) {
$numcolors = count($this->bar_shadow_color);
if ($numcolors == 0) {
JpGraphError::RaiseL(2013);
}
$img->PushColor($this->bar_shadow_color[$i % $numcolors]);
} else {
$img->PushColor($this->bar_shadow_color);
}
if ($accy > 0) {
$sp[4] = $pts[4] + $ssh;
$sp[5] = $pts[5] - $ssv;
$sp[6] = $pts[2] + $ssh;
$sp[7] = $pts[3] - $ssv;
$sp[8] = $pts[2];
$sp[9] = $pts[3] - 1;
$sp[10] = $pts[4] + 1;
$sp[11] = $pts[5];
$img->FilledPolygon($sp, 4);
} elseif ($accy_neg < 0) {
$nsp[6] = $pts[4] + $ssh;
$nsp[7] = $pts[5] - $ssv;
$nsp[8] = $pts[4] + 1;
$nsp[9] = $pts[5];
$img->FilledPolygon($nsp, 4);
}
$img->PopColor();
}
}
if ($this->plots[$j]->coords[0][$i] == 0) {
continue;
}
if ($this->plots[$j]->grad) {
$grad = new Gradient($img);
$grad->FilledRectangle($pts[2], $pts[3], $pts[6], $pts[7], $this->plots[$j]->grad_fromcolor, $this->plots[$j]->grad_tocolor, $this->plots[$j]->grad_style);
} else {
if (is_array($this->plots[$j]->fill_color)) {
$numcolors = count($this->plots[$j]->fill_color);
$fillcolor = $this->plots[$j]->fill_color[$i % $numcolors];
if ($fillcolor !== false) {
$img->SetColor($this->plots[$j]->fill_color[$i % $numcolors]);
}
} else {
$fillcolor = $this->plots[$j]->fill_color;
if ($fillcolor !== false) {
$img->SetColor($this->plots[$j]->fill_color);
}
}
if ($fillcolor !== false) {
$img->FilledPolygon($pts);
}
$img->SetColor($this->plots[$j]->color);
}
if ($this->plots[$j]->iPattern > -1) {
if ($pattern === NULL) {
$pattern = new RectPatternFactory();
}
$prect = $pattern->Create($this->plots[$j]->iPattern, $this->plots[$j]->iPatternColor, 1);
$prect->SetDensity($this->plots[$j]->iPatternDensity);
if ($this->plots[$j]->coords[0][$i] < 0) {
$rx = $pts[0];
$ry = $pts[1];
} else {
$rx = $pts[2];
$ry = $pts[3];
}
$width = abs($pts[4] - $pts[0]) + 1;
$height = abs($pts[1] - $pts[3]) + 1;
$prect->SetPos(new Rectangle($rx, $ry, $width, $height));
$prect->Stroke($img);
}
if ($i < count($this->plots[$j]->csimtargets)) {
$rpts = $img->ArrRotate($pts);
$csimcoord = round($rpts[0]) . ", " . round($rpts[1]);
for ($k = 1; $k < 4; ++$k) {
$csimcoord .= ", " . round($rpts[2 * $k]) . ", " . round($rpts[2 * $k + 1]);
}
if (!empty($this->plots[$j]->csimtargets[$i])) {
$this->csimareas .= '<area shape="poly" coords="' . $csimcoord . '" ';
$this->csimareas .= " href=\"" . $this->plots[$j]->csimtargets[$i] . "\" ";
if (!empty($this->plots[$j]->csimwintargets[$i])) {
$this->csimareas .= " target=\"" . $this->plots[$j]->csimwintargets[$i] . "\" ";
}
$sval = '';
if (!empty($this->plots[$j]->csimalts[$i])) {
$sval = sprintf($this->plots[$j]->csimalts[$i], $this->plots[$j]->coords[0][$i]);
$this->csimareas .= " title=\"{$sval}\" ";
}
$this->csimareas .= " alt=\"{$sval}\" />\n";
}
}
$pts[] = $pts[0];
$pts[] = $pts[1];
$img->SetLineWeight($this->plots[$j]->line_weight);
$img->Polygon($pts);
$img->SetLineWeight(1);
}
$x = $pts[2] + ($pts[4] - $pts[2]) / 2;
if ($this->bar_shadow) {
$x += $ssh;
}
if ($accy_neg < 0) {
$y = $yscale->Translate($accy_neg);
$this->value->Stroke($img, $accy_neg, $x, $y);
} else {
$y = $yscale->Translate($accy);
$this->value->Stroke($img, $accy, $x, $y);
}
$accy = 0;
$accy_neg = 0;
for ($j = 0; $j < $this->nbrplots; ++$j) {
if ($this->plots[$j]->coords[0][$i] == 0) {
continue;
}
if ($this->plots[$j]->coords[0][$i] > 0) {
$yt = $yscale->Translate($this->plots[$j]->coords[0][$i] + $accy);
$accyt = $yscale->Translate($accy);
if ($this->plots[$j]->valuepos == 'center') {
$y = $accyt - ($accyt - $yt) / 2;
} elseif ($this->plots[$j]->valuepos == 'bottom') {
$y = $accyt;
} else {
$y = $accyt - ($accyt - $yt);
}
$accy += $this->plots[$j]->coords[0][$i];
if ($this->plots[$j]->valuepos == 'center') {
$this->plots[$j]->value->SetAlign("center", "center");
$this->plots[$j]->value->SetMargin(0);
} elseif ($this->plots[$j]->valuepos == 'bottom') {
$this->plots[$j]->value->SetAlign('center', 'bottom');
$this->plots[$j]->value->SetMargin(2);
} else {
$this->plots[$j]->value->SetAlign('center', 'top');
$this->plots[$j]->value->SetMargin(1);
}
} else {
$yt = $yscale->Translate($this->plots[$j]->coords[0][$i] + $accy_neg);
$accyt = $yscale->Translate($accy_neg);
$accy_neg += $this->plots[$j]->coords[0][$i];
if ($this->plots[$j]->valuepos == 'center') {
$y = $accyt - ($accyt - $yt) / 2;
} elseif ($this->plots[$j]->valuepos == 'bottom') {
$y = $accyt;
} else {
$y = $accyt - ($accyt - $yt);
}
if ($this->plots[$j]->valuepos == 'center') {
$this->plots[$j]->value->SetAlign("center", "center");
$this->plots[$j]->value->SetMargin(0);
} elseif ($this->plots[$j]->valuepos == 'bottom') {
$this->plots[$j]->value->SetAlign('center', $j == 0 ? 'bottom' : 'top');
$this->plots[$j]->value->SetMargin(-2);
} else {
$this->plots[$j]->value->SetAlign('center', 'bottom');
$this->plots[$j]->value->SetMargin(-1);
}
}
$this->plots[$j]->value->Stroke($img, $this->plots[$j]->coords[0][$i], $x, $y);
}
}
return true;
}
function Stroke(&$aImg)
{
$fillBoxFrameWeight = 1;
if ($this->hide) {
return;
}
$aImg->SetFont($this->font_family, $this->font_style, $this->font_size);
if ($this->reverse) {
$this->txtcol = array_reverse($this->txtcol);
}
$n = count($this->txtcol);
if ($n == 0) {
return;
}
$numcolumns = $n > $this->layout_n ? $this->layout_n : $n;
for ($i = 0; $i < $numcolumns; ++$i) {
$colwidth[$i] = $aImg->GetTextWidth($this->txtcol[$i][0]) + 2 * $this->xmargin + 2 * $this->mark_abs_hsize;
$colheight[$i] = 0;
}
$rows = 0;
$rowheight[0] = 0;
for ($i = 0; $i < $n; ++$i) {
$h = max($this->mark_abs_vsize, $aImg->GetTextHeight($this->txtcol[$i][0])) + $this->ymargin;
if ($i % $numcolumns == 0) {
$rows++;
$rowheight[$rows - 1] = 0;
}
$rowheight[$rows - 1] = max($rowheight[$rows - 1], $h);
}
$abs_height = 0;
for ($i = 0; $i < $rows; ++$i) {
$abs_height += $rowheight[$i];
}
$abs_height = max($abs_height, $this->mark_abs_vsize);
$abs_height += $this->ymargin + 3;
for ($i = $numcolumns; $i < $n; ++$i) {
$colwidth[$i % $numcolumns] = max($aImg->GetTextWidth($this->txtcol[$i][0]) + 2 * $this->xmargin + 2 * $this->mark_abs_hsize, $colwidth[$i % $numcolumns]);
}
$mtw = 0;
for ($i = 0; $i < $numcolumns; ++$i) {
$mtw += $colwidth[$i];
}
$abs_width = $mtw + $this->xlmargin;
if ($this->xabspos === -1 && $this->yabspos === -1) {
$this->xabspos = $this->xpos * $aImg->width;
$this->yabspos = $this->ypos * $aImg->height;
}
if ($this->halign == "left") {
$xp = $this->xabspos;
} elseif ($this->halign == "center") {
$xp = $this->xabspos - $abs_width / 2;
} else {
$xp = $aImg->width - $this->xabspos - $abs_width;
}
$yp = $this->yabspos;
if ($this->valign == "center") {
$yp -= $abs_height / 2;
} elseif ($this->valign == "bottom") {
$yp -= $abs_height;
}
$aImg->SetColor($this->color);
$aImg->SetLineWeight($this->frameweight);
$aImg->SetLineStyle('solid');
if ($this->shadow) {
$aImg->ShadowRectangle($xp, $yp, $xp + $abs_width + $this->shadow_width, $yp + $abs_height + $this->shadow_width, $this->fill_color, $this->shadow_width, $this->shadow_color);
} else {
$aImg->SetColor($this->fill_color);
$aImg->FilledRectangle($xp, $yp, $xp + $abs_width, $yp + $abs_height);
$aImg->SetColor($this->color);
$aImg->Rectangle($xp, $yp, $xp + $abs_width, $yp + $abs_height);
}
$x1 = $xp + $this->mark_abs_hsize + $this->xlmargin;
$y1 = $yp + $this->ymargin;
$f2 = round($aImg->GetTextHeight('X') / 2);
$grad = new Gradient($aImg);
$patternFactory = null;
$i = 1;
$row = 0;
foreach ($this->txtcol as $p) {
if (_JPG_DEBUG) {
$aImg->SetLineWeight(1);
$aImg->SetColor('red');
$aImg->SetLineStyle('solid');
$aImg->Rectangle($xp, $y1, $xp + $abs_width, $y1 + $rowheight[$row]);
}
$aImg->SetLineWeight($this->weight);
$x1 = round($x1);
$y1 = round($y1);
if ($p[2] && $p[2]->GetType() > -1) {
$aImg->SetColor($p[1]);
if (is_string($p[3]) || $p[3] > 0) {
$aImg->SetLineStyle($p[3]);
$aImg->StyleLine($x1 - $this->mark_abs_hsize, $y1 + $f2, $x1 + $this->mark_abs_hsize, $y1 + $f2);
}
if ($p[2]->GetType() != MARK_IMG) {
$p[2]->iFormatCallback = '';
$p[2]->iFormatCallback2 = '';
if ($p[2]->GetType() == MARK_FILLEDCIRCLE || $p[2]->GetType() == MARK_CIRCLE) {
$p[2]->SetSize(min($this->mark_abs_vsize, $this->mark_abs_hsize) / 2);
$p[2]->Stroke($aImg, $x1, $y1 + $f2);
} else {
$p[2]->SetSize(min($this->mark_abs_vsize, $this->mark_abs_hsize));
$p[2]->Stroke($aImg, $x1, $y1 + $f2);
}
}
} elseif ($p[2] && (is_string($p[3]) || $p[3] > 0)) {
$aImg->SetColor($p[1]);
$aImg->SetLineStyle($p[3]);
$aImg->StyleLine($x1 - 1, $y1 + $f2, $x1 + $this->mark_abs_hsize, $y1 + $f2);
$aImg->StyleLine($x1 - 1, $y1 + $f2 + 1, $x1 + $this->mark_abs_hsize, $y1 + $f2 + 1);
} else {
$color = $p[1];
$boxsize = min($this->mark_abs_vsize, $this->mark_abs_hsize) + 2;
$ym = round($y1 + $f2 - $boxsize / 2);
if ($p[3] < -100) {
if ($patternFactory == null) {
$patternFactory = new RectPatternFactory();
}
$prect = $patternFactory->Create($p[1][0], $p[1][1], 1);
$prect->SetBackground($p[1][3]);
$prect->SetDensity($p[1][2] + 1);
$prect->SetPos(new Rectangle($x1, $ym, $boxsize, $boxsize));
$prect->Stroke($aImg);
$prect = null;
} else {
if (is_array($color) && count($color) == 2) {
$grad->FilledRectangle($x1, $ym, $x1 + $boxsize, $ym + $boxsize, $color[0], $color[1], -$p[3]);
} else {
$aImg->SetColor($p[1]);
$aImg->FilledRectangle($x1, $ym, $x1 + $boxsize, $ym + $boxsize);
}
$aImg->SetColor($this->color);
$aImg->SetLineWeight($fillBoxFrameWeight);
$aImg->Rectangle($x1, $ym, $x1 + $boxsize, $ym + $boxsize);
}
}
$aImg->SetColor($this->font_color);
$aImg->SetFont($this->font_family, $this->font_style, $this->font_size);
$aImg->SetTextAlign("left", "top");
$aImg->StrokeText(round($x1 + $this->mark_abs_hsize + $this->xmargin), $y1, $p[0]);
if ($p[4] != "") {
$xe = $x1 + $this->xmargin + $this->mark_abs_hsize + $aImg->GetTextWidth($p[0]);
$ye = $y1 + max($this->mark_abs_vsize, $aImg->GetTextHeight($p[0]));
$coords = "{$x1},{$y1},{$xe},{$y1},{$xe},{$ye},{$x1},{$ye}";
if (!empty($p[4])) {
$this->csimareas .= "<area shape=\"poly\" coords=\"{$coords}\" href=\"" . htmlentities($p[4]) . "\"";
if (!empty($p[6])) {
$this->csimareas .= " target=\"" . $p[6] . "\"";
}
if (!empty($p[5])) {
$tmp = sprintf($p[5], $p[0]);
$this->csimareas .= " title=\"{$tmp}\" alt=\"{$tmp}\" ";
}
$this->csimareas .= " />\n";
}
}
if ($i >= $this->layout_n) {
$x1 = $xp + $this->mark_abs_hsize + $this->xlmargin;
$y1 += $rowheight[$row++];
$i = 1;
} else {
$x1 += $colwidth[($i - 1) % $numcolumns];
++$i;
}
}
}
function Stroke($aImg, $aScale)
{
$factory = new RectPatternFactory();
$prect = $factory->Create($this->iPattern, $this->iPatternColor);
$prect->SetDensity($this->iPatternDensity);
// If height factor is specified as a float between 0,1 then we take it as meaning
// percetage of the scale width between horizontal line.
// If it is an integer > 1 we take it to mean the absolute height in pixels
if ($this->iHeightFactor > -0.0 && $this->iHeightFactor <= 1.1) {
$vs = $aScale->GetVertSpacing() * $this->iHeightFactor;
} elseif (is_int($this->iHeightFactor) && $this->iHeightFactor > 2 && $this->iHeightFactor < 200) {
$vs = $this->iHeightFactor;
} else {
JpGraphError::Raise("Specified height (" . $this->iHeightFactor . ") for gantt bar is out of range.");
}
// Clip date to min max dates to show
$st = $aScale->NormalizeDate($this->iStart);
$en = $aScale->NormalizeDate($this->iEnd);
$limst = max($st, $aScale->iStartDate);
$limen = min($en, $aScale->iEndDate + SECPERDAY);
$xt = $aScale->TranslateDate($limst);
$xb = $aScale->TranslateDate($limen) - 1;
$yt = $aScale->TranslateVertPos($this->iVPos) - $vs - ($aScale->GetVertSpacing() / 2 - $vs / 2);
$yb = $aScale->TranslateVertPos($this->iVPos) - ($aScale->GetVertSpacing() / 2 - $vs / 2);
$middle = round($yt + ($yb - $yt) / 2);
$this->title->Stroke($aImg, $aImg->left_margin + $this->iLabelLeftMargin, $middle);
// Check if the bar is outside the current range
if ($en < $aScale->iStartDate + SECPERDAY || $st > $aScale->iEndDate) {
return;
}
$prect->ShowFrame(false);
$prect->SetBackground($this->iFillColor);
if ($this->iShadow) {
$aImg->SetColor($this->iFrameColor);
$aImg->ShadowRectangle($xt, $yt, $xb, $yb, $this->iFillColor, $this->iShadowWidth, $this->iShadowColor);
$prect->SetPos(new Rectangle($xt + 1, $yt + 1, $xb - $xt - $this->iShadowWidth - 2, $yb - $yt - $this->iShadowWidth - 2));
$prect->Stroke($aImg);
} else {
$prect->SetPos(new Rectangle($xt, $yt, $xb - $xt + 1, $yb - $yt + 1));
$prect->Stroke($aImg);
$aImg->SetColor($this->iFrameColor);
$aImg->Rectangle($xt, $yt, $xb, $yb);
}
if ($this->progress->iProgress > 0) {
//echo "test <p>";
$xtp = $aScale->TranslateDate($st);
$xbp = $aScale->TranslateDate($en);
$len = ($xbp - $xtp) * $this->progress->iProgress;
$endpos = $xtp + $len;
if ($endpos > $xt) {
$len -= $xt - $xtp;
//echo "diff in days : ".(($xt-$xtp)/$aScale->GetDayWidth())."<p>";
//echo "xtp=$xtp, len=$len, xt=$xt<p>";
if ($xtp < $xt) {
$xtp = $xt;
}
$prog = $factory->Create($this->progress->iPattern, $this->progress->iColor);
$prog->SetDensity($this->progress->iDensity);
$barheight = $yb - $yt + 1;
if ($this->iShadow) {
$barheight -= $this->iShadowWidth;
}
$progressheight = floor($barheight * $this->progress->iHeight);
$marg = ceil(($barheight - $progressheight) / 2);
$pos = new Rectangle($xtp, $yt + $marg, $len, $barheight - 2 * $marg);
$prog->SetPos($pos);
$prog->Stroke($aImg);
}
}
// We don't plot the end mark if the bar has been capped
if ($limst == $st) {
$this->leftMark->Stroke($aImg, $xt, $middle);
}
if ($limen == $en) {
$this->rightMark->Stroke($aImg, $xb, $middle);
$margin = $this->iCaptionMargin;
if ($this->rightMark->show) {
$margin += $this->rightMark->GetWidth();
}
$this->caption->Stroke($aImg, $xb + $margin, $middle);
}
}
function Stroke($aImg, $aScale)
{
$factory = new RectPatternFactory();
$prect = $factory->Create($this->iPattern, $this->iPatternColor);
$prect->SetDensity($this->iPatternDensity);
// If height factor is specified as a float between 0,1 then we take it as meaning
// percetage of the scale width between horizontal line.
// If it is an integer > 1 we take it to mean the absolute height in pixels
if ($this->iHeightFactor > -0.0 && $this->iHeightFactor <= 1.1) {
$vs = $aScale->GetVertSpacing() * $this->iHeightFactor;
} elseif (is_int($this->iHeightFactor) && $this->iHeightFactor > 2 && $this->iHeightFactor < 200) {
$vs = $this->iHeightFactor;
} else {
JpGraphError::Raise("<b>JpGraph Error:</b>Specified height (" . $this->iHeightFactor . ") for gantt bar is out of range.");
}
$xt = $aScale->TranslateDate($aScale->NormalizeDate($this->iStart));
$xb = $aScale->TranslateDate($aScale->NormalizeDate($this->iEnd));
$yt = $aScale->TranslateVertPos($this->iVPos) - $vs - ($aScale->GetVertSpacing() / 2 - $vs / 2);
$yb = $aScale->TranslateVertPos($this->iVPos) - ($aScale->GetVertSpacing() / 2 - $vs / 2);
$prect->ShowFrame(false);
$prect->SetBackground($this->iFillColor);
if ($this->iShadow) {
$aImg->SetColor($this->iFrameColor);
$aImg->ShadowRectangle($xt, $yt, $xb, $yb, $this->iFillColor, $this->iShadowWidth, $this->iShadowColor);
$prect->SetPos(new Rectangle($xt + 1, $yt + 1, $xb - $xt - $this->iShadowWidth - 2, $yb - $yt - $this->iShadowWidth - 2));
$prect->Stroke($aImg);
} else {
$prect->SetPos(new Rectangle($xt, $yt, $xb - $xt + 1, $yb - $yt + 1));
$prect->Stroke($aImg);
$aImg->SetColor($this->iFrameColor);
$aImg->Rectangle($xt, $yt, $xb, $yb);
}
if ($this->progress->iProgress > 0) {
$prog = $factory->Create($this->progress->iPattern, $this->progress->iColor);
$prog->SetDensity($this->progress->iDensity);
$barheight = $yb - $yt + 1;
if ($this->iShadow) {
$barheight -= $this->iShadowWidth;
}
$progressheight = floor($barheight * $this->progress->iHeight);
$marg = ceil(($barheight - $progressheight) / 2);
$pos = new Rectangle($xt, $yt + $marg, ($xb - $xt + 1) * $this->progress->iProgress, $barheight - 2 * $marg);
$prog->SetPos($pos);
$prog->Stroke($aImg);
}
$middle = round($yt + ($yb - $yt) / 2);
$this->title->Stroke($aImg, $aImg->left_margin + $this->iLabelLeftMargin, $middle);
$this->leftMark->Stroke($aImg, $xt, $middle);
$this->rightMark->Stroke($aImg, $xb, $middle);
$margin = $this->iCaptionMargin;
if ($this->rightMark->show) {
$margin += $this->rightMark->GetWidth();
}
$this->caption->Stroke($aImg, $xb + $margin, $middle);
}