//------------------------------------------------------------------------------ Include(gs.h); //------------------------------------------------------------------------------ TrackName={"Dict Play!"}; //タイトル Copyright={"AMIO"}; //著作権表示 System.MeasureShift = 1; //(弄らないこと) ResetGM; r2 ResetGS; r2 //音源初期化命令 TrackSync; //全てのトラックを同期する //------------------------------------------------------------------------------ /* サクラの音階 a,b,c,d,e,f,g と休符 r だけでできる英単語を MMLとして演奏するというエクスペリメンタル。 奇跡的に素晴らしいメロディーが生まれるかも? 下の変数をいじることでリズムパターンを変更できます。 MMLがわかる方は是非リズムパターンを追加して遊んでみてください…… */ Int RhythmMode = 0; // リズムパターンを変更できます。(0-3) // -------------------------- おまけオプション --------------------------------- Int RandomFlg = 1; // 1 : ランダム演奏(RepLenで設定した回数だけ繰り返します) // 0 : 全ての単語を順番に演奏(注:長いです) Int RepLen = 16; // 繰返し回数(RandomFlg = 0 のときは意味がありません) //------------------------------------------------------------------------------ // ---- ここから下 MML ---- // ------------------------------- Dictionary ---------------------------------- Str Phrase0 = {Lyric = {"ABACA 【名】マニラ麻。"}; Sub{abaca}}; Str Phrase1 = {Lyric = {"ABFARAD 【名】絶対ファラド。"}; Sub{abfarad}}; Str Phrase2 = {Lyric = {"ABRADE 【動】すりむく。"}; Sub{abrade}}; Str Phrase3 = {Lyric = {"ACCEDE 【動】同意する。"}; Sub{accede}}; Str Phrase4 = {Lyric = {"ACE 【名】エース。"}; Sub{ace}}; Str Phrase5 = {Lyric = {"ACRE 【名】エーカー。"}; Sub{acre}}; Str Phrase6 = {Lyric = {"ACREAGE 【名】エーカー数。"}; Sub{acreage}}; Str Phrase7 = {Lyric = {"ADAGE 【名】金言。"}; Sub{adage}}; Str Phrase8 = {Lyric = {"ADD 【動】加える。"}; Sub{add}}; Str Phrase9 = {Lyric = {"ADDER 【名】加算器。"}; Sub{adder}}; Str Phrase10 = {Lyric = {"ADFREE 【形】無広告の。"}; Sub{adfree}}; Str Phrase11 = {Lyric = {"AGAR 【名】寒天。"}; Sub{agar}}; Str Phrase12 = {Lyric = {"AGE 【名】時代。"}; Sub{age}}; Str Phrase13 = {Lyric = {"AGGRADE 【動】埋積する。"}; Sub{aggrade}}; Str Phrase14 = {Lyric = {"AGREE 【動】同意する。"}; Sub{agree}}; Str Phrase15 = {Lyric = {"ARC 【名】弧。"}; Sub{arc}}; Str Phrase16 = {Lyric = {"ARCADE 【名】アーケード。"}; Sub{arcade}}; Str Phrase17 = {Lyric = {"ARE 【動】~である。"}; Sub{are}}; Str Phrase18 = {Lyric = {"AREA 【名】面積。"}; Sub{area}}; Str Phrase19 = {Lyric = {"ARREAR 【名】延滞金。"}; Sub{arrear}}; Str Phrase20 = {Lyric = {"BABE 【名】赤ん坊。"}; Sub{babe}}; Str Phrase21 = {Lyric = {"BACCA 【名】液果。"}; Sub{bacca}}; Str Phrase22 = {Lyric = {"BAD 【形】悪い。"}; Sub{bad}}; Str Phrase23 = {Lyric = {"BADE 【動】bidの過去形。"}; Sub{bade}}; Str Phrase24 = {Lyric = {"BADAGA 【名】バガダ族が使う方言。"}; Sub{badaga}}; Str Phrase25 = {Lyric = {"BADDER 【形】すごい。"}; Sub{badder}}; Str Phrase26 = {Lyric = {"BADGE 【名】バッジ。"}; Sub{badge}}; Str Phrase27 = {Lyric = {"BAG 【名】カバン。"}; Sub{bag}}; Str Phrase28 = {Lyric = {"BAGDAD 【固名】バグダッド。"}; Sub{bagdad}}; Str Phrase29 = {Lyric = {"BAGGAGE 【名】荷物。"}; Sub{baggage}}; Str Phrase30 = {Lyric = {"BAGGED 【形】酔っ払った。"}; Sub{bagged}}; Str Phrase31 = {Lyric = {"BAGGER 【名】袋詰め機。"}; Sub{bagger}}; Str Phrase32 = {Lyric = {"BAR 【名】バー。"}; Sub{bar}}; Str Phrase33 = {Lyric = {"BARB 【名】(矢じりや釣り針の)かかり。"}; Sub{barb}}; Str Phrase34 = {Lyric = {"BARBED 【形】とげのある。"}; Sub{barbed}}; Str Phrase35 = {Lyric = {"BARBAREA 【名】ヤマガラシ属。"}; Sub{barbarea}}; Str Phrase36 = {Lyric = {"BARBER 【名】理髪店。"}; Sub{barber}}; Str Phrase37 = {Lyric = {"BARD 【名】吟遊詩人。"}; Sub{bard}}; Str Phrase38 = {Lyric = {"BARE 【形】裸の。"}; Sub{bare}}; Str Phrase39 = {Lyric = {"BARF 【動】吐く。"}; Sub{barf}}; Str Phrase40 = {Lyric = {"BARFBAG 【名】エチケット袋。"}; Sub{barfbag}}; Str Phrase41 = {Lyric = {"BARGE 【名】平底の荷船。"}; Sub{barge}}; Str Phrase42 = {Lyric = {"BARGEE 【名】はしけを操縦する人。"}; Sub{bargee}}; Str Phrase43 = {Lyric = {"BARRAGE 【名】弾幕。"}; Sub{barrage}}; Str Phrase44 = {Lyric = {"BARRED 【形】縞のある。"}; Sub{barred}}; Str Phrase45 = {Lyric = {"BEAD 【名】ビーズ。"}; Sub{bead}}; Str Phrase46 = {Lyric = {"BEADER 【名】縁曲げ器。"}; Sub{beader}}; Str Phrase47 = {Lyric = {"BEAR 【名】クマ。"}; Sub{bear}}; Str Phrase48 = {Lyric = {"BEARD 【名】あごひげ。"}; Sub{beard}}; Str Phrase49 = {Lyric = {"BEARER 【名】運搬人。"}; Sub{bearer}}; Str Phrase50 = {Lyric = {"BED 【名】ベッド。"}; Sub{bed}}; Str Phrase51 = {Lyric = {"BEDDER 【名】花壇に植えるのに適した植物。"}; Sub{bedder}}; Str Phrase52 = {Lyric = {"BEEF 【名】牛肉。"}; Sub{beef}}; Str Phrase53 = {Lyric = {"BEEFER 【名】肉牛。"}; Sub{beefer}}; Str Phrase54 = {Lyric = {"BEER 【名】ビール。"}; Sub{beer}}; Str Phrase55 = {Lyric = {"BEG 【動】請い求める。"}; Sub{beg}}; Str Phrase56 = {Lyric = {"BEGAD 【間】ちぇっ。"}; Sub{begad}}; Str Phrase57 = {Lyric = {"BEGGAR 【名】こじき。"}; Sub{beggar}}; Str Phrase58 = {Lyric = {"BRAD 【名】無頭くぎ。"}; Sub{brad}}; Str Phrase59 = {Lyric = {"BRACE 【動】支える。"}; Sub{brace}}; Str Phrase60 = {Lyric = {"BRADE 【名】ブレード。"}; Sub{brade}}; Str Phrase61 = {Lyric = {"BRAG 【動】自慢する。"}; Sub{brag}}; Str Phrase62 = {Lyric = {"BRAGGER 【名】自慢する人。"}; Sub{bragger}}; Str Phrase63 = {Lyric = {"BREAD 【名】パン。"}; Sub{bread}}; Str Phrase64 = {Lyric = {"BREED 【動】子孫をつくる。"}; Sub{breed}}; Str Phrase65 = {Lyric = {"CAB 【名】タクシー。"}; Sub{cab}}; Str Phrase66 = {Lyric = {"CABER 【名】丸太棒。"}; Sub{caber}}; Str Phrase67 = {Lyric = {"CABBAGE 【名】キャベツ。"}; Sub{cabbage}}; Str Phrase68 = {Lyric = {"CADGE 【動】こじきをする。"}; Sub{cadge}}; Str Phrase69 = {Lyric = {"CADRE 【名】幹部。"}; Sub{cadre}}; Str Phrase70 = {Lyric = {"CAFARD 【名】憂鬱。"}; Sub{cafard}}; Str Phrase71 = {Lyric = {"CAFE 【名】カフェ。"}; Sub{cafe}}; Str Phrase72 = {Lyric = {"CAFF 【名】カフェ。"}; Sub{caff}}; Str Phrase73 = {Lyric = {"CAGE 【名】鳥かご。"}; Sub{cage}}; Str Phrase74 = {Lyric = {"CAR 【名】車。"}; Sub{car}}; Str Phrase75 = {Lyric = {"CARACARA 【名】カラカラ(南米および中米に生息する鳥)。"}; Sub{caracara}}; Str Phrase76 = {Lyric = {"CARAFE 【名】水差し。"}; Sub{carafe}}; Str Phrase77 = {Lyric = {"CARD 【名】カード。"}; Sub{card}}; Str Phrase78 = {Lyric = {"CARDER 【名】すく人。"}; Sub{carder}}; Str Phrase79 = {Lyric = {"CARE 【名】心配。"}; Sub{care}}; Str Phrase80 = {Lyric = {"CAREER 【名】経歴。"}; Sub{career}}; Str Phrase81 = {Lyric = {"CAREFREE 【形】心配のない。"}; Sub{carefree}}; Str Phrase82 = {Lyric = {"CARFARE 【名】電車賃。"}; Sub{carfare}}; Str Phrase83 = {Lyric = {"CARFREE 【形】カーフリーの。"}; Sub{carfree}}; Str Phrase84 = {Lyric = {"CEDAR 【名】ヒマラヤスギ。"}; Sub{cedar}}; Str Phrase85 = {Lyric = {"CRAB 【名】カニ。"}; Sub{crab}}; Str Phrase86 = {Lyric = {"CRABBED 【形】気難しい。"}; Sub{crabbed}}; Str Phrase87 = {Lyric = {"CRAG 【名】ごつごつの岩。"}; Sub{crag}}; Str Phrase88 = {Lyric = {"CRAGGED 【形】峨々たる。"}; Sub{cragged}}; Str Phrase89 = {Lyric = {"CRED 【名】信用性。"}; Sub{cred}}; Str Phrase90 = {Lyric = {"CREED 【名】信経。"}; Sub{creed}}; Str Phrase91 = {Lyric = {"DAB 【動】……を軽くたたく。"}; Sub{dab}}; Str Phrase92 = {Lyric = {"DAD 【名】パパ。"}; Sub{dad}}; Str Phrase93 = {Lyric = {"DADA 【名】ダダイズム。"}; Sub{dada}}; Str Phrase94 = {Lyric = {"DAG 【名】木の葉模様の縁取り。"}; Sub{dag}}; Str Phrase95 = {Lyric = {"DAGGER 【名】短剣。"}; Sub{dagger}}; Str Phrase96 = {Lyric = {"DARAF 【名】ダラフ(エラスタンスの単位)。"}; Sub{daraf}}; Str Phrase97 = {Lyric = {"DARB 【形】素晴らしい。"}; Sub{darb}}; Str Phrase98 = {Lyric = {"DARE 【副】あえて……する。"}; Sub{dare}}; Str Phrase99 = {Lyric = {"DEAD 【形】死んでいる。"}; Sub{dead}}; Str Phrase100 = {Lyric = {"DEAR 【形】親愛なる。"}; Sub{dear}}; Str Phrase101 = {Lyric = {"DEBAR 【動】(法的に)禁ずる。"}; Sub{debar}}; Str Phrase102 = {Lyric = {"DECADE 【名】10年。"}; Sub{decade}}; Str Phrase103 = {Lyric = {"DECAF 【形】カフェイン抜きの。"}; Sub{decaf}}; Str Phrase104 = {Lyric = {"DECARE 【名】デカール(=1000平方メートル)。"}; Sub{decare}}; Str Phrase105 = {Lyric = {"DECREE 【名】法令。"}; Sub{decree}}; Str Phrase106 = {Lyric = {"DEED 【名】行為。"}; Sub{deed}}; Str Phrase107 = {Lyric = {"DEER 【名】シカ。"}; Sub{deer}}; Str Phrase108 = {Lyric = {"DEFACE 【動】外観を損なう。"}; Sub{deface}}; Str Phrase109 = {Lyric = {"DEFER 【動】延期する。"}; Sub{defer}}; Str Phrase110 = {Lyric = {"DEFRAG 【名】デフラグ。"}; Sub{defrag}}; Str Phrase111 = {Lyric = {"DEGAGE【形】くつろいだ。"}; Sub{degage}}; Str Phrase112 = {Lyric = {"DEGRADE【動】品位を落とす。"}; Sub{degrade}}; Str Phrase113 = {Lyric = {"DEGREE【名】程度。"}; Sub{degree}}; Str Phrase114 = {Lyric = {"DRAB 【形】とび色の。"}; Sub{drab}}; Str Phrase115 = {Lyric = {"DRAFF 【名】搾りかす。"}; Sub{draff}}; Str Phrase116 = {Lyric = {"DRAG 【動】引く。"}; Sub{drag}}; Str Phrase117 = {Lyric = {"DRAGEE 【名】糖衣丸。"}; Sub{dragee}}; Str Phrase118 = {Lyric = {"DRAGGER 【名】引っ張る人。"}; Sub{dragger}}; Str Phrase119 = {Lyric = {"DREAD 【動】怖がる。"}; Sub{dread}}; Str Phrase120 = {Lyric = {"DREAR 【形】わびしい。"}; Sub{drear}}; Str Phrase121 = {Lyric = {"EAGER 【形】熱望して。"}; Sub{eager}}; Str Phrase122 = {Lyric = {"EAR 【名】耳。"}; Sub{ear}}; Str Phrase123 = {Lyric = {"EDGE 【名】刃。"}; Sub{edge}}; Str Phrase124 = {Lyric = {"EFFACE 【動】削除する。"}; Sub{efface}}; Str Phrase125 = {Lyric = {"EGG 【名】卵。"}; Sub{egg}}; Str Phrase126 = {Lyric = {"ERA 【名】時代。"}; Sub{era}}; Str Phrase127 = {Lyric = {"FACADE 【名】(建物の)正面。"}; Sub{facade}}; Str Phrase128 = {Lyric = {"FACE 【名】顔。"}; Sub{face}}; Str Phrase129 = {Lyric = {"FADE 【動】衰える。"}; Sub{fade}}; Str Phrase130 = {Lyric = {"FAG 【動】疲れさせる。"}; Sub{fag}}; Str Phrase131 = {Lyric = {"FAR 【形】遠い。"}; Sub{far}}; Str Phrase132 = {Lyric = {"FARAD 【名】ファラド(静電容量の単位)。"}; Sub{farad}}; Str Phrase133 = {Lyric = {"FARCE 【名】笑劇。"}; Sub{farce}}; Str Phrase134 = {Lyric = {"FARE 【名】料金。"}; Sub{fare}}; Str Phrase135 = {Lyric = {"FEAR 【名】恐怖。"}; Sub{fear}}; Str Phrase136 = {Lyric = {"FEE 【名】報酬金。"}; Sub{fee}}; Str Phrase137 = {Lyric = {"FEED 【動】食物を与える。"}; Sub{feed}}; Str Phrase138 = {Lyric = {"FEEDBAG 【名】かいば袋。"}; Sub{feedbag}}; Str Phrase139 = {Lyric = {"FEEDER 【名】飼育者。"}; Sub{feeder}}; Str Phrase140 = {Lyric = {"FREE 【形】自由な。"}; Sub{free}}; Str Phrase141 = {Lyric = {"FREEBEE 【名】無料で提供されるもの。"}; Sub{freebee}}; Str Phrase142 = {Lyric = {"GAD 【動】遊び歩く。"}; Sub{gad}}; Str Phrase143 = {Lyric = {"GADDER 【名】穿孔台車。"}; Sub{gadder}}; Str Phrase144 = {Lyric = {"GAFF 【名】ギャフ。"}; Sub{gaff}}; Str Phrase145 = {Lyric = {"GAFFE 【名】失言。"}; Sub{gaffe}}; Str Phrase146 = {Lyric = {"GAG 【名】ギャグ。"}; Sub{gag}}; Str Phrase147 = {Lyric = {"GAGE 【名】ゲージ。"}; Sub{gage}}; Str Phrase148 = {Lyric = {"GAGGER 【名】釣金具。"}; Sub{gagger}}; Str Phrase149 = {Lyric = {"GARAGE 【名】ガレージ。"}; Sub{garage}}; Str Phrase150 = {Lyric = {"GARB 【名】服装。"}; Sub{garb}}; Str Phrase151 = {Lyric = {"GARBAGE 【名】ごみ。"}; Sub{garbage}}; Str Phrase152 = {Lyric = {"GEAR 【名】ギア。"}; Sub{gear}}; Str Phrase153 = {Lyric = {"GEE 【間】まあ。"}; Sub{gee}}; Str Phrase154 = {Lyric = {"GRAB 【動】掴む。"}; Sub{grab}}; Str Phrase155 = {Lyric = {"GRABBER 【名】グラバー。"}; Sub{grabber}}; Str Phrase156 = {Lyric = {"GRACE 【名】気品。"}; Sub{grace}}; Str Phrase157 = {Lyric = {"GRADE 【名】階級。"}; Sub{grade}}; Str Phrase158 = {Lyric = {"GRAFFER 【名】代書人。"}; Sub{graffer}}; Str Phrase159 = {Lyric = {"GREECE 【固名】ギリシャ。"}; Sub{greece}}; Str Phrase160 = {Lyric = {"GREED 【名】欲張り。"}; Sub{greed}}; Str Phrase161 = {Lyric = {"RAB 【名】漆喰。"}; Sub{rab}}; Str Phrase162 = {Lyric = {"RACE 【名】レース。"}; Sub{race}}; Str Phrase163 = {Lyric = {"RACECAR 【名】レース用の自動車。"}; Sub{racecar}}; Str Phrase164 = {Lyric = {"RADAR 【名】レーダー。"}; Sub{radar}}; Str Phrase165 = {Lyric = {"RAG 【名】ぼろぎれ。"}; Sub{rag}}; Str Phrase166 = {Lyric = {"RAGE 【名】激怒。"}; Sub{rage}}; Str Phrase167 = {Lyric = {"RARE 【形】まれな。"}; Sub{rare}}; Str Phrase168 = {Lyric = {"READ 【動】読む。"}; Sub{read}}; Str Phrase169 = {Lyric = {"READER 【名】読者。"}; Sub{reader}}; Str Phrase170 = {Lyric = {"REAR 【名】後ろ。"}; Sub{rear}}; Str Phrase171 = {Lyric = {"REBAR 【名】鉄筋。"}; Sub{rebar}}; Str Phrase172 = {Lyric = {"RECEDE 【動】退く。"}; Sub{recede}}; Str Phrase173 = {Lyric = {"RED 【形】赤い。"}; Sub{red}}; Str Phrase174 = {Lyric = {"REDFACED 【形】赤ら顔の。"}; Sub{redfaced}}; Str Phrase175 = {Lyric = {"REED 【名】リード。"}; Sub{reed}}; Str Phrase176 = {Lyric = {"REEF 【名】礁。"}; Sub{reef}}; Str Phrase177 = {Lyric = {"REEFER 【名】縮帆する人。"}; Sub{reefer}}; Str Phrase178 = {Lyric = {"REFACE 【動】表面を新しくする。"}; Sub{reface}}; Str Phrase179 = {Lyric = {"REFEED 【動】(食料などを)再供給する。"}; Sub{refeed}}; Str Phrase180 = {Lyric = {"REFER 【動】参照する。"}; Sub{refer}}; Str Phrase181 = {Lyric = {"REFEREE 【名】審判員。"}; Sub{referee}}; Str Phrase182 = {Lyric = {"REFERRER 【名】参照元。"}; Sub{referrer}}; Str Phrase183 = {Lyric = {"REGARD 【動】見なす。"}; Sub{regard}}; Str Phrase184 = {Lyric = {"REGGAE 【名】レゲエ。"}; Sub{reggae}}; Str Phrase185 = {Lyric = {"REREAD 【動】読み直す。"}; Sub{reread}}; INT MAX_PHRASE = 186; //------------------------------------------------------------------------------ // N番目の単語を演奏する関数 Function SelectPhrase(Int N) { Str MML = {Phrase} + N; MML; } // ランダムな単語を演奏する関数 Function RandomPlay() { Int N = Random(MAX_PHRASE); SelectPhrase(N); } #Repeat = {[#?1 #?2]}; // ----------------------------- トラック1 主旋律 ------------------------------ TR(1) @72 REV(40) If(RandomFlg) { Switch(RhythmMode){ Case(2){l8 o5 #Repeat(RepLen, {RandomPlay();r1^2})} Case(3){l12 o5 #Repeat(RepLen, {RandomPlay();r1})} Default{l8 o5 #Repeat(RepLen, {RandomPlay();r1})} } } Else{ Switch(RhythmMode){ Case(2){l8 o5 For(Int N=0; N<MAX_PHRASE; N++){SelectPhrase(N);r1^2}} Case(3){l12 o5 For(Int N=0; N<MAX_PHRASE; N++){SelectPhrase(N);r1}} Default{l8 o5 For(Int N=0; N<MAX_PHRASE; N++){SelectPhrase(N);r1}} } } // ----------------------------- ベースパターン定義 ---------------------------- Str Bass1 = {l8 v.N(100,0,90,90,100) c^rcc^g^}; Str Bass2 = {l8 v90 e&g`c`c`cr cr`c^^^}; Str Bass3 = {l12 v100 c^rg^ra^re^r}; // ----------------------------- トラック8 ベース ------------------------------ TR(8) @34 P(40) o3 If(RandomFlg) { Switch(RhythmMode){ Case(1){ REV(10) #Repeat(RepLen, Bass1;) } Case(2){ REV(40) #Repeat(RepLen, Bass2;) } Case(3){ REV(10) #Repeat(RepLen, Bass3;) } } } Else{ Switch(RhythmMode){ Case(1){ REV(10) #Repeat(MAX_PHRASE, Bass1;) } Case(2){ REV(40) #Repeat(MAX_PHRASE, Bass2;) } Case(3){ REV(10) #Repeat(MAX_PHRASE, Bass3;) } } } // ----------------------------- ドラムパターン定義 ---------------------------- Str Drum0 = {l24 Sub{v.N(100,0,0,90,0,0)[8n53rr]}Sub{v.N(100,0,0,90,0,0,95,0,0,90,0,0)[8n46rr]} Sub{v100['n35n36'rrrrr rrr'n35n36'rr]} v100 rrrrrr 'n38n65'rrrr'n38n65' rr'n38n65'rrr 'n38n65'rrrrr}; Str Drum1 = {l8 Sub{v.N(100,0,90,0,95,0,90,0)[4n46r]}Sub{v.N(100,0,105,100,0,0,0)'n35n36'rr'n35n36''n35n36'rrr}v100[rrn38r]}; Str Drum2 = {l8 Sub{v60[n46rrrrr]}Sub{v60[n35rrrrr]}v65rrn40n40n40r rr[8n40,16]}; Str Drum3 = {l12 Sub{v100[4rrn39]}Sub{v100[4n35rr]}Sub{v.N(0,0,100,100,0,0,90,90)[4rr'n51n53']}v100[r4n38rr] }; // ----------------------------- トラック10 ドラム ----------------------------- TR(10) P(64) If(RandomFlg){ Switch(RhythmMode){ Case(0){ Tempo(100); TimeSignature(4,4); REV(10) #Repeat(RepLen, Drum0;) } Case(1){ Tempo(130); TimeSignature(4,4); REV(10) #Repeat(RepLen, Drum1;) } Case(2){ Tempo(170); TimeSignature(6,8); REV(60) #Repeat(RepLen, Drum2;) } Case(3){ Tempo(120); TimeSignature(4,4); REV(10) #Repeat(RepLen, Drum3;) } Default{ Tempo(120); TimeSignature(4,4); } } } Else{ Switch(RhythmMode){ Case(0){ Tempo(100); TimeSignature(4,4); REV(10) #Repeat(MAX_PHRASE, Drum0;) } Case(1){ Tempo(130); TimeSignature(4,4); REV(10) #Repeat(MAX_PHRASE, Drum1;) } Case(2){ Tempo(170); TimeSignature(6,8); REV(60) #Repeat(MAX_PHRASE, Drum2;) } Case(3){ Tempo(120); TimeSignature(4,4); REV(10) #Repeat(MAX_PHRASE, Drum3;) } Default{ Tempo(120); TimeSignature(4,4); } } } // ----------------------------- ピアノパターン定義 ---------------------------- Str Piano3 = {l12 [Sub{rr'v100eg`c'4'v90eg`c'6}r2] }; // ----------------------------- トラック11 ピアノ ------------------------------ TR(11) @3 V(75) P(104) o5 If(RandomFlg) { Switch(RhythmMode){ Case(3){ REV(20) #Repeat(RepLen, Piano3;) } } } Else{ Switch(RhythmMode){ Case(3){ REV(20) #Repeat(MAX_PHRASE, Piano3;) } } }