Commit 3866b0a1 authored by Ada Gottensträter's avatar Ada Gottensträter

Allow setting amplification of sawtooth channels

parent 203f990c
......@@ -63,14 +63,15 @@ LICENSE
shr tempValue1,##{4-vol}
sumc #{mixr},tempValue1
SQUARE
sawtooth: lambda {|i,vol,mixr| if vol==0 then <<~SAWTOOTH else raise end},
sawtooth: lambda {|i,vol,mixr| <<~SAWTOOTH },
ch#{i}_Sawtooth
#{default_stuff(i)}
mov tempValue1,c#{i}_phase wc
abs tempValue2,c#{i}_modphase
sumc tempValue1,tempValue2 wc
mov tempValue2,c#{i}_envelope
call #sar9Multiply
#{"sar tempValue1,##{9-vol}" unless vol == 0}
call ##{vol==0 ? "sar9Multiply" : "multiply"}
add #{mixr},tempValue3
SAWTOOTH
triangle: lambda {|i,vol,mixr| <<~TRIANGLE},
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment