Location: PHPKode > projects > Castor (medical information manager) > castorV2030-3/castor-ss/pinta_cuadros.php
<?php


function centratexto($img,$letra,$re1,$co1,$dif1,$let22,$cc2)
{
	$re11=(($co1+$dif1)-((strlen($let22)*imagefontwidth($letra)))/2);
	imagestring($img,$letra,$re11,$re1,$let22,$cc2);
}

function centratexto2($img,$letra,$ren1,$col1,$col2,$let22,$cc2)
{
	$medc=($col2-$col1)/2;
	$medl=(strlen($let22)*imagefontwidth($letra))/2;
	$pos_ci=$col1+($medc-$medl);
	imagestring($img,$letra,$pos_ci,$ren1,$let22,$cc2);
}

function centratexto3($img,$letra,$ren1,$col1,$ren2,$col2,$let22,$cc2)
{
	$medr=($ren2-$ren1)/2;
	$medlr=imagefontheight($letra)/2;
	$medc=($col2-$col1)/2;
	$medlc=(strlen($let22)*imagefontwidth($letra))/2;
	$pos_ci=$col1+($medc-$medlc);
	$pos_ri=$ren1+($medr-$medlr);
	imagestring($img,$letra,$pos_ci,$pos_ri,$let22,$cc2);
}

function centratexto4($img,$letra,$ren1,$ren2,$col1,$let22,$cc2)
{
	$medr=($ren2-$ren1)/2;
	$medlr=imagefontheight($letra)/2;
	$pos_ri=$ren1+($medr-$medlr);
	imagestring($img,$letra,$col1,$pos_ri,$let22,$cc2);
}

function centratexto5($img,$letra,$ren1,$ren2,$col1,$let22,$cc2)
{
	$medr=($ren2-$ren1)/2;
	$medlr=imagefontheight($letra)/2;
	$pos_ri=$ren1+($medr-$medlr);
	$col2=$col1-(strlen($let22)*imagefontwidth($letra));
	imagestring($img,$letra,$col2,$pos_ri,$let22,$cc2);
}

function centratextov($img,$letra,$ren1,$col1,$ren2,$col2,$let22,$cc2)
{
	$medr=($ren2-$ren1)/2;
	$medlr=(strlen($let22)*imagefontwidth($letra))/2;
	$medc=($col2-$col1)/2;
	$medlc=imagefontheight($letra)/2;
	$pos_ci=$col1+($medc-$medlc);
	$pos_ri=$ren1+($medr+$medlr);
	imagestringup($img,$letra,$pos_ci,$pos_ri,$let22,$cc2);
}

