# ------ funzione per disegnare un piano cartesiano vuoto
piano.cartesiano <- function(Z=10) {
   plot(NULL, xlim=c(-Z,Z), ylim=c(-Z,Z), xlab='x', ylab='y', asp=1)
   grid()
   abline(h=0)
   abline(v=0)
}

piano.cartesiano(10)

while(1) {       #  "while(1)"  -> ciclo infinito, interrotto da 'break'

  cat(sprintf("\n Clicca su due punti (coincidenti per uscire)\n"))

  p <- locator(2)

# METTERE DENTRO l'if la condizione tale che
# "se i due punti sono  vicini il ciclo while viene interrotto !
# sostituire "....." con la condizione opportuna 

  if ( .....  ) break 

# mettiamo sul plot i due punti
  points(p)

# CALCOLARE m e q a partire da p$x[1], p$y[1], p$x[2] e p$y[2]
  m = .....
  q = .....

  abline(q, m, col=sample(rainbow(7))[1] )

# sample(rainbow(7))[1] sceglie un colore a caso fra 7 dell'arcobaleno 
# (ma invece di 7 si può anche mettere un altro numero 'ragionevole - provare) 

}