Csound Csound-dev Csound-tekno Search About

MIDI file conversion

Date1999-01-08 15:45
FromJoseph Reinsel
SubjectMIDI file conversion
Hi all,

I have some questions about MIDI file converison. I was trying to
compile a sound project with a MIDI file. This is the score and orc.
that I am using.


ORC File:

sr=44100
kr=4410
ksmps=10
nchnls=1
garvbsig  init  0
;----------------
instr 1
idown  = cpspch(p5)*0.998
iup    = cpspch(p5)*1.001
;-----------------
; first partial
;-----------------
kenv1   expon 1,p3,0.000976
kvib  oscil cpspch(p5)*0.03,p6,1
a1 oscil kenv1*p4,cpspch(p5)*0.56+kvib,1
a2   oscil kenv1*p4,idown+kvib,1
a3   oscil kenv1*p4,iup+kvib,1
;----------------------
; second partial
;----------------------
kenv2   expon 0.67,p3*0.9,0.000976
a4  oscil kenv2*p4,cpspch(p5)*0.56+1,1
;-------------------
; third partial
;-------------------
kenv3   expon 1,p3*0.65,0.000976
a5  oscil kenv3*p4,cpspch(p5)*0.92,1
;-------------------
;fourth partial
;-------------------
kenv4   expon 1.8,p3*0.55,0.000976
a6  oscil kenv4*p4,cpspch(p5)*0.92+1.7,1
;-------------------
;fifth partial
;------------------
kenv5   expon 2.67,p3*0.325,0.000976
a7  oscil kenv5*p4,cpspch(p5)*1.19,1
;------------------
;six partial
;------------------
kenv6   expon 1.67,p3*0.35,0.000976
a8    oscil kenv6*p4,cpspch(p5)*1.7,1
a9    oscil kenv6*p4,idown+kvib,1
a10   oscil kenv6*p4,iup+kvib,1
;-----------------
;seventh partial
;-----------------
kenv7   expon 1.46,p3*0.25,0.000976
a11   oscil kenv7*p4,cpspch(p5)*2,1
;----------------
;eighth partial
;----------------
kenv8   expon 1.33,p3*0.2,0.000976
a12  oscil kenv8*p4,cpspch(p5)*2.74,1
;---------------
;ninth partial
;--------------
kenv9   expon 1.33,p3*0.15,0.000976
a13  oscil kenv9*p4,cpspch(p5)*3,1
;--------------
;tenth partial
;-------------
kenv10   expon 1,p3*0.1,0.000976
a14 oscil kenv10*p4,cpspch(p5)*3.76,1;--------------
;eleventh parital
;--------------
kenv11   expon 1.33,p3*0.075,0.000976
a15  oscil kenv11*p4,cpspch(p5)*4.07,1
atot= (a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15)/15
out atot
garvbsig = garvbsig + atot*p7; send signal to instr2
endin
;---------------
instr 2
;------------
asig reverb  garvbsig, p4
out  asig
garvbsig = 0
endin

SCO file:

f0  600
f1   0 4096 10 1
e


and then I used a MIDI file that I transfered from Vision.

Thanks,


Joe Reinsel
Composer, Sonic Artist
Washington, D.C. U.S.A.