3187l1.orig100640 1061 330 672 6631267530 11104 0ustar mlrljeditinstr 1 inum notnum ; note number kfreq cpsmidib ; MIDI to frequency iamp ampmidi inum*100 ; MIDI to amplitude (scaled ; within range) if inum > 60 goto fun1 ; if the MIDI note number ; is over 60... if inum < 61 goto fun2 ; if the note number is ; less than 61... fun1: ifn = 1 goto contin fun2: ifn = 2 goto contin contin: asig oscil iamp,kfreq,ifn out asig endin 3187l2.orig100640 1061 330 2200 6631267561 11116 0ustar mlrljedit; MIDI OUT opcodes ; mussle.orc sr = 44100 ; also experiment with other sr and ; kr rates kr = 44100 ksmps = 1 nchnls = 1 ; This instrument shows how the moscil opcode can ; be used for a sort of ; "indeterminancy" aspect in composition. knum and ; kvel control the output ; of MIDI notes and their velocities over p3 ; (note-stream duration as specified ; in the score). kran output is used for kdur ; (actual duration) and kpause ; (pause between notes). ; ; The moscil (MIDI oscillator) opcode permits ; control of MIDI channel, note-number, ; velocity, duration, and time between notes. instr 1 kchan = 0 knum linseg 40,p3/7,60,p3/7,46,p3/7,54,p3/7,24,p3/7,58,p3/7,48,p3/7,80 kvel linseg 20,p3/2,39,p3/2,33 kran pcauchy 23 kdur = int(kran)+.46 kpause = frac(kran) moscil kchan, knum, kvel, kdur, kpause endin ; The next two instruments control Program Change ; messages sent to my external synth and my ; MIDI-controlled mixer. instr 11 kchan = 0 kprog = 2. kmin = 1. kmax = 128. koutpc kchan, kprog, kmin, kmax endin instr 100 kchan = 8 kprog = 6. kmin = 1. kmax = 128. koutpc kchan, kprog, kmin, kmax endin