XE-Handbuch

Seite 54

BeispieI 11

10 REM * * * GRAPHIK-KREISE I I * * *
20 GRAPHICS 31 : COLOR 1
30 SETCOLOR 0, 3, 10 : SETCOLOR 1, 8, 10 : SETCOLOR 2, 11, 10
40 A=20 : B=33
50 FOR K=1 TO 5
60 FOR I=O TO 1 STEP 0. 03
70 ZEI=6. 283 * I
80 PLOT A, B : DRAWTO A+15 * SIN ( ZEI+O. 01 * 6. 283 ), B+30 * COS ( ZEI+O. 01 * 6. 283 )
990 NEXT I
100 IF K=1 THENA=50 : B=33 : COLOR 2
110 IF K=2 THEN A=80 : B=33 : COLOR 3
120 IF K=3 THEN A=110 : B=33 : COLOR 1
130 IF K=4 THEN A=140 : B=33 : COLOR 2
140 NEXT K
150 A=20 : B=129 : COLOR 3
160 FOR K=1 TO 5
170 FOR I=O TO 1 STEP 0. 03
180 ZEI=6. 283 * I
190 PLOT A, B : DRAWTO A+15 * SIN ( ZEI+O. 01 * 6. 283 ), B+30 * COS ( ZEI+O. 01 * 6. 283 )
200 NEXT I
210 IF K=1 THEN A=50 : B=129 : COLOR 1
220 IF K=2 THEN A=80 : B=129 : OLOR 2
230 IF K=3 THEN A=110 : B129: COLOR 3
240 IF K=4 THEN A=140 : B=129 : COLOR 1
250 NEXT K
260 A=35 : B=81 : COLOR 2
270 FOR K=1 TO 4
280 FOR I=O TO 1 STEP 0. 03
290 ZEI=6. 283 * I
300 PLOT A, B : DRAWTO A+15 * SIN ( ZEI+O. 01 * 6. 283 ), B+30 * OS ( ZEI+O. 01 * 6. 283 )
310 NEXT I
320 IF K=1 THeN A=65 : B=81 : COLOR 3
330 IF K=2 THEN A=95 : B=81 : COLOR 1
340 IF K=3 THEN A=125 : B=81 : COLOR 2
350 NEXT K
360 IF A=1 THEN SETCOLOR 0, 3, INT ( RND ( 0 ) * 15 )
370 IF A=2 THEN SETCOLOR 1, 3, INT ( RND ( 0 ) * 15 )
380 IF A=3 THEN SETCOLOR 2, 3, INT ( RND ( 0 ) * 15 )
390 FOR U=1 TO 20 : NEXT U
400 A=INT ( RND ( 0 ) * 3+1 )
410 GOTO 360

Aehnlich Beispiel 1 0, nur wird hier der Farbwechseh nicht durch POKE sondern SETCOLOR erzielt.

Beliebige Werte von 1 bis 3 moeglich.

Behiebige Werte von 1 bis 1 5 moeglich.

Erstellt am 1.Juli 1998 um 19:10