Creare un rombo in QBasic

Ecco un esempio di come creare un rombo in QBasic utilizzando la funzione “LINE” per disegnare le linee:

Screen 12

xcenter = 320
ycenter = 240
length = 100

Line (xcenter, ycenter - length / 2)-(xcenter + length / 2, ycenter), 14
Line (xcenter + length / 2, ycenter)-(xcenter, ycenter + length / 2), 14
Line (xcenter, ycenter + length / 2)-(xcenter - length / 2, ycenter), 14
Line (xcenter - length / 2, ycenter)-(xcenter, ycenter - length / 2), 14

1. Impostazione dello schermo

Screen 12

Il comando Screen 12 configura la modalità grafica di QBASIC, che supporta risoluzioni fino a 640×480 pixel con 16 colori. Questa modalità è ideale per disegnare figure geometriche come il diamante.

2. Definizione del centro e della lunghezza

xcenter = 320
ycenter = 240
length = 100

Queste righe definiscono:

• xcenter: la coordinata orizzontale del centro del diamante (320 pixel).
• ycenter: la coordinata verticale del centro del diamante (240 pixel).
• length: la lunghezza del diamante, ovvero la distanza tra i vertici opposti.

Con queste impostazioni, il diamante sarà centrato esattamente al centro dello schermo grafico (640×480).

3. Disegno delle linee

Le seguenti istruzioni Line creano i quattro lati del diamante:

a) Prima linea

Line (xcenter, ycenter - length / 2)-(xcenter + length / 2, ycenter), 14

Questa linea collega il vertice superiore (320, 190) al vertice destro (370, 240). Il colore è specificato dall’ultimo parametro (14), che rappresenta il giallo nella palette standard.

b) Seconda linea

Line (xcenter + length / 2, ycenter)-(xcenter, ycenter + length / 2), 14

Collega il vertice destro (370, 240) al vertice inferiore (320, 290).

c) Terza linea

Line (xcenter, ycenter + length / 2)-(xcenter - length / 2, ycenter), 14

Collega il vertice inferiore (320, 290) al vertice sinistro (270, 240).

d) Quarta linea

Line (xcenter - length / 2, ycenter)-(xcenter, ycenter - length / 2), 14

Collega il vertice sinistro (270, 240) al vertice superiore (320, 190).

Risultato finale

Il codice genera un diamante giallo perfettamente centrato nello schermo. La figura è simmetrica, con i vertici allineati alle coordinate calcolate utilizzando il centro e la lunghezza specificati.

Concetti chiave

• Coordinate cartesiane: le posizioni dei punti nello schermo sono espresse con coppie di coordinate (x, y).
• Colori: il parametro finale 14 indica il colore giallo nella palette grafica di QBASIC. Puoi modificarlo per cambiare il colore del diamante.
• Simmetria: il diamante è disegnato sfruttando la simmetria rispetto al centro definito.

Modifiche possibili

Puoi personalizzare questo codice per ottenere effetti diversi:

1. Cambiare il colore: Sostituisci 14 con un altro valore della palette QBASIC.
2. Modificare la dimensione: Cambia il valore di length per un diamante più grande o più piccolo.
3. Spostare il centro: Modifica xcenter e ycenter per disegnare il diamante in altre posizioni.

Pubblicità