[火星帖]PHP打造超酷資料餅圖
阿新 • • 發佈：2020-10-09
好早以前看過，地址也保留過，後來找不到了，留一篇備份吧。
原始碼：
PHP程式碼如下:
原始碼：
PHP程式碼如下:
//+------------------------+
//|pie3dfun.PHP//公用函式|
//+------------------------+
define("ANGLE_STEP",5);//定義畫橢圓弧時的角度步長
functiondraw_getdarkcolor($img,$clr)//求$clr對應的暗色
{
$rgb=p_w_picpathcolorsforindex($img,$clr);
returnarray($rgb["red"]/2,$rgb["green"]/2,$rgb["blue"
}
functiondraw_getexy($a,$b,$d)//求角度$d對應的橢圓上的點座標
{
$d=deg2rad($d);
returnarray(round($a*Cos($d)),round($b*Sin($d)));
}
functiondraw_arc($img,$ox,$oy,$a,$b,$sd,$ed,$clr)//橢圓弧函式
{
$n=ceil(($ed-$sd)/ANGLE_STEP);
$d=$sd;
list($x0,$y0)=draw_getexy($a,$b,$d);
for($i=0;$i<$n;$i++)
{
$d=($d+ANGLE_STEP)>$ed?$ed:($d+ANGLE_STEP
list($x,$y)=draw_getexy($a,$b,$d);
p_w_picpathline($img,$x0+$ox,$y0+$oy,$x+$ox,$y+$oy,$clr);
$x0=$x;
$y0=$y;
}
}
functiondraw_sector($img,$ox,$oy,$a,$b,$sd,$ed,$clr)//畫扇面
{
$n=ceil(($ed-$sd)/ANGLE_STEP);
$d=$sd;
list($x0,$y0)=draw_getexy($a,$b,$d);
p_w_picpathline($img,$x0+$ox,$y0+$oy,$ox,$oy,$clr);
for($i=0;$i<$n;$i++)
$d=($d+ANGLE_STEP)>$ed?$ed:($d+ANGLE_STEP);
list($x,$y)=draw_getexy($a,$b,$d);
p_w_picpathline($img,$x0+$ox,$y0+$oy,$x+$ox,$y+$oy,$clr);
$x0=$x;
$y0=$y;
}
p_w_picpathline($img,$x0+$ox,$y0+$oy,$ox,$oy,$clr);
list($x,$y)=draw_getexy($a/2,$b/2,($d+$sd)/2);
p_w_picpathfill($img,$x+$ox,$y+$oy,$clr);
}
functiondraw_sector3d($img,$ox,$oy,$a,$b,$v,$sd,$ed,$clr)//3d扇面
{
draw_sector($img,$ox,$oy,$a,$b,$sd,$ed,$clr);
if($sd<180)
{
list($R,$G,$B)=draw_getdarkcolor($img,$clr);
$clr=p_w_picpathcolorallocate($img,$R,$G,$B);
if($ed>180)$ed=180;
list($sx,$sy)=draw_getexy($a,$b,$sd);
$sx+=$ox;
$sy+=$oy;
list($ex,$ey)=draw_getexy($a,$b,$ed);
$ex+=$ox;
$ey+=$oy;
p_w_picpathline($img,$sx,$sy,$sx,$sy+$v,$clr);
p_w_picpathline($img,$ex,$ey,$ex,$ey+$v,$clr);
draw_arc($img,$ox,$oy+$v,$a,$b,$sd,$ed,$clr);
list($sx,$sy)=draw_getexy($a,$b,($sd+$ed)/2);
$sy+=$oy+$v/2;
$sx+=$ox;
p_w_picpathfill($img,$sx,$sy,$clr);
}
}
functiondraw_getindexcolor($img,$clr)//RBG轉索引色
{
$R=($clr>>16)&0xff;
$G=($clr>>8)&0xff;
$B=($clr)&0xff;
returnp_w_picpathcolorallocate($img,$R,$G,$B);
}
//繪圖主函式，並輸出圖片
//$datLst為資料陣列,$datLst為標籤陣列,$datLst為顏色陣列
//以上三個陣列的維數應該相等
functiondraw_img($datLst,$labLst,$clrLst,$a=250,$b=120,$v=20,$font=10)
{
$ox=5+$a;
$oy=5+$b;
$fw=p_w_picpathfontwidth($font);
$fh=p_w_picpathfontheight($font);
$n=count($datLst);//資料項個數
$w=10+$a*2;
$h=10+$b*2+$v+($fh+2)*$n;
$img=p_w_picpathcreate($w,$h);
//轉RGB為索引色
for($i=0;$i<$n;$i++)
$clrLst[$i]=draw_getindexcolor($img,$clrLst[$i]);
$clrbk=p_w_picpathcolorallocate($img,0xff,0xff,0xff);
$clrt=p_w_picpathcolorallocate($img,0x00,0x00,0x00);
//填充背景色
p_w_picpathfill($img,0,0,$clrbk);
//求和
$tot=0;
for($i=0;$i<$n;$i++)
$tot+=$datLst[$i];
$sd=0;
$ed=0;333
$ly=10+$b*2+$v;
for($i=0;$i<$n;$i++)
{
$sd=$ed;
$ed+=$datLst[$i]/$tot*360;
//畫圓餅
draw_sector3d($img,$ox,$oy,$a,$b,$v,$sd,$ed,$clrLst[$i]);//$sd,$ed,$clrLst[$i]);
//畫標籤
p_w_picpathfilledrectangle($img,5,$ly,5+$fw,$ly+$fh,$clrLst[$i]);
p_w_picpathrectangle($img,5,$ly,5+$fw,$ly+$fh,$clrt);
//p_w_picpathstring($img,$font,5+2*$fw,$ly,$labLst[$i].":".$datLst[$i]."(".(round(10000*($datLst[$i]/$tot))/100)."%)",$clrt);
$str=iconv("GB2312","UTF-8",$labLst[$i]);
ImageTTFText($img,$font,0,5+2*$fw,$ly+13,$clrt,"./simsun.ttf",$str.":".$datLst[$i]."(".(round(10000*($datLst[$i]/$tot))/100)."%)");
$ly+=$fh+2;
}
//輸出圖形
header("Content-type:p_w_picpath/png");
//輸出生成的圖片
$imgFileName="../temp/".time().".png";
p_w_picpathpng($img,$imgFileName);
echo'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
}
$datLst=array(30,10,20,20,10,20,10,20);//資料
$labLst=array("中國科技大學","安徽理工大學","清華大學","北京大學","南京大學","上海大學","河海大學","中山大學");//標籤
$clrLst=array(0x99ff00,0xff6666,0x0099ff,0xff99ff,0xffff99,0x99ffff,0xff3333,0x009999);
//畫圖
draw_img($datLst,$labLst,$clrLst);
?>