Description : Bon, déjà un petit mot. ça fait un moment que j'ai créé mon compte ici. J'étais jeune et mes programmes étaient un peu nuls . Mais je remercie beaucoup tous les vrais programmeurs ici qui ont étés si sympa avec des programmes aussi moyens que les miens.
Bref, ça étant dis : Voici un programme que j'ai fait ya un moment. J'avais fait quelque chose de similaire en C pour m'amuser et j'ai voulu faire quelque chose de similaire sur cette calculatrice (un défi si vous voulez).
Donc, ce programme est un traceur de tétrahèdres. II n'y a pas de contrôles, c'est un enfer à rentrer, c'est beaucoup trop long et 80% du programme c'est décoder les coordonnées de chaque points car il n'y a que 7 variables possibles sur cette petite calculatrice (+1 si on compte l'angle). Le peu de contrôle sur le programme se fait dans le code.
Voici le code pour ceux ayant la flemme de télécharger le .txt :
1 Style croix
2 25371325->A
3 40202020->B
4 25323211->C
5 -60->D
6 Répéter 7
7 0->M
8 répéter jusqu'à ce que M=8
9 M+2->M
10 Arond(B/10^(M-2;0)-Arond(B/10^(M;0)*10^2-25->E
11 Arond(C/10^(M-2;0)-Arond(C/10^(M;0)*10^2->F
12 aller à D+(Arond(A/10^(M-2;0)-Arond(A/10^(M;0)*10^2-40)*55/(30+F E*55/(30+F
13 stylot écrit
14 2->M
15 répéter jusqu'à ce que M=10
16 Arond(B/10^(M-2;0)-Arond(B/10^(M;0)*10^2-25->E
17 Arond(C/10^(M-2;0)-Arond(C/10^(M;0)*10^2->F
18 aller à D+(Arond(A/10^(M-2;0)-Arond(A/10^(M;0)*10^2-40)*55/(30+F E*55/(30+F
19 M+4->M
20 Stylot relevé
21 0->M
22 répéter jusqu'à ce que M=8
23 M+4->M
24 Arond(B/10^(M-2;0)-Arond(B/10^(M;0)*10^2-25->E
25 Arond(C/10^(M-2;0)-Arond(C/10^(M;0)*10^2->F
26 aller à D+(Arond(A/10^(M-2;0)-Arond(A/10^(M;0)*10^2-40)*55/(30+F E*55/(30+F
27 Stylot écrit
28 0->M
29 Stylot relevé
30 A+10^(8)*(D+75->A
31 répéter jusqu'à ce que M=8
32 M+2->M
33 Arond(B/10^(M-2;0)-Arond(B/10^(M;0)*10^2-25->E
34 Arond(C/10^(M-2;0)-Arond(C/10^(M;0)*10^2->F
35 B-(E+25)*10^(M-2->B
36 C-F*10^(M-2->C
37 E->D
38 Arond(25+E*cos(15)+(F-25)*sin(15;0->E
39 Arond(25+(F-25)*cos(15)-D*sin(15;0->F
40 B+E*10^(M-2->B
41 C+F*10^(M-2->C
42 Arond(A/10^(8;0)-50->D
43 A-Arond(A/10^(8;0)*10^(8->A
44 Aller à 90 -25
POUR MODIFIER :
-La position en X de la caméra : Il faut modifier chaque ligne de code "aller à" dans la boucle principale (Lignes 12, 18, 26). Dans ce "aller à", il faut modifier la valeur "-40". La position neutre est à -25.
ATTENTION, modifier la postion de la caméra va modifier la position des tétrahèdres. Pour contrer ça, changer la valeur du "-60->D" pour afficher correctement (Ligne 5). Au total, il y a donc 3 lignes de codes à changer + celle du paramètre D
-La rotation des tétrahèdres : Il faut modifier chaque lignes mentionnant un "cos" ou un "sin", il faudra donc y mettre l'angle voulu en degrés entre chaque rotations.
PS : je sais, ce n'est pas optimisé, mal codé, illisible, etc ... Non, je ne vais pas modifier le programme. J'ai codé ça ya plus d'un an donc je ne me souviens même pas de ce comment j'ai codé ¯\_(ツ)_/¯
|