3维饼图php版

3维饼图
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
关键词：PHP
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
一直想发表点东西。最近刚把php4中的php_gd.dll搞定，就迫不及待的想做点图形程序玩玩。看到有许多php做饼图的例子,看了一下都是2维的，于是就想做个3维的。经过努力pie3d完成了，好东西与大家分享。不过小弟是php新手，代码可能不够精炼，希望大家指教共同来完善这个程序。记得通知我（[email protected]）
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
+------------------------+
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
| pie3dfun.php//公用函数 |
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
+------------------------+
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
define("ANGLE_STEP",5);//定义画椭圆弧时的角度步长
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
function chx_getdarkcolor($img,$clr){//求$clr对应的暗色
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$rgb=imagecolorsforindex($img,$clr);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
return array($rgb["red"]/2,$rgb["green"]/2,$rgb["blue"]/2);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
}
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
function chx_getexy($a,$b,$d){//求角度$d对应的椭圆上的点坐标
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$d=deg2rad($d);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
return array(round($a*Cos($d)),round($b*Sin($d)));
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
}
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
function chx_arc($img,$ox,$oy,$a,$b,$sd,$ed,$clr){//椭圆弧函数
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$n=ceil(($ed-$sd)/ANGLE_STEP);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$d=$sd;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
list($x0,$y0)=chx_getexy($a,$b,$d);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
for($i=0;$i<$n;$i++){
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$d=($d+ANGLE_STEP)>$ed?$ed:($d+ANGLE_STEP);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
list($x,$y)=chx_getexy($a,$b,$d);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
imageline($img,$x0+$ox,$y0+$oy,$x+$ox,$y+$oy,$clr);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$x0=$x;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$y0=$y;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
}
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
}
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
function chx_sector($img,$ox,$oy,$a,$b,$sd,$ed,$clr){//画扇面
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$n=ceil(($ed-$sd)/ANGLE_STEP);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$d=$sd;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
list($x0,$y0)=chx_getexy($a,$b,$d);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
imageline($img,$x0+$ox,$y0+$oy,$ox,$oy,$clr);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
for($i=0;$i<$n;$i++){
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$d=($d+ANGLE_STEP)>$ed?$ed:($d+ANGLE_STEP);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
list($x,$y)=chx_getexy($a,$b,$d);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
imageline($img,$x0+$ox,$y0+$oy,$x+$ox,$y+$oy,$clr);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$x0=$x;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$y0=$y;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
}
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
imageline($img,$x0+$ox,$y0+$oy,$ox,$oy,$clr);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
list($x,$y)=chx_getexy($a/2,$b/2,($d+$sd)/2);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
imagefill($img,$x+$ox,$y+$oy,$clr);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
}
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
function chx_sector3d($img,$ox,$oy,$a,$b,$v,$sd,$ed,$clr){//3d扇面
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
chx_sector($img,$ox,$oy,$a,$b,$sd,$ed,$clr);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
if($sd<180){
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
list($R,$G,$B)=chx_getdarkcolor($img,$clr);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$clr=imagecolorallocate($img,$R,$G,$B);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
if($ed>180) $ed=180;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
list($sx,$sy)=chx_getexy($a,$b,$sd);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$sx+=$ox;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$sy+=$oy;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
list($ex,$ey)=chx_getexy($a,$b,$ed);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$ex+=$ox;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$ey+=$oy;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
imageline($img,$sx,$sy,$sx,$sy+$v,$clr);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
imageline($img,$ex,$ey,$ex,$ey+$v,$clr);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
chx_arc($img,$ox,$oy+$v,$a,$b,$sd,$ed,$clr);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
list($sx,$sy)=chx_getexy($a,$b,($sd+$ed)/2);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$sy+=$oy+$v/2;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$sx+=$ox;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
imagefill($img,$sx,$sy,$clr);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
}
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
}
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
function chx_getindexcolor($img,$clr){//RBG转索引色
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$R=($clr>>16) & 0xff;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$G=($clr>>8)& 0xff;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$B=($clr) & 0xff;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
return imagecolorallocate($img,$R,$G,$B);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
}
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
?>
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
+--------------------------+
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
| pie3d.php //三维饼图文件 |
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
+--------------------------+
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
require("pie3dfun.php");
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$a=150;//椭圆长半轴
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$b=50;//椭圆段半轴
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$v=20;//圆饼高度
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$font=5;//字体
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$ox=5+$a;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$oy=5+$b;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$fw=imagefontwidth($font);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$fh=imagefontheight($font);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$datLst=array(30,10,20,20,10,20,10,20);//数据
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$labLst=array("a1","a2","a3","a4","a5","a6","a7","a8");//标签
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$clrLst=array(0x99ff00,0xff6666,0x0099ff,0xff99ff,0xffff99,0x99ffff,0xff3333,0x009999);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$w=10+$a*2;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$h=10+$b*2+$v+($fh+2)*count($datLst);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$img=imagecreate($w,$h);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
//转RGB为索引色
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
for($i=0;$i
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$clrbk=imagecolorallocate($img,0xff,0xff,0xff);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$clrt=imagecolorallocate($img,0x00,0x00,0x00);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
//填充背景色
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
imagefill($img,0,0,$clrbk);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
//求和
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$tot=0;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
for($i=0;$i
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$sd=0;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$ed=0;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$ly=10+$b*2+$v;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
for($i=0;$i $sd=$ed;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$ed+=$datLst[$i]/$tot*360;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
//画圆饼
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
chx_sector3d($img,$ox,$oy,$a,$b,$v,$sd,$ed,$clrLst[$i]);//$sd,$ed,$clrLst[$i]);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
//画标签
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
imagefilledrectangle($img,5,$ly,5+$fw,$ly+$fh,$clrLst[$i]);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
imagerectangle($img,5,$ly,5+$fw,$ly+$fh,$clrt);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
imagestring($img,$font,5+2*$fw,$ly,
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$labLst[$i].":".$datLst[$i]."(".(round(10000*($datLst[$i]/$tot))/100)."%)",
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$clrt);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
$ly+=$fh+2;
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
}
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
//输出图形
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
header("Content-type:image/gif");
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
imagegif($img);
chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R

chi na it p owe r .comijrgWBynz7HvxTerGPToOK45R
?>
php爱好者站 http://www.ｐｈｐfans.net Linux|Apache|IIS.