だいぶ遅くなりましたが、これなら多分問題はないと思います、。
一応プログラムそのもののため、[MITライセンス]を適用します。
以下プログラムの著作権はhuangbaiとし、
ライセンスによる免責などを理解したうえでご使用を願います。、
// sample ------
Array Arr= (0,1,2,3, 4,5,6,7, 8,9,10,11) // 変則チューニング
Array Brr= ()
Int k= -4 // ここでキー選択
Int j= 0
k= -k
If(k<0){
k= 12+ k%12
}
While(j<12){
Brr= (Brr,64+ Arr((k+j)%12))
j++;
} //
Print(Brr)
Include(gs.h);
ResetGS;r4
//64に対して加減算
GSScaleTuning( Brr(0),Brr(1),Brr(2),Brr(3),Brr(4),Brr(5),
Brr(6),Brr(7),Brr(8),Brr(9),Brr(10),Brr(11));
//------