;OPCODES TESTED: oscil, balance, diff, linen, reson, samphold, tone
;------------------------------------
;sr = 22050     not tested yet
;sr = 44100	OK
;sr = 48000     not tested
;sr = 96000     not test
;------------------------------------
;kr = sr	OK
;kr = sr/2      not tested
;kr = sr/10     not tested
;kr = sr/100    noty tested
;mono		OK
;stereo out     not tested
;4-chan	out	not available
;8-chan	out	not available
;Linux		not tested		
;Mac		Bug: bug description
;DOS (console)  OK
;Win95		OK
;Win98		not tested
;WinNT		Bug: bug description
;SGI		not tested
;Irix		not tested
;Realtime       not tested
;Realtime MIDI  not tested
;MIDI file activated   not tested
;NOTES & COMMENTS: Produces patch for Timidity
;_________________________________________
;
;/////////////////////////////////////
sr        =         44100
kr        =         44100
ksmps     =         1
nchnls    =         1

          instr 1                       ; p3=duration of note
k1         linen      p4, p6, p3, p7      ; p4=amp
asrc        oscil     k1, p5, 1           ; p5=freq
adiff       diff      asrc
anew        balance   adiff, asrc
agate       reson     asrc, 0,p5 
asamp       samphold  anew, agate
a1          tone      asamp, p5
          out       a1                  ; p6=attack time
          endin                         ; p7=release time
          instr 2                       ; p3=duration of note
k1         linen      p4, p6, p3, p7      ; p4=amp
asrc        oscil     k1, p5/4, 1           ; p5=freq
adiff       diff      asrc
anew        balance   adiff, asrc
agate       reson     asrc, 0,p5 
asamp       samphold  anew, agate
a1          tone      asamp, p5
          out       a1                  ; p6=attack time
          endin                         ; p7=release time
          instr 3                       ; p3=duration of note
k1         linen      p4, p6, p3, p7      ; p4=amp
asrc        oscil     k1, p5/2, 1           ; p5=freq
adiff       diff      asrc
anew        balance   adiff, asrc
agate       reson     asrc, 0,p5 
asamp       samphold  anew, agate
a1          tone      asamp, p5
          out       a1                  ; p6=attack time
          endin                         ; p7=release time



; Test.sco (C) 1999 Robert McNulty Junior
f1   0    4096 10 1      ; sine wave

t0 120

;p1           p2            p3,           p4            p5            p6            p7
i 1            0             8             11905.4       1107.368      .1718953      .6061823 
i 2            0             8             11905.4       1107.368      7.083839E-02                .311819 
i 3            0             8             11905.4       1107.368      .8715311      .7819333