XE-Handbuch

Seite 51

Beisplel 6

10 REM * * HOCHAUFLOESENDE GRAPHIK * *
20 GRAPHICS 24 : POKE 710, 0 : COLOR 1 - * siehe unten
30POSITlON40, 40
40 FOR I=O TO 1 STEP 0.01
50 ZEI=6. 283 * I
60PLOT 160+45 * SIN ( ZEI ), 96+45 * COS ( ZEl )
96+90* OS ( ZEl+O. 01 * 6. 293 )
70NEXT I
80FOR I=O TO 1 STEP 0.01
90 ZEI=6. 283 * I
100 PLOT 160+90* SIN ( ZEI ), 96+90 * COS ( ZEI ) : DRAWTO 160+90 * SIN ( ZEI+O. 01 * 6. 283 ), 96 +90*OS ( ZEI+O. 01 * 6. 283 )
110 NEXT I
120 FOR I=O TO 1 STEP 0. 01
130 ZEI=6. 283 * I
140 PLOT 160, 96 : DRAWTO 160+90 * SIN ( ZEI ) , 96+90* OS ( ZEI )
150 NEXT I
160 GOTO 80

* Der Wert kann 0 bis 255 betragen. Angleichung an Bildschirmfarbe ist moeglich.
Die Werte koennen von 0.001 bis 0.25 ansteigen, muessen aber innerhalb jeder Grup-
pe (Zeile 40/60 und Zeile 80/100 und Zeile 120) gleich sein.

Erstellt am 1.Juli 1998 um 19:10