VERSIONE PER WINDOWS
Questo e' un programma semplice, ma produce effetti grafici piacevoli e inconsueti e puo' essere trasformato facilmente in uno screen saver... Provate a modificarlo p. es. invece di RAND(2) provate con RAND(4) o RAND(8)...

Per salvarlo basta andare in FILE .. SAVE AS e dargli un nome (p. es. GRAFICA.GFA)

---

NATURALMENTE DOVRETE LANCIARE IL PROGRAMMA GFW_ITAL.EXE, COPIARCI IL PROGRAMMINO ED ESEGUIRLO CLICCANDO SU RUN (riga in basso)

Avete visto come invertendo gli assi X e Y si produce un effetto di simmetria, un effetto migliore si produce sostituendo la riga ' PLOT Y,X ' con la riga seguente

PLOT _X - X,Y

Se avete copiato tutto bene, vedrete delle strane figure di diavolacci cornuti riempire lo schermo....
Il programma e' abbastanza semplice, le quattro righe che controllano il tracciato fanno sì che il punto casuale che traccia il disegno non esca fuori dello schermo.

Se volete che il programma si interrompa quando si pigia un tasto sul MOUSE o sulla tastiera, basta modificare la quinta riga come segue:

 EXIT IF MOUSEK OR INKEY$ >< ""  // INKEY$=TASTIERA DIVERSA DA "" (NIENTE)

Se poi per fare uno Screen saver, volete che il programma si interrompa anche muovendo il MOUSE, vi allego la mia versione completa per WINDOWS: (con COPIA + INCOLLA potrete copiarla e poi incollarla sull'editor del GFW_ITAL.EXE)
ATTENTI PERO' NEL LANCIARE IL PROGRAMMA A NON MUOVERE IL MOUSE, SI INTERROMPE TUTTO SUBITO!

///////////////////// 1' programma del CORSO di GFA-BASIC per WINDOWS  \\\\\\\\\\\\\\\
//                                  // questi sono i commenti

OPENW #1,0,0,_X,_Y,32               // apertura di una finestra grande senza barre
CLS 0                               // schermo nero
X = _X / 2                          // _X/2 e' il centro dello schermo sull'asse delle X
Y = _Y / 2                          // _Y/2 e' il centro dello schermo sull'asse delle Y
oldmx = MOUSEX                      // memorizza posizione MOUSE X
oldmy = MOUSEY                      // memorizza posizione MOUSE Y
HIDEM                               // nasconde il puntatore del MOUSE
DO                                  // DO e' l'inizio di un ciclo
  EXIT IF MOUSEK OR INKEY$ >< ""    // si esce dal ciclo pigiando un tasto MOUSE O TASTIERA
  EXIT IF MOUSEX >< oldmx OR MOUSEY >< oldmy            // si esce anche muovendo il MOUSE
  INC COLL                          // ad ogni ciclo COLL=COLL+1
  COLOR COLL / 200                  // con il colore COLL che cambia ogni 200 cicli
  X = X + RAND(6) - RAND(6)         // X aumenta di un numero a caso tra -5 e +5
  Y = Y + RAND(6) - RAND(6)         // Y aumenta di un numero a caso tra -5 e +5
  IF X > _X THEN X = X - RAND(6)    // controlla tracciato
  IF Y > _Y THEN Y = Y - RAND(6)    // controlla tracciato
  IF X < 0 THEN X = X + RAND(6)     // controlla tracciato
  IF Y < 0 THEN Y = Y + RAND(6)     // controlla tracciato
  PLOT X,Y                          // traccia un punto colorato nella posizione X,Y
  PLOT _X - X,Y                     // traccia un punto colorato nella posizione _X-X,Y
LOOP                                // fine del ciclo
SHOWM                               // ricompare il puntatore del MOUSE
CLOSEW #1                           // chiude finestra

Potete salvare questo programmino come GRAFICA.GFW

---

DA QUESTO SEMPLICE PROGRAMMA CON POCHISSIME MODIFICHE NE POSSIAMO RICAVARE MOLTI ALTRI.
NELLE ESERCITAZIONI CHE SARANNO DISTRIBUITE AGLI ISCRITTI AL GFA-BASIC CLUB VEDRETE ALTRE FORMULE ED EFFETTI SPETTACOLARI.

---

SOMMARIO

CAPITOLO 2