Inhaltsverzeichnis
Werbung
TEl L
6
COMMODORE 16
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>100 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
Höhenzahl
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
für
einen
interessanten Effekt genutzt wird. Dazu muß jedoch vorher der
Speicher
mit dem Befehl NEW (und Taste <Return»
gelöscht werden.
102
10 COLOR 0,1
20 COLOR 1,2
30 GRAPHIC 1,1
40 A = RND(1)*20+10
50 FOR L=O TO 359 STEP A
60 CIRCLE 1,160,100,80,40",L
70 NEXT L
80 FOR L=l TO 2000: NEXT L
90 GRAPHIC 0,1
Werbung
Inhaltsverzeichnis
