#######################################
## GD Grafica e disegno.

Gd.grafica = function (x,y,cornice=T,
  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)}

# Disegna i bordi delle caselle di
# una tabella e la sua cornice.
Gd.tabella = function (tab)
{for (i in 1:tab$n) polygon(Gft.riga(tab,i))
for (j in 1:tab$m) polygon(Gft.colonna(tab,j))
polygon(tab$r)}