< Beyond the screen in Paris by Elise Co : 7/02/2005 _ 13/03/2005

exemple of installation / code

Alexandre Archenoult, body keyboard for sampled music.

sub sound()

do
call putpin (13,0)
call delay (0.0015)
call putpin (13,15)
call delay (0.001)
loop
end sub

sub buz ()
do
call putpin (13,0)
call delay (0.003)
call putpin (13,15)
call delay (0.003)
loop
End Sub

Sub main()

do
dim myvar as integer
myvar=getadc (16)
debug.print cstr (myvar)
call delay (0.5)
if (myvar>100) then
call sound
else
if (myvar<100) then
call buz
end if
end if
loop
end sub

<