Subversion Repositories Applications.papyrus

<?

/* 	*****************************  classe arbre  ***********************************

*	class permettant la creation d'un arbre, elle est fonctionnelle en tant que module

*	de gsite (www.gsite.org).

*	L'arbre peut servir de representation graphique de donnees statistiques.

*	Copyright 2001 Tela Botanica

*	Auteurs : Daniel Mathieu, Nicolas Touillaud, Alexandre Granier

*	Cette bibliothèque est libre, vous pouvez la redistribuer et/ou la modifier

*	selon les termes de la Licence Publique Générale GNU publiée par la

*	Free Software Foundation.

*	Cette bibliothèque est distribuée car potentiellement utile, mais SANS

*	AUCUNE GARANTIE, ni explicite ni implicite, y compris les garanties de

*	commercialisation ou d'adaptation dans un but spécifique.

*

************************************************************************************/

  include('php/frame/arbre/tailles.php3');

 //recuperation des noms de table

 $nom_table_index = "AGORA" ;

 $nom_table_tela = "AGO_TELA_BOTANICAE" ;

 global $GS_GLOBAL ;

 mysql_select_db($GS_GLOBAL['mysql_db'],$GS_GLOBAL['link']) ;

 $tables = mysql_query("select AGO_A_NOMGRP from agora where ((AGO_A_VISIBLE=1) and (AGO_A_NOMGRP <> \"tela-botanicae\"))");

 $nbtables_dessin = mysql_num_rows($tables);

 mysql_free_result($tables);

 $hauteur=$yfait;

 //verification si il y a des listes a afficher

 if ($nbtables_dessin==""):{$nbdroite=0;}

 else : {$nbdroite=(round($nbtables_dessin/2))+1;}

 endif;

function calc_xref_branche($xres_,$xfeuille_, $xtronc_)

 //calcule la taille de reference des branches

 {

  //global $xres, $xfeuille, $xtronc;

  $toto=round(($xres_-$xtronc_-(2*$xfeuille_))/2);

  return $toto;

 }

 //******************************************************

 // calcule l'espace vertical entre 2 branche d'un meme coté: si il n'y a pas la place -> 12 pixels

 function calc_esver()

 {

global $nbdroite ;

  if ($nbdroite != 1):

  {

   global $yres, $yfait, $yracine, $ybranche, $nbdroite;

   $toto=($yres-$yfait-$yracine-($nbdroite*$ybranche))/($nbdroite-1);

   if($toto<0):{$toto=12;} //on ne se place plus sur 1 ecran mais sur plus

   endif;

   return $toto;

  }

  else:{return 0;}

  endif;

 }

 //******************************************************

 $esver=calc_esver();

 //******************************************************

 //calcul la position en x de la branche

 function calcul_x_branche($adroite,$xreel)

 {

  global $xres, $xtronc, $xref_branche;

  $tempx=($xres+$xtronc)/2-2; //pour un bug

  if($adroite != 1):

  {

   $tempx=$tempx+2-$xtronc-($xreel);

  }

  endif;

  return round($tempx);

 }

 //******************************************************

 //Il est impératif d'afficher 1 branche d'un coté, puis de l'autre etc..

 //******************************************************

 //retourne la position y de la branche (et de la feuille) et met à jour la hauteur de la prochaine branche

 function calcul_y_branche()

 {

  global $esver, $hauteur, $ybranche;

  $toto=$hauteur;

  $hauteur=$hauteur+(($ybranche+$esver)/2);

  return $toto;

 }

 //******************************************************

 //******************************************************

 //retourne la position x du tronc

 function x_tronc()

 {

  global $xtronc, $xres;

  return ($xres-$xtronc)/2;

 }

 //******************************************************

 //******************************************************

 //retourne la position y du tronc

 function y_tronc()

 {

  global $yfait;

  return ($yfait);

 }

 //******************************************************

 //******************************************************

 // retourne la position x de la racine

 function x_racine()

 {

  global $xracine, $xres;

  return ($xres-$xracine)/2;

 }

 //******************************************************

 //******************************************************

 //retourne la taille du tronc en pixels

 function taille_tronc()

 {

  global $nbdroite, $esver, $ybranche;

  $toto=($nbdroite-1)*$esver+($nbdroite*$ybranche);

  return $toto;

 }

 //******************************************************

 //******************************************************

 //retourne la position x de la feuille en fonction des param de la branche

 function calcul_x_feuille($adroite, $pos_branche, $xreel_brch)  //xreel en %

 {

  global $xref_branche, $xfeuille;

  if($adroite !=1):

  {

   $toto=$pos_branche-$xfeuille;

  }

  else:

  {

   $toto=$pos_branche+($xreel_brch);

  }

  endif;

  return $toto;

 }

 //******************************************************

 //******************************************************

 // retourne la position y de la racine

 function y_racine()

 {

  global $yfait;

  $toto=$yfait+taille_tronc();

  return $toto;

 }

 //******************************************************

 //******************************************************

 //met 1 à 0 et inversement

 function dg($dte)

 {

  if($dte==1):{return 0;}

  else:{return 1;}

  endif;

 }

 //******************************************************

 //******************************************************

 //une fonction qui prend le % de vert *100 et qui sort la chaine html du vert correspondant

 function couleur_f($prc)

 {

  if ($prc==0) return ("#279C27");

  if (($prc>0) && ($prc<=16)) return ("#279C27");

  if (($prc>16) && ($prc<=32)) return ("#CCCC00");

  if (($prc>32) && ($prc<=48)) return ("#FFCC00");

  if (($prc>48) && ($prc<=64)) return ("#DD8D22");

  if (($prc>64) && ($prc<=80)) {

  			return "#FF6600" ;

			} else {

			return "#CC3300" ;

			}

}

//*****************************************************

//une fonction qui détermine si un entier est pair ou non

function est_pair($un_entier)

{

 return(($un_entier %2)==0);

}

?>