}
}
}
// print_r($array_corres);
$margin_left = 10;
$margin_top = 10;
$x1 = $margin_top + 30;
$y1 = 0 + $margin_left;
$lg = 1000;
$ecart = 300;
$x2 = $x1 + $ecart;
$y2 = $y1;
$line1 = Tool_svg::space($y1, $x1, $lg);
$line2 = Tool_svg::space($y2, $x2, $lg);
//$inter1 = Tool_svg::inter($y1,$x1,$lg,$margin_left,$borne_min,$borne_max);
$inter1 = Tool_svg::inter($y1, $x1, $lg, $margin_left, $borne_min, $borne_max);
$inter2 = Tool_svg::inter($y2, $x2, $lg, $margin_left, 0, 1);
$links = "";
$val_max = max($array_corres);
foreach ($array_corres as $k2 => $nb_occ) {
if ($val_max == 0) {
$val = $ecart;
} else {
$val = $ecart - $nb_occ / $val_max * $ecart + $x1;
}
$links .= Tool_svg::barre($y1, $x1, $y2, $x2, $lg, $margin_left, $k2, $val);
}
$out_svg = "<svg version=\"1.1\"\n baseProfile=\"full\"\n xmlns=\"http://www.w3.org/2000/svg\">\n\n {$line1}\n {$line2}\n\n {$inter1}\n {$inter2}\n\n {$links}\n</svg>\n";
Tool_files::file_write($out_file, $out_svg);
}
//print $out_svg;
} elseif ($id2 > $id_multidoc) {
break;
}
}
} elseif ($id1 > $id_multidoc) {
break;
}
}
}
$margin_left = 10;
$margin_top = 10;
$x1 = $margin_top + 30;
$y1 = 0 + $margin_left;
$lg = 1000;
$x2 = $x1 + 300;
$y2 = $y1;
$line1 = Tool_svg::space($y1, $x1, $lg);
$line2 = Tool_svg::space($y2, $x2, $lg);
$inter1 = Tool_svg::inter($y1, $x1, $lg, $margin_left, $borne_min, $borne_max);
$inter2 = Tool_svg::inter($y2, $x2, $lg, $margin_left, 0, 1);
$links = "";
foreach ($res as $k1 => $array_k2) {
foreach ($array_k2 as $k2) {
$links .= Tool_svg::link($y1, $x1, $y2, $x2, $lg, $margin_left, $k2, $k2);
}
}
$out_svg = "<svg version=\"1.1\" baseProfile=\"full\" xmlns=\"http://www.w3.org/2000/svg\">\n\n {$line1}\n {$line2}\n\n {$inter1}\n {$inter2}\n\n {$links}\n</svg>\n";
print $out_svg;
?>
