'progetto 17a: Disegnare un triangolo equilatero
'              (con un lato orizzontale, posto in basso)

'creazione della finestra
NOMAINWIN
 WindowWidth = 500      'larghezza
 WindowHeight = 500     'altezza
 UpperLeftX = 400
 UpperLeftY = 100

 OPEN "Progetto 17" FOR graphics_nsb AS #prog17
   #prog17 "trapclose [uscita]"
   #prog17 "fill yellow"

' disegna il triangolo equilatero
  #prog17 "DOWN"
  #prog17 "COLOR red"
  #prog17 "SIZE 2"

   'coordinate del vertice superiore del triangolo
   xC=int(WindowWidth/2)-10   'centrato in orizzontale nella finestra (tenendo conto della cornice)
   yC=int(0.05*WindowHeight)  'l'ordinata č posta pari a un ventesimo dell'altezza della finestra

   altezza = int(0.8*WindowHeight)      'altezza del triangolo (4/5 di quella della finestra)

'  il lato del triangolo č lato = altezza*2.0/sqr(3.0)
'  perciņ lato/2 = altezza/sqr(3.0) = 0.577*altezza

   xA=xC-int(0.577*altezza)  'coordinate del vertice inferiore di sinistra
   yA=yC+int(altezza)

   xB=xC+int(0.577*altezza)  'coordinate del vertice inferiore di destra
   yB=yC+int(altezza)

     ' tracciamento dei tre lati
       #prog17 "LINE "; xA; " "; yA; " "; xB; " "; yB
       #prog17 "LINE "; xA; " "; yA; " "; xC; " "; yC
       #prog17 "LINE "; xC; " "; yC; " "; xB; " "; yB

 WAIT

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