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

Merci de partager 😉 :
Share on Facebook
Facebook
Tweet about this on Twitter
Twitter
Pin on Pinterest
Pinterest
Share on LinkedIn
Linkedin

Laisser un commentaire