---------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
# (this document use commands from "C. Other examples of use", here and here)
# We have seen how to print a table of data:
#  1, 2, 3, 4, 5, 6, 7, 8
#  9, 0, 1, 2, 3, 4, 5, 6
#  7, 8, 9, 0, 1, 2, 3, 4
 
# Now we see how to build figures that contain tables like the following:
 
                   
 
# How to build the first table:
BF=6; HF=2
F1=2; F2=2; D1=1; D2=1
A1=4; A2=1; N=7               # width of 1^ cell and of the others, their quantity
boxW(0,A1+A2*N,0,10)                                    # a window without margins
polyC(c(0,A1+A2*N),c(5,5),0)                          # horizontal separation line
polyC(c(0,A1+A2*N,A1+A2*N,0),c(0,0,10,10),0)                             # the box
for(i in 0:N) polyC(c(A1+A2*i,A1+A2*i),c(0,10),0)       # vertical separation line
text(A1/2,7.5,"giorno",font=F1,cex=D1)
text(A1/2,2.5,"temperatura",font=F1,cex=D1)
#
text(A1+A2*0+1/2,7.5,"5",font=F2,cex=D2)
text(A1+A2*1+1/2,7.5,"6",font=F2,cex=D2)
text(A1+A2*2+1/2,7.5,"7",font=F2,cex=D2)
text(A1+A2*3+1/2,7.5,"8",font=F2,cex=D2)
text(A1+A2*4+1/2,7.5,"9",font=F2,cex=D2)
text(A1+A2*5+1/2,7.5,"10",font=F2,cex=D2)
text(A1+A2*6+1/2,7.5,"11",font=F2,cex=D2)
#
text(A1+A2*0+1/2,2.5,"7",font=F2,cex=D2)
text(A1+A2*1+1/2,2.5,"8",font=F2,cex=D2)
text(A1+A2*2+1/2,2.5,"7",font=F2,cex=D2)
text(A1+A2*3+1/2,2.5,"8",font=F2,cex=D2)
text(A1+A2*4+1/2,2.5,"7",font=F2,cex=D2)
text(A1+A2*5+1/2,2.5,"10",font=F2,cex=D2)
text(A1+A2*6+1/2,2.5,"9",font=F2,cex=D2)
 
             
 
# Now I can resize the figure, saving the image and paste it into the document I want.
 
                   
 
# If I change data or dimensions I have to change the first rows:
F1=3; F2=1; D1=0.9; D2=0.8
A1=4.5; A2=1; N=7
# ...
# I obtain the second table.
 
                   
#
# See here for the command index.