JL35
Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007
 | | Sujet: Après les soucoupes volantes... Mer 14 Avr 2010 - 18:24 | |
| - Code:
-
DIM a, y
LABEL rr, Fin
width 0, 800: Height 0, 800
SCENE3D 1: WIDTH 1, 750: HEIGHT 1, 750
COLOR 1, 220, 220, 255
3D_TEAPOT 4
3D_X_SCALE 4, 4: 3D_Y_SCALE 4, 4: 3D_Z_SCALE 4, 4
3D_COLOR 4, 40, 40, 255
y = -1: 3D_Y_POSITION 4, y
rr:
for a = 0 to 350 step 10
3D_Y_ROTATE 4, a
3D_Y_POSITION 4, y
3D_X_POSITION 4, -1*y/2
y = y + .05
wait 75
next a
if y > 6.2 then goto Fin
GOTO rr
end
Fin:
TERMINATE | |
|
jjn4
Nombre de messages : 2709
Date d'inscription : 13/09/2009
| | Sujet: +++ Mer 14 Avr 2010 - 23:16 | |
| C'est vrai qu'entre la soucoupe volante et la cafetière volante, il n'y a qu'un pas. Bienvenue parmi les aliens !  | |
|
Invité
Invité
| | Sujet: Re: Après les soucoupes volantes... Mer 14 Avr 2010 - 23:31 | |
| |
|
bleunounet
Nombre de messages : 150
Date d'inscription : 26/10/2007
| | Sujet: Re: Après les soucoupes volantes... Jeu 15 Avr 2010 - 8:53 | |
| pas mal la cafetière il manque plus que le sucre et le lait. | |
|
Jean Claude
Nombre de messages : 5950
Age : 69
Localisation : 83 Var
Date d'inscription : 07/05/2009
| | Sujet: Re: Après les soucoupes volantes... Jeu 15 Avr 2010 - 10:41 | |
| JL35 se lance dans la 3D,
Ce code est bien, car il peut servir de fiche comme exemple pour des mots clés.
Bravo | |
|
Contenu sponsorisé
| | Sujet: Re: Après les soucoupes volantes... | |
| |
|
Calendrier
)