function pintacuadro($img,$numren,$numcol,$colini,$colfin,$renini,$incre,$cc2)
{
	$largo=$colfin-$colini;
	$tamcol=$largo/$numcol;
	for($i=0;$i<=$numren;$i++)
	{
		imageline($img,$colini,$renini+$i*$incre,$colfin,$renini+$i*$incre,$cc2);
		$renfin=$renini+$i*$incre;
	}
	for($j=0;$j<$numcol;$j++) imageline($img, $colini+$j*$tamcol, $renini, $colini+$j*$tamcol,$renfin,$cc2);
	if($colfin==860) $colfin=859;
	imageline($img,$colfin,$renini,$colfin,$renini+($numren*$incre),$cc2);
}
function pintacuadrotxt($img,$numren,$numcol,$colini,$colfin,$renini,$incre,$letra,$let22,$cc2)
{
	pintacuadro($img,$numren,$numcol,$colini,$colfin,$renini,$incre,$cc2);
	$renfin=$renini+$incre;
	centratexto3($img,$letra,$renini,$colini,$renfin,$colfin,$let22,$cc2);
}
function pintacuadrito($img,$numcol,$colini,$colfin,$renini,$incre,$cc2)
{
	$largo=$colfin-$colini;
	$tamcol=$largo/$numcol;
	$numren=1;
	$renfin=$renini+$incre;
	for($j=0;$j<$numcol;$j++) imageline($img, $colini+$j*$tamcol, $renini, $colini+$j*$tamcol,$renini-$incre,$cc2);
	if($colfin==860) $colfin=859;
	imageline($img,$colfin,$renini,$colfin,$renini-$incre,$cc2);
	imageline($img,$colini,$renini,$colfin,$renini,$cc2);
}
function centratexto07_2($img,$letra,$ren1,$col1,$ren2,$let22,$cc2)
{
	$medr=($ren2-$ren1)/2;
	$medlr=imagefontheight($letra)/2;
	$medlc=(strlen($let22)*imagefontwidth($letra))/2;
	$pos_ci=$col1;
	$pos_ri=$ren1+($medr-$medlr);
	imagestring($img,$letra,$pos_ci,$pos_ri,$let22,$cc2);
}
function cortartexto($img,$letra,$col,$ren,$inc,$ncarac,$let,$cc2)
{
	$l_ante=strlen($let);
	$ante1="";
	$ante2="";
	$ante3="";
	$ante4="";
	$ante5="";
	$ante6="";
	$ante7="";
	$ante8="";
	if($l_ante<=$ncarac) $ante1=$let;
	if(($l_ante<=$ncarac*2)&&($l_ante>$ncarac))
	{
		$ante1=substr($let,0,$ncarac);
		$ante2=substr($let,$ncarac,($l_ante-$ncarac));
	}
	if(($l_ante<=$ncarac*3)&&($l_ante>$ncarac))
	{
		$ante1=substr($let,0,$ncarac);
		$ante2=substr($let,$ncarac,$ncarac);
		$ante3=substr($let,$ncarac*2,($l_ante-$ncarac));
	}
	if(($l_ante<=$ncarac*4)&&($l_ante>$ncarac*3))
	{
		$ante1=substr($let,0,$ncarac);
		$ante2=substr($let,$ncarac,$ncarac);
		$ante3=substr($let,$ncarac*2,$ncarac);
		$ante4=substr($let,$ncarac*3,($l_ante-$ncarac*3));
		$letra=1;
		$inc=13;
	}
	if(($l_ante<=$ncarac*5)&&($l_ante>$ncarac*4))
	{
		$ante1=substr($let,0,$ncarac);
		$ante2=substr($let,$ncarac,$ncarac);
		$ante3=substr($let,$ncarac*2,$ncarac);
		$ante4=substr($let,$ncarac*3,$ncarac);
		$ante5=substr($let,$ncarac*4,($l_ante-$ncarac*4));
		$letra=2;
		$inc=12;
	}
	if($l_ante>700)
	{
		$ncarac1=$ncarac;
		$ncarac=$ncarac+27;
		if(($l_ante<=($ncarac1*5)+302)&&($l_ante>$ncarac1*5))
		{
			$ante1=substr($let,0,$ncarac);
			$ante2=substr($let,$ncarac,$ncarac);
			$ante3=substr($let,$ncarac*2,$ncarac);
			$ante4=substr($let,$ncarac*3,$ncarac);
			$ante5=substr($let,$ncarac*4,$ncarac);
			$ante6=substr($let,$ncarac*5,($l_ante-$ncarac*5));
			$letra=1;
			$inc=11;
		}
		if(($l_ante<=$ncarac*7)&&($l_ante>$ncarac*6))
		{
			$ante1=substr($let,0,$ncarac);
			$ante2=substr($let,$ncarac,$ncarac);
			$ante3=substr($let,$ncarac*2,$ncarac);
			$ante4=substr($let,$ncarac*3,$ncarac);
			$ante5=substr($let,$ncarac*4,$ncarac);
			$ante6=substr($let,$ncarac*5,$ncarac);
			$ante7=substr($let,$ncarac*6,($l_ante-$ncarac*6));
			$letra=1;
			$inc=10;
		}
		if(($l_ante<=$ncarac*8)&&($l_ante>$ncarac*7))
		{
			$ante1=substr($let,0,$ncarac);
			$ante2=substr($let,$ncarac,$ncarac);
			$ante3=substr($let,$ncarac*2,$ncarac);
			$ante4=substr($let,$ncarac*3,$ncarac);
			$ante5=substr($let,$ncarac*4,$ncarac);
			$ante6=substr($let,$ncarac*5,$ncarac);
			$ante7=substr($let,$ncarac*6,$ncarac);
			$ante8=substr($let,$ncarac*7,($l_ante-$ncarac*7));
			$letra=1;
			$inc=10;
		}
	}
	imagestring($img,$letra,$col,$ren+($inc*0),$ante1,$cc2);
	imagestring($img,$letra,$col,$ren+($inc*1),$ante2,$cc2);
	imagestring($img,$letra,$col,$ren+($inc*2),$ante3,$cc2);
	imagestring($img,$letra,$col,$ren+($inc*3),$ante4,$cc2);
	imagestring($img,$letra,$col,$ren+($inc*4),$ante5,$cc2);
	imagestring($img,$letra,$col,$ren+($inc*5),$ante6,$cc2);
	imagestring($img,$letra,$col,$ren+($inc*6),$ante7,$cc2);
	imagestring($img,$letra,$col,$ren+($inc*7),$ante8,$cc2);
}
function dividetexto($img,$letra,$ren1,$col1,$col2,$let22,$cc2)
{
	$largolet=strlen($let22);
	switch($letra)
	{
		case 1:
			$inc1=10;
			break;
		case 2:
			$inc1=15;
			break;
		case 3:
			$inc1=20;
			break;
		case 4:
			$inc1=25;
			break;
		case 5:
			$inc1=30;
			break;
	}
	for($i=0;$i<=$largolet;$i++)
	{
		centratextov($img,$letra,$ren1+($inc1*$i),$col1,($ren1+$inc1)+($inc1*$i),$col2,$let22[$i],$cc2);
	}
}
function llenacuadro($img,$numren,$numcol,$colini,$colfin,$renini,$incre,$cc2)
{
	$mueve=intval($incre/2);
	for($i=0;$i<=$mueve;$i++)
	{
		pintacuadro($img,$numren,$numcol,$colini+$i,$colfin-$i,$renini+$i,$incre-($i*2),$cc2);
	}
}
function llenacuadrotxt($img,$numren,$numcol,$colini,$colfin,$renini,$incre,$letra,$let22,$cc2,$cc3)
{
	$mueve=intval($incre/2);
	for($i=0;$i<=$mueve;$i++)
	{
		pintacuadro($img,$numren,$numcol,$colini+$i,$colfin-$i,$renini+$i,$incre-($i*2),$cc2);
	}
	$renfin=$renini+$incre;
	centratexto3($img,$letra,$renini,$colini,$renfin,$colfin,$let22,$cc3);
}
?>
Return current item: Castor (medical information manager)