Se copi e incolli in R la seguente riga
source("http://macosa.dima.unige.it/r.R")
si apre un programma per semplici attivitą matematiche.  Usalo per aprire un box monometrico come quello a sinistra e costuirvi il disegno di una piastrella, come quella al centro nella figura a destra.
   

Ecco una possibile soluzione. È uno dei molti esercizi che si possono inventare per prendere confidenza con l'uso delle coordinate e la descrizione matematica delle figure geometriche. Sembra "difficile", ma gli alunni, presa confidenza con lo strumento, lo affrontano abbastanza facilmente, consolidando, in modo significativo, la padronanza di alcuni concetti di base.

# BF=3; HF=3  se voglio dimensionare la finestra
PIANO(-5,5, -5,5)
arco(0,1, 1, 0,180, "red"); arco(0,-1, 1, 180,360, "red")
arco(-1,0, 1, 90,270, "red"); arco(1,0, 1, -90,90, "red")
cerchio(0,0, 1, "blue"); cerchio(0,0, 1/2, "green")
cerchio(3,3, 1.5, "black"); cerchio(3,3, 1, "orange"); cerchio(3,3, 1/2, "green")
cerchio(-3,3, 1.5, "black"); cerchio(-3,3, 1, "orange"); cerchio(-3,3, 1/2, "green")
cerchio(-3,-3, 1.5, "black"); cerchio(-3,-3, 1, "orange"); cerchio(-3,-3, 1/2, "green")
cerchio(3,-3, 1.5, "black"); cerchio(3,-3, 1, "orange"); cerchio(3,-3, 1/2, "green")
spezzata(c(-5,5,5,-5,-5),c(-5,-5,5,5,-5),"brown")
#
PIANOs(-5,5, -5,5) # Per ottenere il grafico senza griglia, coordinate, riquadro
arco(0,1, 1, 0,180, "red"); arco(0,-1, 1, 180,360, "red")
arco(-1,0, 1, 90,270, "red"); arco(1,0, 1, -90,90, "red")
cerchio(0,0, 1, "blue"); cerchio(0,0, 1/2, "green")
cerchio(3,3, 1.5, "black"); cerchio(3,3, 1, "orange"); cerchio(3,3, 1/2, "green")
cerchio(-3,3, 1.5, "black"); cerchio(-3,3, 1, "orange"); cerchio(-3,3, 1/2, "green")
cerchio(-3,-3, 1.5, "black"); cerchio(-3,-3, 1, "orange"); cerchio(-3,-3, 1/2, "green")
cerchio(3,-3, 1.5, "black"); cerchio(3,-3, 1, "orange"); cerchio(3,-3, 1/2, "green")
spezzata(c(-5,5,5,-5,-5),c(-5,-5,5,5,-5),"brown")
# BF=4; HF=4
# Se vuoi vedere al rallentatore la costruzione
PIANOs(-5,5, -5,5)
arco(0,1, 1, 0,180, "red"); attendi(1)
arco(0,-1, 1, 180,360, "red"); attendi(1)
arco(-1,0, 1, 90,270, "red"); attendi(1)
arco(1,0, 1, -90,90, "red"); attendi(1)
cerchio(0,0, 1, "blue"); attendi(1)
cerchio(0,0, 1/2, "green"); attendi(1)
cerchio(3,3, 1.5, "black"); attendi(1)
cerchio(3,3, 1, "orange"); attendi(1)
cerchio(3,3, 1/2, "green"); attendi(1)
cerchio(-3,3, 1.5, "black"); attendi(1)
cerchio(-3,3, 1, "orange"); attendi(1)
cerchio(-3,3, 1/2, "green"); attendi(1)
cerchio(-3,-3, 1.5, "black"); attendi(1)
cerchio(-3,-3, 1, "orange"); attendi(1)
cerchio(-3,-3, 1/2, "green"); attendi(1)
cerchio(3,-3, 1.5, "black"); attendi(1)
cerchio(3,-3, 1, "orange"); attendi(1)
cerchio(3,-3, 1/2, "green"); attendi(1)
spezzata(c(-5,5,5,-5,-5),c(-5,-5,5,5,-5),"brown")