<<ELLIPTIC.m
<<SURFS.m
<<PLTPROGS.m

Remove[WriteOOGL]

<<Geomview.m

costaplot80=ParametricPlot3D[costa[u,v],
{u,0.001,1.001},{v,0.001,1.001},
PlotPoints->80]

costagv80=selectgraphics3d[
costaplot80[[1]],8]

WriteOOGL["costagv80.oogl",costagv80]

costasel80=selectgraphics3d[
costaplot80[[1]],8,
Boxed->False,
ViewPoint->{2.9, -1.4, 1.2},
    PlotRange->{{-4, 4}, {-4, 4}, {-2, 2}},
DisplayFunction->dip[EdgeForm[]]]

<<PSDirect.m

costasel80=selectgraphics3d[
costaplot80[[1]],8,
Boxed->False,
ViewPoint->{2.9, -1.4, 1.2},
    PlotRange->{{-4, 4}, {-4, 4}, {-2, 2}},
DisplayFunction->dip[EdgeForm[]]]

costasel80>>costasel80.pl