Tabla de contenido
70
3
fill
run
La tinta 'rezuma' por la ranuras.
Veámoslo con otro ejemplo. Rellenemos una circunferencia dibujada punto a punto:
new
10
CLS
20
FOR
a=1
TO
30
ORIGIN
320,200
40
PLOT
190*COS(a),190*SIN(a)
50
NEXT
60
MOVE
-188,0
70
FILL
3
run
Pruebe ahora con:
new
10
MODE
1
20
ORIGIN
320,200
30
DEG
40
MOVE
0,190
50
d=0
FOR
TO
60
DRAW
190*SIN(d),190*COS(d)
70
NEXT
80
-188,0
MOVE
90
FILL
3
run
Para hacer que el borde del círculo sea invisible, dibujamos la circunferencia con tinta del mismo
color que la del papel. Añada la siguiente línea:
45
GRAPHICS PEN 2:INK
run
La instrucción GRAPHICS PEN selecciona la pluma que haya de ser utilizada para' dibujar
gráficos. La instrucción INK especifica el color de tinta para esa pluma, que en este caso coincide
con el color del papel (color número 1).
Finalmente, introduzca y pruebe el siguiente programa:
new
10
MODE 0:BORDER
20
MOVE 0,200:DRAW
30
FOR
x=80
40
MOVE x,0:DRAW
50
NEXT:MOVE
60
FOR
c=0
TO
70
MOVER 80,0:FILL c
80
MOVER 0,-200:FILL
90
MOVER 0,200:NEXT
100
GOTO
100
run
360
360
10
STEP
2,1
13
640,200
TO
560
STEP
80
x,400
-40,300
7
c+8
Manual de Amstrad CPC 6128 (revisión 2008) - Página 75
Tabla de contenido
