smml 0.1.4 → 0.1.6

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 3adeb15710c27d8fffde8600d6566f00530fd1e2
-  data.tar.gz: 5589cb7b1d51a32246176a770d8ac4ccdbaa1275
+  metadata.gz: 399ce12531f91fa0f95a418517a7eaf3a9033119
+  data.tar.gz: 075f0f29408e73724c191251ed701b56c1818182
 SHA512:
-  metadata.gz: 51def6b77027288a689991fca86e9b276b2a490fd82418f82284ba4c00e799a1eaa1060c7cf723894ca98484082539b983f03bbd62fecf1d6929a9ce9d1c6b65
-  data.tar.gz: 8f393f35c258a5e8791d426dab9db5d72d3d105d944cf0fb063b7e52aac316e3c7b644dce4f06bdea6d957783ba46884555b1e1f2b8cd5a069635c9712f83a50
+  metadata.gz: 0d8dfed6fcff8b3364fc72a52988fd389a841e1eb93f0b472a2ad08aa4e00787f26ef05c030afdf9bbfa5c208a7e6cc6e93738055c10c026e08666494b907e37
+  data.tar.gz: af807db0f9b857c2aee7a086fb5e9a16f8ee12738fb4c2ae752b54eb6c0df9135353d44d04fd09d4c54bb24a45e6ecf28719add73df77db387d7fe8be1639a41

data/lib/smml/msm.rb

@@ -5,9 +5,17 @@ require 'optparse'
 
 $debuglevel=0
 
+# as gem or this file only
+def version
+  if defined?(Smml) && ( Smml.constants.member?("VERSION") || Smml.constants.member?("VERSION") )
+    Smml::VERSION 
+  else
+    File.mtime(__FILE__).strftime("%Y-%m-%d")
+  end
+end
 def hintminimum
   cmd="smml"
-  puts "Smml v#{Smml::VERSION}"
+  puts "Smml v#{version}"
   puts <<EOF
 usage:
    data to mid
@@ -159,6 +167,154 @@ def multilineTrim l,com
   puts " ? mismatch end mark of multiline comment."  if on
   r
 end
