Csound Csound-dev Csound-tekno Search About

sorry, more on piano etc

Date1999-06-18 14:37
FromJim Smitherman
Subjectsorry, more on piano etc
it occured to me, many of you may not know the piece I speak of, though it's
one of the basic teaching pieces found on the bath server (I've tried to get
it to work literally for years . . . 100 megs of nothing is really quite an
improvment for me . . ) anyway, here are the files I'm using, for those not
aware of them:

the samples as provided on the server (I can't find them now, but have had
them several years, nice bosendorfer samples, are stereo at 44.1, I've tried
changing the sr, kr, etc to accomidate that, but it makes no difference.

thanks for all help.
______________________________________

 sr = 22050
 kr = 441
 ksmps = 50
 nchnls = 2

 instr 1
inum notnum
ifno table inum, 10  ;do keyboard mapping to ftables (1-9)
ibasno table ifno, 11 ;get basnot for each ftable
ibasoct =   ibasno/12. + 3.
icps cpsmidi
iamp ampmidi 2000, 9
amp linenr iamp, 0, .2, .03
a1,a2 loscil amp, icps, ifno, cpsoct(ibasoct)  ;read an AIFF-defined sampled
instr
 outs a1, a2
 endin
_______________

f1 0 0 1 "Bosendorfer/BOSEN mf A0 st" 0 4 0 ;set SSDIR =
/ti/sound/bv/Samples
f2 0 0 1 "Bosendorfer/BOSEN mf D1 st" 0 4 0
f3 0 0 1 "Bosendorfer/BOSEN mf C2 st" 0 4 0
f4 0 0 1 "Bosendorfer/BOSEN mf F2 st" 0 4 0
f5 0 0 1 "Bosendorfer/BOSEN mf D#3 st" 0 4 0
f6 0 0 1 "Bosendorfer/BOSEN mf C#4 st" 0 4 0
f7 0 0 1 "Bosendorfer/BOSEN mf F#4 st" 0 4 0
f8 0 0 1 "Bosendorfer/BOSEN mf B4 st" 0 4 0

f9 0 128 5 1 128 10 ;for veloc to non-linear amp
f10 0 128 -17  0  1 36  2 43  3 51  4 58 5 68 6 76 7 81 8 ;map notnum to
table
f11 0  16  -2  0 33 38 48 53 63 73 78 83   ;map table to basnot
f0 600
e