by Littéralement les "niveaux de gris" que l'on peut faire apparaître sur une calculatrice.
En Axe, le principe est d'alterner très rapidement les pixels pour faire apparaître un "gris" plus ou moins prononcé à nos yeux. (le même système est utilisé pour l'affichage des couleurs sur les écrans d'ordi par exemple)
4 niveaux de gris sont implémentés dans ce langage initialement, mais j'ai récemment creusé mes recherches la dessous suite à l'ouverture d'un post sur omnimaga.
Bref, voici un code pour voir 8 grayscales sur une TI-83+ :
- Code: Select all
:.GRAY8
:[0000000000000000→Pic1
:[FFFFFFFFFFFFFFFF]
:0→A→B→C
:Repeat getKey(15)
:sub(GR)
:DispGraphsupr/supsupr/sup
:End
:Return
:
:Lbl GR
:ClrDraw
:ClrDrawsupr/sup
:1-C→C
:For(Y,0,7)
:For(X,0,11)
:If X+1^2+C
:If 1-A→A
:1-B→B
:End
:End
:Pt-Off(X*8,Y*8,B*8+Pic1)
:Pt-Off(X*8,Y*8,A*8+Pic1)supr/sup
:End
:End
Un petit rendu pour vous donner un aperçu sur TI-83+ émulé :
Puis pour un TI-84+, le full speed mode permet une netteté incroyable.
Code :
- Code: Select all
:.GRAY8
:[0000000000000000→Pic1
:[FFFFFFFFFFFFFFFF]
:0→A→B→C
:Repeat getKey(15)
:sub(GR)
:Normal
:DispGraphsupr/supsupr/sup
:Full
:End
:Return
:
:Lbl GR
:ClrDraw
:ClrDrawsupr/sup
:1-C→C
:For(Y,0,7)
:For(X,0,11)
:If X+1^2+C
:If 1-A→A
:1-B→B
:End
:End
:Pt-Off(X*8,Y*8,B*8+Pic1)
:Pt-Off(X*8,Y*8,A*8+Pic1)supr/sup
:End
:End
Un petit screen :
Je me suis rendu compte qu'il était facile de modifier le code pour avoir 16 niveaux de gris :
Et même plus (le screen parlera de lui même) :
J'ai calculé grossièrement que la calculatrice ne supportais plus au bout de 12² grayscales, mais je ne peut pas afficher autant de tile à l'écran pour le vérifier.
