| 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
|