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.2SET LABEL=1SET FORNEXT=0100 INT N110 INT T120 INT C130 WHILE 1140 N=(2.0-ACCEL(1))*10+50150 T=CLAMP(TOUCH(-1,0),0,1)160 IF T==1 THEN C=229 ELSE C=232170 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.2SET LABEL=1SET FORNEXT=0100 INT N //Note110 INT T //Touch120 INT C //Chara130 INT D //Duty140 INT TS //TouchState150 @LOOP160 N=(2.0-ACCEL(1))*10+50170 T=CLAMP(TOUCH(-1,0),0,1)180 IF T==1 THEN GOTO T_DN ELSE GOTO T_UP190 @SOUND250 PRINTF("%c %d Duty:%d",C,N,D)260 FOR I=0 TO 2 STEP 1270 SCHSTATE(I,T)280 SCHDUTY(I,D+1)300 NEXT310 SCHNOTE(0,N)320 SCHNOTE(1,N+4)330 SCHNOTE(2,N+7)340 GOTO LOOP500 @T_DN510 C=229520 TS = 1590 GOTO SOUND600 @T_UP610 C=232620 IF TS == 1 THEN GOTO COUNTUP690 GOTO SOUND700 @COUNTUP710 //TS = 0720 D=((D+1)%8)790 GOTO SOUND
このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー と 利用規約 が適用されます。
1文字以上入力してください
本文は少なくとも1文字以上必要です。
1文字以上入力してください。