'progetto 18b: Far apparire una spirale al clic del mouse
'              senza usare IF all'interno delle iterazioni

'creazione della finestra
NOMAINWIN
 WindowWidth = 400      'larghezza
 WindowHeight = 400     'altezza
 UpperLeftX = 600
 UpperLeftY = 200

 OPEN "Progetto 18" FOR graphics_nsb AS #prog18
   #prog18 "trapclose [quit]"
   #prog18 "fill blue"
   #prog18 "setfocus"  'segnala che l'evento si verificherà in questa finestra
   #prog18 "when leftButtonDown [azione]" 'se c'è clic, vai al label [azione]
 WAIT    'attesa(si prosegue o per fine lavoro o per un clic del mouse)

 [azione] 'disegna una spirale con passo costante dal punto del clic
  #prog18 "DOWN"
  #prog18 "COLOR yellow"
  #prog18 "SIZE 3"
   x2=MouseX  'coordinate del punto di partenza
   y2=MouseY

   passo = 15

   i = 0
   DO
   i = i+1
   segno = (-1)^(i+1) 'determina l'orientamento della prossima L
     ' tracciamento dei due segmenti che formano la L (diritta o capovolta)
     ' verso destra (o verso sinistra)
       x1=x2
       x2=x1+i*segno*passo
       y1=y2
       #prog18 "LINE "; x1; " "; y1; " "; x2; " "; y2
     ' verso il basso (o verso l'alto)
       x1=x2
       y1=y2
       y2=y2+i*segno*passo
       #prog18 "LINE "; x1; " "; y1; " "; x2; " "; y2

   LOOP UNTIL (x2-MouseX) > WindowWidth

 WAIT  'rimani in attesa di un altro evento

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