6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-09 13:33:26 +00:00
Code Issues Projects Releases Wiki Activity

Hand tune each not as best as possible

Browse Source
This commit is contained in:
dschmenk 2017-04-28 12:08:32 -07:00
parent 0152b5554c
commit fbbb72c369
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/samplesrc/a2pwm/hilopwm.pla
View File

@ -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

BIN
src/samplesrc/a2pwm/lfo.po
View File

Binary file not shown.