Primitive Root Cricket

Cricket sound using primitive root 2 modulus 31. Information can be sent with pulse amplitude modulation. Praat script below.

do (“Create AmplitudeTier…”, “empty”, 0, 0.5)
;writeInfoLine (“Primative Root”)

m = 31
n = m -1
a = 2
t0 = 0
t1 = 0
amplitude1 = 3 ; pulse amplitude modulation
amplitude2 = 1

for i from 1 to n
pr = ( a^i mod m ) / amplitude1
;appendInfoLine: i , ” ” , pr
do (“Add point…”, t0, pr )
t0 = t0 + 0.005
t1 = t0
endfor

for k from 1 to n
pr =(a^k mod m ) / amplitude2
;appendInfoLine: k , ” ” , pr
do (“Add point…”, t1, pr )
t1 = t1 + 0.005
endfor

do (“Create Sound as pure tone…”, “tone”,
… 1, 0, 0.25, 44100, 2000, 0.2, 0.01, 0.01)

selectObject (“AmplitudeTier empty”)
plusObject (“Sound tone”)
do (“Multiply”)
Play