Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Jeu 04 Nov 2010, 20:33
alors voilà un programme qui fait de magnifiques graphismes 3D, que j'ai fait en essayant de faire un prog dessinant une montagne en 3D, mais, à la suite de petites erreurs, je me suis ammusé à faire celui ci:
avant de le juger, éxécutez le plusieurs fois: les graphismes sont à chaque fois différents;
bon, bien sur, il faut un peu d'imagination.
Code
AxesNAff
EffDessin
FonctNAff
entAléat(0,12->P
entAléat(0,62->Q
62->Ymax
0->Ymin
1->Xmin
12->Xmax
0->K
EffVar L1
12->dim(L1
Repeat K
For(A,1,12
entAléat(1,3->B
If entAléat(0,1):Then
Pt-NAff(A,L1(A),2
If B=2:Ligne(P,Q,A,L1(A)-1,0
If A-1 et B=3:Ligne(A,L1(A)-1,A-1,L1(A-1)-1,0
L1(A)+5->L1(A
End
Pt-Aff(A,L1(A),2
If B=1:Ligne(A,0,A,L1(A)-1
If B=2:Ligne(P,Q,A,L1(A)-1
If A-1 et B=3:Ligne(A,L1(A)-1,A-1,L1(A-1)-1
If L1(A)>62:Then
1->K:13->A:End
End
End
moi, ça m'a déjà fait penser à:
la poussée de la montagne,
la poussée des gratte-ciels New-Yorkais,
des cristaux de quartz ou d'améthyste,
une piste d'atterissage d'avion.
celui qui aura le plus original est prié de m'envoyer son image par message privé ou par mail svp!!
(je rappelle comment on fait une capture d'image:
-si vous avez au moins 800 octets de librer sur votre Ti:
utilisez la fonction Sauveimage ou SauvePic:
en français:
Code
SauveImage 1
en anglais:
Code
Sauvepic Pic1
le Pic1 se trouve là:[var][4][1]
le SauvePic se trouve ici: [2nd][prgm][<][1]
puis, lorsque vous aurez votre ordi sous la main, vous ferez:
Code
RappelImage 1
RclPic Pic1
la fonction se trouve en dessous de celle que j'ai déjà donnée dans le menu.
ensuite vous envoyez le fichier Pic1 ou Img1 sur votre ordi
sur l'ordi il va apparaitre un fichier Pic.82i ou Img1.83i
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 04 Nov 2010, 23:28
Je trouve ce concept magistral et pas trop compliqué.
Comme souvent, il fallait y penser.
Et tu penses à tout !
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
