/* Defining polynomial */
x^2 - x + 6
/* Minimal vectors */
[
<-w + 1, -2>,
<w + 1, -w + 2>,
<-w + 2, -2>,
<3, -w - 1>,
<-w + 5, -w - 3>,
<2*w, -w + 4>,
<1, 0>,
<1, -1>,
<-w + 2, -3>,
<0, 1>
]
/* Voronoi top cells */
[
{ 1, 2, 3, 4, 5, 6 },
{ 1, 2, 3, 4, 7 },
{ 2, 4, 7, 8, 9, 10 }
]
/* Faces of top cells */
[
[
{ 1, 3, 5, 6 },
{ 1, 2, 3, 4 },
{ 3, 4, 5 },
{ 2, 4, 5, 6 },
{ 1, 2, 6 }
],
[
{ 1, 2, 3, 4 },
{ 1, 3, 7 },
{ 1, 2, 7 },
{ 2, 4, 7 },
{ 3, 4, 7 }
],
[
{ 2, 4, 7 },
{ 4, 7, 8 },
{ 4, 8, 9 },
{ 2, 4, 9 },
{ 2, 9, 10 },
{ 2, 7, 10 },
{ 8, 9, 10 },
{ 7, 8, 10 }
]
]
/* Order of PGL_2(O) stabilizers of Voronoi top cells */
[ 2, 1, 6 ]
/* GAP id of GL_2(O) stabilizers of Voronoi top cells */
[ <4, 1>, <2, 1>, <12, 4> ]