\n");

/* Load exhibit halls */
$exhibithall = array();
$q = $pdo->prepare("SELECT * FROM exhibithall WHERE type='exhibithall'");
$q->execute();
TRACE("Loading exhibit halls...\n");
while (($r = $q->fetch(PDO::FETCH_ASSOC))) {
	$r['divs'] = unserialize($r['divs']);
	$r['cats'] = unserialize($r['cats']);
	$exhibithall[$r['id']] = $r;
	TRACE("   - {$r['name']}\n");
}

/* Load objects */
$objects = array();
$q = $pdo->prepare("SELECT * FROM exhibithall WHERE type='wall' OR type='project'");
$q->execute();
TRACE("Loading objects...\n");
while (($r = $q->fetch([PDO::FETCH_ASSOC]))) {
	$r['divs'] = unserialize($r['divs']);
	$r['cats'] = unserialize($r['cats']);
	$objects[$r['id']] = $r;
}
TRACE(count($objects) . " objects loaded.\n");

/* Compute stuff */
foreach ($objects as $oid => $o) {
	$objects[$oid]['w2'] = $o['w'] / 2;
	$objects[$oid]['h2'] = $o['h'] / 2;
}

/* The grid size is the smallest object dimension */
$grid_size = 100;
foreach ($objects as $oid => $o) {
	if ($grid_size > $o['w'])
		$grid_size = $o['w'];
	if ($grid_size > $o['h'])
		$grid_size = $o['h'];
}
$grid_size /= 2;

TRACE("Grid size: {$grid_size}m\n");

// print_r($exhibithall);

// print_r($objects);

$div = array();
TRACE("Loading Project Divisions...\n");
$q = $pdo->prepare("SELECT * FROM projectdivisions WHERE year='{$config['FAIRYEAR']}' ORDER BY id");
while ($r = $q->fetch(PDO::FETCH_OBJ)) {
	$divshort[$r->id] = $r->division_shortform;
	$div[$r->id] = $r->division;
	TRACE("   {$r->id} - {$div[$r->id]}\n");
}

TRACE("Loading Project Age Categories...\n");
$cat = array();
$q = $pdo->prepare("SELECT * FROM projectcategories WHERE year=? ORDER BY id");
$q->execute([$config['FAIRYEAR']]);
while ($r = $q->fetch(PDO::FETCH_OBJ)) {
	$catshort[$r->id] = $r->category_shortform;
	$cat[$r->id] = $r->category;
	TRACE("   {$r->id} - {$r->category}\n");
}

