<?

// ESPERIMENTO DI COSCIENZA GLOBALE ****************************************************************************************

$istante = TIME();
$ip = $_SERVER['REMOTE_ADDR'];

// LOCALIZZA EGGS *********************************************************************************
$a = 10000/0.5;	// il valore 0.5(%) indica il limite statistico ***********************************
$b = 100-$a;

$dati[0] = $istante.";0;90;0;1;1";
$dati[1] = $istante.";0;-19.5;-140;1;1";
$dati[2] = $istante.";0;-19.5;-14;1;1";
$dati[3] = $istante.";0;-19.5;80;1;1";
$dati[4] = $istante.";0;-90;0;1;1";
$dir_eggs = OPENDIR("eggs");
DO
{
$f_egg = READDIR($dir_eggs);
IF (SUBSTR($f_egg, STRLEN($f_egg)-4, 4) == ".egg") {
	$egg = FILE("eggs/".$f_egg);
	$dati[COUNT($dati)] = TRIM($egg[0]);
	};
} WHILE ($f_egg <> "");
SORT($dati);

FOR ($k=0; $k<COUNT($dati); $k++) {
	LIST($ist, $ipl, $lat, $lon, $vin, $per) = EXPLODE(";", $dati[$k]);
	IF ($per == 0) {$per = 0.001;};
	$eggsX[$k] = 100*COS(0.017453292*$lat)*COS(0.017453292*$lon);
	$eggsY[$k] = 100*SIN(0.017453292*$lat);
	$eggsZ[$k] = 100*COS(0.017453292*$lat)*SIN(0.017453292*$lon);
	$vin = $vin+($istante-$ist);
	$per = $per+($istante-$ist);
	$eggsC[$k] = $a*$vin/$per+$b+0.5;
	};

// GENERA IMMAGINE ********************************************************************************
$bas_im = IMAGECREATEFROMPNG("globale.png");
$des_im = IMAGECREATE(800, 450);
$sfondo = IMAGECOLORALLOCATE($des_im, 0, 0, 0);
$bianco = IMAGECOLORALLOCATE($des_im, 255, 255, 255);
$n = 0;
FOR ($k=1; $k<=100; $k++) {
	$colore[$n] = IMAGECOLORALLOCATE($des_im, 255-1.54*$k, 100, 100);
	IMAGELINE($des_im, 12+$n, 432, 12+$n, 442, $colore[$n]);
	$n++;
	};
$colore[$n] = IMAGECOLORALLOCATE($des_im, 100, 100, 100);
IMAGELINE($des_im, 12+$n, 432, 12+$n, 442, $colore[$n]);
$n++;
FOR ($k=1; $k<=100; $k++) {
	$colore[$n] = IMAGECOLORALLOCATE($des_im, 100, 100+1.55*$k, 100);
	IMAGELINE($des_im, 12+$n, 432, 12+$n, 442, $colore[$n]);
	$n++;
	};
IMAGESTRING($des_im, 2, 300, 6, "The Global Consciousness Experiment", $bianco);
IMAGECHAR($des_im, 2, 4, 430, "-", $bianco);
IMAGESTRING($des_im, 2, 216, 431, "+ [".$ip."-".(COUNT($eggsC)-5)."]", $bianco);
IMAGESTRING($des_im, 2, 540, 431, "www.ricercaolistica.it - " . DATE("d/m/Y  H:i", $istante), $bianco);
FOR ($y=0; $y<400; $y++) {
	FOR ($x=0; $x<800; $x++) {
		IF (IMAGECOLORAT($bas_im, $x, $y) <> $sfondo) {
			$lat = 200-$y+$y*(20-SQRT($y))/80;
			$lon = $x-400;
			$coordX = 100*COS(0.007853982*$lat)*COS(0.007853982*$lon);
			$coordY = 100*SIN(0.007853982*$lat);
			$coordZ = 100*COS(0.007853982*$lat)*SIN(0.007853982*$lon);
			$num = 0;
			$den = 0;
			FOR ($k=0; $k<COUNT($eggsX); $k++) {
				$distanza = SQRT(($coordX-$eggsX[$k])*($coordX-$eggsX[$k])+($coordY-$eggsY[$k])*($coordY-$eggsY[$k])+($coordZ-$eggsZ[$k])*($coordZ-$eggsZ[$k]));
				$num = $num+$eggsC[$k]/$distanza;
				$den = $den+1/$distanza;
				};
			$col = INTVAL($num/$den+0.5);
			IF ($col < 0) {$col = 0;};
			IF ($col > 200) {$col = 200;};
			IMAGESETPIXEL($des_im, $x, 25+$y, $colore[$col]);
			};
		};
	};

IMAGEDESTROY($bas_im);
IMAGEPNG($des_im);
IMAGEDESTROY($des_im);

// *************************************************************************************************************************

?>