sr = 44100
kr = 4410
ksmps = 10
nchnls = 1
;===========================================================================
; TECHNO MOOG BASS SOUND using Waveshaping Technique ;
; coded by Olivier Karfis ;
;===========================================================================
; p2 p3 p4 p5 ;
; strt dur pitch amp ;
;===========================================================================
instr 1
inote = cpspch(p4)
iamp = p5*230 ; MIDI AMPLITUDE ROUGH CONVERTER
k1 linen 1,.01,p3,.01 ; AMPLITUDE ENVELOPE
a1 oscili k1,inote,1
a2 tablei a1,2,1,.5 ; TRANSFER FUNCTION LOOKUP
kclick linen 1,.01,p3,.01 ; DECLICKER
a3 = a2*iamp*kclick ; AMPLITUDE SCALING
out a3
endin
f1 0 4096 10 1
f2 0 8193 13 1 1 0 5 -2 -3 0 8 -9 0 2 0 -3 0 2
;===========================================================================
; TECHNO MOOG BASS SOUND using Waveshaping Technique ;
; coded by Olivier Karfis ;
;===========================================================================
; p2 p3 p4 p5 ;
; strt dur pitch amp ;
;===========================================================================
t 0 92
i1 0.000 8 6.07 52
e
905
61
399
502
true
231
46
255
slider1
5
5
20
100
{75290d9d-fc31-4e2a-86b5-65470eb84d86}
true
0
-3
0.00000000
1.00000000
0.00000000
lin
continuous
-1.00000000
false
Version: 3
Render: Real
Ask: Yes
Functions: ioObject
Listing: Window
WindowBounds: 905 61 399 502
CurrentView: io
IOViewEdit: On
Options:
ioView nobackground {59367, 11822, 65535}
ioSlider {5, 5} {20, 100} 0.000000 1.000000 0.000000 slider1