Software Público Brasileiro

<? 
 /* 
 Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil

 Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais

 O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como 
 publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opnião) qualquer versão.

 Este programa é distribuido na esperança que possa ser  util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer
 MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.

 Você deve ter recebido uma cópia da Licença Pública Geral GNU, sob o título "LICENCA.txt", junto com este programa, se não, escreva para a Fundação do Software
 Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 */
function FilledArc(&$im, $CenterX, $CenterY, $DiameterX, $DiameterY, $Start, $End, $line_color, $fill_color='none',$key='') 
	{
	ImageArc($im, $CenterX, $CenterY, $DiameterX, $DiameterY, $Start, $End, $line_color);
	// To close the arc with 2 lines between the center and the 2 limits of the arc 
	$x = $CenterX + (cos(deg2rad($Start)) * ($DiameterX / 2)); 
	$y = $CenterY + (sin(deg2rad($Start)) * ($DiameterY / 2)); 
	ImageLine($im, $x, $y, $CenterX, $CenterY, $line_color); 
	$x = $CenterX + (cos(deg2rad($End)) * ($DiameterX / 2)); 
	$y = $CenterY + (sin(deg2rad($End)) * ($DiameterY / 2)); 
	ImageLine($im, $x, $y, $CenterX, $CenterY, $line_color); 
	// To fill the arc, the starting point is a point in the middle of the closed space 
	$x = $CenterX + (cos(deg2rad(($Start + $End) / 2)) * ($DiameterX / 4)); 
	$y = $CenterY + (sin(deg2rad(($Start + $End) / 2)) * ($DiameterY / 4)); 
	ImageFillToBorder($im, $x, $y, $line_color, $fill_color);
	
	// Ainda faltam vários ajustes... Anderson Peterle => 08/08/2007
	if ($key)
		ImageStringUp($im,2,$x,$y,$key,$x);
	}
	
