DPC-100

http://www.facebook.com/detunedpc100 ←DPC-100のfacebookページ

 DPC-100で和音テルミン: http://t.co/RKvYDksXoS @youtubeさんから 

 DPC-100向けのサウンドプログラムを置いて行く。
(実行するには、このソースをコピーし、DPC-100で「PPASTE」コマンドを打つ、RUNする)

和音テルミン

和音テルミンV2(Duty比変化バージョン)

 


和音テルミン (オリジナル: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