530
n2$=n2$+FNm$(canal2$,canal2%)
540 canal2%=canal2%+1
550
GOTO
480
run
Dicho gráficamente ...
En esta sección vamos a repasar las funciones gráficas del ordenador. Iremos construyendo paso
a paso un primer ejemplo para ilustrar el funcionamiento de las diversas instrucciones.
Para empezar, dividimos la pantalla en una ventana de texto (línea 40) y una ventana gráfica
(línea 30). Además, establecemos el modo de pantalla y asignamos tintas parpadeantes a dos
plumas (líneas 20):
10
REM MASK y TAG en una ventana
20
MODE 1:INK 2,10,4:INK
30
ORIGIN
440,100,440,640,100,300
40
WINDOW
1,26,1,25
50
CLG
2
Si ejecuta este programa, podrá ver un cuadrado parpadeante al lado derecho de la pantalla.
Este cuadrado ha sido borrado con la pluma número 2 (magenta/cyan) por la línea 50. El origen
de coordenadas ha sido trasladado al extremo inferior izquierdo del cuadrado. La orden MODE
ha llevado el cursor al origen de coordenadas (X=0, Y=0); podemos dibujar una diagonal en el
cuadrado con la línea 60:
60
DRAW
200,200,3
Ejecute el programa y observe el efecto. Añada ahora:
80
MOVE 0,2:FILL
3
La línea 80 lleva el cursor al interior de una de las dos mitades del cuadrado y la rellena con la
pluma 3. El límite del recinto que se rellena es el borde de la ventana gráfica (que en este caso es
también el del cuadrado) y cualquier recta que se haya dibujado con la pluma gráfica actual (la 3)
o con la que se utiliza para rellenar (también la 3).
Ejecute esta versión del programa.
Para comprobar lo dicho acerca de los límites del recinto, añada la siguiente línea 70. Observe
que la única razón para que el rellenado se limite a una mitad del cuadrado es que la pluma de
rellenar es el misma con la que se dibujó la diagonal.
70
GRAPHICS PEN
1
run
Modifique la línea 80 para rellenar con la pluma 1 y ejecute el programa para comprobar esto
último. Cuando lo haya hecho, vuelva a dejar la línea 80 como estaba (FILL 3).
Añada ahora las líneas siguientes para dibujar un cuadrado:
100
20,20
MOVE
110
DRAW
180,20
120
DRAW
180,180
130
DRAW
20,180
3,4,10
Manual de Amstrad CPC 6128 (revisión 2008) - Página 358