/*******************************************************************************
This is MML file for Adus Compiler Version 0.18
MEGA HARD
in E Minor
Composed by Yoshinori SUDA, 2001/08/03.
Modified by Yoshinori SUDA, 2006/08/20.
for Ch. 1-- 8: KORG TRITON-Rack with EXB-PCM08 & EXB-PCM09
Ch. 9--16: Roland XV-3080 with SRX-01, SR-JV80-02 & SR-JV80-09
*******************************************************************************/
#title "MEGA HARD"
#copyright "Copyright (c) 2001-2006 Yoshinori SUDA"
#timebase 48
// ==== TRACK MAP ====
#track <abcdefghijklvwz>
a: T125
a: \channel{ 1} // TRITON-Rack [INT-D 006] Dirty Man Bass
b: \channel{ 2} // TRITON-Rack [INT-D 027] OohSlow VoicesST
c: \channel{ 3} // TRITON-Rack [INT-B 031] Thin Bell-s-park
d: \channel{ 4} // TRITON-Rack [INT-D 059] Crypt-on
e: \channel{ 5} // TRITON-Rack
f: \channel{ 6} // TRITON-Rack
g: \channel{ 7} // TRITON-Rack [INT-A 037] Wet Dist.Guitar
h: \channel{10} // XV-3080 [PR-F] LouderPlease
i: \channel{11} // XV-3080 [PR-A] Klavinet
j: \channel{12} // XV-3080 [PR-A] Fantasia JV
k: \channel{13} // XV-3080 [PR-A] Saw Mass
l: \channel{14} // XV-3080 [PR-B] Little Devil
// Drum Set (v:hats, w:kick/snare)
v: \channel{ 9} // XV-3080 [EX01] TightRck1KIT
w: \channel{15} // XV-3080 [PR-E] XV-Rock Kit
z: \channel{16} // XV-3080 Initial Exclusive
// ==== XV INIT ====
z: l64
// System Common - Performance Mode
\sysex{0x41,0x10,0x00,0x10,0x12,(0x00,0x00,0x00,0x00,0x00)} rrrr
\bank{85,64} \program{0} rrrr
// System Tempo: 125
\sysex{0x41,0x10,0x00,0x10,0x12,(0x00,0x00,0x00,0x16,|0x07,0x0d)} r
// Performance Common (MFX Source: Part 10)
\sysex{0x41,0x10,0x00,0x10,0x12,(0x10,0x00,0x00,0x00,
'S','U','D','A','2','0','0','6',35,'0','0','3',0x00,0x00,0x01,0x00,[0x00,]32
0x0a,0x00,0x00,0x00,0x00)} r
// Performance Common Chorus - Chorus
\sysex{0x41,0x10,0x00,0x10,0x12,(0x10,0x00,0x04,0x00,|0x01,0x7f,0x00,0x00)} r
// Performance Common Reverb - SRV Room
\sysex{0x41,0x10,0x00,0x10,0x12,(0x10,0x00,0x06,0x00,|0x02,0x7f,0x00,
0x08,0x00,0x03,0x00,0x08,0x00,0x04,0x00,0x08,0x00,0x00,0x07,
0x08,0x00,0x01,0x02,0x08,0x00,0x07,0x0f,0x08,0x00,0x07,0x0f,
0x08,0x00,0x01,0x03,0x08,0x00,0x02,0x04,0x08,0x00,0x00,0x00,
0x08,0x00,0x02,0x04)} r
// Performance MIDI/Part
\[ var c = 0; \] [
\sysex{0x41,0x10,0x00,0x10,0x12,(0x10,0x00,$0x10 + c$,0x00,|[0x01;,]10)} r
\sysex{0x41,0x10,0x00,0x10,0x12,(0x10,0x00,$0x20 + c$,0x00,|$c$,0x01,0x01)} r
\[ c++; \] ]16
// Performance Part - Part Output Assign: 01=A, 0d=PATCH(MFX)
\sysex{0x41,0x10,0x00,0x10,0x12,(0x10,0x00,0x28,0x1f,|0x01)} r // 9
\sysex{0x41,0x10,0x00,0x10,0x12,(0x10,0x00,0x29,0x1f,|0x0d)} r // 10
\sysex{0x41,0x10,0x00,0x10,0x12,(0x10,0x00,0x2a,0x1f,|0x01)} r // 11
\sysex{0x41,0x10,0x00,0x10,0x12,(0x10,0x00,0x2b,0x1f,|0x01)} r // 12
\sysex{0x41,0x10,0x00,0x10,0x12,(0x10,0x00,0x2c,0x1f,|0x01)} r // 13
\sysex{0x41,0x10,0x00,0x10,0x12,(0x10,0x00,0x2d,0x1f,|0x01)} r // 14
\sysex{0x41,0x10,0x00,0x10,0x12,(0x10,0x00,0x2e,0x1f,|0x01)} r // 15
[r]13
// ==== PART INIT ====
afk: r*5
bgl: r*10
chv: r*15
diw: r*20
ej: r*25
// Reset All Controlers
abcdefgw: r1 r4 r8
hijklv: r1 r4 C121,0 r8
// MSB,LSB program, vol. vel. gt. o. l. pan. exp.
a: r8 V65 v100 q8 o3 l16 P64 E127 (=10
b: r8 V70 v100 q8 o4 l16 P30 E127
c: r8 V90 v80 q6 o4 l16 P70 E127
d: r8 V110 v120 q8 o4 l16 P64 E127
e: r8 V120 v100 q8 o3 l16 P64 E127
f: r8 V120 v100 q8 o3 l16 P64 E127
g: r8 V100 v100 q8 o3 l16 P64 E127
h: \bank{87,69} \program{42} r8 V127 v100 q8 o3 l16 P64 E127 (=10 vr5
i: \bank{87,64} \program{33} r8 V80 v100 q7 o3 l16 P64 E127
j: \bank{87,64} \program{71} r8 V100 v100 q8 o5 l16 P60 E127
k: \bank{87,64} \program{65} r8 V100 v100 q8 o4 l16 P64 E127
l: \bank{87,65} \program{90} r8 V100 v100 q8 o4 l16 P64 E127
v: \bank{92,00} \program{2} r8 V120 v100 q8 o4 l16 P64 E127 (=10 vr5
w: \bank{86,68} \program{1} r8 V100 v100 q8 o4 l16 P64 E127 (=10
!vw: \bend{2}
// MFX(2) MFX(1)
// Reverb Chorus
a: r8 C91,0 C93,0 r8
b: r8 C91,0 C93,0 r8
c: r8 C91,0 C93,0 r8
d: r8 C91,0 C93,0 r8
e: r8 C91,0 C93,0 r8
f: r8 C91,0 C93,0 r8
g: r8 C91,0 C93,0 r8
h: r8 C91,0 C93,0 r8_*4
i: r8 C91,40 C93,0 r8
j: r8 C91,0 C93,0 r8
k: r8 C91,0 C93,0 r8
l: r8 C91,50 C93,40 r8
v: r8 C91,0 C93,0 r8
w: r8 C91,0 C93,0 r8
// MFX - Amp: BUILT-IN, Tone: 55, Panpot: 16, Level: 60
h: \sysex{0x41,0x10,0x00,0x10,0x12,(0x13,0x20,0x02,0x21,|0x08,0x00,0x00,0x01)}r*1
\sysex{0x41,0x10,0x00,0x10,0x12,(0x13,0x20,0x02,0x15,|0x08,0x00,0x03,0x07)}r*1
\sysex{0x41,0x10,0x00,0x10,0x12,(0x13,0x20,0x02,0x19,|0x08,0x00,0x01,0x00)}r*1
\sysex{0x41,0x10,0x00,0x10,0x12,(0x13,0x20,0x02,0x2d,|0x08,0x00,0x03,0x0c)}r*1
afk: r4_*5
bgl: r4_*10
chv: r4_*15
diw: r4_*20
ej: r4_*25
// ==== DRUM SET ====
v: nc,42,15 // Closed Hihat
nd,46,10 // Open Hihat
ne,44 // Pedal Hihat
ng,51,10 // Ride Bell
na,52,10 // Cymbal 1 (right)
nb,49,10 // Cymbal 2 (left)
w: nc,36 // Kick
nd,38,10 // Snare
ne,39 // Hand Clap
<
na,48 // Tom-H
nb,47 // Tom-M
nc,45 // Tom-L
nd,43 // Tom-F
>
// -----------------------------------------------------------------------------
// ==== MAIN ====
//
// From: [ I3 [A1 A2] A3 [B1 B2] ; I1 I2 ] CODA
//
*: [
// == I3 ==
!hgvw: r1
g: r2. e0)))<<e0<e8.>>>((( e0)))<<e0<e>>>(((
h: ML0,<1>120 BL-60,<4>0,<8>-20,<8>-60,<4>60,<8.>0,<16>-60 >e0<e1 M0 B0
v: a4 (a4) t*1r12)a12b12( )a8.(t0b
w: {<aarb>}crr))c32(c32( drr<c> t*1d12c12c12t0 {<brc(d)>}crr(c)
// == A1 ==
*: [
!aghilvw: [r1]8
a: >((e))ere ((e8)f8) ((e))ere ((e8))<d8
g: [>eere< r4]2
h: r4 >b0<e8,,,*1 c0f8,,,*1 r4 >b0<e8,,,*1 >a0<d8,,,*1
i: r[gb<e>]5
l: FEL80,<1>100 e1_32 r32
v: a0b4 (d4) d4 (d4)
w: crr))c32)c32((( d)c(r<c> r<c>rc32)c32( d)c(c))c((
a: >((e))ere ((e8)f8) ((e))ere ((e8))<f+8
g: [>eere< r4]2
h: r4 >b0<e8,,,*1 c0f8,,,*1 r4 >b0<e8,,,*1 >a0<d8,,,*1
i: r[gb<e>]5
l: g8 f+8 e8 a8 a-8 f+8^*1 g4_*1&
v: [d4 (d4)]2
w: crr))c32)c32((( drr<c> r<c>c)c( d)c(c))c((
a: >((g))grg ((g8)a-8) ((g))grg ((g8))<d8
g: [>eere< r4]2
h: r4 >b0<e8,,,*1 c0f8,,,*1 r4 >b0<e8,,,*1 >a0<d8,,,*1
i: r[gb<e>]5
l: r8^*2 a2 r*2 a8 b8 g8_*4
v: [d4 (d4)]2
w: crr))c32)c32((( d)c(r<c> r<c>rc32)c32( d)c(c))c((
a: >((e))ere ((e8)f8) q7((g8.g r8 g8))q8<
g: >eere< r2.
h: r4 >b0<e8,,,*1 c0f8,,,*1 r*1 [B0 >g0<d16,,,*1& B-60 ; r.r32]3 r_*1 B0
i: rgb<e> gb<e>g <e0<e8,,,*2&>>r& b0<b8,,,*2&>r& g0<g8,,,*2>
l: q9 )20 gf+f (20 q8 e2.^16&
v: d4 (d4) )arra rrar(
w: crr))c32)c32((( d4 )crrc rrcr(
// == A2 ==
a: >((e))ere ((e8)f8) ((e))ere ((e8))<d8
g: [>eere< r4]2
h: r4 >b0<e8,,,*1 c0f8,,,*1 r4 >b0<e8,,,*1 >a0<d8,,,*1
i: r[gb<e>]5
l: r2 f+4. g8
v: a4 (d4) d4 (d4)
w: crr))c32)c32((( d)c(r<c> r<c>rc32)c32( d)c(c))c((
a: >((e))ere ((e8)f8) ((e))ere ((e8))<d8
g: [>eere< r4]2
h: r4 c0f+8,,,*1 d0g8,,,*1 r4 c0f8,,,*1 >b0<e8,,,*1
i: r[f+a<d>]5
l: a12 g+12 a12 ML<2>80 b-2 M0 a4
v: [d4 (d4)]2
w: crr))c32)c32((( drr<c> r<c>c)c( d)c(c))c((
a: >((e))ere ((e8)f8) ((e))ere ((e8))<d8
g: [>eere< r4]2
h: r4 >b0<e8,,,*1 c0f8,,,*1 r4 >b0<e8,,,*1 >a0<d8,,,*1
i: r[eg<c>]5
l: )) <edcr dc>br <c>bab ( agf+e (
v: [d4 (d4)]2
w: crr))c32)c32((( d)c(r<c> r<c>rc32)c32( d)c(c))c((
a: >((e))ere ((e8)f8) q7(e12)((t*1g12g-12 q8f8.t0e))<
g: >eere< r4 >e12t*1g12f+12< r4t0
h: r4 >a0<d8,,,*1 >b0<e8,,,*1 r4^*3 >f+0<<f+8._*1,,70> >d0<<d16_*2,,70>
i: r<af+d> af+dc {q10 l32 def+gab<cd ef+gab<cde>>} r2
l: BL-60,<1>40 FEL70,<4.>100,<2.>20 (e1) B0 FEc
v: d4 (d4) )t*1r12a12b12 a8.t0(b
w: {crr))c32(c32( d4 d12)t*1c12c12 c8.t0(c}
<aarb rrrc r4 brc(d)>
*: ]2
// == A3 ==
!dikvw: r1
d: PL0,<1^4>127 {e0<e1^4>} r1
i: r<afd> afdc {q10 l32 def+g+ab<cd ef+g+ab<cde>>}&
k: EL10,<2..>110 e0g+0b2..r e0g+0b,24 E127
v: a4 (d4) t*1r12)a12b12 a8.(t0b
w: crr))c32c32(( drr<c> d12t*1)c12c12( c8.t0(c)
// == B1 ==
*: [
!abcghiklvw: [r1]8
a: >((a))a(a)a a<e8>a ((a))ara <e8.((d&))
b: e0<c0a2.> r4
c: {v^40 a0<a0<a32>> >a0<a0<a0<a8>>} r1
g: [ a0<e8,,,*1> ; >ffff< ]3 >a<f
h: [>aara< ere8]2
i: rea<c ea<ce a<aec> ae>ae>
kl: BL-20,<12>0 a8 efec a4 b<cde ag>
v: (a*2&b8_*2))g8( ((g8,,,*1))g8 ((g8))g8 g8,,,*1(g8)
w: (c8)c8 (d,,,*1)crr c4 (d,,,*1)rr((c))
a: r8(d)>a da8d ((d))drd a8.<((c&))
b: f0<d0a2^8> r4.
c: r1
g: FBL-64,<8>0 e0a2 e0<c4..> FBc e
h: [>ddrd< drd8]2
i: rfa<d fa<df a<afd> ad>ad>
kl: <fe>r8 <frrf rrfr fefg&>
v: [((g8))g8 ((g8,,,*1g8))]2
w: r8c8 (d,,,*1)crr ((c8)c8) (d,,,*1)rr((c))
a: r8(c)>a ea8<c ((c))crc >a8.<((e&))
b: e0<c0a2^8> r4.
c: r1
g: [ d0<g8,,,*1> ; >aaaa< ]3 >a<e
h: [ccrc ere8]2
i: rea<c ea<ce a<aec> ae>ae>
kl: r*1 M30 r8 M0 <edc>b <c4_*1> <crdr> FEL50,<2>^80 <<e8&>>
v: [((g8)g8) ((g8,,,*1)g8)]2
w: r8c8 (d,,,*1)crr c4 (d,,,*1)rr((c))
a: r8(e)>b< eb8e (e8)>b<e (b)e>(b)e<
b: r8 e0b0<g+2.> r8
c: r2 {q12 <((ed)cb) ag+fe>}&
g: FBL-64,<8>0 e0b2 FBc {q12 <<((ed)cb) ag+fe>>}&
h: >eere< ere8 e8.(e) (b)e>(b)e<
i: reg+b <eg+b<e g+b8g+ be>be>
kl: <<r2>> FEc <ef+ rf+ g+a> r8
v: ((g8))g8 g8,,,*1(g8) ((g8)g8) r4
w: r8c8 (d,,,*1)crr cdc))c(( ((d)d)dd
// == B2 ==
a: >((f))f(f)f f<c8>f ((f))frf <c8.((e&))
b: {<<f1^1^2>>} c0a0<a2.> r4
c: ((f0<a8,,,*2>)) r2..
g: [ a0<e8,,,*1> ; >ffff< ]3 >a<f
h: [>ffrf< frf8]2
i: rfa<c fa<cf a<afc> af>af>
kl: BL0,<32>-5,<32>-10,<32>0 <a8 gfec> a4 b<cde ag>
v: a8)g8( ((g8,,,*1)g8) ((g8))g8 ((g8,,,*1)g8)
w: (c8)c8 (d,,,*1)crr c4 (d,,,*1)rr((c))
a: r8(a)>a ea8e ((a))ara a8.<((a&))
b: a0<e2^8> r4.
c: r1
g: FBL-60,<8>0 e0a2 e0<c4..> FBc e
h: [>aara< ara8]2
i: rea<c ea<ce a<aec> ae>ae>
kl: <ab>r8 <<c>rba barg> r BL-60,<8>55,<16>0 )<a8.&>(
v: [((g8)g8) ((g8,,,*1g8))]2
w: r8c8 (d,,,*1)crr ((c8)c8) (d,,,*1)rr((c))
a: r8(a)>e ea8e ((a))ara a8.<((e&))
b: b0<d2^8> r4.
c: r1
g: [ d0<g8,,,*1> ; >aaaa< ]3 >a<e
h: [ggrg ere8]2
i: rgb<d gb<dg b<dgd> gd>gd>
kl: r4^8 <ab<cd (edc>b) <dc>>
v: ((g8))g8 ((g8,,,*1)g8) ((g8))g8 (g8,,,*1)rg
w: r8c8 (d,,,*1)crr c4 (d,,,*1)rr((c))
a: r8(e)>b< eb8e (e8)>b<e >(b)e<(b)e
b: {v^20 <<b2..>>} {q15<b8g+8 e8>b8 g+8e8 >b8<r8}&
c: r2 {<((ed)cb) ag+fe>}0{q4 r*2 edcb ag+fe} r4 <<g+4>>
g: FBL-64,<8>0 e0b2 FBc {q12 <<((ed)cb) ag+fe>>}&
h: >eere< ere8 e4&<e4>
i: r<<<bg+e> bg+e>b {l24q11 <<bg+e>bg+e> bg+e>bg+e}& >
kl: <(ba(b8.r)) ))e4,12> b8,12(( q7 <<g+4,,50>> q8
v: ((g8))g8 ((g8,,,*1)g8) ((g8))g8 r4
w: r8c8 (d,,,*1)crr rcrr (d))d(<((b)c)>
*: ]2
*: ;
// == I1 ==
c: { v^20 r*3 a0<a0<e8>> }
!abghivw: [r1]4
a: >((e))ere ((e8)f8) ((e))ere ((e8))<d8
b: r1
g: [>eere< r4]2
h: r4 >b0<e8,,,*1 c0f8,,,*1 r4 >b0<e8,,,*1 >a0<d8,,,*1
i: [g0b0<e8>r g0b0<e> r4]2
v: a4 (d4) d4 (d4)
w: crr))c32)c32((( d)c(r<c> r<c>rc32)c32( d)c(c))c((
a: >((e))ere ((e8)f8) ((e))ere ((e8))<d8
b: r1
g: [>eere< r4]2
h: r4 c0f+8,,,*1 d0g8,,,*1 r4 c0f8,,,*1 >b0<e8,,,*1
i: [f+0a0<d8>r f+0a0<d> r4]2
v: [d4 (d4)]2
w: crr))c32)c32((( drr<c> r<c>c)c( d)c(c))c((
a: >((e))ere ((e8)f8) ((e))ere ((e8))<d8
b: r2 e2&
g: [>eere< r4]2
h: r4 >b0<e8,,,*1 c0f8,,,*1 r4 >b0<e8,,,*1 >a0<d8,,,*1
i: [e0g0<c8>r e0g0<c> r4]2
v: [d4 (d4)]2
w: crr))c32)c32((( d)c(r<c> r<c>rc32)c32( d)c(c))c((
a: >((e))ere ((e8)f8) q7(e12)((t*1g12g-12 q8f8.t0e))<
b: r2 r2
g: >eere< r4 >e12t*1g12f+12< r4t0
h: r4 >a0<d8,,,*1 >b0<e8,,,*1 r4^*3 >f+0<<f+8._*1,,70> >d0<<d16_*2,,70>
i: d0f+0<c8>r d0f+0<c> r4 d0a12^*1 e0g12 f+0a0<d12_*1> <c0d0e8>r<c0d0e>
v: d4 (d4) )t*1r12a12b12 a8.t0(b
w: crr))c32(c32( drr<c> d12)t*1c12c12 c8.t0(c0d
// == I2 ==
!abdghivw: [r1]4
a: >((e))ere ((e8)f8) ((e))ere ((e8))<d8
b: b2. a4&
d: r1
g: [>eere< r4]2
h: r4 >b0<e8,,,*1 c0f8,,,*1 r4 >b0<e8,,,*1 >a0<d8,,,*1
i: [g0b0<e8>r g0b0<e> r4]2
v: a4 (d4) d4 (d4)
w: crr))c32)c32((( d)c(r<c> r<c>rc32)c32( d)c(c))c((
a: >((e))ere ((e8)f8) ((e))ere ((e8))<d8
b: r4 <f+4. e4.>
d: r1
g: [>eere< r4]2
h: r4 c0f+8,,,*1 d0g8,,,*1 r4 c0f8,,,*1 >b0<e8,,,*1
i: [f+0a0<d8>r f+0a0<d> r4]2
v: [d4 (d4)]2
w: crr))c32)c32((( drr<c> r<c>c)c( d)c(c))c((
a: >((e))ere ((e8)f8) ((e))ere ((e8))<d8
b: <d2 c2>
d: r1
g: [>eere< r4]2
h: r4 >b0<e8,,,*1 c0f8,,,*1 r4 >b0<e8,,,*1 >a0<d8,,,*1
i: [e0g0<c8>r e0g0<c> r4]2
v: [d4 (d4)]2
w: crr))c32)c32((( d)c(r<c> r<c>rc32)c32( d)c(c))c((
a: >((e))ere ((e8)f8) q7(e12)((t*1g12g-12 q8f8.t0e))<
b: r1
d: PL0,<1.>127 {e0<e1.>} r1
g: >eere< r4 >e12t*1g12f+12< r4t0
h: r4 >a0<d8,,,*1 >b0<e8,,,*1 r4^*3 >f+0<<f+8._*1,,70> >d0<<d16_*2,,70>
i: d0f+0<c8>r d0f+0<c> r4 d0a12^*1 e0g12 f+0a0<d12_*1> <c0d0e8>r<c0d0e>
v: d4 (d4) )t*1r12a12b12 a8.t0(b
w: crr))c32(c32( drr<c> d12)t*1c12c12 c8.t0(c0d
*: ]2
// ==== CODA ====
!ghklvw: r1
g: r2. a0)))<<a0<a8.>>>((( a0)))<<a0<a>>>(((
h: BL-60,<4>0,<8>-20,<8>-60,<4>55,<8.>0,<16>-55 <a1> B0
k: EL0,<2..>100 e0g+0b2..r e0g+0b E127
l: EL70,<2..>127 q10 [<g+>;<<g+>>]8 q8 <<a>>
v: a4 (a4) t*1r12)a12b12 a8.t0(b
w: {crr))c32c32( r4 t*1r12c12c12 c8.t0(c}
<aarb> drr<c> d4 <brc(d)>
// == B1 ==
*: [
!abcghiklvw: [r1]8
a: >((a))a(a)a a<e8>a ((a))ara <e8.((d&))
b: e0<c0a2.> r4
c: {v^40 a0<a0<a32>> >a0<a0<a0<a8>>} r1
g: [ a0<e8,,,*1> ; >ffff< ]3 >a<f
h: [>aara< ere8]2
i: rea<c ea<ce a<aec> ae>ae>
kl: BL-20,<12>0 a8 efec a4 b<cde ag>
v: (a*2&b8_*2))g8( ((g8,,,*1))g8 ((g8))g8 g8,,,*1(g8)
w: (c8)c8 (d,,,*1)crr c4 (d,,,*1)rr((c))
a: r8(d)>a da8d ((d))drd a8.<((c&))
b: f0<d0a2^8> r4.
c: r1
g: FBL-64,<8>0 e0a2 e0<c4..> FBc e
h: [>ddrd< drd8]2
i: rfa<d fa<df a<afd> ad>ad>
kl: <fe>r8 <frrf rrfr fefg&>
v: [((g8))g8 ((g8,,,*1g8))]2
w: r8c8 (d,,,*1)crr ((c8)c8) (d,,,*1)rr((c))
a: r8(c)>a ea8<c ((c))crc >a8.<((e&))
b: e0<c0a2^8> r4.
c: r1
g: [ d0<g8,,,*1> ; >aaaa< ]3 >a<e
h: [ccrc ere8]2
i: rea<c ea<ce a<aec> ae>ae>
kl: r*1 M30 r8 M0 <edc>b <c4_*1> <crdr> FEL50,<2>^80 <<e8&>>
v: [((g8)g8) ((g8,,,*1)g8)]2
w: r8c8 (d,,,*1)crr c4 (d,,,*1)rr((c))
a: r8(e)>b< eb8e (e8)>b<e (b)e>(b)e<
b: r8 e0b0<g+2.> r8
c: r2 {q12 <((ed)cb) ag+fe>}&
g: FBL-64,<8>0 e0b2 FBc {q12 <<((ed)cb) ag+fe>>}&
h: >eere< ere8 e8.(e) (b)e>(b)e<
i: reg+b <eg+b<e g+b8g+ be>be>
kl: <<r2>> FEc <ef+ rf+ g+a> r8
v: ((g8))g8 g8,,,*1(g8) ((g8)g8) r4
w: r8c8 (d,,,*1)crr cdc))c(( ((d)d)dd
// == B2 ==
a: >((f))f(f)f f<c8>f ((f))frf <c8.((e&))
b: {<<f1^1^2>>} c0a0<a2.> r4
c: ((f0<a8,,,*2>)) r2..
g: [ a0<e8,,,*1> ; >ffff< ]3 >a<f
h: [>ffrf< frf8]2
i: rfa<c fa<cf a<afc> af>af>
kl: BL0,<32>-5,<32>-10,<32>0 <a8 gfec> a4 b<cde ag>
v: a8)g8( ((g8,,,*1)g8) ((g8))g8 ((g8,,,*1)g8)
w: (c8)c8 (d,,,*1)crr c4 (d,,,*1)rr((c))
a: r8(a)>a ea8e ((a))ara a8.<((a&))
b: a0<e2^8> r4.
c: r1
g: FBL-60,<8>0 e0a2 e0<c4..> FBc e
h: [>aara< ara8]2
i: rea<c ea<ce a<aec> ae>ae>
kl: <ab>r8 <<c>rba barg> r BL-60,<8>55,<16>0 )<a8.&>(
v: [((g8)g8) ((g8,,,*1g8))]2
w: r8c8 (d,,,*1)crr ((c8)c8) (d,,,*1)rr((c))
a: r8(a)>e ea8e ((a))ara a8.<((e&))
b: b0<d2^8> r4.
c: r1
g: [ d0<g8,,,*1> ; >aaaa< ]3 >a<e
h: [ggrg ere8]2
i: rgb<d gb<dg b<dgd> gd>gd>
kl: r4^8 <ab<cd (edc>b) <dc>>
v: ((g8))g8 ((g8,,,*1)g8) ((g8))g8 (g8,,,*1)rg
w: r8c8 (d,,,*1)crr c4 (d,,,*1)rr((c))
a: r8(e)>b< eb8e (e8)>b<e >(b)e<(b)e
b: {v^20 <<b2..>>} {q15<b8g+8 e8>b8 g+8e8 >b8<r8}&
c: r2 {<((ed)cb) ag+fe>}0{q4 r*2 edcb ag+fe} r4 <<g+4>>
g: FBL-64,<8>0 e0b2 FBc {q12 <<((ed)cb) ag+fe>>}&
h: >eere< ere8 e4&<e4>
i: r<<<bg+e> bg+e>b {l24q11 <<bg+e>bg+e> bg+e>bg+e}& >
kl: <(ba(b8.r)) ))e4,12> b8,12(( q7 <<g+4,,50>> q8
v: ((g8))g8 ((g8,,,*1)g8) ((g8))g8 r4
w: r8c8 (d,,,*1)crr rcrr (d))d(<((b)c)>
*: ]2
// == B3 ==
!abcghijklvw: [r1]8
a: >((a))a(a)a a<e8>a ((a))ara <e8.((e&))
b: e0<c0a2.> r4
c: {v^40 a0<a0<a32>> >a0<a0<a0<a8>>} r1
g: [ a0<e8,,,*1> ; >eeee< ]3 >a<e
h: [>aara< ere8]2
i: rea<c ea<ce a<aec> ae>ae>
j: a8 ef+ec a4 b<cde ag>
kl: BL-20,<12>0 a8 ef+ec a4 b<cde ag>
v: (a*2&b8_*2))g8( ((g8,,,*1))g8 ((g8))g8 g8,,,*1(g8)
w: (c8)c8 (d,,,*1)crr c4 (d,,,*1)rr((c))
a: r8(e)>b eb8e ((e))ere b8.<((c&))
b: e0b0<g2^8> r4.
c: r1
g: FBL-64,<8>0 e0b2 e0<d4..> FBc e
h: [>eere< ere8]2
i: rgb<e gb<eg b<bge> be>be>
j: <gf+>r8 <grrg rrgr g)))f+(((e8&>
kl: <gf+>r8 <grrg rrgr g)))f+(((e8&>
v: [((g8))g8 ((g8,,,*1g8))]2
w: r8c8 (d,,,*1)crr ((c8)c8) (d,,,*1)rr((c))
a: r8(c)>a ea8<c ((c))crc >a8.<((e&))
b: e0<c0a2^8> r4.
c: r1
g: [ e0<a8,,,*1> ; >eeee< ]3 >e<e
h: [ccrc ere8]2
i: rea<c ea<ce a<aec> ae>ae>
j: r*1 r8 <edc>b <c4_*1> <crdr> <<r8&>>
kl: r*1 M30 r8 M0 <edc>b <c4_*1> <crdr> FEL50,<2>^80 <<g8&>>
v: [((g8)g8) ((g8,,,*1)g8)]2
w: r8c8 (d,,,*1)crr c4 (d,,,*1)rr((c))
a: r8(e)>b< eb8e (e8)>b<e (b)e>(b)e<
b: {<<e1^1>>} r8 e0b0<g2.> r8
c: r2 {q12 <((ed)cb) agf+e>}&
g: FBL-64,<8>0 e0b2 FBc {q12 <<((ed)cb) agf+e>>}&
h: >eere< ere8 e8.(e) (b)e>(b)e<
i: regb <egb<e gb8g be>be>
j: <<r2>> <gf+ rf+ f+e> r8
kl: <<r2>> FEc <gf+ rf+ f+e> r8
v: ((g8))g8 g8,,,*1(g8) ((g8)g8) r4
w: r8c8 (d,,,*1)crr cdc))c(( ((d)d)dd
// == B4 ==
a: >((e))e(e)e eb8e ((e))ere b8.<((c&))
b: e0b0<g2.> r4
c: ((g0<b8,,,*2>)) r2..
g: [ b0<e8,,,*1> ; >eeee< ]3 >b<e
h: [>eere< ere8]2
i: rgb<d gb<dg b<bgd> bg>bg>
j: <a8 gf+ec> b4 <)c+24d+24e24( b8a8,12>
kl: BL0,<32>-5,<32>-10,<32>0 <a8 gf+ec> b4 <)c+24d+24e24( b8a8,12>
v: a8)g8( ((g8,,,*1)g8) ((g8))g8 ((g8,,,*1)g8)
w: (c8)c8 (d,,,*1)crr c4 (d,,,*1)rr((c))
a: r8(c)c cc8c ((c))crc c8.((c&))
b: a+0<e2^8> r4.
c: r1
g: FBL-60,<8>0 e0<c2> e0<a+4..> FBc <c>
h: [ccrc ere8]2
i: rea+<c ea+<ce a+<a+ec> a+e>a+e>
j: <gf+>r8 <<c>rbg gf+re> r )<a+8.&>(
kl: <gf+>r8 <<c>rbg gf+re> r BL-60,<8>55,<16>0 )<a+8.&>(
v: [((g8)g8) ((g8,,,*1g8))]2
w: r8c8 (d,,,*1)crr ((c8)c8) (d,,,*1)rr((c))
a: r8(c)c cc8c ((c))crc <c8.>((b&))
b: c0<a+2^8> r4.
c: r1
g: [ c0<a+8,,,*1> ; cccc ]3 c>e<
h: [>eere< crc8]2
i: ra+<ce a+<cea+ <cea+e> a+e>a+e>
j: r4^8 r <<c2>> r
kl: r4^8 r BL-40,<8>35,<16>0 <<c2>> r
v: ((g8))g8 ((g8,,,*1)g8) a8g8 )b8,,,*1(rg
w: r8c8 (d,,,*1)crr c4 (d,,,*1)rr((c))
a: r8(f+)>b b<f+8>b (b8)<f+>b (b)f+<(b)>f+<
b: {v^20 <<b2..>>} {q15<b8f+8 e8>b8 f+8e8 >b8<r8}&
c: r2 {<((dc)>b<a) gfed+>}0{q4 r*2 dc>b<a gfed+} r4 <<b4>>
g: FBL-64,<8>0 >b0<f+2 FBc {q12 <<((dc)>b<a) gfed+>>}&
h: >bbrb< f+rf+8 b4&<f+4>
i: r<<<bf+d+> bf+d+>b {l24q11 <<bf+d+>bf+d+> bf+d+>bf+d+}& >
j: r2_*3 <q10 ((a4)) q8 (f+4) r*3>
kl: r2_*3 BL0,<32>-5,<32>-10,<32>0 <q10 ((a4)) q8 (f+4) r*3>
v: ((g8))g8 ((g8,,,*1)g8) ((g8))g8 b8)a8(
w: r8c8 (d,,,*1)crr rcrr ((dr)dr)
// == B5 ==
!abcghijklvw: [r1]4
a: r8(f+)>b b<f+8>b (b8)<f+>b (b)f+<(b)>f+<
b: {v^20 <<d+0b1^4>>} {q15<b8f+8 e8>b8 f+8e8 >b8<r8}&
c: r2 {v^10 <((dc)>b<a) gfed+>}0{q4 r*2 dc>b<a gfed+} r4 <<b4>>
g: FBL-64,<8>0 >b0<f+2 FBc {>b2<} a0<a4> f+0<f+4>
h: >bbrb< f+rf+8 b4&<f+4>
i: r<<<bf+d+> bf+d+>b {l24q11 <<bf+d+>bf+d+> bf+d+>bf+d+}& >
j: r2 <q10 a4 q8 )f+4(>
kl: r2 BL0,<32>-5,<32>-10,<32>0 <q10 a4 q8 )f+4(>
v: ((g8))g8 ((g8,,,*1)g8) (a4) (b4)
w: c4 rrc0)))dr((( ((d4)) (d4)
a: r8(f+)>b b<f+8>b (b8)<f+>b (b)f+<(b)>f+<
b: {v^20 >>b0<< <<f+0a2.>>} {q15<b8f+8 e8>b8 f+8e8 >b8<r8}&
c: r2 {r*2 v^20 f+0<f+0<f+32>>f+0<f+0<f+8..>>
v^10 d+0<d+0<d+32>>d+0<d+0<d+8.>> } r2
g: FBL-64,<8>0 >b0<f+2 FBc {>b2<} a0<a4> f+0<f+4>
h: >bbrb< f+rf+8 b4&<f+4>
i: r<<<bf+d+> bf+d+>b {l24q11 <<bf+d+>bf+d+> bf+d+>bf+d+}& >
j: r2 <q10 a4 q8 )f+4(>
kl: r2 BL0,<32>-5,<32>-10,<32>0 <q10 a4 q8 )f+4(>
v: ((g8))g8 ((g8,,,*1)g8) (a4) (b4)
w: c4 rrc0)))dr((( ((d4)) (d)rr))))d((((
a: (e1...)r8
b: {r v^20 e0))b0<g0((<e1.>> } r1^1
c: {r*3 v^40 e0<e0<e32>> >e0<e0<e0<e4>>} r1^1
g: EL<1...>0 >e0<e0<e1...>r8
h: EL<2>100,<1.>0 >e0<e1^1
i: e0<e1> r1
j: r*3 <e1.> r2_*3
kl: r*3 BL0,<32>-5,<32>-10,<32>0 FEL<2>100,<2>80,<2>50,<2>0 <e1^1_*3>
v: ((a0)b1) r1
w: (d1) r1
// ==== END ====
制作／創作田園地帯
2006/01/08初出
無断転載を禁じます。リンクはご自由にどうぞ。
Copyright © 2006 Yoshinori SUDA. All rights reserved.