'progetto 16b: Dimostrazione grafica della ragione per cui
'              la somma dei primi n numeri dispari è uguale a n^2
NOMAINWIN
 WindowWidth = 360      'larghezza
 WindowHeight = 360     'altezza
 UpperLeftX = 400
 UpperLeftY = 300
 OPEN "Progetto 16" FOR graphics_nsb AS #prog16
 #prog16 "trapclose [esci]"
 #prog16 "fill black"

#prog16 "DOWN"
#prog16 "COLOR red"

#prog16 "SIZE 3"  ' spessore delle linee da tracciare
  lato=80 'lunghezza di ciascun lato dei quadratini
  overlap=3  'sovrapposizione dei quadratini

'tracciamento del primo quadratino rosso
'coordinate del punto di partenza
  x1=40
  y1=280

 ' verso destra
   x2=x1+lato
   y2=y1
  #prog16 "LINE "; x1; " "; y1; " "; x2; " "; y2
 ' verso l'alto
   x1=x2
   y1=y2
   y2=y2-lato
  #prog16 "LINE "; x1; " "; y1; " "; x2; " "; y2
 ' verso sinistra
   x2=x1-lato
   y1=y2
   y2=y1
  #prog16 "LINE "; x1; " "; y1; " "; x2; " "; y2
 ' verso il basso
   x1=x2
   y1=y2
   y2=y2+lato
  #prog16 "LINE "; x1; " "; y1; " "; x2; " "; y2


  #prog16 "COLOR white"
FOR i = 1 TO 3      'tracciamento dei tre quadratini bianchi
'nuove coordinate del punto di partenza
IF i=1 THEN
  x1=x1+lato+overlap
  y1=y2
END IF
IF i=2 THEN
  x1=x2
  y1=y2-lato-overlap
END IF
IF i=3 THEN
  x1=x2-lato-overlap
  y1=y2
END IF

 ' verso destra
   x2=x1+lato
   y2=y1
  #prog16 "LINE "; x1; " "; y1; " "; x2; " "; y2
 ' verso l'alto
   x1=x2
   y1=y2
   y2=y2-lato
  #prog16 "LINE "; x1; " "; y1; " "; x2; " "; y2
 ' verso sinistra
   x2=x1-lato
   y1=y2
   y2=y1
  #prog16 "LINE "; x1; " "; y1; " "; x2; " "; y2
 ' verso il basso
   x1=x2
   y1=y2
   y2=y2+lato
  #prog16 "LINE "; x1; " "; y1; " "; x2; " "; y2

 NEXT i


  #prog16 "COLOR green"
FOR i = 1 TO 5      'tracciamento dei cinque quadratini verdi
'nuove coordinate del punto di partenza
IF i=1 THEN
  x1=x2
  y1=y2-lato-overlap
END IF
IF i=2 THEN
  x1=x2+lato+overlap
  y1=y2
END IF
IF i=3 THEN
  x1=x2+lato+overlap
  y1=y2
END IF
IF i=4 THEN
  x1=x2
  y1=y2+lato+overlap
END IF
IF i=5 THEN
  x1=x2
  y1=y2+lato+overlap
END IF

 ' verso destra
   x2=x1+lato
   y2=y1
  #prog16 "LINE "; x1; " "; y1; " "; x2; " "; y2
 ' verso l'alto
   x1=x2
   y1=y2
   y2=y2-lato
  #prog16 "LINE "; x1; " "; y1; " "; x2; " "; y2
 ' verso sinistra
   x2=x1-lato
   y1=y2
   y2=y1
  #prog16 "LINE "; x1; " "; y1; " "; x2; " "; y2
 ' verso il basso
   x1=x2
   y1=y2
   y2=y2+lato
  #prog16 "LINE "; x1; " "; y1; " "; x2; " "; y2

 NEXT i

WAIT

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