TI-Planet | Programmes, Tutoriaux, Forum sur les calculatrices TI

de **critor** » 23 Déc 2016, 15:13

TheMachine02 continue à nous démontrer les capacités sans frontières de sa bibliothèque de modélisation 3D gLib pour TI-83 Premium CE.
Nous avions déjà eu droit à 2 pièces du manoir Croft, telles qu'apparaissant dans le niveau tutoriel du jeu Tomb Raider 3 :

Aujourd'hui nous avons droit à la salle d'entraînement du manoir, avec tout son matériel et notamment son mémorable parcours d'obstacles - joyeux Noël !

Tu peux donc désormais t'y promener à nouveau librement avec ta simple calculatrice.

Par contre, notons qu'il n'y a pas de gestion des collisions et que tu ne pourras donc pas véritablement refaire le parcours d'ostacles. Au lieu de monter sur les différents éléments, la caméra se contentera de passer à travers.

Faisons ensemble le tour de la salle en temps réel :

Ce qui pourrait être sympa maintenant, ce serait de réunir l'ensemble des modélisations extraites du manoir Croft dans un même programme...

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

de **critor** » 23 Déc 2016, 00:00

Enfin, levant les deux bras au ciel, nous déchirons le voile de la nuit qui nous révèle enfin toutes ses merveilles !

Nous rajoutons ici une image de fond d'écran, et t'offrons donc un fond d'écran animé.
Notons en passant les capacités graphiques remarquables du langage de programmation de ta machine, l'animation fonctionnant aussi bien et sans aucun ralentissement malgré l'ajout d'une image de fond d'écran !

Code: Tout sélectionner: ... ArrPlanAff Image6 ...

Show/Hide spoilerAfficher/Masquer le spoiler

