http://www.facebook.com/detunedpc100 ←DPC-100のfacebookページ
DPC-100で和音テルミン: http://t.co/RKvYDksXoS @youtubeさんから
DPC-100向けのサウンドプログラムを置いて行く。
(実行するには、このソースをコピーし、DPC-100で「PPASTE」コマンドを打つ、RUNする）
和音テルミン （オリジナル：Taturou Morishitaさん、改変：和音化tatmos）
SET VERSION=1.2
SET LABEL=1
SET FORNEXT=0
100 INT N
110 INT T
120 INT C
130 WHILE 1
140 N=(2.0-ACCEL(1))*10+50
150 T=CLAMP(TOUCH(-1,0),0,1)
160 IF T==1 THEN C=229 ELSE C=232
170 PRINTF("%c %d",C,N)
180 SCHSTATE(0,T)
190 SCHNOTE(0,N)
200 SCHSTATE(1,T)
210 SCHNOTE(1,N+4)
220 SCHSTATE(2,T)
230 SCHNOTE(2,N+7)
240 WEND
和音テルミンV2 タップする毎にduty比率変化 （オリジナル：Taturou Morishitaさん、改変：和音化tatmos）
SET VERSION=1.2
SET LABEL=1
SET FORNEXT=0
100 INT N //Note
110 INT T //Touch
120 INT C //Chara
130 INT D //Duty
140 INT TS //TouchState
150 @LOOP
160 N=(2.0-ACCEL(1))*10+50
170 T=CLAMP(TOUCH(-1,0),0,1)
180 IF T==1 THEN GOTO T_DN ELSE GOTO T_UP
190 @SOUND
250 PRINTF("%c %d Duty:%d",C,N,D)
260 FOR I=0 TO 2 STEP 1
270 SCHSTATE(I,T)
280 SCHDUTY(I,D+1)
300 NEXT
310 SCHNOTE(0,N)
320 SCHNOTE(1,N+4)
330 SCHNOTE(2,N+7)
340 GOTO LOOP
500 @T_DN
510 C=229
520 TS = 1
590 GOTO SOUND
600 @T_UP
610 C=232
620 IF TS == 1 THEN GOTO COUNTUP
690 GOTO SOUND
700 @COUNTUP
710 //TS = 0
720 D=((D+1)%8)
790 GOTO SOUND
