PV Color to index

4D View v16

PV Color to index


PV Color to index ( couleur ) -> Résultat

Paramètre	Type	Description
couleur	Entier long	Numéro de couleur
Résultat	Entier	Numéro de couleur indexée

Description

La commande PV Couleur vers index retourne le numéro dans la palette 4D de la couleur indexée correspondant à la couleur RVB définie par l'entier long couleur.

L’entier retourné par la commande indique la couleur indexée la plus proche possible de la couleur passée en paramètre. Ce résultat, compris entre 0 et 255, utilise comme référence les 256 couleurs de la palette de 4D.

Reportez-vous à la description des commandes 4D suivantes pour des informations détaillées sur les couleurs dans 4D :

OBJECT SET RGB COLORS pour le système de couleurs RVB utilisé par 4D.
OBJECT SET COLOR pour la palette 4D de couleurs indexées.

Note : Le codage interne des couleurs de 4D View est de type BVR, il est inversé par rapport au codage RVB de 4D ; les principes d'utilisation sont toutefois identiques.

Exemple

Cette méthode attribue à la cellule A1 la couleur de fond définie par les valeurs RVB (0 à 255) saisies dans les cellules A2, A3 et A4. La cellule C1 affiche, pour sa part, le numéro de couleur indexée le plus proche dans la palette 4D — avec la couleur de fond ad hoc — tandis que les cellules C2, C3 et C4 affichent les valeurs RVB correspondant à cette couleur indexée, permettant ainsi de visualiser l'écart avec les valeurs de départ.

 C_LONGINT($Couleur) //Couleur de fond de la cellule A1 (RVB) puis couleur après indexation

 C_LONGINT($Rouge;$Vert;$Bleu) //Couleurs RVB de départ puis d'arrivée

 C_LONGINT($Index) //Numéro dans la palette 4D

 

 PV SET CELL STRING VALUE(Zone;2;1;"Couleur") //Libellés

 PV SET CELL STRING VALUE(Zone;2;2;"Rouge")

 PV SET CELL STRING VALUE(Zone;2;3;"Vert")

 PV SET CELL STRING VALUE(Zone;2;4;"Bleu")

 

 $Rouge:=PV Get cell num value(Zone;1;2) //Couleurs RVB de départ

 $Vert:=PV Get cell num value(Zone;1;3)

 $Bleu:=PV Get cell num value(Zone;1;4)

 

 $Couleur:=PV RGB to color($Rouge;$Vert;$Bleu)

 PV SET CELL PROPERTY(Zone;1;1;pv style color back odd;$Couleur) //Affectation du fond A1

 

 $Index:=PV Color to index($Couleur) //"Indexation"

 PV SET CELL NUM VALUE(Zone;3;1;$Index) //Numéro dans la palette 4D

 $Couleur:=PV Index to color($Index) //Nouvelle couleur

 PV SET CELL PROPERTY(Zone;3;1;pv style color back odd;$Couleur) //Affectation du fond C1

 

 PV COLOR TO RGB($Couleur;$Rouge;$Vert;$Bleu) //Décomposons

 PV SET CELL NUM VALUE(Zone;3;2;$Rouge) //Couleurs RVB d'arrivée après "indexation"

 PV SET CELL NUM VALUE(Zone;3;3;$Vert)

 PV SET CELL NUM VALUE(Zone;3;4;$Bleu)

Voir aussi

PV Index to color