| LIB "surfex.lib";
"Example:";
// A cubic surface together with a tritangent plane
// (i.e. a plane which cuts out three lines).
ring r = 0, (x,y,z), dp;
poly cayley_cubic = x^3+y^3+z^3+1^3-1/4*(x+y+z+1)^3;
poly plane = 1-x-y-z;
plotRotatedList(list(cayley_cubic, plane), list(x,y,z));
// The same cubic and plane.
// The plane is not shown but only its intersection with the surface.
plotRotatedList(list(cayley_cubic, ideal(cayley_cubic, plane)), list(x,y,z));
|