<info>
i is ex6-4-3
ECMC Csound Tutorial example ex6-4-3
</info>
<tk_interface>
</tk_interface>
<mono>
;  #############################################################
;  orchestra file examples ex6-4-1, 6-4-2 and 6-4-3
; non-12 tone tuning examples
;  #############################################################

sr=44100
kr=2205
ksmps=20
nchnls=1


instr 1

icps  cps2pch  p4, p6
        ; convert pch to midi note number
        imidinote =  int((p4) - 3) * 12
        imidinote = int(imidinote + ((frac(p4) * (12/p6)) * 100))
; ------------------------------------------

  ; use function tables 99 & 98 to get closest multisample soundfile
ifno	table	imidinote, 99  ;keyboard mapping to gen1 function tables 
ibasno	table	ifno, 98        ; returns midi notes of the sonudfile samples
ibasoct	=	ibasno/12. + 3.
ibasepitch = cpsoct(ibasoct)
; ------------------------------------------
iendloop = 1 ; dummy end loop point for loscil
                       ; csound aborts without an end loop value, even
                       ; if no looping is specified

asig	loscil	1, icps , ifno, ibasepitch , 0, 0, iendloop
print icps, imidinote, ifno, ibasepitch
; ------------------------------------------
; AMPLITUDE SCALING and OPTIONAL NEW AMPLITUDE ENVELOPE
	iamp = p5
	irise = (p7 = 0? .0001 : p7)
	idec = (p8 = 0? .0001 : p8)
kamp expseg .005, irise, iamp, p3 - (irise + idec), iamp , idec, .005
asig = asig * kamp
; ------------------------------------------
out asig
endin
</mono>
<stereo>
</stereo>
<score>

                  SCORE-11, Version 1.4
Copyright (C) 1982, 1990, 1992, 1995 by Alexander R. Brinkman
     Eastman School of Music, University of Rochester

f1 0 262144 -1 "/sflib/string/vln.g3" 0 0 0 
f2 0 262144 -1 "/sflib/string/vln.b3" 0 0 0 
f3 0 262144 -1 "/sflib/string/vln.ds4" 0 0 0 
f4 0 262144 -1 "/sflib/string/vln.g4" 0 0 0 
f5 0 262144 -1 "/sflib/string/vln.b4" 0 0 0 
f6 0 131072 -1 "/sflib/string/vln.ds5" 0 0 0 
f7 0 262144 -1 "/sflib/string/vln.g5" 0 0 0 
f8 0 131072 -1 "/sflib/string/vln.b5" 0 0 0 
f9 0 131072 -1 "/sflib/string/vln.ds6" 0 0 0 
f10 0 131072 -1 "/sflib/string/vln.g6" 0 0 0 
f11 0 262144 -1 "/sflib/string/vln.c7" 0 0 0 
f99 0 128 -17 0 1 57 2 61 3 65 4 69 5 73 6 77 7 81 8 85 9 89 10 93 11
f98 0 16 -2 0 55 59 63 67 71 75 79 83 87 91 96 
  i1 0.000 0.500 8.000 0.500 19 0 0.334
  i1 0.400 0.500 8.010 0.500 19 0 0.315
  i1 0.800 0.500 8.020 0.500 19 0 0.327
  i1 1.200 0.500 8.030 0.500 19 0 0.308
  i1 1.600 0.500 8.040 0.500 19 0 0.360
  i1 2.000 0.500 8.050 0.500 19 0 0.310
  i1 2.400 0.500 8.060 0.500 19 0 0.325
  i1 2.800 0.500 8.070 0.500 19 0 0.320
  i1 3.200 0.500 8.080 0.500 19 0 0.352
  i1 3.600 0.500 8.090 0.500 19 0 0.330
  i1 4.000 0.500 8.100 0.500 19 0 0.335
  i1 4.400 0.500 8.110 0.500 19 0 0.371
  i1 4.800 0.500 8.120 0.500 19 0 0.346
  i1 5.200 0.500 8.130 0.500 19 0 0.327
  i1 5.600 0.500 8.140 0.500 19 0 0.322
  i1 6.000 0.500 8.150 0.500 19 0 0.303
  i1 6.400 0.500 8.160 0.500 19 0 0.318
  i1 6.800 0.500 8.170 0.500 19 0 0.353
  i1 7.200 0.500 8.180 0.500 19 0 0.354
  i1 7.900 0.500 8.190 0.500 19 0 0.375
  i1 7.907 0.500 8.000 0.500 19 0 0.345
e
</score>
