Gráficos

1986/06/01 Iturriotz, J.M. Iturria: Elhuyar aldizkaria

• Programazioa

Os programas que expliquei até agora, aínda que sexan paira o ZX Spectrum, poderiamos abrilos en calquera máquina sen realizar cambios de gran importancia.

Esta vez, perdoarás ao lector, pero o programa que vou explicar aquí hai que expresalo no ZX Spectrum, porque me basearei nas súas propias características.

Este programa non ten en por si un gran valor, pero algunhas das instrucións que se utilizan no mesmo poden resultar de gran interese paira a elaboración ou elegancia de calquera programa.

A máquina, concretamente o Spectrum, garda una serie de posicións memorísticas paira controlar o seu sistema interno. Nel recóllese a tecla que finalmente se pulsou, cal será a seguinte liña de instrución, as cores, o tratamento da pantalla paira saber si a impresora está a utilizar, etc. (un total de 71 variables de sistema).

Entre estas 71 variables de sistema hai dous moi interesantes no noso caso: Posicións 23677 e 23678.

Nestas posicións recóllense as coordenadas do punto final debuxado. É dicir: Se feixes PRINT PEEK 23677, a coordenada x do punto aparecerache na pantalla e si fas PRINT PEEK 23678 darache a coordenada e do punto.

Isto axúdanos moito no deseño dos programas.

O programa que expoño a continuación baséase nas seguintes variables de sistema. O programa realiza debuxos aleatorios e ilimitados.

Antes de executar a instrución DRAW x1,y1 obtén os valores correctos de x1 e y1 nas liñas 205 e 230, utilizando as liñas 210 e 240 paira a súa verificación. As instrucións REM non teñen ningún efecto sobre o programa, polo que se se desexa pódese deixar de teclear.

BORRADOR 10 PRINT #0; "TECLA DE PARADA" 20 LET I=0:REM "Define a cor da tinta" 30 LET x=0:REM x definir 40 LET e=0:REM e definir 50 GOSUB 200 60 INK I 70 DRAW x1,y1 I+1 LET: IF I=7 THEN LET I=0:REM 90 IF INKEY $=" Números aleatorios THEN GO TO 50:REM, 100 INK 0 (Aquí non hai espazo) 110 STOP 200 REM X1 e Y1 Subrutinas 55-NINT* Números aleatorios REM, positivos ou negativos, paira a obtención de 210 LET x=PEEK 23677+x1 220 IF 0 x OR x 255 THEN GO TO 200:REM 230 LET Y1= Int (Rnd*-175)+85:REM paira a obtención de 250 GO e 240 TEP