NCR GW-BASIC Betriebsanleitung Seite 212

GW-BASIC-BEFEHLE UND FUNKTIONEN
LINE
4-138
In dem folgenden Beispiel werden die Ecken des
Bildschirms durch eine Linie miteinander verbun­
den, die mit mittlerer Auflösung gezeichnet wird.
10 SCREEN 2:CLS
20 LINE (0,0)-(639,199)„B
30 LINE (0,0X639,199)
40 LINE (0,199X639,0)
50 IF INKEY$ = ""THEN 50
60 SCREEN 0
Da "Linienart" nicht angegeben wird, werden fort­
laufende Linien gezeichnet. Nun werden die Zeilen
20 bis 40 folgendermaßen neu geschrieben:
20 STYLE%=21845:LINE
(0,0)X639,199)„B,STYLE%
30 LINE (0,0)-(639,199),„STYLE%
40 LINE (0,199)-(639,0),„STYLE°/o
Dies führt zu gepunkteten Linien. Der Wert von
STYLE% wird auf 1 geändert. Nim werden weniger
Punkte in weitaus größerem Abstand gezeichnet.
Der Wert 3855 erzeugt gestrichelte Linien. Das
Binäräquivalent lautet:
0000111100001111 (Hexadezimalwert 0F0F)
In dem folgenden Beispiel wird eine Linie mit ver­
schobenen Koordinaten gezeichnet, d.h. relativ zu
dem letzten Punkt, auf den Bezug genommen
wurde (in diesem Fall 150,100):
10 LINE (150,100)-STEP (30,-30)
Mit dem folgenden Beispiel werden Kästchen mit
beliebiger Größe mit maximal 50 X 50 Punkten an
beliebigen Stellen in beliebigen Farben gezeichnet:
10 SCREEN 1,0
20 COLOR 0,RND*4
30 LINE
(RND*319,RND* 199)-STEP(RND*50,RND*50)
,RND*3,BF
40 GOTO 20
GW-BASIC