/* format for the cmbplk instrument */
/****
             *** comb or allpass an input signal ***
combit(start, dur, pitch, inskip, rvt, rise, decay)

--pitch is in 8ve.pc form if positive, hz if negative

allpassit(start, dur, pitch, inskip, rvt, rise, decay)

             *** simple plucked string synthesis *** 
pluckit(start,dur,pitch,null,amppluck,rise,decay,null,coef,seed)
--coef is the simple decay gain (0 -> .5)
--seed is a random seed for the initial pluck

             *** pluck an input signal ***
pluckitin(start, dur, pitch, inskip, relamppluck, rise, decay, null, coef, seed)
--relampluck is the relative amplitude of the pluck, vs the input sig 


             *** fancy pluck synthesis ***
hpluckit(start,dur,pitch,null,amppluck,rise,decay,realdurpluck,brightness,seed)
--brightness is a treble knob (use values up to Nyquist.
--realdurpluck is the amount of time it would take the pluck by itself to 
  decay 60 db.

             *** fancy pluck an input signal ***
hpluckitin(start, dur, pitch, inskip, relamppluck, rise, decay, realpluckdur, brightness, seed)
--relamppluck is the relative amplitude of the pluck, compared to an input signal, (e.g for a 16 bit signal, 32767 would be a balanced pluck).

******/
float start,dur,pitch,inskip,relamppluck,rise,decay,realpluckdur,brightness,seed,coef,null
null=0
input("/snd/sndlib/palestrina")

seed=.123

output("/publicsnd/combit")

combit( start=0, dur=5, pitch=8.00, inskip=10, rvt=2, rise=.1, decay=.5)

allpassit( start=0, dur=5, pitch=8.00, inskip=10, rvt=2, rise=.1, decay=.5)

pluckit(start=start+dur, dur, pitch=6.09, null, amp=10000, rise, decay, null, coef=.5, seed)

pluckitin( start=0, dur, pitch=6.02, inskip=10, relamppluck=10000, rise, decay, null, coef=.5, seed)

hpluckit( start=0, dur, pitch=8.00, null, relamppluck=10000, rise, decay, realpluckdur=dur, brightness=10000, seed)

hpluckitin( start=0, dur, pitch=8.00, null, relamppluck=10000, rise, decay, realpluckdur=dur, brightness=10000, seed)