BILDSCHIRMAUSGABE
Beispiel
BÖGEN
72
Ein gestreckter Winkel beläuft sich auf 180 Grad oder PI Radiant. Mit folgendem Pro-
gramm können Sie also ein Muster mit Ellipsen zeichnen:
100 FOR drehung
= 0 TO 2 * PI STEP PI/6
110
CIRCLE 50,50,40,.5,drehung
120 END FOR drehung
Für einen Kreis oder eine Ellipse werden die Parameter in folgender Reihenfolge
angegeben:
Mitte_waagerecht,
Mitte_senkrecht,
Die beiden letzten Parameter können entfallen. Dies wird dadurch angegeben, daß
sie in eckigen Klammern stehen ([ l).
Schreiben Sie ein Programm, das folgende Funktionen ausführt:
1. Öffnen eines Fensters von 100 x 100 bei (100,50).
2. Maßstabsfaktor 100 in MODE 8.
3. Eine schwarze Hintergrundfarbe
gelöscht.
4. Eine grüne Umrandung mit einer Breite von zwei Einheiten wird erstellt.
5. Ein Muster aus sechs farbigen Kreisen wird gezeichnet.
6. Das Fenster wird geschlossen.
100 REMark Muster
110 MODE8
120 OPEN #7,scr_100
130 SCALE #7,100,0,0
140 PAPER #7,0
: CLS #7
150 BORDER #7,2,4
160 FOR farbe
= 1 TO 6
170
INK #7 , farbe
180
LET drehung
= 2* PI/farbe
190
CIRCLE #7,50,50,30,.5,drehung
200 END FOR farbe
210 CLOSE #7
Durch Änderung des Programms können einige interessante Effekte erzielt werden.
Nehmen Sie beispielsweise folgende Änderungen vor:
160 FOR farbe=1
180 let
drehung
= farbe
Soll ein Bogen gezeichnet werden, so müssen folgende Entscheidungen gefällt
werden:
- Startpunkt
- Endpunkt
- Krümmung.
Die beiden ersten Elemente sind problemlos. Bei der Krümmung verhält sich dies
schon etwas anders. Sie können den Bogen zeichnen, indem Sie genau zeichnen
oder Versuche unternehmen. Sie müssen jedoch entscheiden, welchen Winkel der
Bogen haben soll und den Winkel dann in Radiant angeben. Ein Winkel von 1,5
Radiant ergibt eine scharfe Krümmung, während ein kleiner Winkel eine sehr leichte
Krümmung ergibt. Geben Sie beispielsweise folgenden Befehl ein:
ARC 10,50
TO 50,90,
Dadurch erhalten Sie eine leichte Krümmung.
(50,90)
Halbachse, [Exzentrizität, Winke~
wird ausgewählt
x 100a100
x 50
to 100
* PI 150
1
und der Bildschirm
wird
3/85
(