「DPC-100」の編集履歴(バックアップ)一覧はこちら
「DPC-100」(2013/03/09 (土) 11:53:16) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
<p><a href="http://www.facebook.com/detunedpc100">http://www.facebook.com/detunedpc100</a> ←DPC-100のfacebookページ</p>
<p> DPC-100向けのサウンドプログラムを置いて行く。<br />
(実行するには、このソースをコピーし、DPC-100で「PPASTE」コマンドを打つ、RUNする)</p>
<p><a href="#waon_theremin">和音テルミン</a></p>
<p><a href="#waon_theremin2">和音テルミンV2(Duty比変化バージョン)</a></p>
<p> </p>
<hr /><p><a name="waon_theremin"></a>和音テルミン (オリジナル:<span style="background-color:rgb(255,255,255);color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:13px;line-height:18px;">Taturou
Morishitaさん、改変:和音化tatmos)</span></p>
<hr /><p><span style="font-size:smaller;"><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
SET VERSION=1.2</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
SET LABEL=1</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
SET FORNEXT=0</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
100 INT N</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
110 INT T</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
120 INT C</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
130 WHILE 1</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
140 N=(2.0-ACCEL(1))*10+50</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
150 T=CLAMP(TOUCH(-1,0),0,1)</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
160 IF T==1 THEN C=229 ELSE C=232</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
170 PRINTF("%c %d",C,N)</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
180 SCHSTATE(0,T)</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
190 SCHNOTE(0,N)</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
200 SCHSTATE(1,T)</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
210 SCHNOTE(1,N+4)</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
220 SCHSTATE(2,T)</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
230 SCHNOTE(2,N+7)</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
240 WEND</span></span></p>
<hr /><p><a name="waon_theremin2"></a>和音テルミンV2
タップする毎にduty比率変化 (オリジナル:<span style="background-color:rgb(255,255,255);color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:13px;line-height:18px;">Taturou
Morishitaさん、改変:和音化tatmos)</span></p>
<hr /><p><b id="internal-source-marker_0.560848159249872" style="font-weight:normal;"><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
SET VERSION=1.2</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
SET LABEL=1</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
SET FORNEXT=0</span><br /><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
100 INT N //Note</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
110 INT T //Touch</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
120 INT C //Chara</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
130 INT D //Duty</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
140 INT TS //TouchState</span><br /><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
150 @LOOP</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
160 N=(2.0-ACCEL(1))*10+50</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
170 T=CLAMP(TOUCH(-1,0),0,1)</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
180 IF T==1 THEN GOTO T_DN ELSE GOTO T_UP</span><br /><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
190 @SOUND</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
250 PRINTF("%c %d Duty:%d",C,N,D)</span><br /><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
260 FOR I=0 TO 2 STEP 1</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
270 SCHSTATE(I,T)</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
280 SCHDUTY(I,D+1)</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
300 NEXT</span><br /><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
310 SCHNOTE(0,N)</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
320 SCHNOTE(1,N+4)</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
330 SCHNOTE(2,N+7)</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
340 GOTO LOOP</span><br /><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
500 @T_DN</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
510 C=229</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
520 TS = 1</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
590 GOTO SOUND</span><br /><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
600 @T_UP</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
610 C=232</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
620 IF TS == 1 THEN GOTO COUNTUP</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
690 GOTO SOUND</span><br /><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
700 @COUNTUP</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
710 //TS = 0</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
720 D=((D+1)%8)</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
790 GOTO SOUND</span><br /></b></p>
<hr /><p> </p>
<p><a href="http://www.facebook.com/detunedpc100">http://www.facebook.com/detunedpc100</a> ←DPC-100のfacebookページ</p>
<p> <span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:13px;line-height:18px;background-color:rgb(255,255,255);">DPC-100で和音テルミン: </span><a href="http://t.co/RKvYDksXoS" target="_blank" style="color:rgb(59,89,152);text-decoration:none;font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:13px;line-height:18px;background-color:rgb(255,255,255);">http://t.co/RKvYDksXoS</a><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:13px;line-height:18px;background-color:rgb(255,255,255);"> @youtubeさんから</span> </p>
<p> DPC-100向けのサウンドプログラムを置いて行く。<br />
(実行するには、このソースをコピーし、DPC-100で「PPASTE」コマンドを打つ、RUNする)</p>
<p><a href="#waon_theremin">和音テルミン</a></p>
<p><a href="#waon_theremin2">和音テルミンV2(Duty比変化バージョン)</a></p>
<p> </p>
<hr /><p><a name="waon_theremin"></a>和音テルミン (オリジナル:<span style="background-color:rgb(255,255,255);color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:13px;line-height:18px;">Taturou
Morishitaさん、改変:和音化tatmos)</span></p>
<hr /><p><span style="font-size:smaller;"><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
SET VERSION=1.2</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
SET LABEL=1</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
SET FORNEXT=0</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
100 INT N</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
110 INT T</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
120 INT C</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
130 WHILE 1</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
140 N=(2.0-ACCEL(1))*10+50</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
150 T=CLAMP(TOUCH(-1,0),0,1)</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
160 IF T==1 THEN C=229 ELSE C=232</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
170 PRINTF("%c %d",C,N)</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
180 SCHSTATE(0,T)</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
190 SCHNOTE(0,N)</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
200 SCHSTATE(1,T)</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
210 SCHNOTE(1,N+4)</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
220 SCHSTATE(2,T)</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
230 SCHNOTE(2,N+7)</span><br style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:11px;line-height:14px;background-color:rgb(237,239,244);" /><span style="color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;line-height:14px;">
240 WEND</span></span></p>
<hr /><p><a name="waon_theremin2"></a>和音テルミンV2
タップする毎にduty比率変化 (オリジナル:<span style="background-color:rgb(255,255,255);color:rgb(51,51,51);font-family:'lucida grande', tahoma, verdana, arial, 'hiragino kaku gothic pro', meiryo, 'ms pgothic', sans-serif;font-size:13px;line-height:18px;">Taturou
Morishitaさん、改変:和音化tatmos)</span></p>
<hr /><p><b id="internal-source-marker_0.560848159249872" style="font-weight:normal;"><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
SET VERSION=1.2</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
SET LABEL=1</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
SET FORNEXT=0</span><br /><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
100 INT N //Note</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
110 INT T //Touch</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
120 INT C //Chara</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
130 INT D //Duty</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
140 INT TS //TouchState</span><br /><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
150 @LOOP</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
160 N=(2.0-ACCEL(1))*10+50</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
170 T=CLAMP(TOUCH(-1,0),0,1)</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
180 IF T==1 THEN GOTO T_DN ELSE GOTO T_UP</span><br /><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
190 @SOUND</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
250 PRINTF("%c %d Duty:%d",C,N,D)</span><br /><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
260 FOR I=0 TO 2 STEP 1</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
270 SCHSTATE(I,T)</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
280 SCHDUTY(I,D+1)</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
300 NEXT</span><br /><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
310 SCHNOTE(0,N)</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
320 SCHNOTE(1,N+4)</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
330 SCHNOTE(2,N+7)</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
340 GOTO LOOP</span><br /><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
500 @T_DN</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
510 C=229</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
520 TS = 1</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
590 GOTO SOUND</span><br /><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
600 @T_UP</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
610 C=232</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
620 IF TS == 1 THEN GOTO COUNTUP</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
690 GOTO SOUND</span><br /><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
700 @COUNTUP</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
710 //TS = 0</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
720 D=((D+1)%8)</span><br /><span style="font-size:11px;font-family:Verdana;color:rgb(51,51,51);background-color:rgb(237,239,244);vertical-align:baseline;">
790 GOTO SOUND</span><br /></b></p>
<hr /><p> </p>