function phPie($data, $width, $height, $CenterX, $CenterY, $DiameterX, $DiameterY, $MinDisplayPct, $DisplayColors, $BackgroundColor, $LineColor, $Legend, $FontNumber, $CreatePie, $Sort, $DisplaySequence, $ShowText, $strTypeIMG='PNG') 
	{
	// Ajustes necessários ao redimencionamento das pizzas...
	$width 		   += 95;
	$height 	   += 95;
	$CenterX 	   += 80;
	$TamanhoLinha   = 215; // Tamanho Padrão
	 	 
	$FontNumber	    = 2; // Fixo o código da fonte em 2, reduzindo-a
						// devido à saturação gerada pelas legendas nas estatísticas
						// Acho legal tornar esse código flexível no futuro!... Anderson Peterle 07/11/2007 12:42PM
	
	$MinDisplayPct  = 0;

	$DisplayColors .=   'FF0000;'; 
	$DisplayColors .=   '3333FF;'; 
	$DisplayColors .=   '660066;'; 
	$DisplayColors .=   'FFCC00;'; 
	$DisplayColors .=   '0000CC;'; 
	$DisplayColors .=   '99CC33;'; 
	$DisplayColors .=   '9966CC;'; 
	$DisplayColors .=   'DA3600;'; 
	$DisplayColors .=   '0F84D4;'; 
	$DisplayColors .=   'F9A308;'; 
	$DisplayColors .=   '62D038;'; 
	$DisplayColors .=   'FE670F;'; 
	$DisplayColors .=   '2C9232;'; 
	$DisplayColors .=   '7F0B80;'; 
	$DisplayColors .=   'DFDE29;'; 
	$DisplayColors .=   '9F9F9F;'; 
	$DisplayColors .=   'EDEDED;'; 
	$DisplayColors .=   'BAE700;'; 
	$DisplayColors .=   '00FFFF;'; 
	$DisplayColors .=   '0000FF;'; 
	$DisplayColors .=   '009933;'; 
	$DisplayColors .=   '99FF66;'; 
	$DisplayColors .=   'FFCCCC;'; 	
	$DisplayColors .=   '9933FF;'; 
	$DisplayColors .=   'CC66CC;'; 	
	$DisplayColors .=   'FF99FF;'; 
	$DisplayColors .=   'FFFF99;'; 
	$DisplayColors .=   '3399FF;'; 
	$DisplayColors .=   '66CC66;'; 
	$DisplayColors .=   'CCCC99;'; 
			
	$BackgroundColor 	= 'FFFFFF';
	$LineColor 			= 'FFFFFF';		
	if (!$CreatePie) 
		{
		$DisplayColors = '000000';
		$BackgroundColor ='FFFFFF';					
		}

	$CenterX = round($width  / 2);
	$CenterY = round($height / 2);
	$DiameterX = round($width * 0.95);
	$DiameterY = round($height * 0.95);

	if (isset($data) && !is_array($data)) 
		{
		$data = unserialize(stripslashes($data));
		} 
	else if (!isset($data)) 
		{
//		$data = array('Nenhum Registro'=>1);
		$height = 50;
		}
	
	if ($Legend) 
		{
		$DiameterX = $DiameterY;
		$CenterX   = ($width) - $CenterY;
		}

	if (($width > 8192) || ($height > 8192) || ($width <= 0) || ($height <= 0)) 
		{
		die('Image size limited to 8192 x 8192 for safety reasons');
		}

	if ($im = @ImageCreate($width, $height)) 
		{
		$background_color = ImageColorAllocate($im, hexdec(substr($BackgroundColor, 0, 2)), hexdec(substr($BackgroundColor, 2, 2)), hexdec(substr($BackgroundColor, 4, 2)));
		$line_color       = ImageColorAllocate($im, hexdec(substr($LineColor, 0, 2)), hexdec(substr($LineColor, 2, 2)), hexdec(substr($LineColor, 4, 2)));
		$fillcolorsarray = explode(';', $DisplayColors);
		for ($i = 0; $i < count($fillcolorsarray); $i++) 
			{
			$fill_color[]  = ImageColorAllocate($im, hexdec(substr($fillcolorsarray["$i"], 0, 2)), hexdec(substr($fillcolorsarray["$i"], 2, 2)), hexdec(substr($fillcolorsarray["$i"], 4, 2)));
			$label_color[] = ImageColorAllocate($im, hexdec(substr($fillcolorsarray["$i"], 0, 2)) * 0.8, hexdec(substr($fillcolorsarray["$i"], 2, 2)) * 0.8, hexdec(substr($fillcolorsarray["$i"], 4, 2)) * 0.8);
			}

		if ((count($data) <= 0) and ($Legend)) 
			{
//			ImageString($im, $FontNumber, 5, round((ImageFontHeight($FontNumber) * .5) + ($valuecounter * 1.5 * ImageFontHeight($FontNumber))), 'Total: 0', '9933FF');
			ImageString($im, $FontNumber, 1, round((ImageFontHeight($FontNumber) * .5) + ($valuecounter * 1.1 * ImageFontHeight($FontNumber))), '                   ***** Nenhum Registro Encontrado *****', '9933FF');			
			}
		else
			{
			$TotalArrayValues = array_sum($data);				
			if ($Sort)
				{ 
				arsort($data);
				}

			$Start = 0;
			$valuecounter = 0;
			$ValuesSoFar = 0;

			foreach ($data as $key => $value) 
				{
				if ($DisplaySequence)
					{
					$key = str_pad(($valuecounter + 1),$DisplaySequence,' ',STR_PAD_LEFT).') '.$key;					
					$TamanhoLinha = 240;
					}
				$ValuesSoFar += $value;
			
				if (($value / $TotalArrayValues) > $MinDisplayPct) 
					{
					$End = ceil(($ValuesSoFar / $TotalArrayValues) * 360);
					if ($CreatePie)
						{
						FilledArc($im, $CenterX, $CenterY, $DiameterX, $DiameterY, $Start, $End, $line_color, $fill_color[$valuecounter % count($fill_color)],($ShowText?$key:''));
						}
					if ($Legend) 
						{
//						$MeuY = round((ImageFontHeight($FontNumber) * .5) + ($valuecounter * 1.5 * ImageFontHeight($FontNumber)));
						$MeuY = round((ImageFontHeight($FontNumber) * .5) + ($valuecounter * 1.1 * ImageFontHeight($FontNumber)));						
						ImageString($im, $FontNumber, 1, $MeuY, $key . ': ' . str_pad($value,6,' ',STR_PAD_LEFT) . '('.str_pad(number_format(($value / $TotalArrayValues) * 100, 1),5,' ',STR_PAD_LEFT).'%)', $label_color[$valuecounter % count($label_color)]);
						if ($CreatePie)
							{							
							$MeuYLinha = $MeuY + ImageFontHeight($FontNumber) + 1;
							ImageLine($im, 1, $MeuYLinha, $TamanhoLinha, $MeuYLinha, '999999');
							}
						}
					$Start = $End;
					} 
				else 
					{
					// too small to bother drawing - just finish off the arc with no fill and break
					$End = 360;
					if ($CreatePie)
						{
						FilledArc($im, $CenterX, $CenterY, $DiameterX, $DiameterY, $Start, $End, $line_color, $line_color, ($ShowText?$key:''));
						}						
					if ($Legend) 
						{
//						ImageString($im, $FontNumber, 1, round((ImageFontHeight($FontNumber) * .5) + ($valuecounter * 1.5 * ImageFontHeight($FontNumber))), 'Other ('.str_pad(number_format((($TotalArrayValues - $ValuesSoFar) / $TotalArrayValues) * 100, 1),4,' ',STR_PAD_LEFT).'%)', $line_color);
						ImageString($im, $FontNumber, 1, round((ImageFontHeight($FontNumber) * .5) + ($valuecounter * 1.1 * ImageFontHeight($FontNumber))), 'Other ('.str_pad(number_format((($TotalArrayValues - $ValuesSoFar) / $TotalArrayValues) * 100, 1),4,' ',STR_PAD_LEFT).'%)', $line_color);						
						}
					break;
					}
				$valuecounter++;
				}
				
			if ($Legend) 
				{
				$MeuYLinha = $MeuY + ImageFontHeight($FontNumber) + 1;

				if (!$CreatePie)
					{
					$TamanhoLinha = $width - 24;
					}
				ImageLine($im, 1, $MeuYLinha, $TamanhoLinha, $MeuYLinha, '999999');					
				ImageLine($im, 1, $MeuYLinha+1, $TamanhoLinha, $MeuYLinha+1, '999999');										
//				ImageString($im, $FontNumber, 1, round((ImageFontHeight($FontNumber) * .5) + ($valuecounter * 1.5 * ImageFontHeight($FontNumber))), str_pad('Total',strlen($key),'.',STR_PAD_RIGHT) . ': ' . str_pad($TotalArrayValues,6,' ',STR_PAD_LEFT) . '(100.0%)', '999999');				
				ImageString($im, $FontNumber, 1, round((ImageFontHeight($FontNumber) * .5) + ($valuecounter * 1.1 * ImageFontHeight($FontNumber))), str_pad('Total',strlen($key),'.',STR_PAD_RIGHT) . ': ' . str_pad($TotalArrayValues,6,' ',STR_PAD_LEFT) . '(100.0%)', '999999');								
				}
			}
		if ($strTypeIMG=='PNG')
			{
			header('Content-type: image/png');
			ImagePNG($im);
			}
		elseif ($strTypeIMG=='GIF')
			{
			header('Content-type: image/gif');
			ImageGIF($im);
			}
		ImageDestroy($im);
		return true;	
		} 
	else 
		{
		echo 'Cannot Initialize new GD image stream';
		return false;
		}
	}
?>