Chip 2004 October/CMCD1004.ISO/Software/Shareware/Programare/cnstats/graph/lines.php

PHP Script | 2004-06-21 | 4.8 KB | 190 lines

<?
session_start();
session_register("DATA");
$DATA=$HTTP_SESSION_VARS["DATA"];

include "../_funct.php";

function imagelinethick($image, $x1, $y1, $x2, $y2, $color, $thick = 1)
{
   /* this way it works well only for orthogonal lines
   imagesetthickness($image, $thick);
   return imageline($image, $x1, $y1, $x2, $y2, $color);
   */
   if ($thick == 1) {
       return imageline($image, $x1, $y1, $x2, $y2, $color);
   }
   $t = $thick / 2 - 0.5;
   if ($x1 == $x2 || $y1 == $y2) {
       return imagefilledrectangle($image, round(min($x1, $x2) - $t), round(min($y1, $y2) - $t), round(max($x1, $x2) + $t), round(max($y1, $y2) + $t), $color);
   }
   $k = ($y2 - $y1) / ($x2 - $x1); //y = kx + q
   $a = $t / sqrt(1 + pow($k, 2));
   $points = array(
       round($x1 - (1+$k)*$a), round($y1 + (1-$k)*$a),
       round($x1 - (1-$k)*$a), round($y1 - (1+$k)*$a),
       round($x2 + (1+$k)*$a), round($y2 - (1-$k)*$a),
       round($x2 + (1-$k)*$a), round($y2 + (1+$k)*$a),
   );
   imagefilledpolygon($image, $points, 4, $color);
   return imagepolygon($image, $points, 4, $color);
}

$GDVERSION=gdVersion();
if ($HTTP_GET_VARS["antialias"]==0) $GDVERSION=1;

// ╨ατ≡σ°σφΦσ
$W=$IMGW;
$H=$IMGH;

// ╬≥±≥≤∩√
$MB=20; // bottom
$ML=8; // left
$M=5; // ε±≥αδⁿφ√σ

// ╪Φ≡Φφα εΣφεπε ±Φ∞Γεδα
$LW=imagefontwidth(2);

$THICK=1;

// ┼±δΦ Γσ≡±Φ  GD ßεδⁿ°σ ≈σ∞ 2.0, ≥ε Γ±σ Γ ΣΓα ≡ατα ßεδⁿ°σ (Σδ  ±πδαµΦΓαφΦ )
if ($GDVERSION>=2) {
    $W*=2;$H*=2;
    $DX*=2;$DY*=2;
    $LW*=2;$MB*=2;$M*=2;$ML*=2;
    $THICK*=2;
    }

// ╩εδΦ≈σ±≥Γε ²δσ∞σφ≥εΓ
$count=count($DATA[0]);
if (count($DATA[1])>$count) $count=count($DATA[1]);
if (count($DATA[2])>$count) $count=count($DATA[2]);

if ($count==0) $count=1;

// ╤πδαµΦΓασ∞ π≡α⌠ΦΩΦ ##########################################################
if ($HTTP_GET_VARS["s"]==1) {
    for ($i=2;$i<$count-2;$i++) {
        for ($j=0;$j<$count;$j++) {
            $DATA[$j][$i]=($DATA[$j][$i-1]+$DATA[$j][$i-2]+$DATA[$j][$i]+$DATA[$j][$i+1]+$DATA[$j][$i+2])/5;
            }
        }
    }

// ╠αΩ±Φ∞αδⁿφεσ τφα≈σφΦσ
$max=0;

for ($i=0;$i<$count;$i++) {
    $max=$max<$DATA[0][$i]?$DATA[0][$i]:$max;
    $max=$max<$DATA[1][$i]?$DATA[1][$i]:$max;
    $max=$max<$DATA[2][$i]?$DATA[2][$i]:$max;
    }

include "shared.php";

$county=10;
$max=$nmax;

// ╧εΣ≡αΓφ σ∞ δσΓ≤■ π≡αφΦ÷≤
$text_width=strlen(cNumber($max))*$LW;
$ML+=$text_width;

// ╨σαδⁿφ√σ ≡ατ∞σ≡√ π≡α⌠ΦΩα
$RW=$W-$ML-$M;
$RH=$H-$MB-$M;

