CUBE@D |
Auteur |
Message |
coc5
Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Sam 22 Sep 2007, 13:15
|
|
|
Une petit programme pas très très utils mais qui est sympa en écran de veille par exemple^^
LE LIEN ICI
Une petite image :
Code | 350->L
1.7->Ymax
.5[Racine de](2->T
DelVar W
ClrDraw
94->Xmax:62->Ymax
0->Xmin:0->Ymin
{1,1->dim([E]
If not([E](1,1
Then
1->[E](1,1
For(I,0,62
Horizontal I
End
StorePic 3
End
DelVar R
Lbl D:ClrDraw
Text(0,5,"CUBE[THETA]D PAR COC5 - (C)2007
Text(57,10,"MANIEZ UN CUBE EN 3D ...
Text(19,16,"<- NOIR BLANC ->
Text(29,26,"[DEL] - AIDE
Text(39,25,"[MODE] - Stop
Goto A
Lbl I
ClrDraw
Text(10,0,"<-/->
Text(10,45,"MOUVEMENTS
Text(20,45,"ZOOM
Text(20,0,"[HAUT/BAS]
For(I,1,4
Pt-On(42,59-10I,3
End
Text(30,0,"[GRAPH]
Text(30,45,"MODE AUTO.
Text(40,0,"<-/->
Text(40,45,"ViT. (EN AUTO.)
Repeat getKey
End
Goto D
Lbl A
Line(24,37,67,37
Line(24,43,67,43
For(I,25,43
For(J,38,42
Pt-Change(I,J
End
End
Repeat K=105
getKey->K
If K=22:Then
ClrDraw
ClrHome
Stop
End
If K=23:Goto I
If RK=24 or 26=Knot(R:Then
not(R->R
For(J,24R+not(R)67,R67+24not(R),R-not(R
For(K,38,42
Pt-Change(J,K
End
End
End
End
DelVar V
5->F
[Pi]/4->[THETA]
-1->Ymin
Repeat K=22
Repeat W+K+(F=5
getKey->K
If not(W
Then
Ymin+.1((K=25)-(K=34->Ymin
-1.7Ymin->Ymax
47/63(Ymax-Ymin)+.3->Xmax
-Ans+.6->Xmin
(K-25 and K-34)->Z
[THETA]+(Xmax/12)((K=24)-(K=26->[THETA]
End
If K=15:not(W->W
If W:Then
L+L/5((K=24)-(K=26->L
For(I,1,L
End
[THETA]+Xmax/12->[THETA]
End
End
If Z:Then
cos([THETA]->A
cos([THETA] + [Pi] /2->C
cos([THETA]-[Pi]/2->E
cos([THETA]-[Pi]->G
sin([THETA]->B
sin([THETA]+[Pi]/2->D
sin([THETA]-[Pi]/2->F
sin([THETA]+[Pi]->H
If R
ClrDraw
End
If not(R
RecallPic 3
Line(A,B,C,D,R
Line(A,B,E,F,R
Line(G,H,E,F,R
Line(G,H,C,D,R
C+T
Line(A,B,A+T,B+T,R
Line(C,D,Ans,D+T,R
Line(E,F,E+T,F+T,R
Line(G,H,G+T,H+T,R
Line(A+T,B+T,Ans,D+T,R
Line(A+T,B+T,E+T,F+T,R
Line(E+T,F+T,G+T,H+T,R
Line(Ans,D+T,G+T,H+T,R
End
ClrDraw
ClrHome |
---------------------- Ne cliquez pas ici ! |
|
|
|
unknow
Autorisation : Membre
Nb de messages : 229
Inscrit le : Jeu 12 Oct 2006, 19:30
|
Posté le : Sam 22 Sep 2007, 17:04
|
|
|
c'est une sorte d'ecran de vieille? comme sur windows les ballons qui deviennent en pics puis en d'autre figures
---------------------- Ta le look coco |
|
|
|
coc5
Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Sam 22 Sep 2007, 17:28
|
|
|
Pas seulement, tu peux t'en servir comme écran de veille, mais tu peux surtout le manipuler ou zommer.
---------------------- Ne cliquez pas ici ! |
|
|
|
vibra
Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Sam 22 Sep 2007, 17:41
|
|
|
C'est bien, il fallait avoir l'idée…
---------------------- Vive la programmation et vive le vibraphone !!! |
|
|
|
webmaster
Autorisation : Administrateur
Nb de messages : 792
Inscrit le : Mer 18 Aoû 2004, 22:13
|
Posté le : Sam 22 Sep 2007, 22:47
|
|
|
Salut,
C'est très intérressant mais ça consomme inutilement les piles... En tout cas, bravo pour ton prog.
@+ Le Webmaster
|
|
|
|
mad67
Autorisation : Membre
Nb de messages : 630
Inscrit le : Sam 23 Jui 2007, 14:05
|
Posté le : Dim 23 Sep 2007, 12:54
|
|
|
Citer : webmaster | Salut,
C'est très intérressant mais ça consomme inutilement les piles... En tout cas, bravo pour ton prog.
@+ Le Webmaster |
j'aime bien mais sa consomme inutilement les piles. c'est vrai que sa ne sert pas a grand chose mais je vais reprendre l idee pour mon windows ti.
|
|
|
|
coc5
Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Dim 23 Sep 2007, 14:35
|
|
|
Merci
Mais c'est quoi "Windows Ti" ?
---------------------- Ne cliquez pas ici ! |
|
|
|
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Dim 23 Sep 2007, 16:30
|
|
|
A mon avis, cà doit soit être un bureau de Windows soit une écran de veille.
Sangohan38
|
|
|
|
unknow
Autorisation : Membre
Nb de messages : 229
Inscrit le : Jeu 12 Oct 2006, 19:30
|
Posté le : Dim 23 Sep 2007, 20:12
|
|
|
oué bof windows
Vive Macintosh
---------------------- Ta le look coco |
|
|
|
vibra
Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Lun 24 Sep 2007, 18:28
|
|
|
Enfin un qui à un mac !!! Ca fait plaisir de se sentir soutenu !!
---------------------- Vive la programmation et vive le vibraphone !!! |
|
|
|
19:13
Invité
|
Posté le : Lun 24 Sep 2007, 19:00
|
|
|
mac honnetement c'est un gadget, encore plus que vista
|
|
|
|
unknow
Autorisation : Membre
Nb de messages : 229
Inscrit le : Jeu 12 Oct 2006, 19:30
|
Posté le : Lun 24 Sep 2007, 20:47
|
|
|
pour l'instant j'ai un pc mais je tanne mon pere pour qu'il prenne un mac et pis vive apple et mon ipod nano 1er generation!
Sinon j'avais eu cette idée vers fevrier de faire un programme qui regroupe tout finalement bof quoi...
---------------------- Ta le look coco |
|
|
|
vibra
Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Mar 25 Sep 2007, 18:16
|
|
|
Dis donc 19:13, t'as déjà eu un mac entre les mains ?
---------------------- Vive la programmation et vive le vibraphone !!! |
|
|
|
mad67
Autorisation : Membre
Nb de messages : 630
Inscrit le : Sam 23 Jui 2007, 14:05
|
Posté le : Mar 25 Sep 2007, 18:52
|
|
|
bon en gros ce sera un bureau mais apres sa consomme inutilement la memoire
|
|
|
|
unknow
Autorisation : Membre
Nb de messages : 229
Inscrit le : Jeu 12 Oct 2006, 19:30
|
Posté le : Mar 25 Sep 2007, 21:08
|
|
|
je rapelle qu'Apple existe depuis plsu logtemps que microsoft et qu'ils ont piqués toutes les idées
---------------------- Ta le look coco |
|
|
|
mad67
Autorisation : Membre
Nb de messages : 630
Inscrit le : Sam 23 Jui 2007, 14:05
|
Posté le : Mer 26 Sep 2007, 13:36
|
|
|
arrete de flooder
|
|
|
|
tancredemahier
Invité
|
Posté le : Jeu 23 Déc 2010, 18:18
|
|
|
vous avez raison vive les mac meme si c'est cher^^
|
|
|
|
patate007
Autorisation : Membre
Nb de messages : 117
Inscrit le : Mar 09 Fév 2010, 8:49
|
Posté le : Jeu 23 Déc 2010, 19:22
|
|
|
Fait gaffe ! Tu remontes un poste vieux de 3 ans et en plus tu dis un truc qui a rien à voir avec le sujet initial ! J'en connais un qui va pas être content =° Enfin je dis ça mais je dis rien...
---------------------- Joyeuse Pâques |
|
|
|
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Sam 25 Déc 2010, 18:36
|
|
|
C'est vrai, je suis pas trop content quand les gens remontent des sujets de façon aussi inutile.
Je suis si prévisible?
Sangohan38
|
|
|
|
patate007
Autorisation : Membre
Nb de messages : 117
Inscrit le : Mar 09 Fév 2010, 8:49
|
Posté le : Sam 25 Déc 2010, 19:02
|
|
|
Je trouvais ça logique qu'un modérateur ne soit pas content quand ça va pas ^^' Et tu as tout à fait raison =°
---------------------- Joyeuse Pâques |
|
|
|