900円で作るOverflow folding VCO-モジュラーシンセ自作
Seeeduino xiaoを用いて、モジュラーシンセサイザー のデジタルVCOを自作したので、その備忘録。
背景
自作モジュラーシンセの37作品目。
プログラミングを初めて1年も経過して、そろそろシンセサイザー用のライブラリに頼らず、自分でデジタルVCOを作ってみたいと思った。
自分にとっては、技術的難易度が高い試みである。失敗するかもしれない、満足するものが作れないかもしれない。しかし、挑戦しないと出来るか出来ないかも分からないので、まずは挑戦してみることにした。
今回用いるマイコンはseeeduino xiaoだ。samd21を使用した48Mhzのプロセッサで、arduino IDEで開発ができる。音声処理をするには、やや力不足なマイコンだが、DACを内蔵しており使い勝手が良い。
将来、rasberry pi pico やteensyで本格的なVCOを作るために、まずは技術検証用で使い慣れたseeeduino xiaoを用いる。橋頭堡としてのプロジェクトである。
結果から言うと、満足したものは作れなかったが、最低限動作するVCOを作ることが出来た。音はLo-Fiで、稀にノイズも発生する欠点がある。
あくまで技術検証用であり。全員におすすめできるモジュールではないことを、始めに記しておく。
制作物のスペック
ユーロラック規格 3U 6HPサイズ
電源:25mA 以下( at 5V )
knob1:周波数
knob2:Overflow folding rate
knob3:波形選択(全8波形)
V/OCT:周波数 (レンジ0-5V)
CV1:Overflow folding rate (レンジ0-5V)
CV2:波形選択(レンジ0-5V)
OUT:音声出力(5Vp-p)
出力波形
鋸歯状波、正弦波などの基本波形を8種類内蔵する。Wavetable形式で保存してあるため、任意の波形に変更が可能。
Overflow folding
出力波形の変調方法。Wavetableを増幅しオーバーフローさせることで波形を大きく変調し、倍音を加える。ハードSYNCやディストーションのような音になる。
倍音を大きく変えるため、位相シフトSYNCやサブオシレータ等の実験をしたが、音の変化が小さく満足できなかった。
しかし試行錯誤する中で、偶然プログラムのミスをしてwavetableの値がオーバーフローしたところ、面白い音が出たので、そのまま採用した。
周波数
70Hz~2.4kHz。オクターブに換算すると6オクターブ。
ショパンは弾けないが、ベートーベンなら弾けるオクターブレンジだ。
2.4kHz以上の音を出すと、マイコンの動作が不安定になるため、リミットを設けている。
なお、パネル上にはプッシュスイッチが設置してあるが、今回は使用していない。将来、音色を追加する際に使用する予定だ。
製作費
総額約900円
---------------------------------
Seeeduino xiao 550円
フロントパネル 100円
オペアンプ 45円
他(汎用部品は下記リンク先参照)
妥協、欠点
マイコンの性能、及び私の技術力不足で、いくつかの妥協と欠点がある。
1.音域
6octはモジュラーシンセサイザーのVCOとしては音域が狭い。
SAMD21の48MHzクロックの割り込み処理の限界が原因である。
wavetableのサンプル数を128から64に減らせば、計算上は7octまで出せるが、サンプル数を減らすと不要な高調波が発生してしまう欠点がある。
2.まれに発生するノイズ
出力周波数を頻繁に変更すると、稀にノイズが発生する。原因は明確になっていないが、おそらく割り込み頻度の変更処理の際にノイズが発生している様子だ。
対策として、出力周波数の変化を少なくしている。。
具体的には
・ADCの読み取り頻度を5msec毎にする。
・ADCの前回値と今回値が近い場合は、周波数を変更させない。
・V/oct回路のバッファ回路により外来ノイズの低減する。
シーケンサや鍵盤を使って演奏する場合、周波数の変更頻度は少ないため、ノイズが気になることは無い。LFOやエンベロープジェネレータでV/octを制御する場合、周波数の変更頻度が多いため、ノイズが気になることがある。
3.V/oct分解能
分解能は10bitにしている。理由は2のノイズ対策にあるように、頻繁な周波数変更を避けるため。
10bitでも楽器としては十分な分解能だと私は思っている。理由は過去に作成したmozzi libraryベースのVCO記事に記載がある。1LSBのずれは、6centのずれなので許容できるのではという、私の持論だ。
50万円するBuchlaや、ビンテージアナログシンセサイザーと比べたら、ピッチは正確に出力できるので、よしとする。
4.低周波数での高調波ノイズ
wavetableのサンプル数が128、分解能は256なので波形を拡大すると荒い。ローパスフィルタがあるので、高い周波数では高調波ノイズは気にならないが、200Hz以下では高調波ノイズが気になる。特にサイン波や三角波のように高調波が少ない波形ではノイズが顕著に表れる。
以上の通り、多くの欠点があるが、値段相応と割り切る。今回のプロジェクトは技術検証が目的なので、出来ないことが判ったのは、むしろ歓迎すべきだ。エイリアシング等、他にも考えなくてはいけない事もあるだろうが、完璧よりも完成を優先させる。
プログラミング
1.wavetable
音声出力の場合、一定間隔で割り込み処理をする。この割り込み処理では、簡単な掛け算、足し算、tableの値の参照は出来る。しかし、sinや複雑な条件分岐の処理はできない。
よって、あらかじめ計算結果をwavetableとして保持して、割り込みではwavetableの値を参照するようにしている。
for (int i = 0; i < 128; i++) { //saw
wavetable[0][i] = i * 2;
}
for (int i = 0; i < 128; i++) { //sin
wavetable[1][i] = (sin(2 * M_PI * i / 128) + 1) * 127;
}
2.割り込み処理
割り込み処理のプログラムはSAMD21_Audio_Playerをベースにしている。
Seeeduino xiaoにもタイマー割り込みのライブラリサンプルが用意されているが、意図した通りに動かなかった。
3.音声合成をソフトウェアで実装する方法
webの情報ではなく、書籍から知識を得た。
「青木 直史 著 ■ サウンドプログラミング入門 - 音響合成の基本とC言語による実装 -」からは、シンセサイズを数式で表す方法を学んだ。
「Interface 2021年8月号 ラズパイのマイコンPico攻略本」から、マイコンで音声合成をする方法を学んだ。
ハードウェア
V/oct入力回路(A7)
220kohmと330kohmで5Vから3.3Vにレベルシフトしている。抵抗の誤差を補正するための半固定抵抗を設置してもよい。一応、ソフトウェア上で抵抗誤差の補正をすることも出来るので、半固定抵抗は必須ではない。
330kohmという高いインピーダンスを設定してるのは、分圧によるV/octの低下の影響を小さくするためだ。
オペアンプはノイズ対策。前述の通り、周波数の変更が多いとノイズが発生するリスクが大きくなるので、周波数を安定させる必要があった。
オペアンプによるバッファを設けることで、V/octのノイズは大きく低減することができた。10kohmの抵抗は溜まった電荷を抜くためのもの。
出力回路(DAC)
2-poleのローパスフィルタは高調波ノイズ対策用。カットオフ周波数は16kHz。1-poleと2-poleでは結構違いがある。
非反転増幅回路で3.3Vから5Vへのレベルシフトをしている。正確には5Vでなく4.7Vくらいか。5Vを狙うとクリップする可能性があるので、増幅率に若干の余裕を持たせている。
宣伝:オープンソースプロジェクトの支援をお願いします
DIYモジュラーシンセのオープンソースプロジェクトを継続するために、patreonというサービスでパトロンを募集しています。
コーヒー一杯の支援をいただけると嬉しいです。
また、パトロン限定のコンテンツも配信しています。
ソースコード
前述の通り、SAMD21_Audio_Playerのソースコードを含んでいる。ライセンスについては下のリンク先を参照のこと。
粗末だが公開する。悪い点があれば教えてもらえると勉強になる。
const uint8_t *sampleName;
uint32_t sampleSize = 128;//wavetable sample size
int osc_freq, voct, old_freq,adc,param1, param2;
int f0 = 70;//base osc frequency , You can change it to any value.
int wavetable[8][128];//8kind waves , 128 samples
long timer;
bool old_sw, sw;//Switch functions will be installed in the future.
byte table_number;
float calb = 0.94;//calibration for reduce resistance error
const static float voctpow[1230] = {//Covers 6(=1230) octaves. If it is 1230 or more, the operation becomes unstable.
0, 0.004882, 0.009765, 0.014648, 0.019531, 0.024414, 0.029296, 0.034179, 0.039062, 0.043945, 0.048828, 0.05371, 0.058593, 0.063476, 0.068359, 0.073242, 0.078125, 0.083007, 0.08789, 0.092773, 0.097656, 0.102539, 0.107421, 0.112304, 0.117187, 0.12207, 0.126953, 0.131835, 0.136718, 0.141601, 0.146484, 0.151367, 0.15625, 0.161132, 0.166015, 0.170898, 0.175781, 0.180664, 0.185546, 0.190429, 0.195312, 0.200195, 0.205078, 0.20996, 0.214843, 0.219726, 0.224609, 0.229492, 0.234375, 0.239257, 0.24414, 0.249023, 0.253906, 0.258789, 0.263671, 0.268554, 0.273437, 0.27832, 0.283203, 0.288085, 0.292968, 0.297851, 0.302734, 0.307617, 0.3125, 0.317382, 0.322265, 0.327148, 0.332031, 0.336914, 0.341796, 0.346679, 0.351562, 0.356445, 0.361328, 0.36621, 0.371093, 0.375976, 0.380859, 0.385742, 0.390625, 0.395507, 0.40039, 0.405273, 0.410156, 0.415039, 0.419921, 0.424804, 0.429687, 0.43457, 0.439453, 0.444335, 0.449218, 0.454101, 0.458984, 0.463867, 0.46875, 0.473632, 0.478515, 0.483398, 0.488281, 0.493164, 0.498046, 0.502929, 0.507812, 0.512695, 0.517578, 0.52246, 0.527343, 0.532226, 0.537109, 0.541992, 0.546875, 0.551757, 0.55664, 0.561523, 0.566406, 0.571289, 0.576171, 0.581054, 0.585937, 0.59082, 0.595703, 0.600585, 0.605468, 0.610351, 0.615234, 0.620117, 0.625, 0.629882, 0.634765, 0.639648, 0.644531, 0.649414, 0.654296, 0.659179, 0.664062, 0.668945, 0.673828, 0.67871, 0.683593, 0.688476, 0.693359, 0.698242, 0.703125, 0.708007, 0.71289, 0.717773, 0.722656, 0.727539, 0.732421, 0.737304, 0.742187, 0.74707, 0.751953, 0.756835, 0.761718, 0.766601, 0.771484, 0.776367, 0.78125, 0.786132, 0.791015, 0.795898, 0.800781, 0.805664, 0.810546, 0.815429, 0.820312, 0.825195, 0.830078, 0.83496, 0.839843, 0.844726, 0.849609, 0.854492, 0.859375, 0.864257, 0.86914, 0.874023, 0.878906, 0.883789, 0.888671, 0.893554, 0.898437, 0.90332, 0.908203, 0.913085, 0.917968, 0.922851, 0.927734, 0.932617, 0.9375, 0.942382, 0.947265, 0.952148, 0.957031, 0.961914, 0.966796, 0.971679, 0.976562, 0.981445, 0.986328, 0.99121, 0.996093, 1.000976, 1.005859, 1.010742, 1.015625, 1.020507, 1.02539, 1.030273, 1.035156, 1.040039, 1.044921, 1.049804, 1.054687, 1.05957, 1.064453, 1.069335, 1.074218, 1.079101, 1.083984, 1.088867, 1.09375, 1.098632, 1.103515, 1.108398, 1.113281, 1.118164, 1.123046, 1.127929, 1.132812, 1.137695, 1.142578, 1.14746, 1.152343, 1.157226, 1.162109, 1.166992, 1.171875, 1.176757, 1.18164, 1.186523, 1.191406, 1.196289, 1.201171, 1.206054, 1.210937, 1.21582, 1.220703, 1.225585, 1.230468, 1.235351, 1.240234, 1.245117, 1.25, 1.254882, 1.259765, 1.264648, 1.269531, 1.274414, 1.279296, 1.284179, 1.289062, 1.293945, 1.298828, 1.30371, 1.308593, 1.313476, 1.318359, 1.323242, 1.328125, 1.333007, 1.33789, 1.342773, 1.347656, 1.352539, 1.357421, 1.362304, 1.367187, 1.37207, 1.376953, 1.381835, 1.386718, 1.391601, 1.396484, 1.401367, 1.40625, 1.411132, 1.416015, 1.420898, 1.425781, 1.430664, 1.435546, 1.440429, 1.445312, 1.450195, 1.455078, 1.45996, 1.464843, 1.469726, 1.474609, 1.479492, 1.484375, 1.489257, 1.49414, 1.499023, 1.503906, 1.508789, 1.513671, 1.518554, 1.523437, 1.52832, 1.533203, 1.538085, 1.542968, 1.547851, 1.552734, 1.557617, 1.5625, 1.567382, 1.572265, 1.577148, 1.582031, 1.586914, 1.591796, 1.596679, 1.601562, 1.606445, 1.611328, 1.61621, 1.621093, 1.625976, 1.630859, 1.635742, 1.640625, 1.645507, 1.65039, 1.655273, 1.660156, 1.665039, 1.669921, 1.674804, 1.679687, 1.68457, 1.689453, 1.694335, 1.699218, 1.704101, 1.708984, 1.713867, 1.71875, 1.723632, 1.728515, 1.733398, 1.738281, 1.743164, 1.748046, 1.752929, 1.757812, 1.762695, 1.767578, 1.77246, 1.777343, 1.782226, 1.787109, 1.791992, 1.796875, 1.801757, 1.80664, 1.811523, 1.816406, 1.821289, 1.826171, 1.831054, 1.835937, 1.84082, 1.845703, 1.850585, 1.855468, 1.860351, 1.865234, 1.870117, 1.875, 1.879882, 1.884765, 1.889648, 1.894531, 1.899414, 1.904296, 1.909179, 1.914062, 1.918945, 1.923828, 1.92871, 1.933593, 1.938476, 1.943359, 1.948242, 1.953125, 1.958007, 1.96289, 1.967773, 1.972656, 1.977539, 1.982421, 1.987304, 1.992187, 1.99707, 2.001953, 2.006835, 2.011718, 2.016601, 2.021484, 2.026367, 2.03125, 2.036132, 2.041015, 2.045898, 2.050781, 2.055664, 2.060546, 2.065429, 2.070312, 2.075195, 2.080078, 2.08496, 2.089843, 2.094726, 2.099609, 2.104492, 2.109375, 2.114257, 2.11914, 2.124023, 2.128906, 2.133789, 2.138671, 2.143554, 2.148437, 2.15332, 2.158203, 2.163085, 2.167968, 2.172851, 2.177734, 2.182617, 2.1875, 2.192382, 2.197265, 2.202148, 2.207031, 2.211914, 2.216796, 2.221679, 2.226562, 2.231445, 2.236328, 2.24121, 2.246093, 2.250976, 2.255859, 2.260742, 2.265625, 2.270507, 2.27539, 2.280273, 2.285156, 2.290039, 2.294921, 2.299804, 2.304687, 2.30957, 2.314453, 2.319335, 2.324218, 2.329101, 2.333984, 2.338867, 2.34375, 2.348632, 2.353515, 2.358398, 2.363281, 2.368164, 2.373046, 2.377929, 2.382812, 2.387695, 2.392578, 2.39746, 2.402343, 2.407226, 2.412109, 2.416992, 2.421875, 2.426757, 2.43164, 2.436523, 2.441406, 2.446289, 2.451171, 2.456054, 2.460937, 2.46582, 2.470703, 2.475585, 2.480468, 2.485351, 2.490234, 2.495117, 2.5, 2.504882, 2.509765, 2.514648, 2.519531, 2.524414, 2.529296, 2.534179, 2.539062, 2.543945, 2.548828, 2.55371, 2.558593, 2.563476, 2.568359, 2.573242, 2.578125, 2.583007, 2.58789, 2.592773, 2.597656, 2.602539, 2.607421, 2.612304, 2.617187, 2.62207, 2.626953, 2.631835, 2.636718, 2.641601, 2.646484, 2.651367, 2.65625, 2.661132, 2.666015, 2.670898, 2.675781, 2.680664, 2.685546, 2.690429, 2.695312, 2.700195, 2.705078, 2.70996, 2.714843, 2.719726, 2.724609, 2.729492, 2.734375, 2.739257, 2.74414, 2.749023, 2.753906, 2.758789, 2.763671, 2.768554, 2.773437, 2.77832, 2.783203, 2.788085, 2.792968, 2.797851, 2.802734, 2.807617, 2.8125, 2.817382, 2.822265, 2.827148, 2.832031, 2.836914, 2.841796, 2.846679, 2.851562, 2.856445, 2.861328, 2.86621, 2.871093, 2.875976, 2.880859, 2.885742, 2.890625, 2.895507, 2.90039, 2.905273, 2.910156, 2.915039, 2.919921, 2.924804, 2.929687, 2.93457, 2.939453, 2.944335, 2.949218, 2.954101, 2.958984, 2.963867, 2.96875, 2.973632, 2.978515, 2.983398, 2.988281, 2.993164, 2.998046, 3.002929, 3.007812, 3.012695, 3.017578, 3.02246, 3.027343, 3.032226, 3.037109, 3.041992, 3.046875, 3.051757, 3.05664, 3.061523, 3.066406, 3.071289, 3.076171, 3.081054, 3.085937, 3.09082, 3.095703, 3.100585, 3.105468, 3.110351, 3.115234, 3.120117, 3.125, 3.129882, 3.134765, 3.139648, 3.144531, 3.149414, 3.154296, 3.159179, 3.164062, 3.168945, 3.173828, 3.17871, 3.183593, 3.188476, 3.193359, 3.198242, 3.203125, 3.208007, 3.21289, 3.217773, 3.222656, 3.227539, 3.232421, 3.237304, 3.242187, 3.24707, 3.251953, 3.256835, 3.261718, 3.266601, 3.271484, 3.276367, 3.28125, 3.286132, 3.291015, 3.295898, 3.300781, 3.305664, 3.310546, 3.315429, 3.320312, 3.325195, 3.330078, 3.33496, 3.339843, 3.344726, 3.349609, 3.354492, 3.359375, 3.364257, 3.36914, 3.374023, 3.378906, 3.383789, 3.388671, 3.393554, 3.398437, 3.40332, 3.408203, 3.413085, 3.417968, 3.422851, 3.427734, 3.432617, 3.4375, 3.442382, 3.447265, 3.452148, 3.457031, 3.461914, 3.466796, 3.471679, 3.476562, 3.481445, 3.486328, 3.49121, 3.496093, 3.500976, 3.505859, 3.510742, 3.515625, 3.520507, 3.52539, 3.530273, 3.535156, 3.540039, 3.544921, 3.549804, 3.554687, 3.55957, 3.564453, 3.569335, 3.574218, 3.579101, 3.583984, 3.588867, 3.59375, 3.598632, 3.603515, 3.608398, 3.613281, 3.618164, 3.623046, 3.627929, 3.632812, 3.637695, 3.642578, 3.64746, 3.652343, 3.657226, 3.662109, 3.666992, 3.671875, 3.676757, 3.68164, 3.686523, 3.691406, 3.696289, 3.701171, 3.706054, 3.710937, 3.71582, 3.720703, 3.725585, 3.730468, 3.735351, 3.740234, 3.745117, 3.75, 3.754882, 3.759765, 3.764648, 3.769531, 3.774414, 3.779296, 3.784179, 3.789062, 3.793945, 3.798828, 3.80371, 3.808593, 3.813476, 3.818359, 3.823242, 3.828125, 3.833007, 3.83789, 3.842773, 3.847656, 3.852539, 3.857421, 3.862304, 3.867187, 3.87207, 3.876953, 3.881835, 3.886718, 3.891601, 3.896484, 3.901367, 3.90625, 3.911132, 3.916015, 3.920898, 3.925781, 3.930664, 3.935546, 3.940429, 3.945312, 3.950195, 3.955078, 3.95996, 3.964843, 3.969726, 3.974609, 3.979492, 3.984375, 3.989257, 3.99414, 3.999023, 4.003906, 4.008789, 4.013671, 4.018554, 4.023437, 4.02832, 4.033203, 4.038085, 4.042968, 4.047851, 4.052734, 4.057617, 4.0625, 4.067382, 4.072265, 4.077148, 4.082031, 4.086914, 4.091796, 4.096679, 4.101562, 4.106445, 4.111328, 4.11621, 4.121093, 4.125976, 4.130859, 4.135742, 4.140625, 4.145507, 4.15039, 4.155273, 4.160156, 4.165039, 4.169921, 4.174804, 4.179687, 4.18457, 4.189453, 4.194335, 4.199218, 4.204101, 4.208984, 4.213867, 4.21875, 4.223632, 4.228515, 4.233398, 4.238281, 4.243164, 4.248046, 4.252929, 4.257812, 4.262695, 4.267578, 4.27246, 4.277343, 4.282226, 4.287109, 4.291992, 4.296875, 4.301757, 4.30664, 4.311523, 4.316406, 4.321289, 4.326171, 4.331054, 4.335937, 4.34082, 4.345703, 4.350585, 4.355468, 4.360351, 4.365234, 4.370117, 4.375, 4.379882, 4.384765, 4.389648, 4.394531, 4.399414, 4.404296, 4.409179, 4.414062, 4.418945, 4.423828, 4.42871, 4.433593, 4.438476, 4.443359, 4.448242, 4.453125, 4.458007, 4.46289, 4.467773, 4.472656, 4.477539, 4.482421, 4.487304, 4.492187, 4.49707, 4.501953, 4.506835, 4.511718, 4.516601, 4.521484, 4.526367, 4.53125, 4.536132, 4.541015, 4.545898, 4.550781, 4.555664, 4.560546, 4.565429, 4.570312, 4.575195, 4.580078, 4.58496, 4.589843, 4.594726, 4.599609, 4.604492, 4.609375, 4.614257, 4.61914, 4.624023, 4.628906, 4.633789, 4.638671, 4.643554, 4.648437, 4.65332, 4.658203, 4.663085, 4.667968, 4.672851, 4.677734, 4.682617, 4.6875, 4.692382, 4.697265, 4.702148, 4.707031, 4.711914, 4.716796, 4.721679, 4.726562, 4.731445, 4.736328, 4.74121, 4.746093, 4.750976, 4.755859, 4.760742, 4.765625, 4.770507, 4.77539, 4.780273, 4.785156, 4.790039, 4.794921, 4.799804, 4.804687, 4.80957, 4.814453, 4.819335, 4.824218, 4.829101, 4.833984, 4.838867, 4.84375, 4.848632, 4.853515, 4.858398, 4.863281, 4.868164, 4.873046, 4.877929, 4.882812, 4.887695, 4.892578, 4.89746, 4.902343, 4.907226, 4.912109, 4.916992, 4.921875, 4.926757, 4.93164, 4.936523, 4.941406, 4.946289, 4.951171, 4.956054, 4.960937, 4.96582, 4.970703, 4.975585, 4.980468, 4.985351, 4.990234, 4.995117, 5, 5.004882, 5.009765, 5.014648, 5.019531, 5.024414, 5.029296, 5.034179, 5.039062, 5.043945, 5.048828, 5.05371, 5.058593, 5.063476, 5.068359, 5.073242, 5.078125, 5.083007, 5.08789, 5.092773, 5.097656, 5.102539, 5.107421, 5.112304, 5.117187, 5.12207, 5.126953, 5.131835, 5.136718, 5.141601, 5.146484, 5.151367, 5.15625, 5.161132, 5.166015, 5.170898, 5.175781, 5.180664, 5.185546, 5.190429, 5.195312, 5.200195, 5.205078, 5.20996, 5.214843, 5.219726, 5.224609, 5.229492, 5.234375, 5.239257, 5.24414, 5.249023, 5.253906, 5.258789, 5.263671, 5.268554, 5.273437, 5.27832, 5.283203, 5.288085, 5.292968, 5.297851, 5.302734, 5.307617, 5.3125, 5.317382, 5.322265, 5.327148, 5.332031, 5.336914, 5.341796, 5.346679, 5.351562, 5.356445, 5.361328, 5.36621, 5.371093, 5.375976, 5.380859, 5.385742, 5.390625, 5.395507, 5.40039, 5.405273, 5.410156, 5.415039, 5.419921, 5.424804, 5.429687, 5.43457, 5.439453, 5.444335, 5.449218, 5.454101, 5.458984, 5.463867, 5.46875, 5.473632, 5.478515, 5.483398, 5.488281, 5.493164, 5.498046, 5.502929, 5.507812, 5.512695, 5.517578, 5.52246, 5.527343, 5.532226, 5.537109, 5.541992, 5.546875, 5.551757, 5.55664, 5.561523, 5.566406, 5.571289, 5.576171, 5.581054, 5.585937, 5.59082, 5.595703, 5.600585, 5.605468, 5.610351, 5.615234, 5.620117, 5.625, 5.629882, 5.634765, 5.639648, 5.644531, 5.649414, 5.654296, 5.659179, 5.664062, 5.668945, 5.673828, 5.67871, 5.683593, 5.688476, 5.693359, 5.698242, 5.703125, 5.708007, 5.71289, 5.717773, 5.722656, 5.727539, 5.732421, 5.737304, 5.742187, 5.74707, 5.751953, 5.756835, 5.761718, 5.766601, 5.771484, 5.776367, 5.78125, 5.786132, 5.791015, 5.795898, 5.800781, 5.805664, 5.810546, 5.815429, 5.820312, 5.825195, 5.830078, 5.83496, 5.839843, 5.844726, 5.849609, 5.854492, 5.859375, 5.864257, 5.86914, 5.874023, 5.878906, 5.883789, 5.888671, 5.893554, 5.898437, 5.90332, 5.908203, 5.913085, 5.917968, 5.922851, 5.927734, 5.932617, 5.9375, 5.942382, 5.947265, 5.952148, 5.957031, 5.961914, 5.966796, 5.971679, 5.976562, 5.981445, 5.986328, 5.99121, 5.996093, 6.000976,
};
float freq_table[2048];
void setup() {
analogReadResolution(12);
pinMode(2, INPUT);//freq pot
pinMode(4, INPUT);//param1 fold pot
pinMode(10, INPUT);//param2 wave pot
pinMode(3, INPUT);//param1 fold CV
pinMode(6, INPUT);//param2 wave CV
pinMode(7, INPUT);//freq V/oct
pinMode(9, INPUT_PULLUP);//mode change ;reserve
DACSetup(36000);
timer = millis();
table_set(3);
// V/oct calculation
for (int i = 0; i < 1230; i++) {//Covers 6(=1230) octaves. If it is 1230 or more, the operation becomes unstable.
freq_table[i] = f0 * pow(2, (voctpow[i]));
}
for (int i = 0; i < 2048 - 1230; i++) {
freq_table[i + 1230] = 6;
}
REG_TC4_CTRLA |= TC_CTRLA_ENABLE; // Enable timer TC4
while (TC4->COUNT16.STATUS.bit.SYNCBUSY); // Wait for synchronization
}
void loop() {
if (timer + 5 <= millis()) {
param1 = constrain(analogRead(10) + analogRead(6), 0, 4095);
table_number = param1 / 512;
param2 = constrain(analogRead(4) + analogRead(3), 0, 4095);
//--------------------------freq change-----------------------------
for (int j = 0; j < 5; j++) {
adc += analogRead(2) / 4 + analogRead(7) / 4 * calb;
}
adc = constrain(adc / 5, 0, 1225) ;//Covers 6(=1220) octaves. If it is 1230 or more, the operation becomes unstable.
osc_freq = freq_table[adc ]; // V/oct apply
timer = millis();
if ( abs(old_freq - osc_freq) > 2 ) { //countermeasure of click noise
DAC_frq_change(osc_freq * 70.381);
old_freq = osc_freq;
}
}
}
void table_set(byte table_number) {//make wavetable
for (int i = 0; i < 128; i++) { //saw
wavetable[0][i] = i * 2;
}
for (int i = 0; i < 128; i++) { //sin
wavetable[1][i] = (sin(2 * M_PI * i / 128) + 1) * 127;
}
for (int i = 0; i < 64; i++) { //squ
wavetable[2][i] = 255;
wavetable[2][i + 64] = 0;
}
for (int i = 0; i < 64; i++) { //tri
wavetable[3][i] = i * 4;
wavetable[3][i + 64] = 255 - i * 4;
}
for (int i = 0; i < 64; i++) { //oct saw
wavetable[4][i] = i + i * 2;
wavetable[4][i + 64] = i + 63 + i * 2;
}
for (int i = 0; i < 128; i++) { //FM1
wavetable[5][i] = (sin(2 * M_PI * i / 128 + sin(2 * M_PI * 3 * i / 128)) + 1) * 127;
}
for (int i = 0; i < 128; i++) { //FM2
wavetable[6][i] = (sin(2 * M_PI * i / 128 + sin(2 * M_PI * 7 * i / 128)) + 1) * 127;
}
for (int i = 0; i < 128; i++) { //FM3
wavetable[7][i] = (sin(2 * M_PI * i / 128 + sin(2 * M_PI * 4 * i / 128 + sin(2 * M_PI * 11 * i / 128))) + 1) * 127;
}
}
inline void DACWrite(uint16_t sample) {//internal DAC output
DAC->DATA.reg = sample; // Shortened version
DAC->CTRLA.bit.ENABLE = 0x01; // in analogWrite()
}
void DAC_frq_change(int sampleFreq) {
uint32_t top = 47972352 / (sampleFreq); // Calculate the TOP value
REG_TC4_COUNT16_CC0 = top; // Set the TC4 CC0 register to top
}
void DACSetup(int sampleFreq) {
uint32_t top = 47972352 / (sampleFreq); // Calculate the TOP value
REG_GCLK_GENDIV = GCLK_GENDIV_DIV(1) | // Divide the 48MHz clock source by 1 for 48MHz
GCLK_GENDIV_ID(3); // Select GCLK3
while (GCLK->STATUS.bit.SYNCBUSY); // Wait for synchronization
REG_GCLK_GENCTRL = GCLK_GENCTRL_IDC | // Set the duty cycle to 50/50
GCLK_GENCTRL_GENEN | // Enable GCLK3
GCLK_GENCTRL_SRC_DFLL48M | // Set the 48MHz clock source
GCLK_GENCTRL_ID(3); // Select GCLK3
while (GCLK->STATUS.bit.SYNCBUSY); // Wait for synchronization
REG_GCLK_CLKCTRL = GCLK_CLKCTRL_CLKEN | // Enable clock
GCLK_CLKCTRL_GEN_GCLK3 | // Select GCLK3
GCLK_CLKCTRL_ID_TC4_TC5; // Feed the GCLK3 to TC4 and TC5
while (GCLK->STATUS.bit.SYNCBUSY); // Wait for synchronization
REG_TC4_COUNT16_CC0 = top; // Set the TC4 CC0 register to top
while (TC4->COUNT16.STATUS.bit.SYNCBUSY); // Wait for synchronization
NVIC_SetPriority(TC4_IRQn, 0); // Set the interrupt priority for TC4 to 0 (highest)
NVIC_EnableIRQ(TC4_IRQn); // Connect TC4 to Nested Vector Interrupt Controller
REG_TC4_INTFLAG |= TC_INTFLAG_OVF; // Clear the interrupt flags
REG_TC4_INTENSET = TC_INTENCLR_OVF; // Enable TC4 interrupts
REG_TC4_CTRLA |= TC_CTRLA_PRESCALER_DIV1 | // Set prescaler to 1 for 48MHz
TC_CTRLA_WAVEGEN_MFRQ; // Put the timer TC4 into Match Frequency Mode
while (TC4->COUNT16.STATUS.bit.SYNCBUSY); // Wait for synchronization
}
void TC4_Handler() { // Interrupt Service Routine for timer TC4
static uint16_t currentSample = 0;
static uint8_t sampleInterruptCounter = 0;
static uint32_t sampleNumber = 1;
if (sampleInterruptCounter == 0) { // If this is the first pass for this sample:
currentSample = wavetable[table_number][sampleNumber] * (param2 + 425) / 512 ;//425 is offset magic number
}
currentSample <<= 2; // Go to 10 bits for calculations,
DACWrite(currentSample); // Send the current sample to the DAC
sampleInterruptCounter = 0; // Reset the interrupt counter
sampleNumber++;// Go to the next sample
if (sampleNumber >= sampleSize) { // At the end of the samples array:
sampleNumber = 0 ; // Reset sample number to second sample
}
REG_TC4_INTFLAG = TC_INTFLAG_OVF; // Clear the OVF interrupt flag
}
この記事が気に入ったらサポートをしてみませんか?