# Immagine realizzata con R (vedi la guida per spiegazioni)
source("http://macosa.dima.unige.it/r.R")
BF=5; HF=3.5
boxN(-70,70, -70,70)   # Mi conviene lasciare questa scala:
# la griglia visualizzata è centrata in O e ha maglie ampie 10
# Queste istruzioni non mettono griglia, che posso vedere con:
BOX()                  # Poi la toglierò (vedi avanti)
# Dimensiono col mouse la finestra come voglio, per tracciare le frecce
# Scrivo le frasi in posizioni comode
co = "red"; co1="blue"; co2="black"  # scelgo i colori delle frecce
type(-10,0,"ALLEVAMENTO")            # o:  scrivi(..)
type(-15,40,"suini di pregio")
type(-40,20,"mangimi")
type(-55,-5,"disinfettanti")
type(-45,-30,"fonti di energia")
type(-15,-35,"servizi")
type(5,-35,"lavoro")
type(20,-20,"macchinari")
type(38,0,"suini da macello")
type(30,15,"biogas")
type(20,34,"liquame")
type(45,34,"rifiuti")
arrow(-40,-5, -30,-5, co)           # o:  freccia(..)
arrow(-30,-20, -25,-7, co)
arrow(-32,-24, -25,-7, co)
arrow(-15,-30, -15,-7, co)
arrow(0,-30, 0,-7, co)
arrow(15,-16, 8,-7, co)
arrow(9,0, 18,0, co1)
arrow(20,15, 9,5, co)
arrow(-30,17, -26,5, co)
arrow(-15,33, -15,5, co)
arrow(-15,33, -15,6, co)
arrow(-5,6, 10,29, co1)
arrow(25,27, 25,20, co2)
arrow(25,30, 25,20, co2)
arrow(30,34, 37,34, co2)
# OK, ho ottenuto l'immagine sopra riprodotta
# I comandi mi conviene scriverli prima di copiarli in R in un programma di
# scrittura, in modo da modificarli o riprodurli facilmente
# Ora riproduco l'immagine senza box, nella stessa finestra
BoxN(-70,70, -70,70)   # con la "B" grande mantengo la finestra già dimensionata
# Non scrivo più  BOX()
type(-10,0,"ALLEVAMENTO")
...