Creare un cuore in QBasic

Ecco un esempio di codice QBasic per creare un cuore:

Screen 12

For x = -1 To 1 Step 0.025
    y = Sqr(1 - x ^ 2) + Abs(x) - 1
    PSet (230 + x * 100, 190 - y * 100), 12
    PSet (230 - x * 100, 190 - y * 100), 12
Next

For x = -1 To 1 Step 0.025
    y = -Sqr(1 - x ^ 2) + Abs(x) - 1
    PSet (230 + x * 100, 190 - y * 100), 12
    PSet (230 - x * 100, 190 - y * 100), 12
Next

Do
Loop Until InKey$ <> ""

In questo esempio, utilizziamo la funzione SCREEN 12 per impostare la modalità grafica VGA, che ci permette di disegnare forme a colori.

Utilizziamo poi due loop FOR per creare i due archi del cuore, calcolando le coordinate x e y di ogni punto sull’arco. La funzione PSET viene utilizzata per disegnare ogni punto del cuore a schermo.

Infine, utilizziamo un loop DO...LOOP per mantenere l’applicazione aperta finché l’utente non preme un tasto sulla tastiera.