「なでしこ」でフォトmusic その9
今日は昨日までのプログラムをさらにV-UPして、MMLを生成させるパラメータを実行時に指定できるようにしてみた。パラメータ項目を簡単に説明する。
色コードがTR(1)、赤(R)がTR(2)、緑(G)がTR(3)、青(B)がTR(4)のように対応する。
◇音素画像
音に変換する素材になる画像を指定する。
入力欄をダブルクリックするとファイル選択画面が出る。
◇楽器_?
色コードおよびRGBに対応する楽器名をGMの音色名で指定する。
入力欄をダブルクリックするといくつかの名前を選択すことができる。
楽器の名前を指定しない（NULL）と、当該トラックは生成されない。
色コードやRGBの好きなものに楽器を割り当て、ソロから４重奏までが可能。
◇音階_?
色コードおよびRGBに対応する音階を「/」で区切ってMML形式で指定する。
音階の数はいくつあっても良い。この中からランダムに音が選ばれる。
区切りの中に音列（複数の音）を指定することもできる。
◇楽器_?_パラメータ
楽器毎のパンやボリュームなどをMML形式で指定する。
◇音符種類
音符の種類（n部音符）を「,」で区切って指定。
2,2,2,4 と指定すれば、2部音符と4部音符が3:1の割合でランダムに作成される。
◇演奏速度
テンポ（Tempo=）を指定する。
//フォトmusic_9
母艦="絵音"
入力項目=「音素画像=?f(写真|*.jpg|全て|*.*)
楽器_C=?(Koto|Shamisen|Shakuhachi|Marimba|GrandPiano|Flute|Violin)Koto
楽器_R=?(Koto|Shamisen|Shakuhachi|Marimba|GrandPiano|Flute|Violin)Koto
楽器_G=?(Koto|Shamisen|Shakuhachi|Marimba|GrandPiano|Flute|Violin)Koto
楽器_B=?(Koto|Shamisen|Shakuhachi|Marimba|GrandPiano|Flute|Violin)Koto
音階_C=レ/"ソ/"ラ/シ♭/レ/ミ♭/ソ/ラ/シ♭/`レ/`ミ♭/`ソ/`ラ
音階_R=レ/"ソ/"ラ/シ♭/レ/ミ♭/ソ/ラ/シ♭/`レ/`ミ♭/`ソ/`ラ
音階_G=レ/"ソ/"ラ/シ♭/レ/ミ♭/ソ/ラ/シ♭/`レ/`ミ♭/`ソ/`ラ
音階_B=レ/"ソ/"ラ/シ♭/レ/ミ♭/ソ/ラ/シ♭/`レ/`ミ♭/`ソ/`ラ
楽器_C_パラメータ=v.Random(60) REV(80) V(100) P(64) o5
楽器_R_パラメータ=v.Random(60) REV(80) V(100) P(64) o5
楽器_G_パラメータ=v.Random(60) REV(80) V(100) P(64) o5
楽器_B_パラメータ=v.Random(60) REV(80) V(100) P(64) o5
音符種類=2,4,8
演奏速度=96
」
入力内容=項目記入(入力項目)
楽器[1]=入力内容@楽器_C
楽器[2]=入力内容@楽器_R
楽器[3]=入力内容@楽器_G
楽器[4]=入力内容@楽器_B
音階[1]=区切(入力内容@音階_C "/")
音階[2]=区切(入力内容@音階_R "/")
音階[3]=区切(入力内容@音階_G "/")
音階[4]=区切(入力内容@音階_B "/")
ＰＭ[1]=入力内容@楽器_C_パラメータ
ＰＭ[2]=入力内容@楽器_R_パラメータ
ＰＭ[3]=入力内容@楽器_G_パラメータ
ＰＭ[4]=入力内容@楽器_B_パラメータ
Xsize=20; Ysize=10
画像WKとはイメージ; FN=入力内容@音素画像; 画像WKの画像=FN
画像リサイズ(画像WK,Xsize,Ysize)
表示（"{ファイル名抽出(FN)} を 横={Xsize} 縦={Ysize} に変換しました"）
RGBリスト="連番,X座標,Y座標,色コード,R,G,B,音(C),音(R),音(G),音(B)"
N=0;Y=0
Ysize 回
X=0
Xsize 回
N=N+1
C=画像色取得(画像WK,X,Y); RGB分解(C,R,G,B)
RGBリスト[N,0]=N
RGBリスト[N,1]=X
RGBリスト[N,2]=Y
RGBリスト[N,3]=C
RGBリスト[N,4]=R
RGBリスト[N,5]=G
RGBリスト[N,6]=B
X=X+1
ここまで
Y=Y+1
ここまで
画像高速リサイズ(画像WK,Xsize*10,Ysize*10)
楽譜[0]="Tempo={入力内容@演奏速度}"
4 回
もし(楽器[回数]!="")ならば
楽譜[回数]="TR({回数}) 音色({楽器[回数]}) {ＰＭ[回数]} "
ここまで
ここまで
P=0
Xsize*Ysize 回
T=1
4 回
もし（楽器[回数]!=""）ならば
音程=(RGBリスト[P,T+2]%配列要素数(音階[T]))
音長=RandomSelect(入力内容@音符種類)
音符=音階[T,音程]&音長
楽譜[回数]=楽譜[回数]&音符; RGBリスト[P+1,T+6]=音符
ここまで
T=T+1
ここまで
P=P+1
ここまで
RGB表示とはグリッド; そのW=520; RGB表示のアイテム=RGBリスト
表示(楽譜[0])
4 回
もし（楽器[回数]!=""）ならば
表示(LEFT(楽譜[回数],72)&"････")
ここまで
ここまで
PX=230;PY=20;PS=80
鍵盤表示アプリ="C:\Program Files\TMIDI Player\TMIDI.EXE"
楽譜表示アプリ="C:\Program Files\PrintMusic 2006J Demo\PrintMusic.exe"
演奏開始ボタンとはボタン;そのX=PX+PS*0;そのY=PY
演奏開始ボタンをクリックした時は
MML演奏(楽譜)
鍵盤表示ボタンとはボタン;そのX=PX+PS*1;そのY=PY
鍵盤表示ボタンをクリックした時は
MML変換(楽譜,"temp.mid")
起動("{鍵盤表示アプリ} temp.mid");ファイル完全削除("temp.mid")
楽譜表示ボタンとはボタン;そのX=PX+PS*2;そのY=PY
楽譜表示ボタンをクリックした時は
MML変換(楽譜,"temp.mid")
起動("{楽譜表示アプリ} temp.mid");ファイル完全削除("temp.mid")
MIDI保存ボタンとはボタン;そのX=PX+PS*3;そのY=PY
MIDI保存ボタンをクリックした時は
MML変換(楽譜,保存ファイル選択("*.mid"))
終了ボタンとはボタン;そのX=PX+PS*4;そのY=PY
終了ボタンをクリックした時は
終了
●RandomSelect(N)
A=区切(N,",");R=配列要素数(A);戻る(A[乱数(R)])
●RGB分解(C,{参照渡し}R,{参照渡し}G,{参照渡し}B)
R=INT(C/(256*256))
G=INT((C-R*256*256)/256)
B=C-R*256*256-G*256
//ここまで
0 Comments:
コメントを投稿
<< Home