sr = 44100 ksmps = 128 nchnls = 2 0dbfs = 1 ; This is a raising tone ; going form p5 to p6 in frequency ; and is played using waveform p4. ; The raising frequency is output to "secondfreq". instr 1 kfreq oscil p6-p5, 1/p3, 3 outvalue "secondfreq", (kfreq+p5)/440 aout oscil 0.05, kfreq+p5, p4 outs aout, aout endin ; This is a constant tone of frequency p5 ; played on waveform p4. instr 2 aout oscil 0.05, p5, p4 outs aout, aout endin f 1 0 1024 10 1 0 0.77 0 0.6 0 0.46 0 0.36 0 0.29 ; waveform for the clarinet - up to 11th harmonic f 2 0 1024 10 1 0.88 0.77 0.68 0.6 0.53 0.46 0.41 0.36 ; waveform for the string - up to 9th harmonic f 3 0 32769 16 0 32769 0 1 ; line from 0 to 1 for changing the frequency ; Play the clarinet tones passing through the octave ; p1 start dur instr sfreq efreq i 1 0 10 1 858 902 i 2 0 10 1 440 ; Play the string tones passing through the octave ; p1 start dur instr sfreq efreq i 1 11 10 2 858 902 i 2 11 10 2 440 e Version: 3 Render: Real Ask: Yes Functions: ioObject Listing: Window WindowBounds: 1010 63 430 408 CurrentView: io IOViewEdit: On Options: -b128 -A -s -m167 -R ioView background {32125, 41634, 41120} ioGraph {8, 112} {265, 116} table 0.000000 1.000000 ioGraph {8, 233} {266, 147} scope 2.000000 -1.000000 ioText {139, 49} {80, 25} display 2.099915 0.00100 "secondfreq" left "Lucida Grande" 8 {0, 0, 0} {65280, 65280, 65280} nobackground border 2.0999 ioText {25, 49} {115, 25} label 0.000000 0.00100 "" right "Lucida Grande" 8 {0, 0, 0} {65280, 65280, 65280} nobackground border Ratio of frequencies