Forum TI-Planet.org

Voilà. Si vous aussi vous vous ennuyez en cours et que vous faites des "trucs" avec votre calculette, n'hésitez pas !
J'ai juste pas envie de me sentir seul





Si vous insistez, je mettrai le code, mais c'est vraiment pas compliqué.

Tu t'ennuies à ce point en cours ?
Bravo en tout cas.

Wouah ! C'est sympa !

Si ça t'embêtes pas, balance nous le code, ça pourrait être utile à certains (ce genre de programme permet de mieux savoir se servir de l'écran graphique).

Si je ne me trompe pas, tu as utilisé les fonctions, dont la fonction inverse, c'est bien ça ?

Oui, c'est du dessin en XOR.
Je pense que:
* le premier, le troisième (qui ressemble au premier, mais n'est pas identique) et le cinquième sont faits à  partir du centre de l'écran;
* le deuxième est fait à  partir de lignes dont une extrémité est le coin en haut à  gauche;
* le quatrième est fait à  partir de deux lignes, une dont l'extrémité est le coin en bas à  gauche et l'autre le coin en haut à  droite.

Oui c'est juste une histoire de lignes, qui parcourent l'écran en alternant noir/blanc. Tu vois Noel, rien de bien compliqué.
Lionel : presque un sans faute la quatrième c'est pas exactement ça.
 

Show/Hide spoilerAfficher/Masquer le spoiler

Code: Select all

:FnOff :AxesOff
:0→B:‾2→A
:1→T
:0→Xmin:94→Xmax
:0→Ymin:62→Ymax
:ClrDraw
:For(Θ,0,96*2+62*2+2
:Line(47,31,A,B,T
:1-T→T
:A+not(B)-(B=62→A
:B-(A=‾2)+(A=96→B
:If not(getKey
:End
:Pause


:ClrDraw
:0→A:0→B:1→T
:For(Θ,1,157
:Line(0,62,A,B,T
:1-T→T
:A+not(B)-(B=62→A
:B-not(A)+(A=94→B
:If not(getKey
:End
:Pause


:ClrDraw
:0→A:0→B:0→T
:For(Θ,1,154
:Line(95-A,62-B,A,B,T
:1-T→T
:A+not(B)-(B=62→A
:B-not(A)+(A=94→B
:If not(getKey
:End
:Pause


:ClrDraw
:94→A:31→B:1→T
:For(Θ,1,126
:Line(0,31,A,B,T
:Line(94,31,94-A,62-B,T
:1-T→T
:A+not(B)-(B=62→A
:B-not(A)+(A=94→B
:If not(getKey
:End
:Pause


:ClrDraw
:‾15→Xmin:15→Xmax:‾10→Ymin:10→Ymax
:0→A:0→B:1→T
:Radian
:For(Θ,0,2π-.01,.05
:Line(0,0,10cos(Θ),10sin(Θ),T
:1-T→T
:If not(getKey
:End
:Pause
:ZStandard
:AxesOn
:Disp


J'ai séparé les différentes parties du programme pour que ça soit plus clair..

Le XOR, c'est quoi le principe au juste ? J'ai entendu loulou en parler plusieurs fois, mais bon..

Ah, du noir et blanc alterné...
En noir et blanc, le XOR, c'est une inversion de la couleur. Table de vérité: 0 xor 0 = 0, 0 xor 1 = 1, 1 xor 0 = 1, 1 xor 1 = 0.

Oui, je connais, mais quel est le lien que tu a fait avec ces images ? Tu peux arriver aux mêmes resultats plus facilement ?

ça fait le même effet, oui. Mais ça sera pas exactement pareil je pense.

http://tibank.forumactif.com/t6549-c-to ... -programme

Regarde vers le milieu de la page, il y a des screens d'essais du genre.
Et admirez la rapidité du C..

Comme indiqué par Loulou, l'utilisation de XOR donne des résultats similaires.