let visu skel pos =
let n = Array.length skel in
begins `lines;
for i = 0 to n - 1
do
for j = 0 to i - 1
do
if skel.(i).(j) <> 0. then
(
vertex3 pos.(i);
vertex3 pos.(j)
)
done
done;
ends ()