I don't know the colors

[LavaLava]

J'ai un petit prob..
Je suis en mode plein écran avec un OpenScreen(800,600,8,"") mais je ne sais pas qu'elles sont les 256 couleurs utilisables !
Si je veux faire un FrontColor(R,V,B), qu'elles sont les valeurs possibles pour R,V et B ?

Thank's

[Chris]

Ben normalement, tu dois pouvoir mettre des valeurs entre 0 (Noir) et 255 (Blanc) pour chaque composantes de la couleur.

Ex:

Code : Tout sélectionner

RGB(0,0,255)

te donnera du bleu.

Pour frontcolor(), ça donne:

Code : Tout sélectionner

FrontColor(0, 0, 255)

Chris

[LavaLava]

Je sais que R,V,B peuvent varier de 0 à 255, mais cela donne 14 Millions de couleurs (256*256*256) alors que je limite l'affichage à 256 couleur puisque :
OpenScreen(800,600,8,"") le 8 = 8 bits = 256 couleurs

Donc sur les 14M de couleurs yen a bien qui doivent pas s'afficher ?

[Chris]

Ooops! J'avais mal lu le message

J'ai regardé la palette standard PaintShop Pro, les valeurs de chaques composantes RVB sont faites par pas de 51. (33 en hex).

Mais ça ne fait que 216 couleurs. (6x6x6)
Si tu fais 7x7x7, tu dépasses déjà les 256 couleurs

Pas simple

Chris

[LavaLava]

Je ne veux selectionner que 20 couleurs parmit les 256.
En attendant je vais les choisir parmit celle que tu m'a cité ...
Merci

[Chris]

J'ai retrouvé un petit code que j'avais fait pour je ne sais plus quel projet.

Il retrouve les 216 couleurs de la palette de PaintShop Pro.

Si ça peut t'être utile

Code : Tout sélectionner

Rouge = 0 : Vert = 0 : Bleu = 0

For a = 0 To 215
  Debug "Index= " + Str(a) + " --> " + "#"+RSet(Hex(Rouge),2,"0")+RSet(Hex(Vert),2,"0")+RSet(Hex(Bleu),2,"0")
  
  Bleu + 51 
  If Bleu > 255 : Bleu = 0 :Rouge + 51: EndIf
  If Rouge > 255 : Rouge = 0 : Vert + 51 : EndIf
  If Vert > 255 : Vert = 0 : EndIf
Next

J'ai juste rajouté le debug
Chris