1 files changed, 50 insertions, 0 deletions
diff --git a/examples/cpstuni.csd b/examples/cpstuni.csd
new file mode 100644
index 0000000..f3c9cc3
--- /dev/null
+++ b/examples/cpstuni.csd
@@ -0,0 +1,50 @@
+<CsoundSynthesizer>
+<CsOptions>
+; Select audio/midi flags here according to platform
+; Audio out   Audio in
+-odac           -iadc    ;;;RT audio I/O
+; For Non-realtime ouput leave only the line below:
+; -o cpstuni.wav -W ;;; for file output any platform
+</CsOptions>
+<CsInstruments>
+
+; Initialize the global variables.
+sr = 44100
+kr = 4410
+ksmps = 10
+nchnls = 1
+
+; Table #1, a normal 12-tone equal temperament scale.
+; numgrades = 12 (twelve tones)
+; interval = 2 (one octave)
+; basefreq = 261.659 (Middle C)
+; basekeymidi = 60 (Middle C)
+gitemp ftgen 1, 0, 64, -2, 12, 2, 261.659, 60, 1.00, \
+             1.059, 1.122, 1.189, 1.260, 1.335, 1.414, \
+             1.498, 1.588, 1.682, 1.782, 1.888, 2.000
+
+; Instrument #1.
+instr 1
+  ; Use Table #1.
+  ifn = 1
+
+  ; If the base key (note #60) is C, then 9 notes 
+  ; above it (note #60 + 9 = note #69) should be A.
+  index = 69
+
+  i1 cpstuni index, ifn
+
+  print i1
+endin
+
+
+</CsInstruments>
+<CsScore>
+
+; Play Instrument #1 for one second.
+i 1 0 1
+e
+
+
+</CsScore>
+</CsoundSynthesizer>