return to first page linux journal archive
keywordscontents

Listing 1. Mapping MIDI values--orc File

instr 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