Page 1 sur 1
I don't know the colors
Publié : ven. 30/avr./2004 14:58
par 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
Publié : ven. 30/avr./2004 15:15
par Chris
Ben normalement, tu dois pouvoir mettre des valeurs entre 0 (Noir) et 255 (Blanc) pour chaque composantes de la couleur.
Ex:
te donnera du bleu.
Pour frontcolor(), ça donne:
Chris
Publié : ven. 30/avr./2004 15:25
par 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 ?
Publié : ven. 30/avr./2004 15:56
par 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
Publié : ven. 30/avr./2004 16:16
par 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
Publié : ven. 30/avr./2004 16:57
par 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