Shustin's degree 8 M-curve of type $\langle 4 \sqcup 3\langle 5\rangle\rangle$

Polynomial giving Shustin's degree 8 M-curve of type $\langle 4 \sqcup 3\langle 5\rangle\rangle$ as a real curve. Stored in the .mrdi file format, can be read using OSCAR in julia. julia> using Revise, Test, Oscar julia> C8 = load("shustin_C8.mrdi"); julia> length(C8) 45 julia> NP = newton_polytope(C8) Polyhedron in ambient dimension 3 julia> vertices(NP) 3-element SubObjectIterator{PointVector{QQFieldElem}}: [8, 0, 0] [0, 8, 0] [0, 0, 8] julia> length(C8) == length(lattice_points(NP)) true Note that the polynomial is homogeneous, giving a curve in the real projective plane.