Listing : Désert privé

voici un petite programme qui nous fait des paysages aléatoires.

 

 

 

 

 

 
 
10 ’ Desert prive 
20 DIM A(250),B(250),C(250) 
30 MODE 0:NN=6:AM=30:INK 0,11 
40 FOR I=0 TO 15:INK I,RND*26 
50 NEXT:FOR N=1 TO NN 
60 A(N)=RND*80/N:B(N)=RND*2*PI 
70 C(N)=RND*15:NEXT 
80 PRINT:PRINT"     Desert prive" 
90 FOR X=0 TO 639 STEP 4 
100 PLOT X,0,0:Y=10 
110 K=2*PI*X/640:FOR N=1 TO NN 
120 Y=Y A(N)*(1 SIN(N*K B(N))) 
130 DRAW X,Y,C(N):NEXT N,X 
140 FOR I=1 TO 3000:Next:RUN
 

  Voir cet article au format PDF Imprimer cet article

RECHERCHE
LANGUE
* Donathon 2017 *

145 €

 

 

 

 En savoir plus

Le Chat
 Smiles  Loading...
EN LIGNE
14 Personne(s) en ligne (1 Personne(s) connectée(s) sur Les articles Amstrad)

Utilisateur(s): 3
Invité(s): 11

Moonbeam, rity, Read_error_A, Plus ...
Musiques CPC

Lecteur MP3
CPC-Scene Radio

 

 

ROLAND RADIO

Connexion
Identifiant :

Mot de passe :

Se souvenir de moi



Mot de passe perdu ?

Inscrivez-vous !

 

Informations
________________________________

Suivre Amstrad.eu

________________________________

Autres Créations web

________________________________

 

Declaration CNIL : 1005884

Association : 0540200002843

Charte

Avertissements

Plan du site

Carte de France des membres

 

 

 

Facebook.

Twitter.

RSS forum.

RSS News.

Contact.

 

Gaston-Phoebus.com

Amstrad.eu

untour.fr

Cathydeco.com

Higoogle

Harloup.fr

** Faire un don **

 

Conception Phenix © 2000 - 2014