Int SKR=1; //1はピコサクラ対応サンプル曲 //2はピコサクラ非対応「メロディ風鈴3拍子」 //↑ //2は実行の都度、違う曲を演奏し、下側タブにMMLを生成します。 //2の改造方法 //楽器・テンポ・音量を変えてみる //小節内タイ・小節間タイを変えてみる //CASE内の次コード候補（NX=RandomSelect(3,6,9,11)等）を変えてみる 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 @11 V(120) P(64) o5 r2. l8 v100 TrackKey=6 P.onNoteWave(32,96,!4) v.N(120,100,100,100,100,100) o4v120g^e^c^| e^^ec^| d+^^^d+^| &d+^^^^^ d+d+g+f+cc| f^^^b^| eecceg| &g^^^a^ &a^g^g^| &g^ o5v110d^d^| &d o4v120b o5v110d o4v120b o5v110dd| &d^e^ o6v100c^ o5v110a^e^ o4v120a^| &a^^^^^| &a^^bf^| &f^ o5v110e^c^ &c^ o4v120d+^ o5v110c+^| cfa o6v100ddf| &f^^^d^| &d^e^c^ g^^a+a+^| a^a^a^| &a^a^a^| g^f^f^ g^g^e^| d+^d+^a+^| &a+^^^^^| &a+^ o5v110d^ o4v120b^ o5v110c^g^g^| g+^g+^g+^| o6v100c^ o5v110e^ o4v120g^| f^f^f^ g^^gd^| &d^e^c^| f^a+^ o5v110d^| a^^^a^ f^^^ o6v100d^| &d^d+^b^| aaaafa| e o5v110b o6v100egee &e^a^a^| &a^ o5v110a^a^| &a^^^^^| &a^^^ o6v100e^ &e^^^^^| &e^^^^^| &e^^^g^| d+^^f+d+^ &d+^b^g^| g^^ee^| g^^^^^| f^^d+a^ &a^^^c^| &c^^^e^| e^^^^^| &e^^ea^ &a^^^e^| ccfafd| &d^f^b^| &b^^cc^ d+^g^d+^| o5v110a o6v100c o5v110a o6v100ddd| &d^^^g^| &g^^^^^ TR=2 CH=2 @17 q100 V(70) P(32) o5 r2. l2. v100 v90 TrackKey=6 C1 C1 B1 C1 Gx1 G1 C1 A1 Cx1 D1 G1 C1 A1 Gx1 G1 C1 Dx1 D1 G1 C1 G1 A1 D1 G1 C1 Dx1 D1 G1 C1 F1 C1 F1 G1 C1 Ax1 A1 D1 B1 D1 E1 A1 D1 Cx1 C1 Gx1 G1 C1 Gx1 G1 C1 C1 F1 C1 E1 C1 A1 Cx1 D1 G1 C1 Dx1 D1 G1 C1 TR=3 CH=3 @26 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 C B C Gx G7 C Am Cxdim Dm7 G7 C Am Gx G7 C Dx7 Dm7 G7 C Gm A7 D7 G7 C Dx7 Dm7 G7 C Fm C Fm G7 C Ax7 A7 Dm B7 Dm Em Am Dm Cx7 C Gx G7 C Gx G7 C C F7 C Em Caug Am Cxdim Dm7 G7 C Dx7 Dm7 G7 C//64Codes } ELSE{ 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; //旧オクターブ Int SL=0; //小節間タイ Int RA; Str RW; Str PP; //音符またはオクターブ付き音符 Str P9; //前回の音符またはオクターブ付き音符 Array AR=({c},{c+},{d},{d+},{e},{f},{f+},{g},{g+},{a},{a+},{b}) Array VE=(,,,,{ o4v120},{ o5v110},{ o6v100}) //オクターブとベロシティ 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)から始める Int CC=6; //1小節に8分音符を6回使うのが基本形 Int CX=8; IF(Random(100)<50 & DD!=0){MD=MD+"&";SL=1}ELSE{SL=0} //小節間タイ率50％ Array WW=({ 00000},{ 10101},{ 11001},{ 11111},{ 11101})//1小節内のタイの付け方 //aaaaaa a^a^a^ a^^aa^ a^^^^^ a^^^a^ //WW(0) WW(1) WW(2) WW(3) WW(4) RA=RandomSelect(0,1,1,2,3,4); IF(DD>60 & N==5 & N9==24){RA=3;} //最終小節は付点2分とする RW=WW(RA); SWITCH(N){ CASE(0){MB=MB+" Ax1" MC=MC+" Ax7" FOR(BB=0; BB60 & N==5 & N9==24){DD++;EXIT;} //60小節以上でG7→Cとなったら終了 //MD=MD+"| "; //IF(DD/4*4==DD&DD!=0){MD=MD+BR2;} 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 @11 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 @17 q100 V(70) P(32) o5 r2. l2. v100 v90 TrackKey=6 "+BR2 MML2=MML2+MB+BR2 MML2=MML2+"TR=3 CH=3 @26 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; MML2=MML2+"/"+"/"+DD+"Codes"; Print(MML2); }