Publicité
1
1
1
1
1
POINT
p
o
SYNTAXE: POINT (expression 1, expression 2)
Abréviation: POl.
Consultez également: GCURSOR, PSET, PRESET
OBJET:
Retourne l'état d'un point particulier de l'écran.
REMARQUES:
L'instruction POINT retourne 1 si le point de coordonnées (expression 1, expression
2) est lumineux et zéro dans le cas contraire. Si le point dont vous indiquez les
coordonnées est hors de i"écran, cette instruction retourne -1.
Les valeurs de expression 1, expression 2 doivent être comprises entre -32768 et
32767. Un point de l'écran ne peut être adressé qui si la valeur de expression 1 est
comprise entre 0 et 239 et celle de expression 2 entre 0 et 31.
EXEMPLE:
la:
CLS : WAIT 5:A
=
75
20: UNE
(sa.
0) -
(sa.
31)
30: UNE (100. 0)
- (100,
31)
40: PSET
(A,
16)
50: B
=
POINT
(A
+
1.16)
60: IF
B
THEN 150
70: PSET
(A
+
1,16)
80: PRESET
(A,
16)
90: A
=
A + 1
100: GOTO 50
150: B
=
POINT
(A
-1,16)
160: IF B THEN 50
170: PSET
(A
- 1,16)
180:
PRESET
(A,
16)
190: A
=
A
- 1
200:
GOTO 150
Trace deux lignes verticales.
Place un point lumineux entre les deux lignes.
Détermine
si
le point
à
droite du point lumineux est
lui-même lumineux.
Si
ce
point est
lumineux,
le programme passe
à
la ligne
150.
Si
ce
point n'est lumineux, le programme le rend lumineux.
Rend obscur le premier point
lumineux.
Incrémente les coordonnées pour adresser le point suivant.
Retour
à
la ligne 50.
Détermine
si le
point
à
gauche du point lumineux est
lui-même
lumineux.
Si
ce
point
est
lumineux, le programme passe
à
la ligne
50.
Si ce point n'est pas lumineux, le programme le rend
lumineux.
Rend obscur
le
premier point lumineux.
Décrémente les coordonnées pour adresser le point
lumineux précédent.
Retour
à
la
ligne
150.
L'exécution de ce programme provoque le déplacement d'un point lumineux d'une ligne verticale
à l'autre.
309
Publicité
