alien.orc

sr = 48000
ksmps = 480
nchnls = 1


gkaporto init 100
gkapuerto init 100
gkiglisso init 1100
gagasso init 0
gkportwine init 1100
gkagass_nostrilio init 1100
gkagass init 1100
gkassdrill init 0

instr 1 ; bayan
; more like a gliss bass
; do not reverb this
; sick n tired of reverb
; bass
gkapuerto = p5;
p3 = 2
kamp expseg 0.001, .01, p4*18, p3-.01,0.001
aosc oscil kamp, gkaporto, p6
absz butterlp aosc, 400
out absz
endin

instr 19
gkaporto portk gkapuerto, p4/1000
endin



instr 2 ;tok
; benlai use secret 
; "slaybells" handshake
; now we want the graphite+glue
; of the skin head, making
; a buddhic thock
ashrift randh p4*8, 400, .5, 0, p4*8
atik sleighbells 1, .1, 117,.1,0,700,1100,1500
out atik*(p4*8+ashrift)
endin

instr 3 ;glisso
; gkagass nostrilio
; is a vampire,
;he has a hair suit,
;top hat, wine lips
;different from barnabas
; he is stocky, for he can
; eat, but only crabs
; and other insect like things
; he is at night, representing
; the 7 and 11 of the world,
; speaking very high pitched,
; and whispery.  this is where
; he resides in csound_world
gkiglisso = p5*2
gkagass = p5*2
katt linseg 0, 0.1, p4*6, p3-0.01, 0
kgass expseg 0.01, 0.01, 1 
aasso oscil 1, gkagass_nostrilio+gagasso*200, 3
gagasso oscil 1,gkportwine+(aasso*gkassdrill*200) , 3
out gagasso * katt
endin

instr 39 ;gkglisso
gkportwine portk gkiglisso, p4/500
gkagass_nostrilio portk gkagass, .1-p4/10
gkassdrill = p5
endin

instr 90
asnd init 0 			;input of fin must be initialized
  

     out asnd*10
endin