'progetto 19a: Disegnare più linee separate
              '(due clic del mouse definiscono le estremità di ciascun segmento)
NOMAINWIN
 WindowWidth = 400      'larghezza
 WindowHeight = 500     'altezza
 UpperLeftX = 50
 UpperLeftY = 50

 OPEN "Progetto 19" FOR graphics_nsb AS #prog19
   #prog19 "trapclose [esci]"
   #prog19 "fill brown"
   #prog19 ,"setfocus"
   #prog19, "when leftButtonDown [partenza]"
 WAIT

[partenza] 'clic del mouse = punto di partenza di un segmento
    x1=MouseX
    y1=MouseY
 'disegna un punto (così il punto di partenza
 'rimane visualizzato quando si sposta il mouse)
   #prog19, "DOWN"
   #prog19 "COLOR green"
   #prog19 "SIZE 4"
   #prog19, "LINE "; x1; " "; y1; " "; x1; " "; y1

   #prog19  "setfocus"
   #prog19 , "when leftButtonDown [arrivo]"
WAIT

[arrivo]  'clic successivo = punto di arrivo del segmento
   x2=MouseX
   y2=MouseY

   #prog19, "DOWN"
   #prog19 "COLOR green"
   #prog19 "SIZE 4"
   #prog19, "LINE "; x1; " "; y1; " "; x2; " "; y2

  'clic successivo: vai a dare inizio a un nuovo segmento
   #prog19  "setfocus"
   #prog19 , "when leftButtonDown [partenza]"
WAIT

[esci]
  CONFIRM "Vuoi davvero uscire?"; risposta$
  IF risposta$ = "no" THEN WAIT
  CLOSE #prog19
  END