smf 0.15.12

data/sample/Makefile

@@ -0,0 +1,58 @@
+SHELL = /bin/sh
+
+RUBY = ruby
+SMFLIB = ../lib
+
+.SUFFIXES: .mml .mid .mld .stt .txt .wav .xml .spkr
+
+.mml.mid:
+	$(RUBY) -I $(SMFLIB) mml.rb $<
+ 
+.mid.mld:
+	$(RUBY) -I $(SMFLIB) smf2mld.rb $<
+
+.stt.mid:
+	$(RUBY) -I $(SMFLIB) stt.rb $<
+ 
+.mid.txt:
+	$(RUBY) -I $(SMFLIB) smf2text.rb $<
+ 
+.mid.wav:
+	$(RUBY) -I $(SMFLIB) smf2wav.rb $<
+
+.mid.xml:
+	$(RUBY) -I $(SMFLIB) smf2xml.rb $<
+
+.mid.spkr:
+	test x`uname` = xFreeBSD && $(RUBY) -I $(SMFLIB) play-spkr.rb $<
+ 
+default:
+	if $(RUBY) -r gsl -e exit; then \
+	  $(MAKE) w_gsl; \
+	else \
+	  $(MAKE) wo_gsl; \
+	fi
+
+w_gsl: mml stt text xml groove shuffle mml-samp stt-samp morse-samp
+wo_gsl: mml stt text xml mml-samp stt-samp morse-samp
+
+mml: bwv772.mid bwv775.mid bwv787.mid
+stt: ltvddpd2.mid
+text: bwv772.txt
+xml: bwv772.xml
+
+groove: bwv772.mid
+	$(RUBY) -I $(SMFLIB) groove.rb groove.grv bwv772.mid
+
+shuffle: bwv772.mid
+	$(RUBY) -I $(SMFLIB) shuffle.rb bwv772.mid
+
+mml-samp:
+	$(RUBY) -I $(SMFLIB) mml-samp.rb
+
+stt-samp:
+	$(RUBY) -I $(SMFLIB) stt-samp.rb
+
+morse-samp:
+	$(RUBY) -I $(SMFLIB) morse-samp.rb
+

data/sample/bwv772.mml

