Sensthethesia

I took some time in the lab Wednesday to try out the SRF05 ultra sonic sensors. After burning up one of my logo chips with a freakish battery explosion…I got the desired effect from my configuration. I took John’s advise and used one logo chip (because I only had one left.). The program I made was pretty simple. When we goto the gallery Friday I hope to test out the range and get the proper calibrations for all the circuits I have build this past week. Also I will be able to get some input from the artistic side of the group on what we want the program to do. Here is the program I made on the fly that should do at least something final Friday.
include libsrf05.txt

to Powerup
SRF05init
clearbit 1 porta-ddr
clearbit 1 porta

loop[
setn SRF05getvalue / 250
setbit 1 porta mwait n
clearbit 1 porta mwait (16 - n)
]
end
This program has really tickled my fancy. I have made some other programs that use sensors and hand movements to change a speaker’s pitch (instead of the tone in this program) to make some kinetic musical instruments. Later I hope to make an array with the musical pitch tuning and use rounding average/ a rounding tuning method to get specific pitches instead of a glissando effect.

Here is a simple version of the musical ultrasonic sensor.

include libsrf05.txt
include libmovingaverage.txt

to Powerup
SRF05init
clearbit 1 porta-ddr
clearbit 1 porta
if MAinit 8 SRF05getvalue [prs "error]

loop[
setn MAverage SRF05getvalue
setm n / 200

repeat 10
[
setbit 1 porta
clearbit 1 porta
repeat m [no-op]
]

]

end