792 lines
27 KiB
PHP
792 lines
27 KiB
PHP
<?php
|
|
|
|
/**
|
|
* Draw.php
|
|
*
|
|
* @since 2011-05-23
|
|
* @category Library
|
|
* @package PdfGraph
|
|
* @author Nicola Asuni <info@tecnick.com>
|
|
* @copyright 2011-2024 Nicola Asuni - Tecnick.com LTD
|
|
* @license http://www.gnu.org/copyleft/lesser.html GNU-LGPL v3 (see LICENSE.TXT)
|
|
* @link https://github.com/tecnickcom/tc-lib-pdf-graph
|
|
*
|
|
* This file is part of tc-lib-pdf-graph software library.
|
|
*/
|
|
|
|
namespace Com\Tecnick\Pdf\Graph;
|
|
|
|
use Com\Tecnick\Pdf\Graph\Exception as GraphException;
|
|
|
|
/**
|
|
* Com\Tecnick\Pdf\Graph\Draw
|
|
*
|
|
* @since 2011-05-23
|
|
* @category Library
|
|
* @package PdfGraph
|
|
* @author Nicola Asuni <info@tecnick.com>
|
|
* @copyright 2011-2024 Nicola Asuni - Tecnick.com LTD
|
|
* @license http://www.gnu.org/copyleft/lesser.html GNU-LGPL v3 (see LICENSE.TXT)
|
|
* @link https://github.com/tecnickcom/tc-lib-pdf-graph
|
|
*
|
|
* @phpstan-import-type StyleDataOpt from \Com\Tecnick\Pdf\Graph\Base
|
|
*
|
|
* @SuppressWarnings("PHPMD.ExcessiveClassComplexity")
|
|
*/
|
|
class Draw extends \Com\Tecnick\Pdf\Graph\Gradient
|
|
{
|
|
/**
|
|
* Draws a line between two points.
|
|
*
|
|
* @param float $posx1 Abscissa of first point.
|
|
* @param float $posy1 Ordinate of first point.
|
|
* @param float $posx2 Abscissa of second point.
|
|
* @param float $posy2 Ordinate of second point.
|
|
* @param StyleDataOpt $style Line style to apply.
|
|
*
|
|
* @return string PDF command
|
|
*/
|
|
public function getLine(
|
|
float $posx1,
|
|
float $posy1,
|
|
float $posx2,
|
|
float $posy2,
|
|
array $style = [],
|
|
): string {
|
|
return $this->getStyleCmd($style)
|
|
. $this->getRawPoint($posx1, $posy1)
|
|
. $this->getRawLine($posx2, $posy2)
|
|
. $this->getPathPaintOp('S');
|
|
}
|
|
|
|
/**
|
|
* Draws a Bezier curve.
|
|
* The Bezier curve is a tangent to the line between the control points at either end of the curve.
|
|
*
|
|
* @param float $posx0 Abscissa of start point.
|
|
* @param float $posy0 Ordinate of start point.
|
|
* @param float $posx1 Abscissa of control point 1.
|
|
* @param float $posy1 Ordinate of control point 1.
|
|
* @param float $posx2 Abscissa of control point 2.
|
|
* @param float $posy2 Ordinate of control point 2.
|
|
* @param float $posx3 Abscissa of end point.
|
|
* @param float $posy3 Ordinate of end point.
|
|
* @param string $mode Mode of rendering. @see getPathPaintOp()
|
|
* @param StyleDataOpt $style Style.
|
|
*
|
|
* @return string PDF command
|
|
*
|
|
* @SuppressWarnings("PHPMD.ExcessiveParameterList")
|
|
*/
|
|
public function getCurve(
|
|
float $posx0,
|
|
float $posy0,
|
|
float $posx1,
|
|
float $posy1,
|
|
float $posx2,
|
|
float $posy2,
|
|
float $posx3,
|
|
float $posy3,
|
|
string $mode = 'S',
|
|
array $style = [],
|
|
): string {
|
|
return $this->getStyleCmd($style)
|
|
. $this->getRawPoint($posx0, $posy0)
|
|
. $this->getRawCurve($posx1, $posy1, $posx2, $posy2, $posx3, $posy3)
|
|
. $this->getPathPaintOp($mode);
|
|
}
|
|
|
|
/**
|
|
* Draws a poly-Bezier curve.
|
|
* Each Bezier curve segment is a tangent to the line between the control points at either end of the curve.
|
|
*
|
|
* @param float $posx0 Abscissa of start point.
|
|
* @param float $posy0 Ordinate of start point.
|
|
* @param array<array<float>> $segments An array of bezier descriptions. Format: array(x1, y1, x2, y2, x3, y3).
|
|
* @param string $mode Mode of rendering. @see getPathPaintOp()
|
|
* @param StyleDataOpt $style Style.
|
|
*
|
|
* @return string PDF command
|
|
*/
|
|
public function getPolycurve(
|
|
float $posx0,
|
|
float $posy0,
|
|
array $segments,
|
|
string $mode = 'S',
|
|
array $style = [],
|
|
): string {
|
|
$out = $this->getStyleCmd($style)
|
|
. $this->getRawPoint($posx0, $posy0);
|
|
foreach ($segments as $segment) {
|
|
[$posx1, $posy1, $posx2, $posy2, $posx3, $posy3] = $segment;
|
|
$out .= $this->getRawCurve($posx1, $posy1, $posx2, $posy2, $posx3, $posy3);
|
|
}
|
|
|
|
return $out . $this->getPathPaintOp($mode);
|
|
}
|
|
|
|
/**
|
|
* Draws an ellipse.
|
|
* An ellipse is formed from n Bezier curves.
|
|
*
|
|
* @param float $posx Abscissa of center point.
|
|
* @param float $posy Ordinate of center point.
|
|
* @param float $hrad Horizontal radius.
|
|
* @param float $vrad Vertical radius.
|
|
* @param float $angle Angle oriented (anti-clockwise). Default value: 0.
|
|
* @param float $angs Angle in degrees at which starting drawing.
|
|
* @param float $angf Angle in degrees at which stop drawing.
|
|
* @param string $mode Mode of rendering. @see getPathPaintOp()
|
|
* @param StyleDataOpt $style Style.
|
|
* @param int $ncv Number of curves used to draw a 90 degrees portion of ellipse.
|
|
*
|
|
* @return string PDF command
|
|
*
|
|
* @SuppressWarnings("PHPMD.ExcessiveParameterList")
|
|
*/
|
|
public function getEllipse(
|
|
float $posx,
|
|
float $posy,
|
|
float $hrad,
|
|
float $vrad = 0,
|
|
float $angle = 0,
|
|
float $angs = 0,
|
|
float $angf = 360,
|
|
string $mode = 'S',
|
|
array $style = [],
|
|
int $ncv = 2
|
|
): string {
|
|
if (empty($vrad)) {
|
|
$vrad = $hrad;
|
|
}
|
|
|
|
return $this->getStyleCmd($style)
|
|
. $this->getRawEllipticalArc(
|
|
$posx,
|
|
$posy,
|
|
$hrad,
|
|
$vrad,
|
|
$angle,
|
|
$angs,
|
|
$angf,
|
|
false,
|
|
$ncv,
|
|
true,
|
|
true,
|
|
false
|
|
)
|
|
. $this->getPathPaintOp($mode);
|
|
}
|
|
|
|
/**
|
|
* Draws a circle.
|
|
* A circle is formed from n Bezier curves.
|
|
*
|
|
* @param float $posx Abscissa of center point.
|
|
* @param float $posy Ordinate of center point.
|
|
* @param float $rad Radius.
|
|
* @param float $angs Angle in degrees at which starting drawing.
|
|
* @param float $angf Angle in degrees at which stop drawing.
|
|
* @param string $mode Mode of rendering. @see getPathPaintOp()
|
|
* @param StyleDataOpt $style Style.
|
|
* @param int $ncv Number of curves used to draw a 90 degrees portion of ellipse.
|
|
*
|
|
* @return string PDF command
|
|
*/
|
|
public function getCircle(
|
|
float $posx,
|
|
float $posy,
|
|
float $rad,
|
|
float $angs = 0,
|
|
float $angf = 360,
|
|
string $mode = 'S',
|
|
array $style = [],
|
|
int $ncv = 2
|
|
): string {
|
|
return $this->getEllipse($posx, $posy, $rad, $rad, 0, $angs, $angf, $mode, $style, $ncv);
|
|
}
|
|
|
|
/**
|
|
* Draws a circle pie sector.
|
|
*
|
|
* @param float $posx Abscissa of center point.
|
|
* @param float $posy Ordinate of center point.
|
|
* @param float $rad Radius.
|
|
* @param float $angs Angle in degrees at which starting drawing.
|
|
* @param float $angf Angle in degrees at which stop drawing.
|
|
* @param string $mode Mode of rendering. @see getPathPaintOp()
|
|
* @param StyleDataOpt $style Style.
|
|
* @param int $ncv Number of curves used to draw a 90 degrees portion of ellipse.
|
|
*
|
|
* @return string PDF command
|
|
*/
|
|
public function getPieSector(
|
|
float $posx,
|
|
float $posy,
|
|
float $rad,
|
|
float $angs = 0,
|
|
float $angf = 360,
|
|
string $mode = 'FD',
|
|
array $style = [],
|
|
int $ncv = 2
|
|
): string {
|
|
return $this->getStyleCmd($style)
|
|
. $this->getRawEllipticalArc(
|
|
$posx,
|
|
$posy,
|
|
$rad,
|
|
$rad,
|
|
0,
|
|
$angs,
|
|
$angf,
|
|
true,
|
|
$ncv,
|
|
true,
|
|
true,
|
|
false
|
|
)
|
|
. $this->getPathPaintOp($mode);
|
|
}
|
|
|
|
/**
|
|
* Draws a basic polygon.
|
|
*
|
|
* @param array<float> $points Points - array containing 4 points for each segment: (x0, y0, x1, y1, x2, y2, ...)
|
|
* @param string $mode Mode of rendering. @see getPathPaintOp()
|
|
* @param StyleDataOpt $style Style.
|
|
*
|
|
* @return string PDF command
|
|
*/
|
|
public function getBasicPolygon(
|
|
array $points,
|
|
string $mode = 'S',
|
|
array $style = [],
|
|
): string {
|
|
$nco = count($points); // number of coordinates
|
|
$out = $this->getStyleCmd($style)
|
|
. $this->getRawPoint($points[0], $points[1]);
|
|
for ($idx = 2; $idx < $nco; $idx += 2) {
|
|
$out .= $this->getRawLine($points[$idx], $points[($idx + 1)]);
|
|
}
|
|
|
|
return $out . $this->getPathPaintOp($mode);
|
|
}
|
|
|
|
/**
|
|
* Returns the polygon default style command and initialize the first segment style if missing.
|
|
*
|
|
* @param array<StyleDataOpt> $styles Array of styles -
|
|
* one style entry for each polygon segment and/or one global "all" entry.
|
|
*
|
|
* @return string PDF command
|
|
*/
|
|
protected function getDefaultSegStyle(array $styles = []): string
|
|
{
|
|
$out = '';
|
|
if (! empty($styles['all'])) {
|
|
$out .= $this->getStyleCmd($styles['all']);
|
|
}
|
|
|
|
if (empty($styles[0])) {
|
|
$styles[0] = [];
|
|
}
|
|
|
|
return $out;
|
|
}
|
|
|
|
/**
|
|
* Draws a polygon with a different style for each segment.
|
|
*
|
|
* @param array<float> $points Points - array with values (x0, y0, x1, y1,..., x(n-1), y(n-1))
|
|
* @param string $mode Mode of rendering. @see getPathPaintOp()
|
|
* @param array<StyleDataOpt> $styles Array of styles -
|
|
* one style entry for each polygon segment and/or one global "all" entry.
|
|
*
|
|
* @return string PDF command
|
|
*
|
|
* @SuppressWarnings("PHPMD.CyclomaticComplexity")
|
|
* @SuppressWarnings("PHPMD.NPathComplexity")
|
|
*/
|
|
public function getPolygon(array $points, string $mode = 'S', array $styles = []): string
|
|
{
|
|
$nco = count($points); // number of points
|
|
if ($nco < 6) {
|
|
return ''; // we need at least 3 points
|
|
}
|
|
|
|
$nseg = (int) ($nco / 2); // number of segments (including the closing one)
|
|
|
|
$out = $this->getDefaultSegStyle($styles);
|
|
|
|
if (
|
|
$this->isClosingMode($mode)
|
|
&& (($points[($nco - 2)] != $points[0]) || ($points[($nco - 1)] != $points[1]))
|
|
) {
|
|
// close polygon by adding the first point (x, y) at the end
|
|
$points[$nco++] = $points[0];
|
|
$points[$nco++] = $points[1];
|
|
if (!empty($styles[0])) {
|
|
// copy style for the last segment
|
|
$styles[($nseg - 1)] = $styles[0];
|
|
}
|
|
}
|
|
|
|
// paint the filling
|
|
if ($this->isFillingMode($mode)) {
|
|
$out .= $this->getBasicPolygon($points, $this->getModeWithoutStroke($mode));
|
|
if ($this->isClippingMode($mode)) {
|
|
return $out;
|
|
}
|
|
}
|
|
|
|
$nco -= 3;
|
|
|
|
// paint the outline
|
|
for ($idx = 0; $idx < $nco; $idx += 2) {
|
|
$segid = (int) ($idx / 2);
|
|
if (! isset($styles[$segid])) {
|
|
$styles[$segid] = [];
|
|
}
|
|
|
|
$out .= $this->getLine(
|
|
$points[$idx],
|
|
$points[($idx + 1)],
|
|
$points[($idx + 2)],
|
|
$points[($idx + 3)],
|
|
$styles[$segid]
|
|
);
|
|
}
|
|
|
|
return $out;
|
|
}
|
|
|
|
/**
|
|
* Draws a regular polygon.
|
|
*
|
|
* @param float $posx Abscissa of center point.
|
|
* @param float $posy Ordinate of center point.
|
|
* @param float $radius Radius of inscribed circle.
|
|
* @param int $sides Number of sides.
|
|
* @param float $angle Angle of the orientation (anti-clockwise).
|
|
* @param string $mode Mode of rendering. @see getPathPaintOp()
|
|
* @param array<StyleDataOpt> $styles Array of styles -
|
|
* one style entry for each polygon segment and/or one global "all" entry.
|
|
* @param string $cirmode Mode of rendering of the inscribed circle (if any). @see getPathPaintOp()
|
|
* @param StyleDataOpt $cirstyle Style of inscribed circle.
|
|
*
|
|
* @return string PDF command
|
|
*/
|
|
public function getRegularPolygon(
|
|
float $posx,
|
|
float $posy,
|
|
float $radius,
|
|
int $sides,
|
|
float $angle = 0,
|
|
string $mode = 'S',
|
|
array $styles = [],
|
|
string $cirmode = '',
|
|
array $cirstyle = []
|
|
): string {
|
|
if ($sides < 3) { // triangle is the minimum polygon
|
|
return '';
|
|
}
|
|
|
|
$out = '';
|
|
if ($cirmode !== '') {
|
|
$out .= $this->getCircle($posx, $posy, $radius, 0, 360, $cirmode, $cirstyle);
|
|
}
|
|
|
|
$points = [];
|
|
for ($idx = 0; $idx < $sides; ++$idx) {
|
|
$angrad = $this->degToRad($angle + ($idx * 360 / $sides));
|
|
$points[] = ($posx + ($radius * sin($angrad)));
|
|
$points[] = ($posy + ($radius * cos($angrad)));
|
|
}
|
|
|
|
return $out . $this->getPolygon($points, $mode, $styles);
|
|
}
|
|
|
|
/**
|
|
* Draws a star polygon.
|
|
*
|
|
* @param float $posx Abscissa of center point.
|
|
* @param float $posy Ordinate of center point.
|
|
* @param float $radius Radius of inscribed circle.
|
|
* @param int $nvert Number of vertices.
|
|
* @param int $ngaps Number of gaps (if ($ngaps % $nvert = 1) then is a regular polygon).
|
|
* @param float $angle Angle oriented (anti-clockwise).
|
|
* @param string $mode Mode of rendering. @see getPathPaintOp()
|
|
* @param array<StyleDataOpt> $styles Array of styles -
|
|
* one style entry for each polygon segment and/or one global "all" entry.
|
|
* @param string $cirmode Mode of rendering of the inscribed circle (if any). @see getPathPaintOp()
|
|
* @param StyleDataOpt $cirstyle Style of inscribed circle.
|
|
*
|
|
* @return string PDF command
|
|
*
|
|
* @SuppressWarnings("PHPMD.ExcessiveParameterList")
|
|
*/
|
|
public function getStarPolygon(
|
|
float $posx,
|
|
float $posy,
|
|
float $radius,
|
|
int $nvert,
|
|
int $ngaps,
|
|
float $angle = 0,
|
|
string $mode = 'S',
|
|
array $styles = [],
|
|
string $cirmode = '',
|
|
array $cirstyle = []
|
|
): string {
|
|
if ($nvert < 2) {
|
|
return '';
|
|
}
|
|
|
|
$out = '';
|
|
if ($cirmode !== '') {
|
|
$out .= $this->getCircle($posx, $posy, $radius, 0, 360, $cirmode, $cirstyle);
|
|
}
|
|
|
|
$points2 = [];
|
|
$visited = [];
|
|
for ($idx = 0; $idx < $nvert; ++$idx) {
|
|
$angrad = $this->degToRad($angle + ($idx * 360 / $nvert));
|
|
$points2[] = $posx + ($radius * sin($angrad));
|
|
$points2[] = $posy + ($radius * cos($angrad));
|
|
$visited[] = false;
|
|
}
|
|
|
|
$points = [];
|
|
$idx = 0;
|
|
do {
|
|
$points[] = $points2[($idx * 2)];
|
|
$points[] = $points2[(($idx * 2) + 1)];
|
|
$visited[$idx] = true;
|
|
$idx += $ngaps;
|
|
$idx %= $nvert;
|
|
} while (! $visited[$idx]);
|
|
|
|
return $out . $this->getPolygon($points, $mode, $styles);
|
|
}
|
|
|
|
/**
|
|
* Draws a rectangle with a different style for each segment.
|
|
*
|
|
* @param float $posx Abscissa of upper-left corner.
|
|
* @param float $posy Ordinate of upper-left corner.
|
|
* @param float $width Width.
|
|
* @param float $height Height.
|
|
* @param string $mode Mode of rendering. @see getPathPaintOp()
|
|
* @param array<StyleDataOpt> $styles Array of styles -
|
|
* one style entry for each side (T,R,B,L) and/or one global "all" entry.
|
|
|
|
* @return string PDF command
|
|
*/
|
|
public function getRect(
|
|
float $posx,
|
|
float $posy,
|
|
float $width,
|
|
float $height,
|
|
string $mode = 'S',
|
|
array $styles = []
|
|
): string {
|
|
$points = [
|
|
$posx, $posy,
|
|
$posx + $width, $posy,
|
|
$posx + $width, $posy + $height,
|
|
$posx, $posy + $height,
|
|
$posx, $posy,
|
|
];
|
|
return $this->getPolygon($points, $mode, $styles);
|
|
}
|
|
|
|
/**
|
|
* Draws a rounded rectangle.
|
|
*
|
|
* @param float $posx Abscissa of upper-left corner.
|
|
* @param float $posy Ordinate of upper-left corner.
|
|
* @param float $width Width.
|
|
* @param float $height Height.
|
|
* @param float $hrad X-axis radius of the ellipse used to round off the corners of the rectangle.
|
|
* @param float $vrad Y-axis radius of the ellipse used to round off the corners of the rectangle.
|
|
* @param string $corner Round corners to draw: 0 (square i-corner) or 1 (rounded i-corner) in i-position.
|
|
* Positions are int the following order: top right, bottom right, bottom left and
|
|
* top left.
|
|
* @param string $mode Mode of rendering. @see getPathPaintOp()
|
|
* @param StyleDataOpt $style Style.
|
|
*
|
|
* @return string PDF command
|
|
*
|
|
* @SuppressWarnings("PHPMD.CyclomaticComplexity")
|
|
* @SuppressWarnings("PHPMD.NPathComplexity")
|
|
*/
|
|
public function getRoundedRect(
|
|
float $posx,
|
|
float $posy,
|
|
float $width,
|
|
float $height,
|
|
float $hrad,
|
|
float $vrad,
|
|
string $corner = '1111',
|
|
string $mode = 'S',
|
|
array $style = [],
|
|
): string {
|
|
if (($corner === '0000') || (empty($hrad) && empty($vrad))) {
|
|
// basic rectangle with straight corners
|
|
return $this->getBasicRect($posx, $posy, $width, $height, $mode, $style);
|
|
}
|
|
|
|
$out = $this->getStyleCmd($style);
|
|
if ($corner[3] !== '0') {
|
|
$out .= $this->getRawPoint(($posx + $hrad), $posy);
|
|
} else {
|
|
$out .= $this->getRawPoint($posx, $posy);
|
|
}
|
|
|
|
$posxc = ($posx + $width - $hrad);
|
|
$posyc = ($posy + $vrad);
|
|
$out .= $this->getRawLine($posxc, $posy);
|
|
$arc = (4 / 3 * (sqrt(2) - 1));
|
|
$harc = ($hrad * $arc);
|
|
$varc = ($vrad * $arc);
|
|
|
|
if ($corner[0] !== '0') {
|
|
$out .= $this->getRawCurve(
|
|
($posxc + $harc),
|
|
($posyc - $vrad),
|
|
($posxc + $hrad),
|
|
($posyc - $varc),
|
|
($posxc + $hrad),
|
|
$posyc
|
|
);
|
|
} else {
|
|
$out .= $this->getRawLine(($posx + $width), $posy);
|
|
}
|
|
|
|
$posxc = ($posx + $width - $hrad);
|
|
$posyc = ($posy + $height - $vrad);
|
|
$out .= $this->getRawLine(($posx + $width), $posyc);
|
|
|
|
if ($corner[1] !== '0') {
|
|
$out .= $this->getRawCurve(
|
|
($posxc + $hrad),
|
|
($posyc + $varc),
|
|
($posxc + $harc),
|
|
($posyc + $vrad),
|
|
$posxc,
|
|
($posyc + $vrad)
|
|
);
|
|
} else {
|
|
$out .= $this->getRawLine(($posx + $width), ($posy + $height));
|
|
}
|
|
|
|
$posxc = ($posx + $hrad);
|
|
$posyc = ($posy + $height - $vrad);
|
|
$out .= $this->getRawLine($posxc, ($posy + $height));
|
|
|
|
if ($corner[2] !== '0') {
|
|
$out .= $this->getRawCurve(
|
|
($posxc - $harc),
|
|
($posyc + $vrad),
|
|
($posxc - $hrad),
|
|
($posyc + $varc),
|
|
($posxc - $hrad),
|
|
$posyc
|
|
);
|
|
} else {
|
|
$out .= $this->getRawLine($posx, ($posy + $height));
|
|
}
|
|
|
|
$posxc = ($posx + $hrad);
|
|
$posyc = ($posy + $vrad);
|
|
$out .= $this->getRawLine($posx, $posyc);
|
|
|
|
if ($corner[3] !== '0') {
|
|
$out .= $this->getRawCurve(
|
|
($posxc - $hrad),
|
|
($posyc - $varc),
|
|
($posxc - $harc),
|
|
($posyc - $vrad),
|
|
$posxc,
|
|
($posyc - $vrad)
|
|
);
|
|
} else {
|
|
$out .= $this->getRawLine($posx, $posy);
|
|
}
|
|
|
|
return $out . $this->getPathPaintOp($mode);
|
|
}
|
|
|
|
/**
|
|
* Draws an arrow.
|
|
*
|
|
* @param float $posx0 Abscissa of first point.
|
|
* @param float $posy0 Ordinate of first point.
|
|
* @param float $posx1 Abscissa of second point (head side).
|
|
* @param float $posy1 Ordinate of second point (head side)
|
|
* @param int $headmode Arrow head mode:
|
|
* 0 = draw only
|
|
* head arms; 1 =
|
|
* draw closed head
|
|
* without filling;
|
|
* 2 = closed and
|
|
* filled head; 3 =
|
|
* filled head.
|
|
* @param float $armsize Length of head arms.
|
|
* @param int $armangle Angle between an head arm and the arrow shaft.
|
|
* @param StyleDataOpt $style Line style to apply.
|
|
*
|
|
* @return string PDF command
|
|
*/
|
|
public function getArrow(
|
|
float $posx0,
|
|
float $posy0,
|
|
float $posx1,
|
|
float $posy1,
|
|
int $headmode = 0,
|
|
float $armsize = 5,
|
|
int $armangle = 15,
|
|
array $style = [],
|
|
): string {
|
|
// getting arrow direction angle; 0 deg angle is when both arms go along X axis; angle grows clockwise.
|
|
$dir_angle = atan2(($posy0 - $posy1), ($posx0 - $posx1));
|
|
if ($dir_angle < 0) {
|
|
$dir_angle += (2 * self::MPI);
|
|
}
|
|
|
|
$armangle = $this->degToRad($armangle);
|
|
$sx1 = $posx1;
|
|
$sy1 = $posy1;
|
|
if ($headmode > 0) {
|
|
// calculate the stopping point for the arrow shaft
|
|
$linewidth = 0;
|
|
$linewidth = $style['lineWidth'] ?? (float) $this->getLastStyleProperty('lineWidth', $linewidth);
|
|
|
|
$sx1 = ($posx1 + (($armsize - $linewidth) * cos($dir_angle)));
|
|
$sy1 = ($posy1 + (($armsize - $linewidth) * sin($dir_angle)));
|
|
}
|
|
|
|
$out = $this->getStyleCmd($style);
|
|
// main arrow line / shaft
|
|
$out .= $this->getLine($posx0, $posy0, $sx1, $sy1);
|
|
// left arrowhead arm tip
|
|
$hxl = ($posx1 + ($armsize * cos($dir_angle + $armangle)));
|
|
$hyl = ($posy1 + ($armsize * sin($dir_angle + $armangle)));
|
|
// right arrowhead arm tip
|
|
$hxr = ($posx1 + ($armsize * cos($dir_angle - $armangle)));
|
|
$hyr = ($posy1 + ($armsize * sin($dir_angle - $armangle)));
|
|
$modemap = [
|
|
0 => 'S',
|
|
1 => 's',
|
|
2 => 'b',
|
|
3 => 'f',
|
|
];
|
|
$points = [$hxl, $hyl, $posx1, $posy1, $hxr, $hyr];
|
|
return $out . $this->getBasicPolygon($points, $modemap[$headmode], $style);
|
|
}
|
|
|
|
/**
|
|
* Get a registration mark.
|
|
*
|
|
* @param float $posx Abscissa of center point.
|
|
* @param float $posy Ordinate of center point.
|
|
* @param float $rad Radius.
|
|
* @param bool $double If true prints two concentric crop marks.
|
|
* @param string $color Color.
|
|
*
|
|
* @return string PDF command
|
|
*/
|
|
public function getRegistrationMark(
|
|
float $posx,
|
|
float $posy,
|
|
float $rad,
|
|
bool $double = false,
|
|
string $color = 'all'
|
|
): string {
|
|
$style = [
|
|
'lineWidth' => max((0.5 / $this->kunit), ($rad / 30)),
|
|
'lineCap' => 'butt',
|
|
'lineJoin' => 'miter',
|
|
'miterLimit' => (10.0 / $this->kunit),
|
|
'dashArray' => [],
|
|
'dashPhase' => 0,
|
|
'lineColor' => $color,
|
|
'fillColor' => $color,
|
|
];
|
|
|
|
$colobj = $this->pdfColor->getColorObject($color);
|
|
if (! $colobj instanceof \Com\Tecnick\Color\Model) {
|
|
throw new GraphException('Unknow color: ' . $color);
|
|
}
|
|
|
|
$out = $colobj->getPdfColor()
|
|
. $this->getPieSector($posx, $posy, $rad, 90, 180, 'F')
|
|
. $this->getPieSector($posx, $posy, $rad, 270, 360, 'F')
|
|
. $this->getCircle($posx, $posy, $rad, 0, 360, 'S', [], 8);
|
|
if ($double) {
|
|
$radi = ($rad * 0.5);
|
|
$out .= $colobj->invertColor()->getPdfColor()
|
|
. $this->getPieSector($posx, $posy, $radi, 90, 180, 'F')
|
|
. $this->getPieSector($posx, $posy, $radi, 270, 360, 'F')
|
|
. $this->getCircle($posx, $posy, $radi, 0, 360, 'S', [], 8)
|
|
. $colobj->getPdfColor()
|
|
. $this->getPieSector($posx, $posy, $radi, 0, 90, 'F')
|
|
. $this->getPieSector($posx, $posy, $radi, 180, 270, 'F')
|
|
. $this->getCircle($posx, $posy, $radi, 0, 360, 'S', [], 8);
|
|
}
|
|
|
|
return $this->getStartTransform()
|
|
. $this->getStyleCmd($style)
|
|
. $out
|
|
. $this->getStopTransform();
|
|
}
|
|
|
|
/**
|
|
* Get a CMYK registration mark.
|
|
*
|
|
* @param float $posx Abscissa of center point.
|
|
* @param float $posy Ordinate of center point.
|
|
* @param float $rad Radius.
|
|
*
|
|
* @return string PDF command
|
|
*/
|
|
public function getCmykRegistrationMark(float $posx, float $posy, float $rad): string
|
|
{
|
|
// internal radius
|
|
$radi = ($rad * 0.6);
|
|
// external radius
|
|
$rade = ($rad * 1.3);
|
|
// line style for external circle
|
|
$style = [
|
|
'lineWidth' => max((0.5 / $this->kunit), ($rad / 30)),
|
|
'lineCap' => 'butt',
|
|
'lineJoin' => 'miter',
|
|
'miterLimit' => (10.0 / $this->kunit),
|
|
'dashArray' => [],
|
|
'dashPhase' => 0,
|
|
'lineColor' => 'All',
|
|
'fillColor' => '',
|
|
];
|
|
|
|
return $this->getStartTransform()
|
|
. (($this->pdfColor->getColorObject('Cyan') instanceof \Com\Tecnick\Color\Model)
|
|
? $this->pdfColor->getColorObject('Cyan')->getPdfColor() : '')
|
|
. $this->getPieSector($posx, $posy, $radi, 270, 360, 'F')
|
|
. (($this->pdfColor->getColorObject('Magenta') instanceof \Com\Tecnick\Color\Model)
|
|
? $this->pdfColor->getColorObject('Magenta')->getPdfColor() : '')
|
|
. $this->getPieSector($posx, $posy, $radi, 0, 90, 'F')
|
|
. (($this->pdfColor->getColorObject('Yellow') instanceof \Com\Tecnick\Color\Model)
|
|
? $this->pdfColor->getColorObject('Yellow')->getPdfColor() : '')
|
|
. $this->getPieSector($posx, $posy, $radi, 90, 180, 'F')
|
|
. (($this->pdfColor->getColorObject('Key') instanceof \Com\Tecnick\Color\Model)
|
|
? $this->pdfColor->getColorObject('Key')->getPdfColor() : '')
|
|
. $this->getPieSector($posx, $posy, $radi, 180, 270, 'F')
|
|
. $this->getStyleCmd($style)
|
|
. $this->getCircle($posx, $posy, $rad, 0, 360, 'S', [], 8)
|
|
. $this->getLine($posx, ($posy - $rade), $posx, ($posy - $radi))
|
|
. $this->getLine($posx, ($posy + $radi), $posx, ($posy + $rade))
|
|
. $this->getLine(($posx - $rade), $posy, ($posx - $radi), $posy)
|
|
. $this->getLine(($posx + $radi), $posy, ($posx + $rade), $posy)
|
|
. $this->getStopTransform();
|
|
}
|
|
}
|