diff --git a/src/samplesrc/a2pwm/hilopwm.pla b/src/samplesrc/a2pwm/hilopwm.pla index d1afae1..0ce230d 100755 --- a/src/samplesrc/a2pwm/hilopwm.pla +++ b/src/samplesrc/a2pwm/hilopwm.pla @@ -39,7 +39,11 @@ word heap // // Periods of scale in second octave // -byte scale[] = 166, 156, 148, 139, 132, 124, 117, 111, 104, 99, 93, 88, 83, 78 +byte scale0[] = 163, 154, 146, 137, 130, 122, 116, 109, 103, 97, 92, 87, 82, 77 +byte scale1[] = 82, 77, 73, 69, 65, 61, 58, 55, 52, 49, 46, 43, 41, 39 +byte scale2[] = 41, 39, 37, 34, 33, 31, 29, 27, 26, 24, 23, 22, 21, 19 +byte scale3[] = 21, 19, 18, 17, 16, 15, 14, 14, 13, 12, 11, 11, 10, 10 +word scale[] = @scale0, @scale1, @scale2, @scale3 // // Key mapping to note // @@ -199,7 +203,7 @@ def showMainPanel showDuration showWaveform showLFO - putsxy(5, 0, "OSCILLATION OVERTHRUSTER 1.2") + putsxy(5, 0, "OSCILLATION OVERTHRUSTER 1.3") normal putsxy(1, 0, "1-8") gotoxy(34, 0); putc('<') @@ -306,9 +310,9 @@ def playback(idx) for i = 0 to 13 if keytone[i] == key if current.LFO == 0 - hilopwm(scale[i] >> current.octave, 0, 0) + hilopwm(scale.[current.octave, i], 0, 0) else - hilopwm(scale[i] >> current.octave, current.LFO, current.idxLFO) + hilopwm(scale.[current.octave, i], current.LFO, current.idxLFO) fin break fin @@ -404,9 +408,9 @@ def main for i = 0 to 13 if keytone[i] == key if current.LFO == 0 - hilopwm(scale[i] >> current.octave, 0, 0) + hilopwm(scale.[current.octave, i], 0, 0) else - hilopwm(scale[i] >> current.octave, current.LFO, current.idxLFO) + hilopwm(scale.[current.octave, i], current.LFO, current.idxLFO) fin break fin diff --git a/src/samplesrc/a2pwm/lfo.po b/src/samplesrc/a2pwm/lfo.po index 452e539..fbc2625 100755 Binary files a/src/samplesrc/a2pwm/lfo.po and b/src/samplesrc/a2pwm/lfo.po differ