TI-Planet | News

by **critor** » 15 Dec 2016, 00:00

Oh, il neige !

Code: Select all: EnrBDG BDG0 ZDécimal AxesNAff FoncNAff QuadNAff GraphNAff 40Xmax→Xmax 40Ymax→Ymax 0→Xmin 0→Ymin ArrPlanAff NOIR CouleurBord 1 EffDess 131→Y 77→L 9→X For(I,0,Y,2 Ligne(X,I,L,I,BLEU MRN,2 End For(I,16,Y,16 Ligne(X,I,L,I,GRIS FON,1 For(J,14,4,2 Ligne(X+7,I+J,X+14,I+J,ORANGE,2 End Pt-Aff(X+12,I-10,GRIS,1 End X+2→X {0,3,3,1,6,0,2,7,6,2,4,0,3,7,6,3,4,0,4,6,0,5,3,3,8,23,23,8,15,0,9,23,23,9,15,0,10,23,0,11,23,22,11,20,0,12,23,22,12,20,20,12,17,0,13,23,22,13,20,20,13,17,0,14,23,22,14,20,0,15,23,0,16,23,0,17,23,22,17,20,0,18,23,22,18,20,20,18,17,0,19,23,22,19,20,20,19,17,0,20,23,22,20,20,0,21,23,0,22,23,23,22,15,0,23,23,23,23,15,0,24,15,0,25,15,0,26,15,0,27,15,0,28,15,0,29,15,0,30,15,0,31,15,0,32,15,0,33,15,0,34,15,0,35,15,0,36,15,0,37,15,0,38,15,0,39,15,0,40,7,0,41,7,0,42,7,0,43,7,0,44,9,9,44,7,0,45,10,10,45,7,0,46,11,11,46,8,0,47,12,11,47,9,9,47,7,0,48,13,13,48,11,10,49,14,14,49,11,11,50,12,11,51,16,16,51,13,13,51,11,10,52,18,18,52,16,16,52,11,0,53,18,18,53,16,16,53,11,9,54,19,10,55,18,18,55,16,16,55,10,10,55,8,8,56,18,18,56,16,16,56,10,9,57,16,16,57,10,10,57,8,8,58,11,9,59,12,12,59,10,10,60,11,11,61,12,12,59,3,3,60,6,0,61,7,6,61,4,0,62,7,6,62,4,0,63,6,0,64,3,3 For(I,1,dim(Rep),3 Ligne(X+Rep(I),Y+Rep(I+1),X+Rep(I),Y+Rep(I+2),BLEU MRN,1 End For(I,3,Xmax,8 Ligne(I,0,I,3,VERT,2 End For(I,3+8,Xmax,16 For(J,1,3 Ligne(I-J,3+J,I+J+1,3+J,VERT,1 End For(J,1,4 partEnt(2.75-J/2 Ligne(I-Rep,6+J,I+Rep+1,6+J,VERT,1 End End 219→M For(I,0,28,2 Ligne(M-25,I,M+25,I,BLANC,2 If I≤14 Ligne(M-5,I,M+5,I,MARRON,2 If I≥18 et I≤25 Then Ligne(M-8,I,M-16,I,BLEU CLR,2 Ligne(M+8,I,M+16,I,BLEU CLR,2 End End For(I,28,42 I-28 Ligne(M-25+Rep,I,M+25-Rep,I,ROUGE,1 End 5→N 0→dim(⌊N N→dim(⌊N While non(getKey For(I,1,N If NbrAléat>.95 et 0≥imag(⌊N(I Then nbrAléatEnt(0,Xmax If non(pxl-Test(0,Rep Ymax+Rep→⌊N(I End ⌊N(I)-4 If 0≤imag(Rep Then If pxl-Test(Ymax-imag(Rep),réel(Rep Then →⌊N(I End If 0≤imag(Rep Then Pt-NAff(réel(⌊N(I)),imag(⌊N(I)),3 Pt-Aff(réel(Rep),imag(Rep),3,GRIS CLR Rep→⌊N(I End End End End ArrPlanNAff RappelBDG BDG0 DelVar BDG0

by **critor** » 15 Dec 2016, 00:08

Dans sa dernière démo de sa bibliothèque gLib pour TI-83 Premium CE, TheMachine02 te modélisait en 3D une petite chambre issue du manoir Croft dans Tomb Raider 3.

Aujourd'hui TheMachine02 va encore et toujours plus loin, avec cette fois-ci tout le hall d'accueil du manoir !

Et si tu fais bien attention ci-dessous, tu verras que tu n'es pas seul(e) dans ce hall...

Téléchargement : archives_voir.php?id=778063

by **critor** » 16 Dec 2016, 00:05

Soudain, dans un éclair blanc, un mot s'allume dans le ciel...

Code: Select all: ... CouleurTexte(MAGENTA Texte(100,110,"J o y e u x ... For(X,110,261 For(Y,101,114 If non(pxl-Test(Y,X Pxl-NAff(Y,X End End ...

Show/Hide spoilerAfficher/Masquer le spoiler

Code: Select all: EnrBDG BDG0 ZDécimal AxesNAff FoncNAff QuadNAff GraphNAff 40Xmax→Xmax 40Ymax→Ymax 0→Xmin 0→Ymin ArrPlanAff NOIR CouleurBord 1 EffDess 131→Y 77→L 9→X For(I,0,Y,2 Ligne(X,I,L,I,BLEU MRN,2 End For(I,16,Y,16 Ligne(X,I,L,I,GRIS FON,1 For(J,14,4,2 Ligne(X+7,I+J,X+14,I+J,ORANGE,2 End Pt-Aff(X+12,I-10,GRIS,1 End X+2→X {0,3,3,1,6,0,2,7,6,2,4,0,3,7,6,3,4,0,4,6,0,5,3,3,8,23,23,8,15,0,9,23,23,9,15,0,10,23,0,11,23,22,11,20,0,12,23,22,12,20,20,12,17,0,13,23,22,13,20,20,13,17,0,14,23,22,14,20,0,15,23,0,16,23,0,17,23,22,17,20,0,18,23,22,18,20,20,18,17,0,19,23,22,19,20,20,19,17,0,20,23,22,20,20,0,21,23,0,22,23,23,22,15,0,23,23,23,23,15,0,24,15,0,25,15,0,26,15,0,27,15,0,28,15,0,29,15,0,30,15,0,31,15,0,32,15,0,33,15,0,34,15,0,35,15,0,36,15,0,37,15,0,38,15,0,39,15,0,40,7,0,41,7,0,42,7,0,43,7,0,44,9,9,44,7,0,45,10,10,45,7,0,46,11,11,46,8,0,47,12,11,47,9,9,47,7,0,48,13,13,48,11,10,49,14,14,49,11,11,50,12,11,51,16,16,51,13,13,51,11,10,52,18,18,52,16,16,52,11,0,53,18,18,53,16,16,53,11,9,54,19,10,55,18,18,55,16,16,55,10,10,55,8,8,56,18,18,56,16,16,56,10,9,57,16,16,57,10,10,57,8,8,58,11,9,59,12,12,59,10,10,60,11,11,61,12,12,59,3,3,60,6,0,61,7,6,61,4,0,62,7,6,62,4,0,63,6,0,64,3,3 For(I,1,dim(Rep),3 Ligne(X+Rep(I),Y+Rep(I+1),X+Rep(I),Y+Rep(I+2),BLEU MRN,1 End For(I,3,Xmax,8 Ligne(I,0,I,3,VERT,2 End For(I,3+8,Xmax,16 For(J,1,3 Ligne(I-J,3+J,I+J+1,3+J,VERT,1 End For(J,1,4 partEnt(2.75-J/2 Ligne(I-Rep,6+J,I+Rep+1,6+J,VERT,1 End End 219→M For(I,0,28,2 Ligne(M-25,I,M+25,I,BLANC,2 If I≤14 Ligne(M-5,I,M+5,I,MARRON,2 If I≥18 et I≤25 Then Ligne(M-8,I,M-16,I,BLEU CLR,2 Ligne(M+8,I,M+16,I,BLEU CLR,2 End End For(I,28,42 I-28 Ligne(M-25+Rep,I,M+25-Rep,I,ROUGE,1 End CouleurTexte(MAGENTA Texte(100,110,"J o y e u x For(X,110,261 For(Y,101,114 If non(pxl-Test(Y,X Pxl-NAff(Y,X End End 5→N 0→dim(⌊N N→dim(⌊N While non(getKey For(I,1,N If NbrAléat>.95 et 0≥imag(⌊N(I Then nbrAléatEnt(0,Xmax If non(pxl-Test(0,Rep Ymax+Rep→⌊N(I End ⌊N(I)-4 If 0≤imag(Rep Then If pxl-Test(Ymax-imag(Rep),réel(Rep Then →⌊N(I End If 0≤imag(Rep Then Pt-NAff(réel(⌊N(I)),imag(⌊N(I)),3 Pt-Aff(réel(Rep),imag(Rep),3,GRIS CLR Rep→⌊N(I End End End End ArrPlanNAff RappelBDG BDG0 DelVar BDG0

by **critor** » 17 Dec 2016, 00:01

... et puis un autre...

Code: Select all: ... CouleurTexte(BLEU CLR Texte(100,110+69,"N o ë l ...

Show/Hide spoilerAfficher/Masquer le spoiler

Code: Select all: EnrBDG BDG0 ZDécimal AxesNAff FoncNAff QuadNAff GraphNAff 40Xmax→Xmax 40Ymax→Ymax 0→Xmin 0→Ymin ArrPlanAff NOIR CouleurBord 1 EffDess 131→Y 77→L 9→X For(I,0,Y,2 Ligne(X,I,L,I,BLEU MRN,2 End For(I,16,Y,16 Ligne(X,I,L,I,GRIS FON,1 For(J,14,4,2 Ligne(X+7,I+J,X+14,I+J,ORANGE,2 End Pt-Aff(X+12,I-10,GRIS,1 End X+2→X {0,3,3,1,6,0,2,7,6,2,4,0,3,7,6,3,4,0,4,6,0,5,3,3,8,23,23,8,15,0,9,23,23,9,15,0,10,23,0,11,23,22,11,20,0,12,23,22,12,20,20,12,17,0,13,23,22,13,20,20,13,17,0,14,23,22,14,20,0,15,23,0,16,23,0,17,23,22,17,20,0,18,23,22,18,20,20,18,17,0,19,23,22,19,20,20,19,17,0,20,23,22,20,20,0,21,23,0,22,23,23,22,15,0,23,23,23,23,15,0,24,15,0,25,15,0,26,15,0,27,15,0,28,15,0,29,15,0,30,15,0,31,15,0,32,15,0,33,15,0,34,15,0,35,15,0,36,15,0,37,15,0,38,15,0,39,15,0,40,7,0,41,7,0,42,7,0,43,7,0,44,9,9,44,7,0,45,10,10,45,7,0,46,11,11,46,8,0,47,12,11,47,9,9,47,7,0,48,13,13,48,11,10,49,14,14,49,11,11,50,12,11,51,16,16,51,13,13,51,11,10,52,18,18,52,16,16,52,11,0,53,18,18,53,16,16,53,11,9,54,19,10,55,18,18,55,16,16,55,10,10,55,8,8,56,18,18,56,16,16,56,10,9,57,16,16,57,10,10,57,8,8,58,11,9,59,12,12,59,10,10,60,11,11,61,12,12,59,3,3,60,6,0,61,7,6,61,4,0,62,7,6,62,4,0,63,6,0,64,3,3 For(I,1,dim(Rep),3 Ligne(X+Rep(I),Y+Rep(I+1),X+Rep(I),Y+Rep(I+2),BLEU MRN,1 End For(I,3,Xmax,8 Ligne(I,0,I,3,VERT,2 End For(I,3+8,Xmax,16 For(J,1,3 Ligne(I-J,3+J,I+J+1,3+J,VERT,1 End For(J,1,4 partEnt(2.75-J/2 Ligne(I-Rep,6+J,I+Rep+1,6+J,VERT,1 End End 219→M For(I,0,28,2 Ligne(M-25,I,M+25,I,BLANC,2 If I≤14 Ligne(M-5,I,M+5,I,MARRON,2 If I≥18 et I≤25 Then Ligne(M-8,I,M-16,I,BLEU CLR,2 Ligne(M+8,I,M+16,I,BLEU CLR,2 End End For(I,28,42 I-28 Ligne(M-25+Rep,I,M+25-Rep,I,ROUGE,1 End CouleurTexte(MAGENTA Texte(100,110,"J o y e u x CouleurTexte(BLEU CLR Texte(100,110+69,"N o ë l For(X,110,261 For(Y,101,114 If non(pxl-Test(Y,X Pxl-NAff(Y,X End End 5→N 0→dim(⌊N N→dim(⌊N While non(getKey For(I,1,N If NbrAléat>.95 et 0≥imag(⌊N(I Then nbrAléatEnt(0,Xmax If non(pxl-Test(0,Rep Ymax+Rep→⌊N(I End ⌊N(I)-4 If 0≤imag(Rep Then If pxl-Test(Ymax-imag(Rep),réel(Rep Then →⌊N(I End If 0≤imag(Rep Then Pt-NAff(réel(⌊N(I)),imag(⌊N(I)),3 Pt-Aff(réel(Rep),imag(Rep),3,GRIS CLR Rep→⌊N(I End End End End ArrPlanNAff RappelBDG BDG0 DelVar BDG0

AVENT16Q.8xp

by **critor** » 18 Dec 2016, 00:00

... et encore un autre !

Mais décidément, cette neige...
C'est une tempête de givre dévastatrice digne d'une des sept plaies de l'Egypte, oui...

Ou plutôt une tempête de verglas comme dirait DJ Omnimaga !

Il faut que l'on fasse quelque chose... vite !...

Code: Select all: ... CouleurTexte(VERT Texte(100,110+69+43,"2 0 1 6 ...

Show/Hide spoilerAfficher/Masquer le spoiler

Code: Select all: EnrBDG BDG0 ZDécimal AxesNAff FoncNAff QuadNAff GraphNAff 40Xmax→Xmax 40Ymax→Ymax 0→Xmin 0→Ymin ArrPlanAff NOIR CouleurBord 1 EffDess 131→Y 77→L 9→X For(I,0,Y,2 Ligne(X,I,L,I,BLEU MRN,2 End For(I,16,Y,16 Ligne(X,I,L,I,GRIS FON,1 For(J,14,4,2 Ligne(X+7,I+J,X+14,I+J,ORANGE,2 End Pt-Aff(X+12,I-10,GRIS,1 End X+2→X {0,3,3,1,6,0,2,7,6,2,4,0,3,7,6,3,4,0,4,6,0,5,3,3,8,23,23,8,15,0,9,23,23,9,15,0,10,23,0,11,23,22,11,20,0,12,23,22,12,20,20,12,17,0,13,23,22,13,20,20,13,17,0,14,23,22,14,20,0,15,23,0,16,23,0,17,23,22,17,20,0,18,23,22,18,20,20,18,17,0,19,23,22,19,20,20,19,17,0,20,23,22,20,20,0,21,23,0,22,23,23,22,15,0,23,23,23,23,15,0,24,15,0,25,15,0,26,15,0,27,15,0,28,15,0,29,15,0,30,15,0,31,15,0,32,15,0,33,15,0,34,15,0,35,15,0,36,15,0,37,15,0,38,15,0,39,15,0,40,7,0,41,7,0,42,7,0,43,7,0,44,9,9,44,7,0,45,10,10,45,7,0,46,11,11,46,8,0,47,12,11,47,9,9,47,7,0,48,13,13,48,11,10,49,14,14,49,11,11,50,12,11,51,16,16,51,13,13,51,11,10,52,18,18,52,16,16,52,11,0,53,18,18,53,16,16,53,11,9,54,19,10,55,18,18,55,16,16,55,10,10,55,8,8,56,18,18,56,16,16,56,10,9,57,16,16,57,10,10,57,8,8,58,11,9,59,12,12,59,10,10,60,11,11,61,12,12,59,3,3,60,6,0,61,7,6,61,4,0,62,7,6,62,4,0,63,6,0,64,3,3 For(I,1,dim(Rep),3 Ligne(X+Rep(I),Y+Rep(I+1),X+Rep(I),Y+Rep(I+2),BLEU MRN,1 End For(I,3,Xmax,8 Ligne(I,0,I,3,VERT,2 End For(I,3+8,Xmax,16 For(J,1,3 Ligne(I-J,3+J,I+J+1,3+J,VERT,1 End For(J,1,4 partEnt(2.75-J/2 Ligne(I-Rep,6+J,I+Rep+1,6+J,VERT,1 End End 219→M For(I,0,28,2 Ligne(M-25,I,M+25,I,BLANC,2 If I≤14 Ligne(M-5,I,M+5,I,MARRON,2 If I≥18 et I≤25 Then Ligne(M-8,I,M-16,I,BLEU CLR,2 Ligne(M+8,I,M+16,I,BLEU CLR,2 End End For(I,28,42 I-28 Ligne(M-25+Rep,I,M+25-Rep,I,ROUGE,1 End CouleurTexte(MAGENTA Texte(100,110,"J o y e u x CouleurTexte(BLEU CLR Texte(100,110+69,"N o ë l CouleurTexte(VERT Texte(100,110+69+43,"2 0 1 6 For(X,110,261 For(Y,101,114 If non(pxl-Test(Y,X Pxl-NAff(Y,X End End 5→N 0→dim(⌊N N→dim(⌊N While non(getKey For(I,1,N If NbrAléat>.95 et 0≥imag(⌊N(I Then nbrAléatEnt(0,Xmax If non(pxl-Test(0,Rep Ymax+Rep→⌊N(I End ⌊N(I)-4 If 0≤imag(Rep Then If pxl-Test(Ymax-imag(Rep),réel(Rep Then →⌊N(I End If 0≤imag(Rep Then Pt-NAff(réel(⌊N(I)),imag(⌊N(I)),3 Pt-Aff(réel(Rep),imag(Rep),3,GRIS CLR Rep→⌊N(I End End End End ArrPlanNAff RappelBDG BDG0 DelVar BDG0