@@ -0,0 +1,94 @@
+"sq:Inventio 1 C-Dur BWV 772"
+
+{
+  ti=1,4 te=240 gm=1
+
+  q r
+}
+
+ke=0,0
+
+{
+  ti=4,4 te=78 pr=0 co91=96 oc=4 ve=6/10
+
+  s r c d e f d e c i {du*=2/3 g} c' z b a s b i c'
+  s d' g a b c' a b g i {du*=2/3 d'} g' z f' e' s f' i g'
+
+  s e' a' g' f' e' g' f' a' g' f' e' d' c' e' d' f'
+  s e' d' c' b a c' b d' c' b a g f# a g b
+
+  i a d z c' b i c' s d' b a g f# e g f# a
+  s g b a c' b d' c' e' d' z b c' s d' g'
+  s/3 b c' q/3 b s a g
+
+  // 7
+  i g r q r s r g a b c' a b g
+  i f# r q r s r a b c' d' b c' a
+
+  i b r q r s r d' c' b a c' b d'
+  i c' r q r s r e' d' c' b d' c#' e'
+
+  i {du*=2/3 d'} c#' {du*=2/3 d'} e' {du*=2/3 f'} a {du*=2/3 b} c#'
+  i {du*=2/3 d'} f# {du*=2/3 g#} a {du*=2/3 b c'} q+s d'
+
+  s e f# g# a f# g# e e' d' c' e' d' c' b d'
+  s c' a' g#' b' a' e' f' d' g# f' e' d' s/3 c' d' q/3 c' s b a
+
+  // 15
+  s a a' g' f' e' g' f' a' h+s g'
+  s e' f' g' a' f' g' e' h+s f'
+
+  s g' f' e' d' f' e' g' h+s f'
+  s d' e' f' g' e' f' d' h+s e'
+
+  s c' d' e' f' d' e' c' d' e' f' g' a' f' g' e'
+  s f' g' a' b' c'' a' b' g' i c'' g' e' s d' c'
+
+  s c' b$ a g f a g b$ te*=15/16 a b c' e te*=14/16 d c' te*=13/16 f b
+  te*=17/16 w e& g& c'
+}&
+
+{
+  oc=3 ve=5/10
+
+  h r s r c d e f d e c
+  i g {du*=2/3 g,} q r s r g a b c' a b g
+
+  i {du*=2/3 c'} b {du*=2/3 c'} d' {du*=2/3 e'} g {du*=2/3 a} b
+  i {du*=2/3 c'} e {du*=2/3 f#} g {du*=2/3 a b} q+s c'
+
+  s d e f# g e f# d i {du*=2/3 g} b, c {du*=2/3 d}
+  i {du*=2/3 e} f# g {du*=2/3 e} i. b, s c i d d,
+
+  // 7
+  s r g, a, b, c a, b, g, i {du*=2/3 d} g {du*=2/3 f#} g
+  s a d e f# g e f# d i {du*=2/3 a} d' {du*=2/3 c'} d'
+
+  s g g' f' e' d' f' e' g' i {du*=2/3 f'} e' {du*=2/3 f'} d'
+  s e' a' g' f' e' g' f' a' i {du*=2/3 g'} f' {du*=2/3 g'} e'
+
+  s f' b$' a' g' f' a' g' b$' a' g' f' e' d' f' e' g'
+  s f' e' d' c' b d' c' e' d' c' b a g# b a c'
+
+  i b {du*=2/3 e} z d' c' i d' s e' c' b a g f# a g# b
+  s a c' b d' c' e' d' f' i {du*=2/3 e'} a {du*=2/3 e' e}
+
+  // 15
+  i a {du*=2/3 a,} q r s r e' d' c' b d' c#' e'
+  h+s d' s a b c' d' b c' a
+
+  h+s b s d' c' b a c' b d'
+  h+s c' s g a b$ c' a b$ g
+
+  i {du*=2/3 a} b$ a g {du*=2/3 f} d' c' b$
+  i {du*=2/3 a} f' e' d' s e' d e f g e f d
+
+  i {du*=2/3 e} c d e s f d e f i {du*=2/3 g} g,
+  w c,
+}
+
+{
+  ti=1,4 te=240
+
+  q r
+}

data/sample/bwv775.mml

@@ -0,0 +1,157 @@
+"sq:Inventio 4 d-Moll BWV 775"
+
+{
+  ti=1,4 te=240 gm=1
+
+  q r
+}
+
+ke=-1,1
+
+{
+  ti=3,8 te=96 pr=0 co91=96 oc=4 ve=6/10
+
+  s d e f g a b
+  s c# b a g f e
+  i {du*=2/3 f a d'}
+  i {du*=2/3 g c#' e'}
+  s d' e' f' g' a' b'
+
+  s c#' b' a' g' f' e'
+  s f' d' e' f' g' a'
+  s b a' g' f' e' d'
+  s e' c' d' e' f' g'
+  s a g' f' e' d' c'
+  s d' e' f' d' e' f'
+
+  i {du*=2/3 g} i*2 r
+  s c' d' e' c' d' e'
+  i {du*=2/3 f} r i+i b
+  s/3 b a b i-s/3*3 a i g
+  s c' b a g f e
+  s f g i/5 a g a g a s g f
+
+  // 18
+  i f {du*=2/3 c' c'}
+  z d' c' {ve*=9/10 d' c' d' c' d' c' d' c'            d' c'
+  z d' c'           d' c' d' c' d' c' d' c' {te*=14/16 d' c'}}
+  z d' c' {ve*=9/10 d' c' d' c' d' c' d' c' {te*=14/16 d' c'}}
+  s c' b a g f {du*=2/3 e}
+
+  s c' d e f# g a
+  s b a g f e {du*=2/3 d}
+  s b c d e f g
+  s a b% c' d' e' f'
+  s g# f' e' d' c' b%
+  s c' b% d' c' b% a
+
+  s g# a g# f# e d
+  s c d e f# g# {du*=2/3 te*=14/16 a}
+  s d c' b% a g# f#
+  s e f# g# a b% {du*=2/3 te*=14/16 c'}
+
+  s f# e' d' c' b% {du*=2/3 te*=14/16 a}
+  s g# a b% c' d' e'
+  s a f' e' d' c' b%
+  s a' g#' f#' e' i+s a'
+  s d' i/5 c' b% c' b% c' s b% a
+
+  // 38
+  i. a s a b c'
+  i {du*=2/3 d f# a}
+  s b g a b c' d'
+  s e d' c' b a g
+  i {du*=2/3 a} s f' e' i f'
+
+  i {du*=2/3 g} s/3 e' d' i-s/3*2 e' i r
+  s d' e' f' g' a' b'
+  s c#' b' a' g' f' e'
+  i {du*=2/3 f' d'} i+s g
+  s d' c#' e' a c#'
+
+  s d' b% i/5 d' c#' d' c#' d' s {te*=12/16 c#' te*=12/16 d'
+
+  // 49
+  te*=12/16 s d'} s te*=14/16 c' b a g {du*=2/3 f}
+  s b c# d e f g
+  te*=14/16 s a d' te*=13/16 i f te*=12/16 z/2 f e f e te*=12/16 s d
+
+  te*=12/16 s/3 d c te*=12/16 q.-s/3*2 d
+}&
+
+{
+  oc=3 ve=5/10
+
+  i*3 r
+  i*3 r
+  s d e f g a b
+  s c# b a g f e
+  i {du*=2/3 f a d'}
+
+  i {du*=2/3 e g c#'}
+  i {du*=2/3 d d' f}
+  i {du=1 g a b}
+  i {du*=2/3 c c' e}
+  i {du=1 f g a}
+  s b g a b c' d'
+
+  s e d' c' b a g
+  s a f g a b c'
+  s d c' b a g f
+  s e c d e f g
+  s a, g f e d c
+  s d b, i {du*=2/3 c c,}
+
+  // 18
+  s f, g, a, b, c {du*=2/3 d}
+  s e, d c b, a, g,
+  s a, b, c d e {du*=2/3 f}
+  s g, f e d c b,
+  s a, b, c a, b, c
+
+  i f#, i*2 r
+  s g, a, b, g, a, b,
+  i e, i*2 r
+  i {du*=2/3 ve*=13/10 f, f d}
+  i {du*=2/3 ve*=12/10 b%, g#, e,}
+  s {ve*=11/10 a, g#, a, b%, c d}
+
+  z f e {ve*=9/10 f e f e f e f e f e
+  z f e           f e f e f e f e f e}
+  z f e {ve*=9/10 f e f e f e f e f e
+  z f e           f e f e f e f e f e}
+
+  z f e {ve*=9/10 f e f e f e f e f e}
+  i {du*=2/3 ve*=13/10 e e' d'}
+  i {du=1 ve*=12/10 c' b% a}
+  i {ve*=11/10 d' e' f'}
+  i d' e' e
+
+  // 38
+  s a a, b, c d e$
+  s f#, e$ d c b, a,
+  i. g, s g, a, b,
+  i {du*=2/3 c, g, c}
+  s f g a b% c#' d'
+
+  s e d' c#' b% a g
+  i {du*=2/3 f a d'}
+  i {du*=2/3 e g c#'}
+  s d e f g a b
+  s c# b a g f e
+
+  s f g i {du*=2/3 a a,}
+
+  // 49
+  i. b, s c b, a,
+  s g, b a g f e
+  s f g i {du*=2/3 a a,}
+
+  q. d,
+}
+
+{
+  ti=1,4 te=240
+
+  q r
+}

data/sample/bwv787.mml

@@ -0,0 +1,129 @@
+"sq:Sinfonia 1 C-Dur BWV 787"
+
+{
+  ti=1,4 te=240 gm=1
+
+  q r
+}
+
+ke=0,0
+
+{
+  ti=4,4 te=76 pr=0 co91=96 oc=4 ve=6/10
+
+  s {te*=15/16 r} g a b c' d' e' f'
+    {g' {s/3 f' g' f'} g' a'} f' a' g' {te*=15/16 f'}
+  h+q e' q f#'
+
+  i g' f' q e' i d' s e' f' {s/3 e' {ve=1/100 d'} e'} q+i-s d'
+  s g' f' q+i e' i e' {s/3 d' c'} q+q.-s/3*2 d'
+
+  {s/3 c' b} i+i-s/3*2 c' {z/2 c' b c' b} s a b c' d' b
+  q+s g s c' d' e' a b a b z c' b c' b c' b a b
+
+  // 7
+  i {du*=2/3 c' g} {s/3 c' b} q+i-s/3*2 c'
+    {z/2 c' b c' {ve=1/100 b}} s a q+s d'
+  s b c' d' q+i e' i+i a' {s/3 g' f#'} i+i-s/3*2 g'
+
+  {z/2 g' f#' g' f#'} s e' f#' g' a' f#' q+s d' s g' a' b'
+  s e' f#' e' f#' z g' f#' g' f#' g' f#' e' f#'
+    s {du*=2/3 g'} a' g' f#' e' d' c' b
+
+  s a b {z/2 b a b a} g a f# {s/3 g f# g} a q+s b s g a b$
+  s {du*=2/3 a} e f g a b c#' d' e' {s/3 d' e' d'} e' f' e' b$' a' g'
+
+  // 13
+  s {du*=2/3 f'} g' f' e' d' c#' d' e' q f' f#'
+  q g' q+i f' s {s/3 e' d' e'} d' q+i e'
+
+  i+i d' c' {z/2 b c' b c'} s a i {du*=2/3 b d'}
+  s/3 g' f' q+s-s/3*2 g' s a' f' g' q a' b'
+
+  q c'' b$' a' s r e' d' c'
+  s b d' e' f' h+s g' s c' f' e'
+
+  q f' e' i d' q. r
+  s r f' e' d' te*=14/16 h c' te*=14/16 q b
+  i te*=23/16 r q b te*=5/16 h+i c'
+}&
+
+{
+  oc=4 ve=6/10
+
+  w r
+  s r {s*3 c}& r d e f g a b {c' {s/3 b c' b} c' d'} c' e' d' c'
+
+  i b i+i d' i+q c' q+q b
+  s r d' c' b q. a i a
+
+  i g f q e h+s d
+  s f e d oc-=1 c' b a g f g f e f r e f
+
+  // 7
+  q e oc+=1 i r e q f# s r c' b a
+  q+s g s g c' b q c' b
+
+  h+s a s c' b a g f# e oc-=1 d'
+  s c' d' c' b c' r b c' q+s b s b a g
+
+  i f# r q r oc+=1 s r d e f q+s e
+  s r i r q r oc-=1 i r a b c#'
+
+  // 13
+  oc+=1 s d d e f g a b c#' d' c#' d' e' c' e$' d' c'
+  s b$ a b$ c' a c' b$ a q. g i g
+
+  q f i e r h r
+  s r f g a b c' d' e' f' e' f' g' f' a' g' f'
+
+  i e' i+i a' i+s g' s c' d' e' q+i. f' s r
+  s r f' e' d' c' d' c' b$ q+i a
+
+  i+i d' c' s {z/2 c' d' c' b} a b c' {i+s d'}& r b
+  q g s r b$ a g f g {s/3 f r f} e f d e f
+  i r q f h+i e
+}&
+
+{
+  oc=3 ve=5/10
+
+  q c i r c' b g a {du*=2/3 b}
+  s c' s*3 r i r b a g a {du*=2/3 d}
+
+  s g, g a b oc+=1 c d e f g f g a f a g f
+  s e f e d oc-=1 c' b a g f g f e f d e f
+
+  s {du*=2/3 e} g, a, b, c d e f g f g a f a g f
+  h+q e s {ve*=13/10 {du*=2/3 d} i. d}
+
+  // 7
+  s c d c b, a, g, f#, e, {du*=2/3 d,} e d c b, a, g, f#,
+  s {du*=2/3 e,} f e d c b, a, g, f#, d, e, f#, g, a, b, c
+
+  s d c d e c e d c q b, q+i. b s r
+  s {ve*=13/10 a} i. {ve*=13/10 a} i e d q c
+
+  s d g f# e d c b, a, g, a, g, f, g, e, f, g,
+  i {du*=2/3 c#,} d c# b, {du*=2/3 a,} g f e
+
+  // 13
+  i {du*=2/3 d} r q r s r g' f' e' d' c' b$ a
+  s {du*=2/3 g} c d e f g a b$ c' b$ c' d' b$ d' c' b$
+
+  s {du*=2/3 a} g a b oc+=1 c d e f g f g r f a g f
+  q e r s r c' b a g f e d
+
+  oc-=1 s c' d' c' b$ c' a b$ c' {du*=2/3 f} g f e d c b, a,
+  s {du*=2/3 g,} a g f e d c b$, {du*=2/3 a,} b$ a g f e d c
+
+  s {du*=2/3 b,} g, a, b, c d e f g f g a f a g f
+  i e s f g i {du*=2/3 a c} d s e f i {du*=2/3 g g,}
+  w {ve*=4/3 c}
+}
+
+{
+  ti=1,4 te=240
+
+  q r
+}

data/sample/groove.grv

@@ -0,0 +1,33 @@
+0.000000
+0.072917
+0.124479
+0.194271
+0.243229
+0.319792
+0.372917
+0.450000
+0.502083
+0.575000
+0.622396
+0.695312
+0.745313
+0.819271
+0.866667
+0.940625
+0.991146
+1.065104
+1.115625
+1.195833
+1.246354
+1.314062
+1.365625
+1.442187
+1.491667
+1.565104
+1.615625
+1.684375
+1.739062
+1.807813
+1.858333
+1.940104
+2.000000