「サクラ」質問掲示板

デバッグウィンドウがメモリリークしていたのやら・・・


// DTMらしくないように和音を演奏させる

Function BGAP(Str MML) {
　　Str BUF=""
    Str FIRST=""
　　Str ML=""
　　Str M
　　Str R
    Str FM
    Int C=0

　　BUF=""
    R=""
　　For(Int i=1; MID(MML, i, 1)!=""; i++) {
　　　　M=MID(MML, i, 1)
//        Print("Count "+ C + " Str="+M)
　　　　IF(M="a"||M="b"||M="c"||M="d"||M="e"||M="f"||M="g") {
　　　　C++
　　  　　IF(C<3) {
　　　　　　FIRST=ML
　　　　　　ML=FM+M
　　　　　　FM=""
　　　　} ELSE {
　　　　　　　　R=R+"r"+Random(192,384)
　　　　　　　　　　BUF=BUF+"Sub" + CHR(123)+R+ML+CHR(125)
　　　　　　　　ML=M
　　　　}
　　　　} ELSE {
　　　　IF(C>0) {
　　　　　　　　ML=ML+M
　　　　} ELSE {
　　　　　　FM=FM+M
　　　　}
　　　　}
　　}
　　BUF=BUF+"Sub"+CHR(123)+R+ML+CHR(125)+FIRST
//    Print(BUF)
　　BUF
}