mirror of
https://github.com/vsariola/sointu.git
synced 2025-07-14 02:54:37 -04:00
Re-engineer delay, to use stack for the delay WRK pointer and to support note-syncing transpose.
This commit is contained in:
32
tests/test_delay_flanger.asm
Normal file
32
tests/test_delay_flanger.asm
Normal file
@ -0,0 +1,32 @@
|
||||
%define BPM 100
|
||||
%define USE_SECTIONS
|
||||
%define INCLUDE_DELAY_MODULATION
|
||||
|
||||
%include "../src/sointu.inc"
|
||||
|
||||
SU_BEGIN_PATTERNS
|
||||
PATTERN 80, HLD, HLD, HLD, HLD, HLD, HLD, HLD, HLD, HLD, HLD, 0, 0, 0, 0, 0
|
||||
SU_END_PATTERNS
|
||||
|
||||
SU_BEGIN_TRACKS
|
||||
TRACK VOICES(1),0
|
||||
SU_END_TRACKS
|
||||
|
||||
SU_BEGIN_PATCH
|
||||
SU_BEGIN_INSTRUMENT VOICES(1) ; Instrument0
|
||||
SU_ENVELOPE MONO,ATTAC(80),DECAY(80),SUSTAIN(64),RELEASE(80),GAIN(128)
|
||||
SU_OSCILLAT MONO,TRANSPOSE(64),DETUNE(64),PHASE(0),COLOR(128),SHAPE(64),GAIN(128),FLAGS(TRISAW)
|
||||
SU_MULP MONO
|
||||
SU_DELAY MONO,PREGAIN(40),DRY(128),FEEDBACK(0),DAMP(64),DELAY(0),COUNT(1)
|
||||
SU_PAN MONO,PANNING(64)
|
||||
SU_OUT STEREO,GAIN(128)
|
||||
SU_OSCILLAT MONO,TRANSPOSE(50),DETUNE(64),PHASE(64),COLOR(128),SHAPE(64),GAIN(128),FLAGS(SINE+LFO)
|
||||
SU_SEND MONO,AMOUNT(65),PORT(3,delay,delaymod) + SEND_POP
|
||||
SU_END_INSTRUMENT
|
||||
SU_END_PATCH
|
||||
|
||||
SU_BEGIN_DELTIMES
|
||||
DELTIME 1000
|
||||
SU_END_DELTIMES
|
||||
|
||||
%include "../src/sointu.asm"
|
Reference in New Issue
Block a user