; Select audio/midi flags here according to platform
; Audio out Audio in No messages
;-odac -iadc -d ;;;RT audio I/O
; For Non-realtime ouput leave only the line below:
; -o wgflute.wav -W ;;; for file output any platform
-+rtaudio=jack -i adc -o dac -+rtmidi=alsa -M hw:1
; Initialize the global variables.
sr = 44100
ksmps = 128
nchnls = 2
; Table #1 Kraig Grady's 14 tone mictotuned scale
; numgrades = 14 (fourteen tones)
; interval = 2 (one octave)
; basefreq = 261.659 (Middle C)
; basekeymidi = 60 (Middle C)
gitemp ftgen 2, 0, 64, -2, 14, 2, 261.659, 60, 1.05, 1.125, 1.166666666666666667, 1.25, 1.3125, 1.333333333333333333, 1.4, \
1.5, 1.575, 1.6875, 1.75, 1.875, 1.96875, 2
; Instrument #1.
instr 1
ikoct = 8 ;4 octave range
kfratio midic7 1, 1, ikoct ;mod.wheel controls transposition
ifscale = 2
ifn = 2
i1 cpstmid ifn
ivel veloc
kamp = ivel*200
kfreq = i1*kfratio
kjet = rnd(0.5)
iatt = 0.1
idetk = 0.1
kngain = 0.15
kvibf = kfratio
kvamp = 0.05
kenv linsegr 0,0.001,ivel/128, 3, 0
a1 wgflute kamp, kfreq, kjet, iatt, idetk, kngain, kvibf, kvamp, ifn
outs a1*kenv,a1*kenv
endin
; Table #1, a sine wave.
f 1 0 16384 10 1
; f table to keep running without score
f 0 120000
e