// ╩εε≡ΣΦφα≥√ φ≤δ
$X0=$ML;
$Y0=$H-$MB;

$step=$RH/$county;

imagefilledrectangle($im, $X0, $Y0-$RH, $X0+$RW, $Y0, $bg[1]);
imagerectangle($im, $X0, $Y0, $X0+$RW, $Y0-$RH, $c);

// ┬√ΓεΣ ±σ≥ΩΦ ∩ε ε±Φ Y
for ($i=1;$i<=$county;$i++) {
    $y=$Y0-$step*$i;
    imageline($im,$X0,$y,$X0+$RW,$y,$c);
    imageline($im,$X0,$y,$X0-($ML-$text_width)/4,$y,$text);
    }

// ┬√ΓεΣ ±σ≥ΩΦ ∩ε ε±Φ X
// ┬√ΓεΣ Φτ∞σφ σ∞εΘ ±σ≥ΩΦ
for ($i=0;$i<$count;$i++) {
    imageline($im,$X0+$i*($RW/$count),$Y0,$X0+$i*($RW/$count),$Y0,$c);
    imageline($im,$X0+$i*($RW/$count),$Y0,$X0+$i*($RW/$count),$Y0-$RH,$c);
    }

// ┬√ΓεΣ ±≥εδß÷σΓ
$dx=($RW/$count)/2;

$pi=$Y0-($RH/$max*$DATA[0][0]);
$po=$Y0-($RH/$max*$DATA[1][0]);
$pu=$Y0-($RH/$max*$DATA[2][0]);
$px=intval($X0+$dx);

for ($i=1;$i<$count;$i++) {
    $x=intval($X0+$i*($RW/$count)+$dx);

    $y=$Y0-($RH/$max*$DATA[0][$i]);
    imagelinethick($im,$px,$pi,$x,$y,$bar[0][2],$THICK);
    $pi=$y;

    $y=$Y0-($RH/$max*$DATA[1][$i]);
    imagelinethick($im,$px,$po,$x,$y,$bar[1][2],$THICK);
    $po=$y;

    $y=$Y0-($RH/$max*$DATA[2][$i]);
    imagelinethick($im,$px,$pu,$x,$y,$bar[2][2],$THICK);
    $pu=$y;
    $px=$x;
    }

// ╙∞σφⁿ°σφΦσ Φ ∩σ≡σ±≈σ≥ Ωε≡≡ΣΦφα≥
$ML-=$text_width;
if ($GDVERSION>=2) {
    $im1=imagecreatetruecolor($W/2,$H/2);
    imagecopyresampled($im1,$im,0,0,0,0,$W/2,$H/2,$W,$H);
    imagedestroy($im);
    $im=$im1;

    $W/=2;$H/=2;
    $DX/=2;$DY/=2;
    $LW/=2;$MB/=2;$M/=2;$ML/=2;
    $X0/=2;$Y0/=2;$step/=2;
    $RW/=2;$RH/=2;
    }

$text=imagecolorallocate($im,136,197,145);

$text=imagecolorallocate($im,136,197,145);

// ┬√ΓεΣ ∩εΣ∩Φ±σΘ ∩ε ε±Φ Y
for ($i=1;$i<=$county;$i++) {
    $str=cNumber(($max/$county)*$i);
    imagestring($im,2, $X0-strlen($str)*$LW-$ML/4-2,$Y0-$step*$i-imagefontheight(2)/2,$str,$text);
    }

// ┬√ΓεΣ ∩εΣ∩Φ±σΘ ∩ε ε±Φ X
$prev=100000;
$twidth=$LW*strlen($DATA["x"][0])+6;
$i=$X0+$RW;

while ($i>$X0) {
    if ($prev-$twidth>$i) {
        $drawx=$i-($RW/$count)/2;
        if ($drawx>$X0) {
            $str=$DATA["x"][intval(($i-$X0)/($RW/$count))-1];
            imageline($im,$drawx,$Y0,$i-($RW/$count)/2,$Y0+5,$text);
            imagestring($im,2, $drawx-(strlen($str)*$LW)/2 ,$Y0+7,$str,$text);
            }
        $prev=$i;
        }
    $i-=$RW/$count;
    }

header("Content-Type: image/png");
imagepng($im);
imagedestroy($im);
?>