note 32477 rejected from function.imageline by derick
| From: | derick@php.net | Date: | Wed, 28 May 2003 19:13:19 +0000 |
| Subject: | note 32477 rejected from function.imageline by derick | ||
| References: | 1 | Groups: | php.notes |
| Request: | Send a blank email to php-notes+get-49201@lists.php.net to get a copy of this message | ||
Note Submitter: joeldg AT listbid.com
----
<?
#
# generate the julia fractal set
# Joel De Gan
# http://lucifer.intercosmos.net (for more examples)
#
$currimage = imagecreatefrompng("wallpaper_blank.png");
imagealphablending($currimage, true);
$xcorner = -1.5;
$y2corner = 1.5;
$x2corner = 1.5;
$ycorner = -1.5;
$max = 50;
$xsize = 400;
$ysize = 400;
$xgap = 10;
$ygap = 10;
for ($k=$ysize;$k>1;$k--){
for($i=1;$i < $xsize;$i++){
$za = ($i / $xsize) * ($x2corner - $xcorner) + $xcorner;
$zb = ($k / $ysize) * ($y2corner - $ycorner) + $ycorner;
$ca = 0.360284;
$cb = 0.100376;
$count = 0;
$za2 = $za;
while (1){
$za1 = $za2;
$za2 = ($za1 * $za1 - $zb * $zb) + $ca;
$zb = $za1 * $zb * 2 + $cb;
IF (($za2 * $za2 + $zb * $zb) > 4){ break; }
$count++;
if($count > $max){ break; }
}
if($count > $max){ $count = 0; }
$color = imagecolorallocate($currimage, $count, $count, $count);
imageline ($currimage, $xgap+$i, $ygap+$ysize-$k, $xgap+$i, $ygap+$ysize-$k,$color);
#LINE (xgap + i, ygap +ysize- k, xgap+i, ygap +ysize- k)
}
}
if(!imagepng($currimage, "./crap.png")){
echo "shit screwed up\n";
}
?>