mirror of
https://github.com/vsariola/sointu.git
synced 2025-06-03 09:08:18 -04:00
9209aa1cba
Delays and samples are not implemented yet and thus the tests are skipped, as these require parsing the delay and sample tables also. Various macronames were changed to be more sensible and consistent i.e. ATTAC was changed to ATTACK. GatesLow and GatesHigh was removed for the time being and the tracker will just have to know they are the SHAPE and COLOR parameters. SU_SPEED was changed to take a parameter so the parser picks it up.
37 lines
1.4 KiB
NASM
37 lines
1.4 KiB
NASM
%define BPM 100
|
|
|
|
%include "sointu/header.inc"
|
|
|
|
; warning: crashes ahead. Now that the bpm could be changed and even modulated by other
|
|
; signals, there is no easy way to figure out how many ticks your song is. Either
|
|
; allocate some extra memory of the output just in case or simulate exactly how many
|
|
; samples are outputted. Here the triplets are slightly faster than the original so
|
|
; they fit the default MAX_TICKS that is calculated using the simple bpm assumption.
|
|
BEGIN_PATTERNS
|
|
PATTERN 64, 0, 64, 64, 64, 0, 64, 64, 64, 0, 64, 64, 65, 0, 65, 65
|
|
PATTERN 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ; 4-rows
|
|
PATTERN 78, 0, 54, 0, 78, 0, 54, 0, 78, 0, 54, 0, 78, 0, 54, 0 ; triplets
|
|
END_PATTERNS
|
|
|
|
BEGIN_TRACKS
|
|
TRACK VOICES(1),0,0
|
|
TRACK VOICES(1),1,2
|
|
END_TRACKS
|
|
|
|
BEGIN_PATCH
|
|
BEGIN_INSTRUMENT VOICES(1) ; Instrument0
|
|
SU_ENVELOPE MONO,ATTACK(64),DECAY(64),SUSTAIN(0),RELEASE(64),GAIN(128)
|
|
SU_ENVELOPE MONO,ATTACK(64),DECAY(64),SUSTAIN(0),RELEASE(64),GAIN(128)
|
|
SU_OSCILLAT MONO,TRANSPOSE(64),DETUNE(32),PHASE(0),COLOR(96),SHAPE(64),GAIN(128), FLAGS(TRISAW)
|
|
SU_OSCILLAT MONO,TRANSPOSE(72),DETUNE(64),PHASE(64),COLOR(64),SHAPE(96),GAIN(128), FLAGS(TRISAW)
|
|
SU_MULP STEREO
|
|
SU_OUT STEREO,GAIN(128)
|
|
END_INSTRUMENT
|
|
BEGIN_INSTRUMENT VOICES(1) ; Speed changer
|
|
SU_LOADNOTE MONO
|
|
SU_SPEED MONO
|
|
END_INSTRUMENT
|
|
END_PATCH
|
|
|
|
%include "sointu/footer.inc"
|