Forum TI-Planet.org

Par exemple, le robot ne reconnaît que deux teintes de bleu (cyan et bleu), alors que la calculatrice est capable d'en afficher trois différentes (bleu clair, bleu et bleu marine). Nous avons déjà associé le bleu clair au cyan dans l'épisode précédent. Mais il reste donc une teinte de bleue inutilisée.
On peut résoudre cela facilement avec une procédure complémentaire spécifique au cas où le robot détecte du bleu.
En ouvrant une capture d'écran avec un logiciel de dessin, on peut récupérer les coordonnées RVB et donc les quantités de bleu correspondant aux teintes de la calculatrice :
10: 000 000 255 (BLEU)
17: 000 000 132 (BLEU MRN)
18: 000 146 255 (BLEU CLR)
Dans le cas où le robot nous retourne du bleu, il nous suffit donc d'utiliser l'instruction READ RV.COLORINPUT.BLUE et de regarder de quelle valeur on est le plus proche :

Code: Tout sélectionner

If Rep=BLEU
Then
Send("READ RV.COLORINPUT.BLEU
Get(B
BLEU+7(B<.5(255+132
End

Et voilà, le robot détecte maintenant correctement les différentes teintes de bleu !

Pire, le robot ne reconnaît qu'une seule teinte de gris, alors que la calculatrice est capable d'en afficher quatre différentes (gris clair, gris moyen, gris et gris foncé). Nous avons déjà associé le bleu clair au cyan dans l'épisode précédent. Il reste donc trois teintes de gris inutilisées.
De même récupérons les niveaux de gris de la calculatrice à l'aide d'un logiciel de dessin :
21: 228 (GRIS CLR)
22: 196 (GRIS MOY)
23: 139 (GRIS)
24: 84 (GRIS FON)

Là avec 4 valeurs, il est plus compliqué de déterminer la plus proche. Mais grâce aux instructions gérant les listes, on va quand même te faire le coup d'y arriver sans utiliser la moindre boucle :

Code: Tout sélectionner

If Rep=GRIS
Then
Send("READ RV.COLORINPUT.GRAY
Get(G
{228,196,139,84→⌊T
abs(G-⌊T→⌊T
min(⌊T
BLANC+Σ(I(⌊T(I)=Rep),I,1,dim(⌊T
End

Et voilà, le robot détecte maintenant correctement les différentes teintes de gris !