Tabla de contenido
Publicidad
Una muestra más impresionante de su potencia es ejecutar el programa del principio para
que dibuje las rayas de colores (de nuevo, seleccione la pantalla inferior antes de escribir
RUN)
y luego hacer lo siguiente:
INK
9:
PAPER
8:
PRINT AT
0,0;:
fOR
n=1
TO
1000:
PRINT
n;:
NEXT
n
El color de la tinta contrasta siempre con el color antiguo del papel en todas las celdas
de carácter.
Los televisores de color en realidad sólo utilizan tres colores: rojo, verde y azul. Todos
los demás colores son mezclas de éstos. Por ejemplo, el magenta se forma mezclando rojo
con azul; ésta es la razón por la que su código es 3, ya que este número es la suma de
los códigos del rojo (2)
y
el azul
(1).
Para comprender cómo se forman los ocho colores, imagine tres focos rectangulares, de
colores rojo, verde y azul, que arrojan su luz en la oscuridad sobre tres zonas parcialmente
solapadas de un pedazo de papel blanco. Donde las zonas se solapen veremos mezclas de
colores, como muestra el programa siguiente (observe que los cuadrados de tinta sólida
se obtienen activando el modo gráfico con la tecla
1
GRAF
I
y pulsando luego la tecla
[!]
en
combinación con
1 MAYUSCULAS 1;
para salir del modo gráfico se pulsa la tecla [!]):
10
BORDER
O:
PAPER
O:
INK
7:
CLS
20
fOR
a=1
TO
6
30
PRINT TAB
6;
INK
1;"
":
REM
18 cuadrados de tinta
40 NEXT
a
50
LET
linea datos=200
60
GO SUB
1000
70
LET
linea datos=210
80
GO SUB
1000
90 STOP
200
DATA
2,3,7,5,4
210
DATA
2,2,6,4,4
1000
fOR
a=1
TO
6
1010
RESTORE
linea datos
1020
fOR
b=1
TO
5
1030
READ
c:
PRINT INK
c;"
";:
REM
6 cuadrados de tinta
1040 NEXT b: PRINT: NEXT
a
1050 RETURN
Hay una función, llamada
ATTR
que averigua los atributos de una posición dada de la
pantalla. Es una función complicada, y por eso la aplazaremos para el final de esta sección.
Disponemos de otras dos sentencias,
INVERSE
y
OVER,
que no controlan los atributos,
sino la distribución de puntos del carácter que resulta impreso en la pantalla. Llevan co
mo parámetro el número 0, que significa 'activado', o el número 1, que significa 'desacti
vado'. Así,
INVERSE
1 invierte la situación de todos los puntos de la retícula: apaga los
Sección 16. Colores
127
Publicidad
Tabla de contenido
