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 ()