Grafica = function (x,y,cornice=F,
  rxy=1,assi=FALSE,marg=0)
{par(mai=rep(marg,4), omi=c(0,0,0,0), lwd=0.5);
plot(x,y,type="n",xlab="",ylab="",
  asp=rxy,axes=assi,frame.plot=cornice)}

Livelli = function (x,y,f,
  valori=NULL,livelli=0,
  scritte=1,colore=1,spessore=0.4)
{if (identical(valori,NULL))
  valori=outer(x,y,f);
contour(x,y,valori,levels=livelli,
  col=colore,lwd=spessore,
  labcex=0.6*scritte,
  drawlabels=(scritte>0),add=T)}

Punti = function (x,simb,tipo="p",
  colore=1,coloreri=NA,scala=1)
{points(Re(x),Im(x),pch=simb,type=tipo,
  col=colore,bg=coloreri,cex=scala)}