También se puede cambiar los colores de las zonas rellenadas:
100
SPEED INK
110
BORDER
RND*26,RND*26
120
INK
RND*15,RND*26,RND*26
130
FOR
t=1
run
Otros detalles ...
En la sección 'Dicho gráficamente', del capítulo titulado 'Cuando usted guste ...', daremos una
explicación más detallada de los gráficos del CPC6I28.
Para concluir esta sección, le ofrecemos unos programas de demostración de gráficos que
incorporan muchas instrucciones que el lector ya debería entender. Todos ellos dibujan figuras
en la pantalla continuamente.
10
BORDER 0:GRAPHICS PEN
20
m=CINT(RND*2):MODE m
30
i1=RND*26:
40
IF
ABS(i1-i2)<10
50
INK 0,i1:INK 1,i2
60
s=RND*5+3:ORIGIN
70
FOR
x=-1000
80
MOVE 0,0:DRAW x,300:DRAW
90
MOVE 0,0:DRAW -x,300:DRAW
100
NEXT:FOR
run
10
MODE 1:BORDER 0:PAPER
20
GRAPHICS PEN 2:INK
30
EVERY
2200
40
indicador=0:CLG
50
INK
2,14+RND*12
60 b%=RND*5+1
70 c%=RND*5+1
80
ORIGIN
320,200
90
FOR
a=0
TO
100
x%=100*COS(a)
110
MOVE
x%, y%
120
DRAW
200*COS(a/b%),200*SIN(a/c%)
130
IF
indicador=1
140
NEXT
150
indicador=1:RETURN
run
10
MODE 1:BORDER 0:DEG
20
PRINT
"Por favor, espere"
30
FOR
n=1
TO
40
INK 0,0:INK 1,26:INK 2,6:INK
50
IF
n=1
THEN
60
IF
n=2
THEN
70
IF
n=3
THEN
80
IF
n=1
THEN ORIGIN
30,30
TO 500:NEXT:GOTO
110
1
i2=RND*26
THEN
30
320,-100
TO
0
STEP s
0,600
0,600
t=1
TO 2000:NEXT:GOTO
0
0,0:i=14
GOSUB
150
1000
STEP
PI/30
THEN
40
3
sa=120
sa=135
sa=150
0,-50,0,640,0,400
Manual de Amstrad CPC 6128 (revisión 2008) - Página 76
20
3,18
ELSE ORIGIN
0,0,0,640,0,400