AMSTRAD cpc 6128 - Page 77

Now try:
new
10 MODE 1
20 ORIGIN 320,200
30 DEG
40 MOVE 0,190
50 FOR d=0 TO 360 STEP 10
60 DRAW 190*SIN(d),190*COS(d)
70 NEXT
80 MOVE -188,0
90 FILL 3
run
( (n
We can make the outline of the circle to be filled invisible, by setting the pen ink to
the same colour as the paper ink. Add:
45 GRAPHICS PEN 2:INK 2,1
run
The G RAP HIe S PEN command selects the pen to be used for drawing graphics on
the screen. The INK command then specifies the ink colour for that pen, which in this
case, is the same as for the paper (i.e. colour number 1).
Finally, type
in this demonstration program:
new
10 MODE 0:BORDER 13
20 MOVE 0,200:DRA~L6A~,_2QJ0_
30 FOR x=80 TO 560 STEP 80
40 MOVE x,0:DRAW x,400
50 NEXT:MOVE-40,300
60 FOR c=0 TO 7
70 MOVER 80,0:FILL c
80 MOVER 0,-200:FILL c+8
90 MOVER 0,200:NEXT
100 GOTO 100
run
The colours of the filled areas can be changed after the fill. Type in:
100 SPEED INK 30,30
110 BORDER RND*26,RND*26
120 INK RND*15,RND*26,RND*26
130 FOR t=1 TO 500:NEXT:GOTO 110
run
Chapter 1 Page 64
Foundation Course