Tabla de contenido
Publicidad
70
m(p),1
GRAPHICS PEN
80
#1,1,25:PRINT#1,CHR$(48+p);
LOCATE
90
FOR
x=0
TO
7
100
FOR
y=0
TO
14
110
IF
TEST(x*4,y)=0
120
MOVE (x+6)*32,(y+6)*16:PRINT
130
MOVE (x+6)*32,(y+7)*16:PRINT
140
NEXT y,x,p
150
LOCATE
#1,1,25:PRINT#1,"
160
FOR
p=1
TO
4
170
FOR
i=1
TO 25:FRAME:NEXT
180
FOR
i=0
TO
15
190
IF (i AND
m(p))=0
200
NEXT i,p
210
GOTO
160
220
INK
1,26
run
Sprites
En el ejemplo anterior hemos visto cómo se da ilusión de movimiento cambiando los colores
después de escribir con las tintas 1, 2, 4 y 8. Un efecto muy distinto se consigue si se utilizan las
mismas tintas pero se manejan los colores de forma diferente. Este efecto se conoce con el
nombre de 'planos de color'; lo ilustramos en el siguiente ejemplo.
10
REM montañas
20
DEFINT a-s,u-z
30
INK 0,1:INK
1,26
40
INK 2,6:INK
3,6
50
FOR
i=4
TO 7:INK i,9:NEXT
60
FOR
i=8
TO 15:INK i,20:NEXT
70
MODE 0:DEG:ORIGIN 0,150:CLG:MOVE
80
FOR
x=16
TO
640
90
DRAW
x,COS(x)*150+RND*100,4
100
NEXT
110
MOVE 0,0:FILL
120
cx=175:GOSUB
320
130
cx=525:GOSUB
320
140
SYMBOL 252,0,0,&c,&1F,&30,&7F,&FF
150
SYMBOL 253,0,6,&E,&F2,2,&F2,&FE
160
SYMBOL 254,0,&60,&70,&7F,&7F,&7F,&7F
170
SYMBOL 255,0,0,0,&F8,&EC,&FE,&FF
180
pr$=CHR$(254)+CHR$(255)
190
p1$=CHR$(252)+CHR$(253)
200
TAG:t=TIME
210
FOR
x=-32
TO
640
220
x2=((608-x)*2)MOD
230
GRAPHICS PEN 8,1:MOVE x,100+hr,3:PRINT
240
GRAPHICS PEN 2,1:MOVE x2,115+h1,3:PRINT
250
IF
(TEST(x2-2,115+h1-12)
260
IF
TIME-t<30
ThEN
270
FRAME:t=TIME
280
GRAPHICS PEN 7,1:MOVE x,100+hr,2:PRINT
290
GRAPHICS PEN 13,1:MOVE x2,115+h1,2:PRINT
STEP
2
THEN
140
CHR$(143);
CHR$(143);
";
THEN INK
i,0
ELSE INK
STEP
16
4
STEP
4
640:h1=RND*10:hr=50*SIN(x)
AND
8)=8
260
Manual de Amstrad CPC 6128 (revisión 2008) - Página 363
i,26
0,150
pr$;
p1$;
THEN
380
pr$;
p1$;
Publicidad
Tabla de contenido
