 LIB "graphics.lib";
//  plane curves 
ring rr0 = 0,x,dp; export rr0;
==> // ** `rr0` is already global
ideal I = x3 + x, x2;
ideal J = x2, x+x3;
mplot("",I,J,"2,2");
==>
==> ParametricPlot[{{s^3+s,s^2},{s^2,s^3s}},{s,2,2},
==> AspectRatio>Automatic];
==>
// Paste the output into a Mathematica notebook
// active evalutation of the cell with SHIFT RETURN
//  space curves 
I = x3,1/10x3+x2,x2;
mplot("",I);
==>
==> ParametricPlot3D[{{s^3,1/10*s^3+s^2,s^2}},{s,1,1},
==> ViewPoint>{1.3,2.4,2}];
==>
// Paste the output into a Mathematica notebook
// active evalutation of the cell with SHIFT RETURN
//  surfaces 
ring rr1 = 0,(x,y),dp; export rr1;
==> // ** `rr1` is already global
ideal J = xy,y,x2;
mplot("",J,"2,1","1,2");
==>
==> ParametricPlot3D[{{s*t,t,s^2}},{s,2,1},{t,1,2},
==> Boxed>True, Axes>True, ViewPoint>{1.3,2.4,2}];
==>
// Paste the output into a Mathematica notebook
// active evalutation of the cell with SHIFT RETURN
kill rr0,rr1;
