-g -W -o scale.wav instr 1 inote = cpspch( p5 ) a1 oscil p4, inote, 1 out a1 endin instr 2 inote = cpspch( p5 ) a1 buzz p4, inote, p6, 1 out a1 endin instr 3 ; a linear envelope k1 linen 1.5*p4, 0.05*p3, p3, 0.9*p3 ; p3 = dur, p4 = amp ; convert to pitch-class notation inote = cpspch( p5 ) ; a whole bunch of oscilators and buzzes a1 buzz k1*0.25, inote, p6, 1 a6 buzz k1*0.15, inote*0.499, p6, 1 a2 oscil k1*0.5, inote, 1 a21 oscil k1*0.4, inote*0.996, 1 a22 oscil k1*0.4, inote*1.004, 1 a3 oscil k1*0.25, 2*inote*0.998, 1 a4 oscil k1*0.25, 3*inote*1.002, 1 a5 oscil k1*0.75, 4*inote*0.997, 1 a7 oscil k1*0.25, 0.5*inote*1.001, 1 athing = (a1+a2++a21+a22+a3+a4+a5+a6+a7)/ 4.55 out athing endin ; Table used to generate a sine wave? f 1 0 8192 10 1 ; Note Instr Start Dur Amp Freq i 3 0 1 10000 7.04 20 ;i 3 1 1 10000 7.02 20 ;i 3 2 1 10000 7.03 20 ;i 3 3 1 10000 7.05 20 ;i 3 4 1 10000 7.07 20 ;i 3 5 1 10000 7.08 20 ;i 3 6 1 10000 7.10 20 ;i 3 7 1 10000 7.12 20