NCR GW-BASIC Betriebsanleitung Seite 276

GW-BASIC-BEFEHLE UND FUNKTIONEN
PAINT
4 -2 0 2
gezeichnet. Da der letzte Punkt, auf den Bezug
genommen wird, dann die Mitte des Kreises ist,
befindet sich PAINT schon innerhalb des Kreises
und braucht nicht bewegt zu werden: STEP (0,0).
Der Kreis wird dann mit grüner Farbe (Farbe 1 der
Palette 0) ausgefüllt. Die <Umriß>-Farbe muß auf
2 festgelegt werden, d.h. auf die Farbe, mit der der
Kreis gezeichnet wurde, ansonsten wird außerhalb
des Kreises weitergezeichnet.
10 SCREEN 1: COLOR 0,0
20 CLS
30 CIRCLE (160,100),30,2
40 PAINT STEP (0,0),1,2
Das nächste Beispiel benutzt einen Zeichenfolgen­
ausdruck für <Effekt>, um kobaltblaue und vio­
lette horizontale Streifen in das Kästchen zu zeich­
nen, das mit Zeile 40 gezeichnet wird. Mit STEP
(5,-5) wird die Position für PAINT von der unteren
linken Ecke des Kästchens in den Kasten bewegt.
Da das Kästchen in weißer Farbe gezeichnet wurde,
muß "Umriß" auf weiß (3) gesetzt werden, da anson­
sten über die Grenzen des Kästchens hinaus
gezeichnet würde.
10 SCREEN l.COLOR 0,1
20 CLS
30 DRAW "c3"
40 DRAW "u50 r50 d50 150"
50 PAINT STEP (5,-5),
CHR$(&H55)+ CHR$(&H55)+ CHR$
(&HAA)+ CHR$(&HAA),3
Mit dem folgenden Beispiel wird die Benutzung von
<Hintergrund> dargelegt, um kobaltblaue und vio­
lette Streifen auf einem violetten Hintergrund zu
zeichnen. Mit den Zeilen 30 und 40 wird ein Käst­
chen gezeichnet und violett ausgefullt. Mit Zeile 60
werden die Streifen gezeichnet, wobei der durch
<Hintergrund> ermöglichte Überspring-Effekt
benutzt wird. Zeile 70 enthält denselben Befehl als
Bemerkung (REM) des Programmierers, jedoch
ohne dieses Überspringen. Versuchen Sie, Zeile 60
zu der REM-Zeile (der nicht ausgeführten Zeile) zu
GW-BASIC