Retour sur ACME

Son BASIC: VAGUES + MOUETTES

Auteur: Fredisland (Admin)
5.00
5 sur 1 votes

Son BASIC : VAGUES + MOUETTES

SUPERBE ! Un son d'autant plus réussi qu'il utilise les nombres aléatoires pour simuler les variations de la nature. Magnifique !

10 '----- Bruit de vagues ----- 19/5/85 ---------- D.Cardon
20 ENV 1,1,5,1,10,1,10,15,-1,50:c=1
30 WHILE INKEY$="":tps%=RND*400:va%=RND*21:mou%=RND*2
40 SOUND c,0,300+tps%,0,1,,10+va%:c=3-c:IF mou%=1 THEN GOSUB 100
50 WEND:CALL &BCB6:END
100 '----- Mouette ----- 20/5/85 ----- D.Cardon
110 ENV 2,1,RND*(7+1),20
120 FOR j=1 TO 2:at%=RND*100:h2%=RND*5
130 FOR i=1 TO 23
140 READ d%,h%,v%
150 SOUND 4,h%+h2%,d%,v%,2:NEXT:SOUND 4,0,15+at%:RESTORE
160 NEXT:RETURN
170 DATA 1,70,1,2,69,4,1,68,5,1,67,5,1,66,6,1,65,6,1,60
175 DATA 7,2,55,7,3,52,7,4,51,7,5,50,7
180 DATA 18,48,6,2,50,7,1,51,6,1,52,5,1,53,5,1,54,4,1
185 DATA 55,4,1,57,3,1,58,3,1,59,2,1,60,1,3,65,1

Son BASIC: VAGUES + MOUETTES

Son BASIC : VAGUES + MOUETTES

SUPERBE ! Un son d'autant plus réussi qu'il utilise les nombres aléatoires pour simuler les variations de la nature. Magnifique !

10 '----- Bruit de vagues ----- 19/5/85 ---------- D.Cardon
20 ENV 1,1,5,1,10,1,10,15,-1,50:c=1
30 WHILE INKEY$="":tps%=RND*400:va%=RND*21:mou%=RND*2
40 SOUND c,0,300+tps%,0,1,,10+va%:c=3-c:IF mou%=1 THEN GOSUB 100
50 WEND:CALL &BCB6:END
100 '----- Mouette ----- 20/5/85 ----- D.Cardon
110 ENV 2,1,RND*(7+1),20
120 FOR j=1 TO 2:at%=RND*100:h2%=RND*5
130 FOR i=1 TO 23
140 READ d%,h%,v%
150 SOUND 4,h%+h2%,d%,v%,2:NEXT:SOUND 4,0,15+at%:RESTORE
160 NEXT:RETURN
170 DATA 1,70,1,2,69,4,1,68,5,1,67,5,1,66,6,1,65,6,1,60
175 DATA 7,2,55,7,3,52,7,4,51,7,5,50,7
180 DATA 18,48,6,2,50,7,1,51,6,1,52,5,1,53,5,1,54,4,1
185 DATA 55,4,1,57,3,1,58,3,1,59,2,1,60,1,3,65,1