Int SKR = 1 //1指定時はピコサクラ用、1でない場合はテキスト音楽サクラ用です。 If(SKR==1){ System.Include(stdmsg.h); System.MeasureShift(1); ResetGM(); TimeSignature = 3,4; TrackSync; TrackName={"メロディ風鈴3拍子改"}; Copyright={"森と泉"}; System.TimeBase=48; Str Am={[3 'acea']};Str C7={[3 'cega+']};Str Cm={[3 'cd+gc']};Str Cx7={[3 'c+fg+bc+']}; Str Dm={[3 'dfad']};Str D7={[3 'df+ac']};Str Dxm={[3 'd+f+a+d+']};Str Dx7={[3 'd+ga+c+']}; Str Em={[3 'egbe']};Str E7={[3 'eg+bd']};Str Fm={[3 'fg+cf']};Str F7={[3 'facd+']}; Str Gm={[3 'ga+dg']};Str G7={[3 'gbdf']};Str B={[3 'bd+f+b']};Str Gx7={[3 'g+cd+f+']}; Str C={[3 'cegc']};Str Dm7={[3 'dfac']};Str F={[3 'facf']};Str Caug={[3 'ceg+c']}; Str Gx={[3 'g+cd+g+']};Str Gaug={[3 'gbd+g']};Str A7={[3 'ac+eg']};Str Cdim={[3 'cd+f+a']}; Str Ax7={[3 'a+dfg+']};Str Cxdim={[3 'c+ega+']};Str B7={[3 'bd+f+a']};Str Gdim={[3 'ga+c+e']}; Str Ax1={a+};Str A1={a};Str B1={b};Str C1={c};Str Cx1={c+};Str D1={d}; Str Dx1={d+};Str E1={e};Str F1={f};Str G1={g};Str Gx1={g+}; Tempo=120 TR=1 CH=1 @(MusicBox) V(120) P(64) o5 r2. l8 v100 TrackKey=6 P.onNoteWave(32,96,!4) v.N(120,100,100,100,100,100) e^^^c^|a^ao6v87co5v107ao6v87c|o5v107g^dgg^|g^g^g^ g^^d+o4v127b^|o5v107g^^^ce|f^f^f^|e^^g^e a^d+^f+d+|g+^o6v87do5v107g+^g+|g^g^o6v87c+c+|c^o5v107f+^^^ b^^^d^|g^o6v87c^^e|a^a^a^|a+^^^g^ a^af^o5v107a|o6v87d^f^fd|co5v107g^eee|g+^^^g+^ g^b^b^|o6v87e^e^^e|o5v107b^^^o4v127b^|o5v107ec+^^^^ o4v127d^^a^^|ao5v107d+a^o6v87d+^|a+^d^^^|ee^e^^ d^f^a^|b^o5v107b^^^|o6v87c^^e^^|b^^^^^ g^g^^^|gd+^^o5v107d+d+|a^^o6v87co5v107f+^|f^g^f^ ece^cc|o4v127a^^^^^|o5v107g^o6v87c^^e|e^^^^^ o5v107cc^^o4v127e^|f^c^fa|b^f^^^|c^^^^e e^^^^c+|dc^^f+d|d^b^g^|g^gg^g g+^^o5v107g+^b|b^^^o6v87d^|o5v107g^o6v87c+^g^|f+d^ddc o5v107afdcco4v127a|g^^^o5v107do4v127b|o5v107e^e^^^|d+o4v127a+f+^a+f+ d^^ddf|b^^^^o5v107d+|f^^o4v127a+g+^|g^o5v107c^^^ o4v127g^o5v107ee^^|e^a+^o6v87c+o5v107a+|fg^^^^|o6v87e^^^^^ TR=2 CH=2 @(DrawbarOrgan) q100 V(70) P(32) o5 r2. l2. v100 v90 TrackKey=6 C1 D1 G1 C1 G1 C1 F1 C1 B1 Ax1 A1 D1 G1 C1 A1 Cx1 D1 G1 C1 Gx1 G1 C1 E1 A1 D1 B1 Ax1 A1 D1 G1 C1 E1 A1 C1 D1 G1 C1 F1 C1 C1 C1 F1 G1 C1 A1 D1 G1 C1 E1 E1 A1 D1 D1 G1 C1 Dx1 D1 B1 Ax1 C1 C1 G1 G1 C1 TR=3 CH=3 @(SteelcGuitar) q33 V(70) P(96) o5 r2. l4 v80 v.N(80,80,80,80,60,60,60,60,60,60,60,60) TrackKey=6 C D7 G7 C Gaug C F7 C B7 Ax7 A7 D7 G7 C Am Cxdim Dm7 G7 C Gx G7 C E7 A7 Dm B7 Ax7 A7 Dm G7 C E7 A7 Cm D7 G7 C F7 C C Caug F G7 C A7 D7 G7 C E7 E7 A7 D7 Dm7 G7 C Dxm Dm B7 Ax7 C C Gdim G7 C} ELSE{ //ここからテキスト音楽サクラ用です。 //毎回、MMLを下側タブに出力します。 Int CX=8; //1小節に8分音符を Int CC=6; //6回使うのが基本形 Array WW=(0,70,40,70,40,60) //1小節内の各音符がタイ(^)に変わる確率(%) //数字を変えてみて下さい。 Int AA;Int A9; //音番号、旧の音番号（o5cはn60です） Int N;Int N9; Int NX; //コード、旧のコード、次コード Int BB; //1小節内何番目の音 Int DD; //何小節目 Int DDD; Int EE; //c,c+,d,d+,e,f…を0,1,2,3,4,5…で表した数字 Int E9; 　//上記の旧の値 Int GG; //前後の音の高さの差をチェックする回数 Int GG1=100; //上記回数の最大値。これを超えてしまったらそのまま鳴らす。 Int Z=6; //前後の音の高さの差を半音6個以内に制限。 Int OO; //オクターブ Int OO9=5; //旧オクターブ Str PP; //音符またはオクターブ付き音符 Str P9; //前回の音符またはオクターブ付き音符 Array AR=({c},{c+},{d},{d+},{e},{f},{f+},{g},{g+},{a},{a+},{b}) Array VE=(,,,,{o4v127},{o5v107},{o6v87}) //オクターブとベロシティ Str MD; //MelodyMML Str MC; //伴奏MML Str MB; //伴奏MML Str BR2=" "; //改行 Str MML2; //MML MML2={"System.Include(stdmsg.h); System.MeasureShift(1); ResetGM(); TimeSignature = 3,4; TrackSync; TrackName={"メロディ風鈴3拍子"}; Copyright={"森と泉"}; System.TimeBase=48;"}+BR2; MML2=MML2+"Str Am={[3 'acea']};Str C7={[3 'cega+']};Str Cm={[3 'cd+gc']};Str Cx7={[3 'c+fg+bc+']}; Str Dm={[3 'dfad']};Str D7={[3 'df+ac']};Str Dxm={[3 'd+f+a+d+']};Str Dx7={[3 'd+ga+c+']}; Str Em={[3 'egbe']};Str E7={[3 'eg+bd']};Str Fm={[3 'fg+cf']};Str F7={[3 'facd+']}; Str Gm={[3 'ga+dg']};Str G7={[3 'gbdf']};Str B={[3 'bd+f+b']};Str Gx7={[3 'g+cd+f+']}; Str C={[3 'cegc']};Str Dm7={[3 'dfac']};Str F={[3 'facf']};Str Caug={[3 'ceg+c']}; Str Gx={[3 'g+cd+g+']};Str Gaug={[3 'gbd+g']};Str A7={[3 'ac+eg']};Str Cdim={[3 'cd+f+a']}; Str Ax7={[3 'a+dfg+']};Str Cxdim={[3 'c+ega+']};Str B7={[3 'bd+f+a']};Str Gdim={[3 'ga+c+e']}; Str Ax1={a+};Str A1={a};Str B1={b};Str C1={c};Str Cx1={c+};Str D1={d}; Str Dx1={d+};Str E1={e};Str F1={f};Str G1={g};Str Gx1={g+};"+BR2; N9=1;A9=60;MD={};MC={};MB={}; FOR(DD=0; DD<100; DD++){ //100小節以内演奏する IF(DD==0){N=5}ELSE{N=NX} //1小節目はC、2小節以降は次コード(NX)から始める IF(DD>60 & N==5 & N9==24){WW=(0,100,100,100,100,100)} //最終小節は付点2分とする SWITCH(N){ CASE(0){MB=MB+" Ax1" MC=MC+" Ax7" FOR(BB=0; BB60 & N==5 & N9==24){DD++;EXIT;} //60小節以上でG7→Cとなったら終了 IF((DD+1)/4*4==DD+1){MD=MD+BR2;}ELSE{MD=MD+"|";} N9=N;} DDD=DD+2 MML2=MML2+"Tempo=120"+BR2 MML2=MML2+"TR=1 CH=1 @(MusicBox) V(120) P(64) o5 r2. l8 v100 TrackKey=6 P.onNoteWave(32,96,!4) v.N(120,100,100,100,100,100)" MML2=MML2+BR2+MD+BR2 MML2=MML2+"TR=2 CH=2 @(DrawbarOrgan) q100 V(70) P(32) o5 r2. l2. v100 v90 TrackKey=6 "+BR2 MML2=MML2+MB+BR2 MML2=MML2+"TR=3 CH=3 @(SteelcGuitar) q33 V(70) P(96) o5 r2. l4 v80 v.N(80,80,80,80,60,60,60,60,60,60,60,60) TrackKey=6 "+BR2 MML2=MML2+MC; MML2; Print(MML2);}