DESCRIPTION.

La fonction POINT() retourne le code de la couleur logique du point aux coordonnées fournies.

SYNTAXE.

POINT( abscisse , ordonnee )

REMARQUES.

abscisse et ordonnee doivent être des nombres entiers compris entre −32768 et +32767.

abscisse définit la nouvelle position horizontale, dans la fenêtre de sortie, du point d'origine.

ordonnee définit la nouvelle position verticale, dans la fenêtre de sortie, du point d'origine.

La fonction POINT() retourne toujours une valeur inférieure à 128, c'est-à-dire une couleur d'avant-plan, même si le point aux coordonnées fournies fait partie du fond de la fenêtre de sortie. 

La couleur correspondante au code retournée par la fonction POINT() dépend la valeur de l'instruction MODE sélectionné pour la fenêtre de sortie. Si le point aux coordonnées ( abscisse , ordonnee ) est en dehors de la fenêtre de sortie, la fonction POINT() retournera -1.

Rappel : Avec BBC BASIC SDL 2.0 une points graphique corresponds en réalité à deux pixels. Par exemple, en MODE 8, la fenêtre de sortie a une surface graphique de 640 x 512 points graphiques soit une surface d'image de 1280 x 1024 pixels. Comme les valeurs retournées par certaines variables système sont exprimées en points graphiques, il faudra les multiplier par 2 pour obtenir le nombre de pixels équivalents. Pour pallier à cet inconvénient, il est fortement recommandé de n'utiliser que des valeurs pairs pour désigner les coordonnées des tracés et des dessins.

Pour connaitre la couleur physique (RVB) d'un point, on utilisera la fonction TINT().

RUBRIQUES.

La gestion des couleurs pour plus de détails sur la gestion des couleurs logiques et physiques.

Les dessins et les graphismes pour plus de détails sur la création de dessins et de graphismes.

EXEMPLE.

MODE 8

kpoint = -1

FOR kcouleur = 0 TO 15

GCOL kcouleur

RECTANGLE FILL 20 + ( 75 * kcouleur ) , 500 , 74 , 150

NEXT kcouleur

PRINT TAB( 25 , 17 ) "Deplacez le pointeur de la souris,"

PRINT TAB( 26 , 18 ) "pour connaitre un code couleur."

REPEAT

MOUSE kabscisse , kordonnee , kbouton

IF kpoint <> POINT( kabscisse , kordonnee ) THEN

kpoint = POINT( kabscisse , kordonnee )

PRINT TAB( 30 , 10 ) "Code de la couleur : " ; kpoint ; ".  "

ENDIF

WAIT( 10 )

UNTIL FALSE

END