「DPC-100」の編集履歴(バックアップ)一覧はこちら
DPC-100 - (2013/03/09 (土) 10:12:43) の1つ前との変更点
追加された行は緑色になります。
削除された行は赤色になります。
<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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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><span style="font-size:smaller;"><b id="internal-source-marker_0.7907138951122761" style="color:rgb(51,51,51);font-family:Verdana;font-size:11px;font-weight:normal;"><span style="background-color:rgb(237,239,244);vertical-align:baseline;">
SET VERSION=1.2</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">SET
LABEL=1</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">SET
FORNEXT=0</span><br /><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">100
INT N //Note</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">110
INT T //Touch</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">120
INT C //Chara</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">130
INT D //Duty</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">140
INT TS //TouchState</span><br /><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">150
@LOOP</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">160
N=(2.0-ACCEL(1))*10+50</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">170
T=CLAMP(TOUCH(-1,0),0,1)</span><br /><span style="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="background-color:rgb(237,239,244);vertical-align:baseline;">190
@SOUND</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">250
PRINTF("%c %d Duty:%d",C,N,D)</span><br /><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">260
FOR I=0 TO 2 STEP 1</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">270
SCHSTATE(I,T)</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">280
SCHDUTY(I,D+1)</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">300
NEXT</span><br /><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">310
SCHNOTE(0,N)</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">320
SCHNOTE(1,N+4)</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">330
SCHNOTE(2,N+7)</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">340
GOTO LOOP</span><br /><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">500
@T_DN</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">510
C=229</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">520 TS
= 1</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">590
GOTO SOUND</span><br /><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">600
@T_UP</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">610
C=232</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">620 IF
TS == 1 THEN GOTO COUNTUP</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">690
GOTO SOUND</span><br /><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">700
@COUNTUP</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">710
//TS = 0</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">720
D=((D+1)%8)</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">790
GOTO SOUND</span><br /></b></span></p>
<hr /><p> </p>
<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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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;background-color:rgb(237,239,244);">
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><span style="font-size:smaller;"><b id="internal-source-marker_0.7907138951122761" style="color:rgb(51,51,51);font-family:Verdana;font-size:11px;font-weight:normal;"><span style="background-color:rgb(237,239,244);vertical-align:baseline;">
SET VERSION=1.2</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">SET
LABEL=1</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">SET
FORNEXT=0</span><br /><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">100
INT N //Note</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">110
INT T //Touch</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">120
INT C //Chara</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">130
INT D //Duty</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">140
INT TS //TouchState</span><br /><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">150
@LOOP</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">160
N=(2.0-ACCEL(1))*10+50</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">170
T=CLAMP(TOUCH(-1,0),0,1)</span><br /><span style="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="background-color:rgb(237,239,244);vertical-align:baseline;">190
@SOUND</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">250
PRINTF("%c %d Duty:%d",C,N,D)</span><br /><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">260
FOR I=0 TO 2 STEP 1</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">270
SCHSTATE(I,T)</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">280
SCHDUTY(I,D+1)</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">300
NEXT</span><br /><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">310
SCHNOTE(0,N) // waon </span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">320
SCHNOTE(1,N+4)</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">330
SCHNOTE(2,N+7)</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">340
GOTO LOOP</span><br /><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">500
@T_DN</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">510
C=229</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">520 TS
= 1</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">590
GOTO SOUND</span><br /><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">600
@T_UP</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">610
C=232</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">620 IF
TS == 1 THEN GOTO COUNTUP</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">690
GOTO SOUND</span><br /><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">700
@COUNTUP</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">710
//TS = 0</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">720
D=((D+1)%8)</span><br /><span style="background-color:rgb(237,239,244);vertical-align:baseline;">790
GOTO SOUND</span><br /></b></span></p>
<hr /><p> </p>