iPhoneのポケコンアプリDPC-100で音を鳴らしてみた

便利な用途がさっぱり思いつかないもののとりあえず触っているだけでワクワクするiPhone/iPad用のポケコンアプリDPC-100ですが、バージョンアップしてサウンド機能が搭載されたということなので鳴らしてみました。
　

　
ソースはこんな感じ。SCHDUTYでパルス幅をゆっくり変化させながら鳴らしています。
　

100 INT D(64)
110 N=0
120 W=1
130 V=1
140 GOSUB PART1
150 GOSUB PART1
160 GOSUB PART2
170 GOSUB PART2
180 GOSUB PART3
190 GOSUB PART3
200 GOSUB PART4
210 GOSUB PART4
220 SCHVOLUME(0,15)
230 @LOOP
240 FOR I=0 TO 64 STEP 1
250   IF I%2!=0 GOTO SKIP
260     W=W+V
270     IF W==1 THEN V=1
280     IF W==8 THEN V=-1
290     SCHDUTY(0,W)
300   @SKIP
310   SCHNOTE(0,D(I))
320   SCHSTATE(0,1)
330   WAIT(0.2,1)
340 NEXT
350 SCHSTATE(0,0)
360 GOTO LOOP
370 @PART1
380 D(N+0)=55
390 D(N+1)=62
400 D(N+2)=71
410 D(N+3)=69
420 D(N+4)=71
430 D(N+5)=62
440 D(N+6)=71
450 D(N+7)=62
460 N=N+8
470 RETURN
480 @PART2
490 D(N+0)=55
500 D(N+1)=64
510 D(N+2)=72
520 D(N+3)=71
530 D(N+4)=72
540 D(N+5)=64
550 D(N+6)=72
560 D(N+7)=64
570 N=N+8
580 RETURN
590 @PART3
600 D(N+0)=55
610 D(N+1)=66
620 D(N+2)=72
630 D(N+3)=71
640 D(N+4)=72
650 D(N+5)=66
660 D(N+6)=72
670 D(N+7)=66
680 N=N+8
690 RETURN
700 @PART4
710 D(N+0)=55
720 D(N+1)=67
730 D(N+2)=71
740 D(N+3)=69
750 D(N+4)=71
760 D(N+5)=67
770 D(N+6)=71
780 D(N+7)=67
790 N=N+8
800 RETURN

　
メモ：
・3チャンネルあるので3和音だせるっぽい
・SCHSTATEコマンドでノートオン／オフ
・音長はWAITで調整する
・当然MMLみたいな便利な機能はなし
・波形は矩形波のみ。DUTY比を1〜8まで変えられる
・音程はMIDIノートナンバーと同じなのでわかりやすい