#######################################
# GFT Tabelle rettangolari.

# Tabella con n righe ed m colonna basata
# sul rettangolo determinato dai parametri ...
Gft = function (n,m,r=NA, ...)
{if (!P.def(r)) r=Gfr(...)
list(n=n,m=m,r=r)}

# Casella (i,j)-esima della tabella tab con
# le righe contate dall'alto.
Gft.casella = function (tab,i,j)
{r=tab$r; dx=Gfr.dx(r)/tab$m;
dy=Gfr.dy(r)/tab$n
x2=Gfr.x1(r)+j*dx;
y1=Gfr.y2(r)-i*dy
Gfr(x2=x2,y1=y1,dx=dx,dy=dy)}

# Colonna j-esima della tabella tab.
Gft.colonna = function (tab,j)
{r=tab$r; dx=Gfr.dx(r)/tab$m; dy=Gfr.dy(r)
x2=Gfr.x1(r)+j*dx; y1=Gfr.y1(r)
Gfr(x2=x2,y1=y1,dx=dx,dy=dy)}

# Riga i-esima dall'alto della tabella tab.
Gft.riga = function (tab,i)
{r=tab$r; dx=Gfr.dx(r); dy=Gfr.dy(r)/tab$n;
x1=Gfr.x1(r); y1=Gfr.y2(r)-i*dy
Gfr(x1=x1,y1=y1,dx=dx,dy=dy)}