+
+#===========================================================
+module MmlReg
+  def self.r key, sort=true
+    raise if sort.class==Symbol
+    case key
+    when Array
+      raise if (key-@@keys).size>0
+      ks=key
+      ks=(@@keys-(@@keys-ks)) if sort
+      ks.map{|i|@@h[i]}*"|"
+    else
+      @@h[key]
+    end
+  rescue
+    puts "Regex part,arg bug",[key-@@keys]
+    raise
+  end
+  def self.trackr
+    self.r([:hexraw,:sharps,:chord,:word,:sound,:modifier,:velocity,:tempo,:num,:octave,:note,:mod,:note?,:sound?])
+  end
+  @@h={} # mml regex key hash. order is in @@keys
+  @@keys=[
+    :comment,
+    :keyword,
+    :macrodefAStart,
+    :macrodefA,
+    :macrodefStart,
+    :macrodef,
+    :hexraw,
+    :hexrawStart,
+    :tSep,
+    :pSep,
+    :multipletStart,
+    :multipletmark,
+    :macroA,
+    :macro,
+    :repStart,
+    :repEnd,
+    :word,
+    :modifier,
+    :sharps,
+    :wordStart,
+    :word?,
+    :chord,
+    :velocity,
+    :sound,
+    :DCmark,
+    :tempo,
+    :mod,
+    :octave,
+    :num,
+    :blank,
+    :valueSep,
+    :parenStart,
+    :parenEnd,
+    :chordStart,
+    :chordEnd,
+    :cmdValSep,
+    :note,
+    :dummyNote,
+    :randNote,
+    :note?,
+    :sound?,
+    :plusMinus,
+    :lineSep,
+    :chord?,
+  ]
+  @@h[:comment]="\\( *comment[^\(\)]*\\)"
+  @@h[:word]="\\([^\(\):]*:[^\(\)]*\\)"
+  @@h[:wordStart]="\\([^\(\):]*:"
+  @@h[:sharps]="\\([+-]*[[:digit:]]*\\)"
+  @@h[:word?]="\\([^\(\)]*\\)"
+  @@h[:chord]="\\{[^\{\}]+,[^\{\},]+\\}|:[[:alpha:]][[:alnum:]]*,"
+  @@h[:velocity]="v[[:digit:]]+"
+  @@h[:note]="[abcdefgACDFGr]|\\{[[:digit:]]+\\}"
+  @@h[:note?]="[BE]"
+  @@h[:dummyNote]="o"
+  @@h[:randNote]="\\?"
+  @@h[:sound]="_[^!]+!|=|~"
+  @@h[:sound?]="[[:alpha:]]"
+  @@h[:DCmark]="\\.\\$|\\.[[:alpha:]]+"
+  @@h[:tempo]="[><][[:digit:]]*"
+  @@h[:mod]="[`'^]"
+  @@h[:octave]=   "[+-][[:digit:]]*"
+  @@h[:plusMinus]="[+-][[:digit:]]*"
+  @@h[:tSep]="\\|\\|\\|"
+  @@h[:pSep]="\\/\\/\\/+"
+  @@h[:repStart]="\\["
+  @@h[:repEnd]="\\]"
+  @@h[:multipletStart]="\\/\\*?[[:digit:]\\.]*:"
+  @@h[:multipletmark]="\\/"
+  @@h[:num]="[-+*]?[[:digit:]]+\\.[[:digit:]]+|[-+*]?[[:digit:]]+"
+  @@h[:hexraw]="&\\([^()]*\\)"
+  @@h[:hexrawStart]="&\\("
+  @@h[:keyword]="macro +"
+  @@h[:macroA]="\\$\\{[^}]+\\}\\[[^\\]]+\\]|\\$[^}\\$\\{\\(\\)]+\\[[^\\]]+\\]"
+  @@h[:macro]="\\$[[:alnum:]]+\\([^)]*\\)|\\$[[:alnum:]]+|\\$\\{[^}]+\\}"
+  @@h[:macrodefAStart]="[[:alnum:]]+\\([,[:alpha:]]+\\):= *\\( *\\z"
+  @@h[:macrodefA]=     "[[:alnum:]]+\\([,[:alpha:]]+\\):= *[^\\n]+"
+  @@h[:macrodefStart]="[[:alnum:]]+:= *\\( *\\z"
+  @@h[:macrodef]=     "[[:alnum:]]+:= *[^\\n]+"
+  @@h[:blank]="[[:blank:]]+"
+  @@h[:valueSep]=","
+  @@h[:parenStart]="\\("
+  @@h[:parenEnd]="\\)"
+  @@h[:chordStart]="\\{"
+  @@h[:chordEnd]="\\}"
+  @@h[:cmdValSep]=":"
+  @@h[:lineSep]=";"
+  @@h[:chord?]=":[^=,]+,"
+  @@h[:modifier]="_[^_]__[^\\?]+\\?"
+  r=self.r(@@keys)
+  RwAll=/#{r}|./
+  MacroDef=self.r([:macrodefAStart,:macrodefStart,:macrodefA,:macrodef])
+  ArgIsOne=%w[ bendCent mark p gm gs xg loadf text ]
+  def self.event m,rest=[]
+    ((@@keys-rest).map{|k|m=~/\A#{@@h[k]}\z/ ? k : nil}-[nil])[0]
+  end
+  def self.item m,rest=[]
+    [self.event(m,rest),m]
+  end
+  def self.hexitem m
+    m=~/([[:digit:]]{2})|(\$[^ ]+)|([, ])/
+    if $1
+      [:hex,m]
+    elsif $2
+      [:macro,m]
+    elsif $3
+      [:hexSep,m]
+    else
+      [hex?,m]
+    end
+  end
+  def self.keyAll
+    @@keys
+  end
+  def self.regmakeExcept ex
+    r=self.r(@@keys-ex)
+    /#{r}|./
+  end
+  def self.blanks
+    [:comment,:blank,:lineSep]
+  end
+end
+
+#===============================================
+
 def allTrackMark c
   "(mark:.ALL_TRACK_MARK_#{c}.)"
 end
@@ -227,6 +383,19 @@ class Array
     end
     r
   end
+  def lastIsPreAfter
+    self[-1][0..1]==[:call,:preAfter]
+  end
+end
+def mergeValues a,b
+  r=[]
+  size = a.size>b.size ? a.size : b.size
+  size.times{|i|
+    tmp=[a[i],b[i]]-["o"]
+    tmp=["o"] if tmp==[]
+    r<<tmp*""
+  }
+  r
 end
 class Notes < Hash
   @@rythmChannel=9
@@ -355,7 +524,7 @@ class Event
     @value=""
     case @type
     # event without time;  except ':e'
-    when :comment,:raw
+    when :comment,:raw,:debugcomment
       settime(0)
       @value=arg[0]
     when :ahead
@@ -403,6 +572,18 @@ class Event
       varlenHex(@time)+@value
     end
   end
+  def debugdata
+    case @type
+    when :raw
+      "raw"
+    when :mark
+      "mark(#{@track}_#{@mark}) [#{@value}]"
+    when :comment
+      @value
+    else
+      ""
+    end
+  end
   def display
     "#{@pos}(#{@time}) #{@type} => #{@value}"
   end
@@ -995,7 +1176,7 @@ module MidiHex
     @waitingtime=0
     @nowtime+=start
     r=[Event.new(:on)]
-    r<<Event.new(:e,start," 9#{ch} #{key} #{vel} # #{start}後, sound on only , note #{@key} velocity #{velocity}\n")
+    r<<Event.new(:e,start," 9#{ch} #{key} #{vel} # #{start} later, sound on only , note #{@key} velocity #{velocity}\n")
     r
   end
   def self.soundOff key=@basekey,ch=@ch,sharp=0
@@ -1030,7 +1211,7 @@ module MidiHex
     slen,rest=self.byGate(len,gate)
     @nowtime+=start
     r=[]
-    r<<Event.new(:e,start," 9#{ch} #{key} #{vel} # #{start}後, soundオン note #{@key} velocity #{velocity}\n")
+    r<<Event.new(:e,start," 9#{ch} #{key} #{vel} # #{start} later, sound on note #{@key} velocity #{velocity}\n")
     b=@preAfter.shift
     bends=expre=false
     if b
@@ -1048,7 +1229,7 @@ module MidiHex
       }
     end
     @nowtime+=slen
-    r<<Event.new(:e,slen," 8#{ch} #{key} 00 # #{slen}(gate:#{@gateRate})- #{len.to_i}(#{len.round(2)})tick後, soundオフ [#{(@nowtime/@tbase).to_i}, #{@nowtime%@tbase}]\n")
+    r<<Event.new(:e,slen," 8#{ch} #{key} 00 # #{slen}(gate:#{@gateRate})- #{len.to_i}(#{len.round(2)})ticks later, sound off [#{(@nowtime/@tbase).to_i}, #{@nowtime%@tbase}]\n")
     r<<self.bend(0,0) if bends
     r<<self.expre(0,127) if expre
     if rest>0
@@ -1238,7 +1419,7 @@ module MidiHex
     chx=format("%01x",ch)
     @nowtime+=len
     r=[]
-    r<<Event.new(:end,len," 8#{chx} 3C 00 # rest #{len.to_i}(#{len.round(2)})tick後, オフ:ch#{ch}, key:3C\n")
+    r<<Event.new(:end,len," 8#{chx} 3C 00 # rest #{len.to_i}(#{len.round(2)})ticks later, off:ch#{ch}, key:3C\n")
     r
   end
   def self.restHex len=@tbase,ch=@ch
@@ -1268,9 +1449,8 @@ module MidiHex
     self.metaHook d,1,pos
   end
   def self.generaterText
-    file=__FILE__
-    thisVer="v#{Smml::VERSION}"
-    thisVer="" if $debuglevel && $debuglevel>1
+    thisVer="v#{version}"
+    thisVer="" if $debuglevel>1
     pos=@tbase
     self.metaText("generated by midi-simple-make.rb (#{thisVer})",pos)
   end
@@ -1320,7 +1500,10 @@ module MidiHex
     end
     c=midiVround(c)
     @expression=c
-    self.controlChange("11,#{c},#{len}")
+    r=[]
+    r<<Event.new(:comment,"# expression #{d}")
+    r<<self.controlChange("11,#{c},#{len}")
+    r
   end
   def self.ProgramChange ch,inst,len=0
     ch=@ch if ch==false
@@ -1634,7 +1817,9 @@ module MidiHex
     # EventList : [func,args]  or [callonly, func,args] or others
     elist.each{|h|
       cmd,*arg=h
-      r<<Event.new(:comment,"# #{cmd} #{arg}")
+      e=Event.new(:comment,"# #{cmd} #{arg}")
+      r<<Event.new(:raw,self.metaText("#{cmd} #{arg}")) if $DEBUG && $debuglevel>5
+      r<<e
       case cmd
       when :basekeyPlus
         @basekey+=arg[0]
@@ -1691,7 +1876,7 @@ module MidiHex
               (i.addtime(after);after=0) if after>0
               (i.addtime(after);after=0) if after<0 && i.time+after>=0
               rr<<i
-            when :comment,:raw,:mark
+            when :comment,:raw,:mark,:debugcomment
               rr<<i
             else
               "? #{i}"
@@ -1707,8 +1892,8 @@ module MidiHex
       end
     }
   end
-  def self.makefraze rundata,tc
-    return "" if not rundata
+  def self.makefraze mmldata,tc
+    return "" if not mmldata
     self.trackPrepare(tc)
     @systemWait=120
     @h=[]
@@ -1721,7 +1906,7 @@ module MidiHex
     accent=false
     sharp=0
     @h<<[:controlChange,"10,#{@panoftrack}"] if @autopan
-    cmd=rundata.scan(/&\([^)]+\)|\([-+]*[[:digit:]]?\)|:[^\(,]+\([^\)\(]+\),|:[^,]+,|\([^:]*:[^)\(]*\)|_[^!_]+!|_[^_]__[^\?]+\?|v[[:digit:]]+|[<>][[:digit:]]*|\*?[[:digit:]]+\.[[:digit:]]+|[-+][[:digit:]]*|\*?[[:digit:]]+|[[:alpha:]]|\^|`|'|./)
+    cmd=mmldata.scan(/#{MmlReg.trackr}|./)
     cmd<<" " # dummy
     p "track hex; start making: ",cmd if $DEBUG
     cmd.each{|i|
@@ -1796,7 +1981,12 @@ module MidiHex
         @h<<[:call,:preGate,gs]
       when /^\(A:(.*)\)/
         s=$1.split(",")
-        @h<<[:call,:preAfter,s]
+        if @h.lastIsPreAfter
+          s=mergeValues(s,@h.last[2])
+          @h[-1]=[:call,:preAfter,s]
+        else
+          @h<<[:call,:preAfter,s]
+        end
       when /^\(B:(.*)\)/
         s=$1.split(",")
         @h<<[:call,:preBefore,s]

data/lib/smml/version.rb

@@ -1,3 +1,3 @@
 class Smml
-  VERSION = "0.1.4"
+  VERSION = "0.1.6"
 end

data/tutorial_smml.md

@@ -14,13 +14,14 @@ c
 ```
  r c d e d c3 r
 ```
+
 ;; capital letters are notes with sharps
 
 ```
 e D e f F g g2
 ```
 
-## octave
+## octave level
 ;; change octave hight by '-', '+' or '(octave:3)' etc.
 
 ```
@@ -29,105 +30,168 @@ e D e f F g g2
 - e d c2
 ```
 
-;; >< tempo up/down.
+;; >< tempo up/down a little bit.
 
 ```
 f r > f r > f r > f r <<< fr fr fr fr
 ```
+
+
 ## note length
 ;; use note length. set it after note charactors. no length means 1.
+
 ```
 c d2 e3 f4
 ```
+
 ;; float numbers as length too.
+
 ```
 c d0.5 d0.5 e0.25 e0.25 e0.25 e0.25
 ```
+
 ;; ( thus, length expression is far from standard MML. usualy it is similiar to musical note name. )
 
 ## multiplet
 ;; but above is similiar to bellow
+
 ```
 c /: dd / /: eeee /
 ```
+
 ;; because for example '/3: dd /' means that two 'd' notes are set inside '3' beats. 
+
 ```
-/3: dd / /3: ddd / /3: dddddd / /3: dddddddddddd /
+/3:dd/    /3:ddd/    /3:dddddd/   /3:dddddddddddd/
+```
+
+these are all in 3 beats. when the total beat length word between ```/``` and ```:``` is omitted, it will be set to 1 beat.
+each note length is set by each rate and total length.
+each line of below is same meaning.
+
+```
+a0.5 c0.25 c0.25
+/1: a2 c    c   /
+/:  a2 c    c   /
+/:  a4 c2   c2  /
 ```
 
 ## gate time
 ;; real tone length is important sometimes. gate time command is a percentage of tone length. (staccato etc.)
+
 ```
  (g:100) a b c
  (g:70)  a b c
 ```
-first line is played like with a slar. second one will be played by more shorter sounds.
+
+first line is played like with a slur. second one will be played by more shorter sounds.
 
 
 ;; set velocity. max is 127.
+
 ```
 (v:70) c (v:40) c (v:20) c (v:70) c (v:90) c
 ```
+
 ;; set panpot. value is between 0 and 127. when using '><', right or left value (from 0 to 63). 
+
 ```
 (pan:>30) c d e
 ```
+
 if you don't, smml sets panpot values automatically.
 
 
-## repeat phraze
+## repeat phrase
 ;; repeat 3 times
+
 ```
 [ c d e f ]3 
 ```
+
 ;; a melody goes near up/down side note without octave commands as default.
+
 ```
 [ cdefgab ] 4
 ```
+
 ;; if you don't want do so, use octave command  '-'. '--' is same to '-2'
+
 ```
 [ cdefgab - ] 4
 [ cdefgab cdefgab -- ] 4
 ```
+
 ;; to make long tones easy to read, '~' is used. 'c3' is same to 'c~~'. it can be set whereever notes can be set.
+
 ```
 c d e ~ e d c ~
 c /:~de/ d ~ 
 ```
-;; same note is '='.
+
+;; the same note to the preceding one is '='.
+
 ```
 c = = = d = = =
 ```
 
 ## chord
 ;; multi notes with length 2.
+
 ```
 {c,e,g}2
 ```
 
 ;; chord name. used as same way as note commands. currently ',' is not be able to omitted as a part of chord name.
+
 ```
 :cmaj7, = = = :G7, = = =
 ```
+
+## tempo
 ;; most commands except note type ones, are inside parenthesis. set the tempo 120 bpm.
+
 ```
 (tempo:120)
 ```
+
 ;; stroke. after it, multi notes are played shifted note by note.
+
 ```
 (stroke:4)
 ```
 
+repeating same command name in parenthesis, use blank.
+
+```
+(stroke:4) {a,b,c} = = (:6)  = = = 
+```
+
+is the same to
+
+```
+(stroke:4) {a,b,c} = = (stroke:6)  = = = 
+```
+
+```
+(stroke:4) {a,b,c} = = (:-)  = = = 
+```
+
+minus value is for to stroke up. currently, up value affects once only as it simulates playing the guitar. 
+
 ## sharp, flat
 ;; note name etc. is case sencitive, so each of 12 notes in one octave can be expressed by one charactor. 
 ;; but in other cases,
 ;; sharp,flat and natural note command can be used. set before the note.
+
 ```
 (+)a (-)b (0)c
 ```
+
 strange ways can be affective currently. '(+4)a' etc.
 ;; instead of 'd' etc., note numbers can be used if you want.
 ;; MIDI note value is from 0 to 127. it's over Piano's 88. but too high/low note may not be played and heard.
+
 ```
 {64} 
 {50,54,58}
@@ -135,14 +199,19 @@ strange ways can be affective currently. '(+4)a' etc.
 
 ## instrument; program change
 ;; drum sound can be used anywhere, but this is not MIDI way. use instrument name.
+
 ```
 _snare! = = =
 ```
+
 ;; set instrument. automaticaly searched by even not exact name. (MIDI program change command)
+
 ```
 (p:piano) c d e f (p:guitar) f e d c
 ```
+
 ;; set drum channel. after it is set, note numbers also can be used as same as '_snare!' etc.
+
 ```
 (ch:drum) {34} = = = {35} = = =
 ```
@@ -150,26 +219,33 @@ _snare! = = =
 ## track
 ;; in SMF, MIDI channel is 1 - 16, and drum is in 10 channel. but currently, these are automaticaly set.
 ;; you don't need to think about it. simply seperate tracks with a command '|||'.
+
 ```
 (p:piano) c d e f ||| (p:organ) e f g a ||| (p:guitar) g a b c
 ```
+
 ;; for visibility, the same
+
 ```
     (p:piano)  c d e f 
 ||| (p:organ)  e f g a
 ||| (p:guitar) g a b c
 ```
+
 ;; the same track name, the same MIDI channel and setting.
+
 ```
     (track:foo) (p:organ) aa
 ||| (track:foo) bb
 ||| (track:hoge) cc
 ```
+
 first two tracks are 'organ' sound by the track names declared.
 
 ## page
 ;; then seperate pages by three or longer one line '/'.
 ;; but this command do not adjust time potisions. it simply resets track number increment.
+
 ```
   cdef|||efga|||gabc
   ////////////////////
@@ -177,19 +253,25 @@ first two tracks are 'organ' sound by the track names declared.
   ///////////////////
   cdef|||efga|||gabc
 ```
+
 ;; the same to below.
+
 ```
 cdef cdef cdef ||| efga efga efga ||| gabc gabc gabc
 ```
+
 ;; if you want to adjust tracks, use a blank page by two lines of page seperaters. the last three 'c' will be played adjusted.
+
 ```
 cd ||| e ||| abcde 
 ////////////////////
 ////////////////////
 c|||c|||c
 ```
+
 ## position mark
 ;; or use a position mark command.
+
 ```
 cd ||| e ||| abcde 
 ////////////////////
@@ -197,12 +279,15 @@ cd ||| e ||| abcde
 ||| (mark:positionName)  c
 ||| (mark:positionName)  c
 ```
+
 these are played like  this.
+
 ```
     cdrrr c  ;; track 1
 ||| errrr c  ;; track 2
 ||| abcde c  ;; track 3
 ```
+
 ;; marks are not needed for all tracks. positions will be adjusted automaticaly to the preceeding track while the same marks exist.
 ;; like this, most commands except tempo, a command effects its belonging track only.
 
@@ -210,7 +295,9 @@ these are played like  this.
 ```
   [ a b c (mark:m) ] 3
 ```
+
 ;; same mark names 'm' in repeated section or one track will be automaticaly substituded by 'm m@2 m@3'. to adjust, use it in other tracks.
+
 ```
   a b c (mark:m) a b c (mark:m@2) a b c (mark:m@3)
 ```
@@ -228,6 +315,7 @@ these are decreared in map files;
 when there are same name files on the current directory, these are used. if not, default files in the gem will be set.
 data in these map text must start with instrument number.
 without it, the line text is used for section name. if the word 'Guitar' appears, it is included for searching keyword until the next section name line appears.
+
 ```
 
 Piano Section
@@ -240,15 +328,18 @@ Guitar Section
 5 two
 
 ```
+
 so in this list, instrument number 1,2 and 3 match the keyword 'piano'. 
 So '(p:guitar,2)' selects an instrument line '5 two' as the 2nd result of searching 'guitar' and will be used instead of no word 'guitar' on it.
 
 ## hex data
 ;; until smml syntax is completed, raw hex parts can be used for complex data and things you don't know how to inprement in data.
 search MIDI format and set hex data.
+
 ```
   &(00 00 00)
 ```
+
 ;; currently hex only can be used. oct/decimal may be able to use someday.
 all in SMF track data, unique formated prefix delta tick time data is needed. so if want, you can use '$delta(240)' for 240 ticks.
 the tick means a minimum time span in SMF , one beat equals to 480 ticks as default. in this case, delta time is set to half beat.
@@ -256,38 +347,49 @@ also '$se(F0 41 ..)' can be used for system exclusive message data.
 currently, nest data of parenthesis is not implemented except very limited cases.
 
 ## macro define
-;; for repeating phraze, macro can be used. use prefix '$' for refering.
+;; for repeating phrase, macro can be used. use prefix '$' for refering.
+
 ```
     Macr:=cde
     macro W:=abc
 
     ggg $Macr fff $W
 ```
+
 the  4th line will be subsituted by
+
 ```
     ggg cde fff abc.
 ```
+
 the keyword 'macro' is used just for reading and will simply be ignored.
 
 
 ;; macro with args
+
 ```
     fn(x):=ab$x
 ```
+
 ;; in this case, '$fn(10)' is substituded by 'ab10'. similarly,
+
 ```
    $fn(:5,6,7)
    $fn(4:10,20,30)
 ```
+
 will be
+
 ```
    ab5 ab6 ab7
    ab10 (wait:4) ab20 (wait:4) ab30
 ```
+
 '(wait:4)' was inserted by '4' in first place before args. it means 4 beats of rest (exact mean of '(wait:..)' is 'do nothing and wait for the next command' ).
 
 
 multiline macro definition
+
 ```
 EFF:=(
    F0,43,10,4C,02,01,00,01,01,F7
@@ -296,15 +398,29 @@ EFF:=(
    F0,43,10,4C,02,01,14,70,F7   
 )
 ```
+
 but now, this is for easy way of writing only, and may not be so useful. to use it, each line must be seperated.
+
 ```
 $EFF[1] $EFF[2] $EFF[3] $EFF[4]
 ```
 
+but, these are MIDI system exclusive HEX data, so to make it really effective data, use this,
+
+```
+(xg:on)
+&( $delta(120) $se($EFF[1]) 00 $se($EFF[2]) 00 $se($EFF[3]) 00 $se($EFF[4]) )
+```
+
+```$se()``` translates hex SysEx data to SMF hex data, and it needs pre delta-time data by ```$delta(ticks)``` like other data.
+```$delta(0)``` is ```00``` , so both of these are effective.
+
+
 ## comment
 ;; ignored after ';;' of each line. write comments there.
 multi line comments start with longer ';'.
 end mark is same or longer mark of ';' than start mark. these must start from the top of the line.
+
 ```
 ;; comment
 ;;;;;;;;;;;;;;;;;;;;;;;;
@@ -321,10 +437,12 @@ end mark is same or longer mark of ';' than start mark. these must start from th
    a b c d e f g
 ;;;;;;;;;;;;;;;;;;;;
 ```
+
 in this case, active sound commands are 'abc' only.
 
 ## sound elements
 use parts split note hight, length, velocity, gate time, pre modifier; sound elements. 
+
 ```
 (L: ...)
 (V: ...)
@@ -332,6 +450,7 @@ use parts split note hight, length, velocity, gate time, pre modifier; sound ele
 (B: ...)
  a b c d e
 ```
+
 the first value of each part will used for the first note 'a'. and so on.
 inside parts, position is seperated by ',' or use dummy value 'o'.
 '(V:,,,60,,)' is '(V:ooo 60 oo)'. last dummy values can be omitted. in this case, 4th note 'd' velocity is set to 60.
@@ -339,6 +458,7 @@ if 6th note don't exist, pre modifier element values are simply ignored.
 
 
 in the same way,
+
 ```
 (N: a b c d e )
 (L: ...)
@@ -347,59 +467,76 @@ in the same way,
 (B: ...)
  o o o o o
 ```
+
 is same mean to above. 'o' is dummy note. note hights are substituted by '(N:..)' values.
 
 
 ## dummy note
 'o' is dummy. '?' is for random note etc.
+
 ```
  ? /2: ???? /
 ```
+
 will be
+
 ```
  c /2: defg /
 ```
+
 or maybe
+
 ```
  e /2: cagb /
 ```
+
 etc.
 if a scale has been defined as below, random notes will be selected from its scale notes.
+
 ```
  (scale:a,b,c,d,e)
  (scale:a,+2,+3,+5,+7,+9,+11)
 ```
+
 still incompleted to use.
 
 
 another random note.
+
 ```
  [ (?:56-58) ] 4        ;; use range 56 to 58, note number. in this case, 4 times repeating maybe '{56}{56}{58}{57}' etc.
  (?:a,b,40,45,90,12)        ;; select from a note number or name list.
 ```
 
 ## transpose
+
 ```
 (key:-4)
 ```
+
 ;; transpose -4 of half tone except drum instrument name like '_snare!'.
 this does not have relation with the tonality. simply transpose all notes tempolary.
 major key, minor key ,modulation of keys have not been implimented  yet.
 ## Control Change
+
 ```
  (cc:10,64)
 ```
+
 controlChange number 10 value 64. see SMF format for details.
 
 ## General MIDI etc.
+
 ```
   (gm:on)
   (gs:reset)
   (xg:on)
 ```
+
 after these MIDI system commands, it need some time over 50 mili sec. or so for running.
 implementation of it is not fixed, so for adjusting, please set marks on all tracks. for example '(mark:start)'.
 or like this.
+
 ```
 (gm:on)r
 ///////////////
@@ -415,45 +552,59 @@ if there are bugs, error can appear by macro definitions appear in the last step
 
 ## D.S. al fine
 musical repeats system marks :
+
 ```
   .DC .DS .toCODA .CODA .FINE
 ```
+
 ```
   .SKIP
 ```
+
 ;; skip on second time.
+
 ```
   .$
 ```
+
 dal segno jump mark.
 
 ```
  [ a b c ]
 ```
+
 if there is no followed number, 'abc' is repeated 2 times.
 
 ## seperater
 ;; ';' can be used for one line data as line seperater.
+
 ```
   $ smml -d "abc;def|||mc:=ggg;ccc$mc ddd" -o out.mid
 ```
+
 in this case, macro definition ends by ';', so $mc means 'ggg'.
 ## and so on
 for more details if you want to understand, see MIDI format.
 basicaly, a MIDI envent is constructed by preceding time data and event data.
 so series of event preceding each zero time data mean many event on the same time.
 but it may not be played as you expect. to fix it, set some delta time for MIDI players.
+
 ```
  (on:a)
 ```
+
 note 'a' sound on only. it takes zero tick.
+
 ```
  (off:a)
 ```
+
 note 'a' sound off only.
+
 ```
  (wait:3)
 ```
+
 it reserves 3 beats for the next note event. 
 so,
  the note event 'a' is the same as '(on:a)(wait:1)(off:a)'.
@@ -464,31 +615,43 @@ so,
 ```
  (ch:1)
 ```
+
 ;; set this track's channel 1. when several tracks use same channel, for example it will behave as the same instrument.
+
 ```
  (bend:100)
 ```
+
 pitch bend 100
+
 ```
  (bendRange:12)
 ```
+
 set bend range 12. default is normaly 2.
+
 ```
  (bendCent:on)
 ```
+
 set bend value unit cent (half tone eqauls 100 cents). defaultly this is 'off' and value is between -8192 and +8192.
 so, these are same
+
 ```
  (bendCent:off)(bend:8192)
  (bendCent:on)(bend:100)
 ```
+
 ```
  (V:o,o,110)
 ```
+
 preceding modifier velocities. if next notes are 'abc' ,3rd tone 'c' is with velocity 110. a blank or 'o' mean default value.
+
 ```
  (G:,,-)
 ```
+
 preceding modifier gate rates. if next notes are 'abc' ,3rd tone 'c' is with a gate rate shorter.
 new preceding modifiers will cancel old rest preceding values if it remains.
 
@@ -497,21 +660,25 @@ new preceding modifiers will cancel old rest preceding values if it remains.
   `  ;; too fast note, play ahead. for changing a value of shift ticks base, use '(roll:45)'.
   '  ;; too late note, lay back. 
 ```
+
 set these modifiers before note commands.
 
 ```
  (loadf:filename.mid,2)
 ```
+
 load the second track data of filename.mid. when using it, the track must be itself only. seperate by '|||'.
 this command do not check about track data strictly. be careful.
 
 
 ;; basicaly, one sound is a note type command with preceding modifiers followed by length number. 
+
 ```
   ^`a2
 ```
 
 now, note type commands are :
+
 ```
       c         ;; single note
       (-)d      ;; single note with flat/sharp/natural modifiers
@@ -524,7 +691,7 @@ now, note type commands are :
 
   and other commands are with parentheses.
 
-```'~'``` seems likely note type, but it is zipped to preceding note as calculated note length. most commands cannot be set inside of ```'a~~~'.```
+```'~'``` seems likely note type, but it is compressed to preceding note as calculated note length. most commands cannot be set inside of ```'c~~~'.```
 
 
 ## preprocess
@@ -545,16 +712,22 @@ limited commands can be used. bend,expre.
    (A:  o  o     o     o o   o o o (expre:20,40,+,+,+,+,-,-,-,-,+,+,+,+,-,-,-,-,+,+,+,+)   o, )
         a  b ~ ~ c ~ ~ d e ~ f g a b                                                       c d
 ```
+
 note loudness is result of velocity, expression and volume values multipled. expression is used for a running note etc..
 velocity for more long span, volume for total sound level etc.
 in above case, the 9th note 'b' is with modifier data, expression and bend. the first value is time interval. 
 all after that are real values. the '+' adds 10 to latest value as default.
  so expression data is ;``` 40,50,60,70,80,70,60,50,40,50,60,70,80...``` with each 20 ticks interval.
+bend and expression values inside these parts will be reseted after the modified note ends.
+series of ```(A:..)``` parts are merged. if not, old one is overwtitten.
+
 
 ## text
 text implement to MIDI file.
+
 ```
  (text:this_is_a_pen)
 ```
+
 but now blanks are removed. someday maybe fixed ?
 

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: smml
 version: !ruby/object:Gem::Version
-  version: 0.1.4
+  version: 0.1.6
 platform: ruby
 authors:
 - tabasano
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2014-08-29 00:00:00.000000000 Z
+date: 2014-09-01 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler