Inhaltsverzeichnis
Werbung
T E I L
6
CO~lMODORE
116
Nachfolgend ein kurzes Programm, um Vielecke zu zeichnen:
5 DO
10 GRAPHIC 2,1
20 INPUT "WIE VIELE SEITEN"; A
30 IF A<2 OR A>lOO THEN PRINT "BITTE NICHT UEBERTREIBEN !": GOT020
40 CIRCLE 1,160,80,40,40,,,,360/A
50 INPUT "WEITER J/N";C$
60 LOOP UNTIL C$="N"
70 GRAPHIC O:END
Es steht Ihnen frei, statt eines Kreises auch
nur
ein
Kreis-
segment zu zeichnen. Die CIRCLE-Anweisung akzeptiert auch Anfangs-
und
Endpunkte in Grad, wenn sie anschließend an
die
Hbhenzahl
eingegeben
werden. Mit dem
Befehl:
CIRCLE 1,160,100,50,42,90,180
wird
nur
das
rechte untere Segment eines Kreises gezeichnet.
Ein
Oval
l~ßt
sich
drehen,
wenn
hinter
dem
eigentlichen
CIRCLE-Befehl der Winkel
(im
Uhrzeigersinn
betrachtet)
der
Drehung
eingegeben wird: CIRCLE 1,160,100,100,20,,,30.
Und nun ein Programm,
in dem
die
CIRCLE-Anweisung
fUr
einen
interessanten Effekt genutzt wird. Dazu muß jedoch vorher der
Speicher
mit dem Befehl NEW (und Taste <Return>) gelbseht werden.
10 COLOR 0,1
20 COLOR 1. 2
30 GRAPHIC 1. l
40 A = RND(l)*20+10
50 FOR L=O TO 359 STEP A
60 CIRCLE 1,160,100,80,40,, ,L
70 NEXT L
so
FOR L=l TO 2000: NEXT
L
90 GRAPHIC 0. l
102
•
Werbung
Inhaltsverzeichnis
