Poster un nouveau sujet Poster une réponse
Ecran de veille
Auteur Message
Batchyuiop



Autorisation : Membre
Nb de messages : 6
Inscrit le : Sam 15 Sep 2012, 15:39
Posté le : Dim 07 Oct 2012, 21:14   Citer 

Voici deux écran de veille, qui ne sont pas craiment de "veille", car il consomme des piles. Bon, les voici.
ü = sto (->)


Code
EffDessin
Lbl 0
For (A,0,94)
For (B,0,62)
entAléat(0,1)üX
If X=0
Pxl-Off(B,A)
If X=1
Pxl-On(B,A)
End:End
For(A,0,62)
For(B,0,94)
Pxl-Change(A,B)
End:End
Goto 0



Le deuxieme est le meme, souf qu'il n'inverse pas les pixels à la fin :


Code
EffDessin
Lbl 0
For (A,0,94)
For (B,0,62)
entAléat(0,1)üX
If X=0
Pxl-Off(B,A)
If X=1
Pxl-On(B,A)
End:End
Goto 0



Moi, j'arrive à voir des trucs avec de l'imagination (et sans drogues godgrace.gif )

----------------------
*En travaux*
 Adresse email Haut de page Bas de page 
 
snap



Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mar 09 Oct 2012, 0:22   Citer 

Y a moyen de pas mal optimiser :


Code
EffDessin
While 1
For (A,0,94
For (B,0,62
entAléat(0,1
If non(rép
Pxl-Off(B,A
If rép
Pxl-On(B,A
End:End
For(A,0,62
For(B,0,94
Pxl-Change(A,B
End:End:End



----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes happy.gif
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink