'progetto 19b: Disegnare una linea spezzata
              'che congiunge le posizioni in cui si fa clic con il mouse
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]  'secondo clic = punto di arrivo del primo segmento
   x2=MouseX
   y2=MouseY

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

   'ciascun segmento partirà dal punto di arrivo del precedente
   x1=x2
   y1=y2
WAIT

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