Ansible Cathedral Dave Seidel 44100 1 2 96000 10 2 true false false false true true true true false C:\Users\dave\Documents\work\blue\AnsibleCathedral.wav false true true true true false false 0 false binaural beater - gkdiff idur = p3 ; duration iamp = ampdb(p4)/2 ; amplitude icent = p5 ; center frequency (Hz) idiff = p6 ; difference (Hz) itab = p7 ; function table number (waveform) irise = p8 ; envelope rise time ifall = p9 ; envelope fall time ; amplitude envelope ke linen iamp, irise, idur, ifall ; determine pitches kdiff = idiff * gkdiff kp1 = icent + (kdiff/2) kp2 = icent - (kdiff/2) ; printks "center=%f beat=%f => freq1=%f freq2=%f\\n", 1000, icent, idiff, kp1, kp2 ; generate tones asig1 poscil3 ke, kp1, itab asig2 poscil3 ke, kp2, itab ; output blueMixerOut asig1, asig2 chebyshev idur = p3 ; duration iamp = ampdb(p4) ; amplitude ipitch = p5 ; center frequency (Hz) ipan = p6 itab = p7 ; jittered harmonics seed 0 kmin init 1 kmax init 4 k1 jitter 0.5, kmin, kmax k1ofs init 0.5 k2 jitter 0.25, kmin, kmax k2ofs init -0.25 k3 jitter 0.333, kmin, kmax k3ofs init -0.333 k4 jitter 0.25, kmin, kmax k4ofs init 0.5 k5 jitter 0.35, kmin, kmax k5ofs init 0.35 k6 jitter 0.5, kmin, kmax k6ofs init -0.5 ; generate wave ke linen 1, 5, idur, 10 ax poscil3 ke, ipitch, itab ; waveshape it ay chebyshevpoly ax, 0, k1+k1ofs, k2+k2ofs, k3+k3ofs, k4+k4ofs, k5+k5ofs, k6+k6ofs aout dcblock2 ay al,ar pan_equal_power aout, ipan blueMixerOut al*iamp, ar*iamp true 1.0 2 Master -1.0 false false ReverbSC true 2 2 aout1, aout2 reverbsc ain1, ain2, <feedback>, <cutoff>, sr, 0.5 aout1 = (ain1 * <wetdry>) + (aout1 * (1 - <wetdry>)) aout2 = (ain2 * <wetdry>) + (aout2 * (1 - <wetdry>)) 7 7 feedback 8 55 true 0.0 1.0 0.8126968 60 true 11 36 cutoff 72 55 true 20.0 20000.0 8000.0 60 true 80 36 wetdry 136 55 true 0.0 1.0 0.8572772 60 true 139 36 3 Master -2.0 false false ReverbSC true 2 2 aout1, aout2 reverbsc ain1, ain2, <feedback>, <cutoff>, sr, 0.5 aout1 = (ain1 * <wetdry>) + (aout1 * (1 - <wetdry>)) aout2 = (ain2 * <wetdry>) + (aout2 * (1 - <wetdry>)) 7 7 feedback 8 55 true 0.0 1.0 0.94762987 60 true 11 36 cutoff 72 55 true 20.0 20000.0 8000.0 60 true 80 36 wetdry 136 55 true 0.0 1.0 0.48686627 60 true 139 36 Master Master 0.0 false false 0dbfs = 1 giTblSz init 1048577 ; sine wave giFn1 ftgen 1, 0, giTblSz, 10, 1 ; initialize line object gkdiff init 1 t 0 7.5 pan_equal_power aa ak ain, kpan xin kangl = 1.57079633 * (kpan + 0.5) xout ain*sin(kangl), ain*cos(kangl) csound -Wdo devaudio -L stdin false false 2.0 0.0 root -10066279 0 true 20 0 true 1.0 1 5 5.0 0.0 PythonObject -12566464 0 instr = 2 base = 45 beat = 1 amp = -9 def bb(m, a=0): return "i%d 0 1 %f %f %f 1 5 10\n" % (instr, amp+a, base*m, beat) def bb_octaves(n, a=0): out = "" for i in range(0, n): out += "i%d 0 1 %f %f %f 1 5 10\n" % (instr, amp+a, base*(2**i), beat) return out 60.0 0.0 PythonObject -12566464 0 score = bb_octaves(5) 60.0 0.0 LineObject -12566464 60.0 0.0 GenericScore -12566464 0 i3 0 1 -26 180 -0.25 1 i3 0 1 . 180 0.25 . i3 0 1 -30 360 -0.50 . i3 0 1 . 360 0.50 . true 0.0 -1.0 false false false PCH MIDI 12TET 261.62558 2.0 1.0 1.0594631 1.122462 1.1892071 1.2599211 1.3348398 1.4142135 1.4983071 1.587401 1.6817929 1.7817974 1.8877486