Code: Tout sélectionner: EnrBDG BDG0 ZDécimal AxesNAff FoncNAff QuadNAff GraphNAff 40Xmax→Xmax 40Ymax→Ymax 0→Xmin 0→Ymin ArrPlanAff Image6 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 ⌊N+Ymax→⌊N While non(getKey For(I,1,N If NbrAléat>.95 et Ymax≤imag(⌊N(I Then nbrAléatEnt(0,Xmax If non(pxl-Test(0,Rep Rep→⌊N(I End ⌊N(I)+ If Ymax≥imag(Rep Then If pxl-Test(imag(Rep),réel(Rep Then If 0<réel(Rep Rep-non(pxl-Test(imag(Rep),réel(Rep)-1 If Xmax>réel(Rep) et réel(Rep)=réel(⌊N(I Rep+non(pxl-Test(imag(Rep),1+réel(Rep If réel(Rep)=réel(⌊N(I (1+Ymax→⌊N(I End If Ymax≥imag(Rep Then Pxl-NAff(imag(⌊N(I)),réel(⌊N(I Pxl-Aff(imag(Rep),réel(Rep),GRIS CLR Rep→⌊N(I End End End End ArrPlanNAff RappelBDG BDG0 DelVar BDG0

AVENT16V.8xp

Image6.8ca

de **critor** » 22 Déc 2016, 14:19

Avec 3 semaines de retard, les dates des épreuves du BAC et du DNB 2017 en France métropolitaine viennent enfin de paraître ce jeudi matin au Bulletin Officiel de l'Education Nationale.

Que tu sois dans une filière Générale, Technologique ou Professionnelle, tu peux dès maintenant aller les consulter grâce aux liens ci-dessous.

Comme l'année dernière, les épreuves du BAC Général et Technologique se déroulent sur 8 jours à cheval sur 2 semaines : du jeudi 15 juin pour la Philosophie jusqu'au jeudi 22 juin inclus selon les filières.

Les épreuves du BAC auront donc déjà eu lieu la semaine précédente en Polynésie française, ce qui pourra donner des informations précieuses sur les dernières évolutions de certaines épreuves, comme pour les problèmes avec documents ayant fait leur apparition à l'épreuve de Mathématiques du BAC S l'année dernière...

Mais avec seulement 2 jours d'épreuves la 1^ère semaine (jeudi et vendredi) contre 3 l'année dernière, on regrettera l'amplification d'un défaut déjà constaté ces 2 dernières années :
pour les séries Générales et Technologiques, l'essentiel ou même la totalité des épreuves à fort coefficient se passe la 2^ème semaine, donc la même demi-semaine sans journée de pause sur 3 à 4 jours consécutifs selon les filières.

Face à des générations de candidats de plus en plus sollicités par des éléments extérieurs (smartphones, réseaux sociaux...) et qui bien souvent révisent au dernier moment, cela signifiera en pratique bien souvent de boucler ses révisions de toutes les épreuves importantes en 1 seul week-end.

Et accessoirement, cela donne aussi une charge de travail absolument monstrueuse à l'équipe des bénévoles TI-Planet qui apportent chaque année leur aide jusqu'à la veille de chaque épreuve, devant concentrer de façon inhumaine sur un seul week-end l'énergie déployée auparavant de façon déjà assez pénible en 2 temps.

Si l'on conserve cette organisation sur 2 semaines, il serait grand temps de rééquilibrer enfin la répartition des épreuves, dans l'intérêt de la santé des candidats et de leur réussite.

Lien : https://toutmonexam.fr/calendrier.php?m ... id=1&sid=1

Source : http://www.education.gouv.fr/pid285/bul ... _bo=110981

de **critor** » 22 Déc 2016, 00:00

D'un dernier geste de la main, la neige consent enfin à se comporter comme de la neige.

Le cas d'empilement formant des stalagmites correspondait à un équilibre qui, dans la réalité, est instable.
Il suffit juste de tester ce cas-là, pour rompre ensuite cet équilibre, par la droite ou par la gauche.

Après 21 jours, nous obtenons enfin ci-contre un effet de neige très acceptable !

Code: Tout sélectionner: ... If pxl-Test(imag(Rep),réel(Rep Then If 0<réel(Rep Rep-non(pxl-Test(imag(Rep),réel(Rep)-1 If Xmax>réel(Rep) et réel(Rep)=réel(⌊N(I Rep+non(pxl-Test(imag(Rep),1+réel(Rep If réel(Rep)=réel(⌊N(I (1+Ymax→⌊N(I End ...

Show/Hide spoilerAfficher/Masquer le spoiler

Code: Tout sélectionner: 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 ⌊N+Ymax→⌊N While non(getKey For(I,1,N If NbrAléat>.95 et Ymax≤imag(⌊N(I Then nbrAléatEnt(0,Xmax If non(pxl-Test(0,Rep Rep→⌊N(I End ⌊N(I)+ If Ymax≥imag(Rep Then If pxl-Test(imag(Rep),réel(Rep Then If 0<réel(Rep Rep-non(pxl-Test(imag(Rep),réel(Rep)-1 If Xmax>réel(Rep) et réel(Rep)=réel(⌊N(I Rep+non(pxl-Test(imag(Rep),1+réel(Rep If réel(Rep)=réel(⌊N(I (1+Ymax→⌊N(I End If Ymax≥imag(Rep Then Pxl-NAff(imag(⌊N(I)),réel(⌊N(I Pxl-Aff(imag(Rep),réel(Rep),GRIS CLR Rep→⌊N(I End End End End ArrPlanNAff RappelBDG BDG0 DelVar BDG0

AVENT16U.8xp

de **critor** » 21 Déc 2016, 15:48

Aujourd'hui c'est une nouvelle pépite vidéoludique qui débarque sur ta TI-83 Premium CE, TITOLCE par JWinslow23.

A l'origine, TITOL pour This Is The Only Level est un jeu Flash publié par John Cooney alias jmtb02 sur armorgames.com en août 2009.
En mars 2016, Josiah Winslow alias JWinslow23 sort une adaptation développée en langage Axe pour calculatrices monochromes TI-83/84 Plus et compatibles.

Aujourd'hui JWinsow23 réadapte donc sa propre adaptation pour calculatrices couleur TI-83 Premium CE et TI-84 Plus CE.
Cela ne veut pas dire pour autant qu'il n'y a pas eu de travail conséquent, le langage Axe n'étant pas disponible pour ces modèles, et le code source ayant dû être entièrement réécrit en langage C.

Dans le Level 1 Stage 1 de TITOLCE, tu contrôles donc un éléphant avec les touches fléchées, qui permettent de le faire avancer et sauter.
Tu dois le diriger jusqu'à l'interrupteur déverrouillant la porte, puis vers la sortie du niveau alors accessible. Un jeu d'enfant n'est-ce pas ?...

Tu arrives ainsi au Level 1 Stage 2, et te rends alors compte que quelque chose ne tourne pas rond : à la couleur près c'est exactement le même niveau !

Et oui, notre éléphant n'a clairement pas une mémoire d'éléphant, et a tout simplement oublié les autres niveaux !

Pour véritablement gagner le jeu, tu devras donc terminer 30 fois son seul et unique niveau 1 !

Mais ne crois pas que ce soit si simple, car à chaque nouveau niveau 1, tu auras un petit détail invisible qui changera, soit au niveau du moteur physique, soit au niveau du moteur de déplacement... un petit détail parfois aux très lourdes conséquences !

Tu devras donc à chaque fois trouver la solution à l'énigme, et pourras pour cela t'aider de l'indice présent dans le titre du niveau en bas à gauche...

Et sache garder l'esprit ouvert, car certaines énigmes exploseront littéralement les frontières du jeu, propulsant ce dernier au rang d'un méta-jeu...

Voici un TAS complet du jeu réalisé en 5 minutes et 25.37 secondes, mais qui ne te dira pas pour autant comment y arriver, quoique...