Inhaltsverzeichnis
Werbung
ERWEITERUNGEN
Als Argument wird die x-Koordinate des zu testenden Bildpunktes in Klam-
mern hinter die Funktion geschrieben. Als aktuelle y-Koordinate setzt der
Computer die zuletzt in einer der vier Graphik-Anweisungen erwähnte y-
Koordinate ein. Probieren Sie folgendes Beispiel:
1« CLS:LINE 5«,3«,5«,1««,7
2« PRINT PTEST (5«)
Nach Ausführung des Programmes werden Sie auf dem Bildschirm, neben der
in Zeile 1« festgelegten Strecke als Ergebnis der Anweisung in Zeile 2« die
Zahl 1 ablesen können.
In unserem Programm wurde der Punkt (5«,1««) getestet. Die y-Koordinate 1««
ergibt sich, da sie die letzterwähnte y-Koordinate einer Graphik-Anweisung
(in Zeile 1«) ist. Dieser Punkt ist der oberste der durch das Programm erzeug-
ten Linie und erscheint damit in der Vordergrundfarbe weiß. Ist die Vorder-
grundfarbe gesetzt, so liefert die Funktion wie wir am Beispiel sehen können
den Wert 1. Ist jedoch die Hintergrundfarbe gesetzt, so liefert die Funktion
den Funktionswert «.
Überzeugen Sie sich an folgendem Beispiel:
PRINT PTEST (51)
Soeben haben wir den Bildpunkt 51,1«« rechts neben dem obersten unserer
Gerade getestet. Da dieser in der Hintergrundfarbe erscheint, lautet das Er-
gebnis der letzten Anweisung «.
Zeichnen Sie sich nun mit folgendem Programm Ihre eigene aufgehende
Computer-Sonne:
1« COLOR7,1:CLS
2« X=22«:Y=5«
3« CIRCLE X,Y,3«,2
4« FORB=21TO79:PRESET«,B:A=22«
5« IF PTEST(A)=« THEN PSETA,B,2:A=A-1:GOTO5«
6« A=221
7« IF PTEST(A)=« THEN PSETA,B,2:A =AÍ1:GOTO7«
8« NEXT
9« LINEX,Y,«,15«,2
1«« LINEX,Y,«,65
11« LINEX,Y,«,247
12« LINEX,Y,11«,255
13« LINEX,Y,22«,255
14« LINEX,Y,319,255
11
67
Quicklinks ausblenden:
Werbung
Inhaltsverzeichnis
