ピコサクラ未対応
音源初期化
/* last update 2023 04 15
*/
//------------------------------------------------------------------------------
//_初期設定
//------------------------------------------------------------------------------
Include(gs.h);
//------------------------------------------------------------------------------
TimeSignature=4,4; //拍子記号の設定
Tempo(122); //テンポの設定
System.MeasureShift = 1; //(弄らないこと)
ResetGM; r2 ResetGS; r2 //音源初期化命令
TrackSync; //全てのトラックを同期する
Include(delay.h);Include(Bend.h)
//------------------------------------------------------------------------------
INT SFT=30//解像度
INT TB=SFT*94 //解像度*94 こうしないとシャッフル裏拍ティック計算の時困る
TimeBase = TB
// 四分音符分解能
TrackName = {"[D_elight for the midnight people] "} //曲名
Copyright = {""} //著作権表示
Include(gs.h);
r1
INT KE=0 Key(KE）
INT SF=(8)*SFT //シャッフルによる裏拍の遅延値 ()内を8or16にしてコードチェンジ時の濁りを回避できる
#Break={[8r1]}
Function MIX(Int A=1,INT B=1,INT C=1,INT CC=0,INT D=1,INT E=1,INT F=1,INT G=1,INT H=1,INT I=1){V(A) v(B) @(C,CC) q(D) o(E) l(F) P(G) M(H) FineTune (64+I)}
Mute 14
//*************** MIXER ***************************************************
// V ,v ,@ ,@2 ,q ,o , l ,P ,M ,DET
TR 1 GS_RHYTHM(0) r8 MIX(080,100,035,000 ,099,002,008,094 ,000,0) //bass
TR 2 GS_RHYTHM(0) r8 MIX(120,125,005,000 ,100,005,008,064, 030,0) // e-pianoInclude(delay.h);
TR 3 GS_RHYTHM(0) r8 MIX(120,120,027,000 ,099,005,016,017, 040,0) //guit- poo~n
TR 4 GS_RHYTHM(0) r8 MIX(117,120,005,000 ,099,005,008,108, 000,0) //8bit
TR 5 GS_RHYTHM(0) r8 MIX(107,100,033,000 ,120,005,016,117, 000,0）//cutting
TR 6 GS_RHYTHM(0) r8 MIX(097,100,033,000 ,120,006,016,010, 000,0）//cutting
TR 7 GS_RHYTHM(0) r8 MIX(100,077,102,000 ,229,005,016,127 ,040,-8) //string
TR 8 GS_RHYTHM(0) r8 MIX(100,077,102,000 ,229,005,016,000 ,040,+8) r256.//string
TR 9 GS_RHYTHM(0) r8 MIX(080,100,035,000 ,099,002,008,034 ,000,0) t 20 //BASS L
TR 11GS_RHYTHM(0) r8 MIX(070,127,080,000 ,030,004,004,064, 000,0）//kick
TR 13GS_RHYTHM(0) r8 MIX(110,100,039,000 ,130,005,016,064, 127,0) //teritete....
//TR 14GS_RHYTHM(0) r8 MIX(110,110,034,000 ,099,002,008,064 ,000,0) //BASS
TR 10 CH=10 GS_RHYTHM(1) r8 TrackKey(-KE) BR(48) p%(600) //t__2.onCycle(!8, 0, 8)
V 110 v 100 l16 //音色(PowerSet) // hane t__2.onCycle(!16, 0, SF)
TR 12 CH=12 GS_RHYTHM(1) r8 TrackKey(-KE) BR(48) p%(1000) //t__2.onCycle(!8, 0, 8)
V 77 v 70 l16 t 20 P 0 //音色(PowerSet) // hane t__2.onCycle(!16, 0, SF)
//_リズムマクロの定義
$s{'n40,,,075 n39,,,60 '}//snare スティック音と、カーン♪を付加
//$S{'n40,,,107 n38,,,77 n(65),,,45 '}//snare_strong その強調
$b{'n35,,,50 n32,,,127 '}//bass drum
$h{n44,,,55}//close_hihat
$H{n46,,,55}//open hihat
$c{'n49,,,42 n42'}//Cymbal
$E{n43,}//low-Tom
$W{n47,}//Mid-Tom
$Q{n50,}//High-Toml
//------------------------------------------------------------------------------
TR 10 //t__2.onCycle(!16, 0, SF)
#D={
{chH_ shH_ hhH_ shH_|hhH_ shH_ hhH_ shH_|hhH_ shH_ hhH_ shH_|hhH_ shH_ hhH_ shH_}
b___ b___ b___ b___|b___ b___ b___ b___|b___ b___ b___ b___|b___ b___ b___ b___|
{hhH_ shH_ hhH_ shH_|hhH_ shH_ hhH_ shH_|hhH_ shH_ hhH_ shH_|hhH_ shH_ hhH_ hhH_}
b___ b___ b___ b___|b___ b___ b___ b___|b___ b___ b___ b___|b___ b___ b_b_ b_bb|
}
Rhythm{
//A
{hhH_ shH_ hhH_ shH_|hhH_ shH_ hhH_ shH_|hhH_ shH_ hhH_ shH_|hhH_ shH_ hhH_ shH_}
b___ b___ b___ b___|b___ b___ b___ b___|b___ b___ b___ b___|b___ b___ b___ b___|
{hhH_ shH_ hhH_ shH_|hhH_ shH_ hhH_ shH_|hhH_ shH_ hhH_ shH_|hhH_ shH_ hhH_ shs_}
b___ b___ b___ b___|b___ b___ b___ b___|b___ b___ b___ b___|b___ b___ b_b_ b_b_|
#D #D #Break #D #D #D
}
//------------------------------------------------------------------------------
TR 12 P 0 //t__2.onCycle(!16, 0, SF)
Rhythm{
//A
hhH_ hhH_ hhH_ hhH_|hhH_ hhH_ hhH_ hhH_|hhH_ hhH_ hhH_ hhH_|hhH_ hhH_ hhH_ hhH_
hhH_ hhH_ hhH_ hhH_|hhH_ hhH_ hhH_ hhH_|hhH_ hhH_ hhH_ hhH_|hhH_ hhH_ hhH_ hhH_
[6
chH_ hhH_ hhH_ hhH_|hhH_ hhH_ hhH_ hhH_|hhH_ hhH_ hhH_ hhH_|hhH_ hhH_ hhH_ hhH_
hhH_ hhH_ hhH_ hhH_|hhH_ hhH_ hhH_ hhH_|hhH_ hhH_ hhH_ hhH_|hhH_ hhH_ hhH_ hhH_
]}
//------------------------------------------------------------------------------
TR 1 //bass/////////////////////////////////////////////////////////////////////////////////////////////////
#B={f`crfrfre f`crfrfre|`c`cr`cr`crb `c`cr`cr`cre|f`crfrfre f`crfrfrb|`c`cr`cr`crb `c`cr`cr`cre|}
#B2={f`crrrrre f`crrrrrb|`cgrrrrrb `cgrrrrre|f`crrrrre f`crrrrrb|`cgrrrrrb `cgrrrrre}
#B3={l16 f^`c^ rrf^ rrf^ rrfe |f^`c^ rrf^ rrf^ rrfe |`c^`c^ rr`c^ rr`c^ rr`cb `c^`c^ rr`c^ rr`c^ rrfe| l8}
#BASS={#B #B #B #Break #B2 #B #B}
#BASS
TR 9//bass double
#BASS
TR 2 //uta/////////////////////////////////////////////////////////////////////////////////////////////////
[15
Sub{'f`e'^^ ^^^^^}rrr `c^^^^ | Sub{'f`e'^^ ^^^^^}rrr `c^^^^ |
Sub{'cb'^^ ^^^^^}rrr g^^^^|Sub{'cb'^^ ^^^^^}rrr g^^^^|
]
TR 3 //guit/////////////////////////////////////////////////////////////////////////////////////////////////
rrrrrrrr rrrrrrrr|rrrr rrrr rrrr rrrr|rrrr rrrr rrrr rrrr|rrrr rrrr rrrr rre&f&|
[13 e^^^^^^^ ^^^^^^^^|rrrrrrrr rrrrrr"b&c&|"b^^^^^^^ ^^^^^^^^|rrrr rrrr rrrr rre&f&|
]
TR 4//8bit
rrrr rrrr|rrrr rrrr|rrrr rrrr|rrrr rrrr|
rrrr rrrr|rrrr rrrr|rrrr rrrr|rrrr rrrr|
rrrr rrrr|rrrr rrrr|rrrr rrrr|rrrr rrre|
[12
rrrr rrrr|rrrr rrra|rrrr rrrr |rrrr rrre|
]
TR 5// cutting
[4 r1|r1|r1|r1]
INT X=100 INT Z=10
v.Random=5 q.C(!16,X,X,Z,Z, Z,Z,X,X ,Z,Z,X,X , Z,X,X,Z)
[10
aaaa aaaa raaa aaaa| aaaa aaaa aaaa aaaa |gggg gggg rggg gggg| gggg gggg gggg gggg |
]
TR 6
[4 r1|r1|r1|r1]
v.Random=5 q.C(!16,X,X,Z,Z, Z,Z,X,X ,Z,Z,X,X , Z,X,X,Z)
[10
cccc cccc rccc cccc| cccc cccc cccc cccc <|bbbb bbbb rbbb bbbb| bbbb bbbb bbbb bbbb >
]
TR 7
STR A={}//元ネタ (切り出し回数は5がベスト？)
STR B={}//リフ楽譜
STR C={}//弦楽譜
STR D={}//装飾音楽譜
STR E={}//アルペジオ楽譜
STR G={}//アルペジオにシンコペーションを与える
INT O=0//リフと装飾音のオクターヴ情報
INT L=0//リフと装飾音のL情報
INT N=0//元ネタから切り出した音符のノート番号。アルペジオと弦に使用。
INT F=0//元ネタから切り出した音符に与える+オクターヴ情報（1または2オクターヴ上、或いは変わらず）
//------------------------------------------------------------------------------
[5 A=MID({cegcegcg},Random(1,8),1) N=NoteNo(A) L=RandomSelect(8,2,8,1,4,4,8,8) O=RandomSelect(5,6,7)
F=RandomSelect(0,12,24) G=MID({ ^^},Random(1,4),1)
//------------------------------------------------------------------------------
B=B+A+#STR(L)+{,,,,}+#STR(O) //リフの楽譜を作成
D=D+A+{-}+#STR(L)+{,,,,}+#STR(O)} //装飾音の楽譜を作成
C=C+{n(}+(N+F)+{)} //弦の楽譜を作成
E=E+{n(}+(N+12)+{)}+G //アルペジオの楽譜を作成
]
//------------------------------------------------------------------------------
INT DL1=48 // (DL1)ティック分のDELAY
INT DLV1=20 //残響1の音量減値
INT DL2=96 // (DL2)ティック分のDELAY
INT DLV2=50 //残響2の音量減値
l1+1. //弦
r1r1r1r1 r1r1r1r1
[4C;]; PRINT {"Wave : "}+(C)
TR 8
r1r1r1r1r1 r1r1r1r1
l1+1. //弦
[4C;];
//Kick------------------------------------------------------------------------------
TR 11
BR(48) p%.W(-1000,-8192,!16) STR K={Sub{g}`g}
//INTRO
l4
K K K K |K K K K |K K K K |K K K K
K K K K |K K K K |K K K K |K K l8 K K K K l4
[6
K K K K |K K K K |K K K K |K K K K
K K K K |K K K K |K K K K |K K l8 K K K l16 K K l4
]
//TERITETE...... ------------------------------------------------------------------
TR 13 P.WR(0,127,!32)
#T={
MidiDelay({fec"g},8,!4)r2.r1
MidiDelay({c"b"g"e},8,!4)r2.r1
}
#T2={
MidiDelay({fec"g},8,!4)r2.MidiDelay({fec"g},8,!4)r2.
MidiDelay({c"b"g"e},8,!4)r2.MidiDelay({c"b"g"e},8,!4)r2.
}
#Break
#T [4r1]
#Break
#T [4r1]
[4r1] #T
#Break
#T #T2