huangbaiさま、長々とありがとうございました。
TrackKeyを4半音下げましたら、解決しました。
改変し、組み込んでいるため、「著作権記述なしでいいと思います」との事でしたが、
GSScaleTuningから配列の変更までhuangbaiさまにご教授頂きましたので、
念のためhuangbaiさまのお名前を書いておきます。
(私は、MITライセンスを理解出来ていないかも知れません…)
以下、他の方のために上手く行った例を書き残しておきます。
Include(gs.h);
//------------------------------------------------------------------------------
TrackName={"Evfer"}; //タイトル
Copyright={"作曲:三宅元貴"}; //著作権表示
MetaText = {"2005年9月20日作曲、トルコ古典音楽のウスールUsul:Evfer"} //説明・コメントなど
TimeSignature=9,8; //拍子記号の設定
ResetGM; r2 ResetGS; r2 //音源初期化命令
//GSScaleTuningを使って音律を設定する
//(GS音源が必要)
//12平均律の12の音、
//ド、ド♯、レ、レ♯、ミ、ファ、ファ♯、ソ、ソ♯、ラ、ラ♯、シ
//=
//C,Cp,D,Dp,E,F,Fp,G,Gp,A,Ap,B
//の事。
//各音に+-するセントcent値
//+64セント、-64セントまで
//(+64セントでGSScaleTuningの値が127を超える場合エラーになる?
//今回は
//C+0,Cp+36,D+4,Dp+40,E-37,F-2,Fb-34,G+2,Gp+38,A+6,Ap-4,B-35
//huangbaiさまによる移調プログラムを組み込んでいます。
//
//Copyright (c) 2021 huangbai
//Released under the MIT license
//
https://opensource.org/licenses/mit-license.php
Array Arr = (0,36,4,40,-37,-2,-34,2,38,6,-4,-35)// 変則チューニング
Array Brr= ()
Int k= -4 // ここでキー選択//-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)
//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));
//------
Time=(!1)//ここで、1小節送る
TrackSync; //全てのトラックを同期する
System.MeasureShift = 1; //(弄らないこと)
Tempo(106); //テンポの設定
//-------------------------------------------------
トラック1
音色(Dulcimer)
ゲート99
音量110
TrackKey(-4)
音量曖昧さ20
ソソソソ8ソソソソソ8ソ
ソラ♭ソファ8ミファソファミ8レ♭
ミファミレ♭8ド↓シ♭↑ドミレ♭8ド
↓シ♭↑ドレ♭ミ8ファソファミファ8ラ♭
ソファミシ♭8ラ♭ソファミレ♭8ド
↓シ♭↑ドミレ♭8ドドドドド8ド
↓シ♭↑ドレ♭ミ8ファソファミファ8ラ♭
ソファミシ♭8ラ♭ソファミレ♭8ド
↓シ♭↑ドミレ♭8ドドドドド8ド
トラック2
音色(Violin)
ゲート99
音量52
TrackKey(12-4)
音量曖昧さ0
ビブラート
音量52
ソソソソ8ソソソソシ♭16ラ♭16ソ
ソラ♭ソ連符{ファソファ}8ミファソファ連符{ミファミ}8レ♭
ミファミ連符{レ♭ミレ♭}8ド↓シ♭↑ドミ連符{レ♭ミレ♭}8ド
↓シ♭↑ドレ♭ミ8ファソファミファ16ソ16ラ♭
ソファ連符{ミファソ}シ♭8ラ♭ソファミ連符{レ♭ミレ♭}8ド
↓シ♭↑ドミ連符{レ♭ミレ♭}8ドドドドド8ド16↓シ♭16ラ16↑ド16
↓シ♭↑ド連符{レ♭ドレ♭}連符{ミレ♭ミ}8ファソファ連符{ミレ♭ミ}ファ16ソ16ラ♭
ソファ連符{ミファソ}連符{シ♭↑ド↓シ♭}8ラ♭ソファ連符{ミファミ}連符{レ♭ミレ♭}8ド
↓シ♭↑ドミ連符{レ♭ミレ♭}8ドドドドド8ド16レ♭16ミ16ファ16