关于如何使用IDL绘制饼图

徐徐清风

idl作为一门编程语言，不能绘制饼图是比较令人遗憾的，尽管绘制饼图能替代的工具很多，但还是想利用IDL来绘制饼图。附件是程序代码，基于IDL8
.5运行，不想下载的我把代码贴下面：
pro pieplot,x0,y0,r,color,angle,angle1
nu=round(angle*10)
nu1=round(angle1*10)
x=[x0,x0+r*cos(0.1*(nu1+indgen(nu+1))/180.0*!pi)]
y=[y0,y0+r*sin(0.1*(nu1+indgen(+nu+1))/180.0*!pi)]
p=polygon(x,y,/NORMAL,color=color,FILL_COLOR=color,target=p)
end
pro pie_plot
   w = WINDOW($
    WINDOW_TITLE = 'pie',DIMENSIONS=[500,500]);
pieplot,0.5,0.5,0.2,'red',30,0
t=text(0.7,0.55,'8.33 %','red',/normal)
pieplot,0.5,0.5,0.2,'blue',60,30
t=text(0.59,0.67,'16.67 %','blue',/normal)
pieplot,0.5,0.5,0.2,'green',90,90
t=text(0.32,0.67,'25 %','green',/normal)
pieplot,0.5,0.5,0.2,'cyan',180,180
t=text(0.48,0.26,'50 %','cyan',/normal)
end

效果图如下：