Code for R2D2 sounds
Many thanks, Josep, we'll have fun ! I'm working on a project at work, a
menthol spraying unit for cigarettes making machines, and I'm thinking about
adding some funny noises to my system...
If I've some time, I'll experiment with a mike to see how the Stamp can
detect sounds.
Best regards,
Phil.
Original Message
From: <jffgres@a...>
To: <basicstamps@yahoogroups.com>
Sent: Wednesday, February 07, 2001 3:05 PM
Subject: [noparse][[/noparse]basicstamps] Code for R2D2 sounds
> It needs some optimization, but it is the basis.
>
menthol spraying unit for cigarettes making machines, and I'm thinking about
adding some funny noises to my system...
If I've some time, I'll experiment with a mike to see how the Stamp can
detect sounds.
Best regards,
Phil.
Original Message
From: <jffgres@a...>
To: <basicstamps@yahoogroups.com>
Sent: Wednesday, February 07, 2001 3:05 PM
Subject: [noparse][[/noparse]basicstamps] Code for R2D2 sounds
> It needs some optimization, but it is the basis.
>
Comments
i var word
j var word
spkr var nib
spkr=5 ' speaker pin
output spkr
' --- test ---- (change at your own convenience )
gosub sound_18
gosub sound_1
gosub sound_18
pause 500
gosub sound_2
gosub sound_3
gosub sound_6
pause 500
gosub sound_1
gosub sound_4
gosub sound_0
pause 500
gosub sound_16
gosub sound_17
gosub sound_15
pause 500
gosub sound_18
gosub sound_13
gosub sound_18
gosub sound_3
gosub sound_18
gosub sound_7
gosub sound_8
stop '--- end of test
' --- noises
sound_0:
for j=1 to 4
for i=2000 to 50 step 400
freqout spkr,10,i
next
for i=800 to 2000 step 400
freqout spkr,10,i
next
next
return
sound_1:
for i = 800 TO 2000 STEP 100
freqout spkr,10,i
next
for i= 2000 TO 50 step 100
freqout spkr,10,i
next
return
sound_2:
for i = 1000 to 40 step 20
freqout spkr,10,i
next
return
sound_3:
for i = 10000 to 500 step 500
freqout spkr,10,i
next
return
sound_4:
for i = 10 to 50 step 10
for j = 50 TO 10 step 10
freqout spkr,15,j*20
next
next
return
sound_5:
for i = 1 TO 120 step 2
freqout spkr,10,(sin(i + 40) * 50)
next
return
sound_6:
for i=10 TO 50 step 10
for j = 50 to 10 step 10
freqout spkr,10,i * J
next
next
return
sound_7:
for i = 30 to 70 step 5
for j = 70 to 30 step 5
freqout spkr,10,i*j
next
next
return
sound_8:
for i= 30 to 60 step 10
for j = 60 to 30 step 10
freqout spkr,10,i * j
next
next
return
sound_9:
for i=1 to 60 step 7
freqout spkr,10,(sin(i) + 20) * 30
next
return
sound_10:
for i = 1 TO 30
freqout spkr,20,(i * 14) + 450
next
return
sound_11:
FOR i = 10000 TO 500 STEP 500
freqout spkr,20,i
NEXT
return
sound_12:
FOR i = 102 TO 82 STEP 2
freqout spkr,40,(COS(i/100) + 36) * 25
freqout spkr,20,(SIN(i/100) + 20) * 50
NEXT
return
sound_13
FOR i = 1 TO 10
freqout spkr,40,1195
freqout spkr,40,2571
NEXT
return
sound_14
FOR i = 1 TO 3
freqout spkr,90, 550
freqout spkr,90, 400
NEXT
return
sound_15
FOR I = 40 TO 15 STEP 1
freqout spkr,5,I * 90
freqout spkr,5,I * 80
freqout spkr,5,I * 70
freqout spkr,5,I * 60
freqout spkr,5,I * 50
NEXT
return
sound_16
FOR I = 1 TO 20
freqout spkr,20,1195 - 50 * I
freqout spkr,20,1195 + 50 * I
NEXT
return
sound_17
FOR I = 0 TO 150 STEP 10
freqout spkr,20,1295 - I
freqout spkr,20,1095 + I
NEXT
return
sound_18
FOR I = 1 TO 20
freqout spkr,10,I * 50
freqout spkr,10,I * 100
freqout spkr,10,I * 150
NEXT
return
have fun.
Josep
Russ
Original Message
From: <jffgres@a...>
To: <basicstamps@yahoogroups.com>
Sent: Wednesday, February 07, 2001 9:05 AM
Subject: [noparse][[/noparse]basicstamps] Code for R2D2 sounds
| It needs some optimization, but it is the basis.
|
|
| i var word
| j var word
| spkr var nib
Tim
> Good Job and thanks for sharing this with us.
>
> Tim
Thank you all, I'm very glad that you like the code, if anyone makes
modifications or enhacements, I would like to see it.
Thank you.
Josep
Leroy@f...
Philippe Derenne wrote:
>
> Many thanks, Josep, we'll have fun ! I'm working on a project at work, a
> menthol spraying unit for cigarettes making machines, and I'm thinking about
> adding some funny noises to my system...
> If I've some time, I'll experiment with a mike to see how the Stamp can
> detect sounds.
> Best regards,
>
> Phil.
>
>
Original Message
> From: <jffgres@a...>
> To: <basicstamps@yahoogroups.com>
> Sent: Wednesday, February 07, 2001 3:05 PM
> Subject: [noparse][[/noparse]basicstamps] Code for R2D2 sounds
>
> > It needs some optimization, but it is the basis.
> >
--