TRACE("Loading Projects...\n");
$projects = array();
$q = $pdo->prepare("SELECT projects.* FROM projects, registrations 
				WHERE
					projects.year=? 
					AND registrations.id = projects.registrations_id
				" . getJudgingEligibilityCode());
$q->execute([$config['FAIRYEAR']]);
while ($p = $q->fetch(PDO::FETCH_OBJ)) {
	$qq = $pdo->prepare("SELECT grade,schools_id FROM students WHERE registrations_id=?");
	$qq->execute([$p->registrations_id]);
	$num_students = $qq->rowCouunt();
	$grade = 0;
	$schools_id = 0;
	while ($s = $qq->fetch(PDO::FETCH_ASSOC)) {
		if ($s['grade'] > $grade) {
			$grade = $s['grade'];
			$schools_id = $s['schools_id'];
		}
	}
	$projects[$p->id] = array(
		'projects_id' => $p->id,
		'div' => $p->projectdivisions_id,
		'cat' => $p->projectcategories_id,
		'grade' => $grade,
		'schools_id' => $schools_id,
		'req_electricity' => $p->req_electricity,
		'projectnumber' => $p->projectnumber,
		'floornumber' => $p->floornumber,
		'num_students' => $num_students
	);
}
TRACE(count($projects) . " projects loaded.\n");

if ($action == 'pn') {
	TRACE("Generating Project Numbers from Floor Locations...\n");
	foreach ($projects as $p) {
		$c = $catshort[$p['cat']];
		$d = $divshort[$p['div']];
		$n = sprintf('%03d', $p['floornumber']);
		$pn = "$c $n $d";
		TRACE("Project {$p['projects_id']} at loc {$p['floornumber']}: $pn\n");
		$q = $pdo->prepare("UPDATE projects SET projectnumber=? WHERE id=?");
		$q->execute([$pn,$p['projects_id']]);
	}
	TRACE("Done.\n");
	exit;
}

/* Assign objects to grid locations */
foreach ($exhibithall as &$i_eh) {
	TRACE("Assigning objects to grid locations for {$i_eh['name']}...\n");
	$ix = 0;
	$i_eh['grid_w'] = 0;
	$i_eh['grid_h'] = 0;
	for ($x = 0; $x <= $i_eh['w']; $x += $grid_size, $ix++) {
		if ($ix <= $i_eh['grid_w'])
			$i_eh['grid_w'] = $ix + 1;
		$iy = 0;
		for ($y = 0; $y <= $i_eh['h']; $y += $grid_size, $iy++) {
			if ($iy <= $i_eh['grid_h'])
				$i_eh['grid_h'] = $iy + 1;
			/* Initialize element if required */
			if (!is_array($i_eh[$ix][$iy])) {
				$i_eh[$ix][$iy] = array('x' => $x, 'ix' => $ix,
					'y' => $y, 'iy' => $iy,
					'ids' => array(),
					'project_front' => 0);
			}

			/* Scan all objects */
			foreach ($objects as $oid => $o) {
				if ($o['exhibithall_id'] != $i_eh['id'])
					continue;
				if (is_point_in_object($x, $y, $o)) {
					$i_eh[$ix][$iy]['ids'][] = $oid;
				}
			}
		}
	}
	TRACE("Grid locations: {$i_eh['grid_w']}x{$i_eh['grid_h']}\n");
}
TRACE("Done.\n");

function distance($x1, $y1, $x2, $y2)
{
	return sqrt(($x1 - $x2) * ($x1 - $x2) + ($y1 - $y2) * ($y1 - $y2));
}

TRACE("Computing gridlocation of front of projects...\n");
foreach ($objects as $oid => $o) {
	if ($o['type'] != 'project')
		continue;

	/* Get a pointer to the exhibit hall */
	$i_eh = &$exhibithall[$o['exhibithall_id']];

	/* Compute the xy of the front (that's the bottom edge of the unrotate project) */
	$fx = 0;
	$fy = $o['h2'];
	//	TRACE("Front orig: ($fx,$fy)\n");

	/* Rotate the point */
	list($fx, $fy) = point_rotate($fx, $fy, $o['orientation']);
	//	TRACE("Front rotate by {$o['orientation']}: ($fx,$fy) \n");
	/* Translate it to the proper position of the object */
	list($fx, $fy) = point_translate($fx, $fy, $o['x'], $o['y']);

	//	TRACE("Front: ($fx,$fy) $grid_size\n");
	/* Snap to grid offsets */
	$gx = intval($fx / $grid_size);  // * $grid_size;
	$gy = intval($fy / $grid_size);  // * $grid_size;

	//	TRACE("Search grid around $gx, $gy\n");

	/*
	 * Search around that grid for a free spot, closest to $fx,$fy,
	 * with no objects and no object_front
	 */
	$smallest_d = $i_eh['w'];
	$smallest_ix = 0;
	$smallest_iy = 0;
	$found = false;
	for ($x = $gx - 1; $x <= $gx + 1; $x++) {
		for ($y = $gy - 1; $y <= $gy + 1; $y++) {
			//			TRACE("At ($x, $y) :\n");
			//			print_r($i_eh[$x][$y]);
			if (count($i_eh[$x][$y]['ids']))
				continue;
			if ($i_eh[$x][$y]['project_front'] > 0)
				continue;

			/* Check distance */
			$d = distance($i_eh[$x][$y]['x'], $i_eh[$x][$y]['y'], $fx, $fy);
			if ($d < $smallest_d) {
				$smallest_d = $d;
				$smallest_ix = $x;
				$smallest_iy = $y;
				$found = true;
			}
		}
	}

	if ($found == false) {
		echo "ERROR: couldn't find project front for:\n";
		print_r($o);
		exit;
	}

	$i_eh[$smallest_ix][$smallest_iy]['project_front'] = $oid;
	$objects[$oid]['front_x'] = $fx;
	$objects[$oid]['front_y'] = $fy;
	$objects[$oid]['front_grid_ix'] = $smallest_ix;
	$objects[$oid]['front_grid_iy'] = $smallest_iy;
}
TRACE("Done.\n");

switch ($action) {
	case 'images':
		exhibithall_images();
		exit;
}

/* Compute closest projects to each project */
$project_distance = 100 / $grid_size;
foreach ($objects as $oid => $o) {
	if ($o['type'] != 'project')
		continue;

	TRACE("Computing paths for {$o['name']}...\n");

	/* Get a pointer to the exhibit hall */
	$i_eh = &$exhibithall[$o['exhibithall_id']];

	/* Starting grid location */
	$grid_start = &$i_eh[$o['front_grid_ix']][$o['front_grid_iy']];

	/* Path to all other objects in the same exhibit hall */
	foreach ($objects as $d_oid => $d_o) {
		if ($d_oid == $oid)
			continue;
		if ($o['exhibithall_id'] != $d_o['exhibithall_id'])
			continue;

		$d = grid_path($o, $d_o);
		$objects[$oid]['nearby_projects'][] = array('distance' => $d, 'id' => $d_oid);
		if ($d < $project_distance)
			$project_distance = $d;
	}
	/* Use the grid_path_cmp to sort the projects based on 'distance' */
	usort($objects[$oid]['nearby_projects'], 'grid_path_cmp');
}
TRACE("Project Distance: {$project_distance} hops\n");

/* Compute project distances */
foreach ($objects as $oid => $o) {
	if ($o['type'] != 'project')
		continue;
	foreach ($objects[$oid]['nearby_projects'] as &$nearby_project) {
		$nearby_project['project_distance'] = $nearby_project['distance'] / $project_distance;
	}
}

/* Build a list of floor objects for the annealer */
$floor_objects = array();
$x = 0;
foreach ($objects as $oid => $o) {
	if ($o['type'] != 'project')
		continue;
	$objects[$oid]['floor_object_offset'] = $x;  /* The same as the annealer bucket id */
	$floor_objects[$x++] = &$objects[$oid];
}

/*
 * Project floor location cost:
 * - Keep divisions together
 * - keep grades together
 * - a project should have one of the same school nearby or adjacent, but not a lot nearby
 */
function project_cost(&$annealer, $bucket_id, $ids)
{
	global $floor_objects, $projects, $exhibithall, $objects;
	$cost = 0;

	/* Get the floor object */
	$o = &$floor_objects[$bucket_id];

	/* The exhibit hall */
	$eh = &$exhibithall[$o['exhibithall_id']];

	if (count($ids) == 0) {
		//		TRACE("No items in bucket, returning 0.\n");
		return 0;
	}
	if (count($ids) > 1) {
		echo "More than one item in bucket! Bug somewhere.\n";
		exit;
	}

	/* Get the project info */
	$p = &$projects[$ids[0]];

	$school_match = 0;
	$div_match = 0;
	$grade_match = 0;

	$x = 0;
	//	TRACE("Cost for bucket $bucket_id...\n");
	$min = $p['grade'];
	$max = $p['grade'];
	foreach ($o['nearby_projects'] as &$n) {
		/* Get the nearby project object */
		$nearby_o = &$objects[$n['id']];

		//		TRACE("   Scanning nearby location {$n['id']} (distance={$n['distance']})\n");
		//		print_r($nearby_o);

		$nearby_bucket_id = $nearby_o['floor_object_offset'];
		$nearby_bkt = &$annealer->bucket[$nearby_bucket_id];

		//		TRACE("      Bucket id: {$nearby_bucket_id} with  ".count($nearby_bkt)." items\n");
		if (count($nearby_bkt) == 0)
			continue;

		$nearby_p = &$projects[$nearby_bkt[0]];

		/* Only consider closest 5 projects for school */
		if ($nearby_p['schools_id'] == $p['schools_id']) {
			if ($x < 5)
				$school_match++;
		}

		/* Closest 5 projects for divs */
		if ($nearby_p['div'] == $p['div']) {
			if ($x < 5)
				$div_match++;
		}

		/* Closest 10 for grade variance */
		if ($x < 10) {
			if ($nearby_p['grade'] < $min)
				$min = $nearby_p['grade'];
			if ($nearby_p['grade'] > $max)
				$max = $nearby_p['grade'];
		}
		$x++;
		if ($x == 10)
			break;
	}

	if ($school_match == 0) {
		//		TRACE("   No school nearby\n");
		$cost += 5;
	}
	if ($school_match > 2) {
		//		TRACE("   Too many schools bunched up\n");
		$cost += 2 * ($school_match - 1);
	}

	if ($div_match < 2) {
		//		TRACE("   No divs nearby\n");
		$cost += 20;
	}
	if ($div_match > 4) {
		//		TRACE("   Divs bunching up\n");
		$cost += 10 * ($div_match - 4);
	}

	if ($max - $min > 0) {
		/* Don't want bunching up grades eitehr */
		//		TRACE("   Grades too spread out\n");
		$cost += 50 * ($max - $min);
	}

	/* Make sure this project is allowed in this exhibit hall */
	if (!in_array($p['div'], $eh['divs']))
		$cost += 1000;
	if (!in_array($p['cat'], $eh['cats']))
		$cost += 1000;

	/* Make sure this project is allowed in this floor object too */
	if (count($o['divs']) > 0 && !in_array($p['div'], $o['divs']))
		$cost += 1000;
	if (count($o['cats']) > 0 && !in_array($p['cat'], $o['cats']))
		$cost += 1000;

	/* Match electricity */
	if ($p['req_electricity'] == 'yes' && $o['has_electricity'] == 'no') {
		$cost += 1000;
	}

	//	TRACE("Cost for bucket $bucket_id = $cost\n");
	return $cost;
}

function project_bucket_ids($annealer, $bucket_id)
{
	global $floor_objects, $objects;
	$recompute_ids = array($bucket_id);

	/* Get the floor object */
	$o = &$floor_objects[$bucket_id];

	/* Find the 10 closest projects */
	$x = 0;
	foreach ($o['nearby_projects'] as &$n) {
		$nearby_o = &$objects[$n['id']];
		$recompute_ids[] = $nearby_o['floor_object_offset'];
		$x++;
		if ($x == 15)
			break;
	}
	return $recompute_ids;
}

$e = 10 * ($config['effort'] / 1000) * pow(count($projects), 1.3333);
$project_ids = array_keys($projects);

// array_splice($project_ids, 20);

$a = new annealer(count($floor_objects), 125, $e, 0.9,
	project_cost, $project_ids);
$a->set_max_items_per_bucket(1);
// $a->set_delta_cost_bucket_ids_callback(project_bucket_ids);
$a->anneal();

for ($x = 0; $x < $a->num_buckets; $x++) {
	$bkt = $a->bucket[$x];
	if (count($bkt) > 1) {
		TRACE("Assigned more than one project to bucket $x\n");
		exit;
	}
	if (count($bkt) == 0)
		continue;

	/* Get the project id in this bucket */
	$projects_id = array_shift($bkt);
	echo "p:$projects_id, n:{$floor_objects[$x]['floornumber']}\n";
	/* Get the floor object for the same bucket and floor number */
	$projects[$projects_id]['floornumber'] = $floor_objects[$x]['floornumber'];
}

print_r($projects);

/* Assign floor numbers */
$q = $pdo->prepare("UPDATE projects SET floornumber=0 WHERE year=?");
$q->execute([$config['FAIRYEAR']]);

foreach ($projects as $pid => $p) {
	$q = $pdo->prepare("UPDATE projects SET floornumber=? WHERE id=?");
	$q->execute([$p['floornumber'],$pid]);
	TRACE("Project $pid => Floor number {$p['floornumber']}\n");
}

TRACE('