function pdf_export_dots(&$dots, &$more)
{
# PLEASE FOR TO BE CACHING ME, OBIWAN...
# (20110120/straup)
$w = 11;
$h = 8.5;
$margin = 0.5;
$dpi = 72;
$header_h = 0.2;
$row_h = 0.2;
$col_width = 1.25;
# Here we go...
$pdf = new FPDF("P", "in", array($w, $h));
$pdf->setMargins($margin, $margin);
# The legend gets added below (once we've figured out what page
# each dot is on) but we'll just declare it here.
$legend = array();
$count_legend_items = floor($h / ($row_h * 1.4));
$count_clusters = ceil(count($dots) / $count_legend_items);
# Just turn clusters off for now... the map rendering time
# is still too long for multiple map images (20110120/straup)
$count_clusters = 1;
$clusters = array();
if ($count_clusters == 1) {
$clusters = array($dots);
} else {
$points = array();
$i = 0;
foreach ($dots as $dot) {
$points[] = array('x' => (double) $dot['longitude'], 'y' => (double) $dot['latitude'], 'id' => $dot['id'], 'idx' => $i);
$i++;
}
$_clusters = kmeans_cluster($points, $count_clusters);
foreach ($_clusters as $_cluster) {
$_dots = array();
foreach ($_cluster as $_pt) {
$_dots[] = $dots[$pt['idx']];
}
$clusters[] = $_dots;
}
}
#
# First generate all the maps
#
$maps = array();
$img_more = array('width' => $h * $dpi, 'height' => $h * $dpi, 'dot_size' => 15);
foreach ($clusters as $dots) {
list($map, $gd_img) = maps_image_for_dots($dots, $img_more);
$maps[] = maps_gd_to_png($gd_img, 'pdf');
}
# Now figure out the what is the what of the dots
$columns = array();
$cols_per_page = floor(($w - $margin * 2) / $col_width);
$count_cols = count($more['columns']);
$pages_per_row = ceil($count_cols / $cols_per_page);
# See this? We're adding enough extra columns and re-counting
# everything in order to ensure that every page for each row
# has an 'id' column
if ($pages_per_row > 1) {
$_count = $count_cols + ($pages_per_row - 1);
$pages_per_row = ceil($_count / $cols_per_page);
}
# First, chunk out the header in (n) pages and measure the
# height of the (header) row itself
$_h = $header_h * 1.3;
$pdf->SetFont('Helvetica', 'B', 10);
for ($i = 0; $i < $count_cols; $i++) {
$col_name = $more['columns'][$i];
$b = floor($i / $cols_per_page);
if (!is_array($columns[$b])) {
$columns[] = array();
}
$columns[$b][] = $col_name;
$str_width = ceil($pdf->GetStringWidth($more['columns'][$i]));
if ($str_width > $col_width) {
$lines = ceil($str_width / $col_width);
$_h = max($_h, $lines * $header_h);
}
}
$header_h = $_h;
# make sure every page has an 'id' field
# (see above)
$count_columns = count($columns);
for ($i = 0; $i < $count_columns; $i++) {
$cols = $columns[$i];
if (!in_array('id', $cols)) {
array_unshift($cols, 'id');
$columns[$i] = $cols;
}
# move stuff around so that we keep the pages nice and tidy
if (count($columns[$i]) > $cols_per_page) {
$to_keep = array_slice($columns[$i], 0, $cols_per_page);
$extra = array_slice($columns[$i], $cols_per_page);
$columns[$i] = $to_keep;
$columns[$i + 1] = $extra;
}
}
# Now work out the height of each row of dots
$row_heights = array();
$pdf->SetFont('Helvetica', '', 10);
foreach ($dots as $dot) {
$_h = $row_h;
foreach ($dot as $key => $value) {
$str_width = ceil($pdf->GetStringWidth($value));
if ($str_width > $col_width) {
$lines = ceil($str_width / $col_width);
$_h = max($_h, $lines * $row_h);
}
}
$row_heights[] = $_h * 1.1;
}
# Now sort everything in to pages
$pages = array();
$page = 0;
$count_dots = count($dots);
$dot_idx = 0;
$y = $margin + $header_h;
while ($dot_idx < $count_dots) {
$dot = $dots[$dot_idx];
$row_height = $row_heights[$dot_idx];
# will this row bleed off the current page ($page) ?
$goto_nextpage = 0;
if ($y + $row_height > $h - $margin * 1.5) {
$goto_nextpage = 1;
}
if ($goto_nextpage) {
$page += $pages_per_row;
$y = $margin + $header_h;
}
$y += $row_height;
# set up information for legend
$legend[$dot['id']] = array('page' => $page + 2, 'id' => $dot['id'], 'latitude' => $dot['latitude'], 'longitude' => $dot['longitude'], 'ymd' => gmdate('Y-m-d', strtotime($dot['created'])));
#
$j = 0;
foreach ($columns as $cols) {
$_row = array();
foreach ($cols as $name) {
$_row[] = $dot[$name];
}
$page_idx = $page + $j;
if (!is_array($pages[$page_idx])) {
$pages[$page_idx] = array(array('row' => $cols, 'bold' => 1, 'height' => $header_h));
}
$pages[$page_idx][] = array('row' => $_row, 'height' => $row_height);
$j++;
}
$dot_idx++;
}
#
# ZOMG... finally publish the thing...
#
# First, display all the maps and corresponding
# legends
function sort_by_lat($a, $b)
{
if ($a['latitude'] == $b['latitude']) {
return 0;
}
return $a['latitude'] > $b['latitude'] ? -1 : 1;
}
$count_clusters = count($clusters);
for ($i = 0; $i < $count_clusters; $i++) {
$dots = $clusters[$i];
$_legend = array();
$j = 0;
foreach ($dots as $dot) {
$_legend[$dot['id']] = $legend[$dot['id']];
$j++;
if ($j >= $count_legend_items) {
break;
}
}
usort($_legend, "sort_by_lat");
$pdf->AddPage();
$pdf->Image($maps[$i], 0, 0, 0, 0, 'PNG');
$pdf->SetFont('Helvetica', '', 10);
$x = $h + $margin;
$y = $margin;
foreach ($_legend as $dot) {
$text = "{$dot['id']} / pg. {$dot['page']}";
$pdf->SetXY($x, $y);
$pdf->Cell(0, $row_h, $text);
$loc = new MMaps_Location($dot['latitude'], $dot['longitude']);
$pt = $map->locationPoint($loc);
$x1 = $x - $margin / 8;
$y1 = $y + $row_h / 2;
$x2 = $pt->x / $dpi;
$y2 = $pt->y / $dpi;
$pdf->Line($x1, $y1, $x2, $y2);
$y += $row_h * 1.1;
}
}
# Now the rows (of dots)
foreach ($pages as $page) {
$pdf->AddPage();
$x = $margin;
$y = $margin;
$z = 0;
foreach ($page as $data) {
$style = $data['bold'] ? 'B' : '';
$pdf->SetFont('Helvetica', $style, 10);
$x_offset = $col_width * 0.1;
$y_offset = $data['height'] * 0.1;
$max_width = $col_width - $x_offset * 3;
$bg = $z % 2 ? 255 : 235;
$z++;
foreach ($data['row'] as $value) {
$value = trim($value);
$width = $pdf->GetStringWidth($value);
$pdf->SetFillColor($bg);
$pdf->Rect($x, $y, $col_width, $data['height'], 'F');
# Don't bother with MultiCell - it is behaving
# badly (20110120/straup)
if ($width < $max_width) {
$pdf->SetXY($x + $x_offset, $y + $y_offset);
$pdf->Cell(0, $row_h, $value);
} else {
$_x = $x;
$_y = $y;
$lines = array();
$buffer = '';
foreach (str_split($value) as $char) {
if ($buffer == '' && $char == ' ') {
continue;
}
$buffer .= $char;
$width = $pdf->GetStringWidth($buffer);
if ($width >= $max_width) {
$lines[] = $buffer;
$buffer = '';
}
}
if (strlen($buffer)) {
$lines[] = $buffer;
$buffer = '';
}
foreach ($lines as $ln) {
$pdf->SetXY($_x + $x_offset, $_y + $y_offset);
$pdf->Cell(0, $row_h, $ln);
$_y += $row_h * 0.8;
}
}
$x += $col_width;
}
$x = $margin;
$y += $data['height'];
}
}
# Go!
$pdf->Close();
$pdf->Output($more['path'], 'F');
$pdf = null;
foreach ($maps as $map_img) {
if (!unlink($map_img)) {
error_log("[EXPORT] (pdf) unlink {$map_img} : {$ok}");
}
}
return $more['path'];
}
function png_export_dots(&$dots, $more = array())
{
$defaults = array('width' => 1024, 'height' => 768);
$more = array_merge($defaults, $more);
list($map, $img) = maps_image_for_dots($dots, $more);
if (!$img) {
return null;
}
imagepng($img, $more['path']);
imagedestroy($img);
return $more['path'];
}
function maps_png_for_dots(&$dots, $more = array())
{
list($map, $gd_img) = maps_image_for_dots($dots, $more);
$prefix = $more['img_prefix'] ? $more['img_prefix'] : 'nyan';
return maps_gd_to_png($gd_img, $prefix);
}
