melody_object 0.0.2

data/lib/melody_object/g_comeon4.rb

@@ -0,0 +1,910 @@
+
+
+#
+#
+#
+#                     top   --> gotimeobject (which dictates when to play the children)
+#     _________|________
+#     |    |         |             |    |
+#
+#
+#
+#
+#
+#
+#
+#
+#
+
+
+
+def makeinstances(fun,num)
+  ary=[]
+
+  1.upto(num) {|instance| ary[instance-1]=eval(fun)}
+return ary
+end
+
+def si(fun,num=1)
+  s=makeinstances(fun,num)
+  d=Section.new
+  s.each{|e| d.addon(e)}
+  return d
+end
+
+def rd
+  rand(5)+40
+end
+
+def ssoun
+  s(seoun,deoun)
+  end
+
+                  def seoun
+                    infun('sounn',64,64,60,52,60,52)
+                    #~ return s(sounn(34),sounn(30),sounn(34),sounn(30))
+                  end
+
+                  def deoun
+                    infun('sounn',16,16,71,65,74,65).a 2
+                    end
+
+
+def duom
+  infun('sounn',64,128,47)
+end
+
+def infun(fun,len,gran,*ary)
+  s=Section.new
+  ary.each do |i|
+    s.addon(eval(fun+"("+i.to_s+","+gran.to_s+","+len.to_s+")"))
+  end
+  return s
+end
+
+  
+
+def sounn(note,gran,len)
+  timingary=[]
+  noteary=[]
+  0.upto(0) {
+  noteary.push(note)
+  timingary.push(gran)
+  }
+
+  a=objfromarys(noteary,timingary,len)
+  a.makechannel 3
+  return a
+end
+
+
+
+
+
+
+def g_comeon41(v,len=1)
+topp=Section.new
+topp.name=v.to_s
+topp.create_specific_notes(v,len)
+return topp
+end
+
+def objfromarys(noteary,timingary,len)
+    x=GotimeObject.new(timingary)
+  topp=Section.new(x)
+  noteary.each {|d| topp.addon g_comeon41(d,len)}
+     #~ $fyl.puts timingary.join(',')
+  return topp
+  
+  end
+  
+  
+
+
+
+def sta
+  
+  timingary=[]
+  noteary=[]
+  fee=rand(4)+1
+  feei=fee
+  rdi=rd
+  
+ 0.upto(fee) {timingary.push(16/feei)}
+  x=GotimeObject.new(timingary)
+  topp=Section.new(x)
+  noteary[0]=rd
+  1.upto(fee-1) {noteary.push(rdi)}
+  noteary.push(rd)
+  noteary.each {|d| topp.addon g_comeon41(d)}
+     $fyl.puts timingary.join(',')
+  return topp
+
+end
+
+def shortstroke(notetype=:all,chn=3)
+  stopp=Section.new
+  4.times do
+  gopp=Section.new
+  #popp=Section.new
+  gopp.create_notes(rand(16)+1,rand(2)+1,:rand,notetype)
+  gopp.makechannel(chn)
+  stopp.addon(gopp)
+  p=gopp.threadout(evener(rand(32)+1,:m))
+  q=p.threadout(evener(32,:m))
+  q.repl(q.a(2))
+  end
+  return stopp
+end
+  
+def shjrtstroke(notetype=:all,chn=3)
+  stopp=Section.new
+  2.times do
+  gopp=Section.new
+  #popp=Section.new
+  gopp.create_notes(rand(16)+1,rand(2)+1,:rand,notetype)
+  gopp.makechannel(chn)
+  stopp.addon(gopp)
+  p=gopp.threadout(evener(rand(32)+1,:m))
+  q=p.threadout(evener(32,:m))
+  q.repl(q.a(2))
+  end
+  return stopp
+end
+
+def longstroke(notetype=:low,chn=1)
+  stopp=Section.new
+  4.times do
+  gopp=Section.new
+  #popp=Section.new
+  gopp.create_notes(rand(16)+1,rand(4)+1,:rand,notetype)
+  gopp.makechannel(chn)
+  stopp.addon(gopp)
+  q=gopp.threadout(evener(64,:m))
+  q.repl(q.a(2))
+  end
+  return stopp
+end
+   
+def ljngstroke(notetype=:low,chn=1)
+  stopp=Section.new
+  2.times do
+  gopp=Section.new
+  #popp=Section.new
+  gopp.create_notes(rand(16)+1,rand(4)+1,:rand,notetype)
+  gopp.makechannel(chn)
+  stopp.addon(gopp)
+  q=gopp.threadout(evener(64,:m))
+  q.repl(q.a(2))
+  end
+  return stopp
+end
+
+def shortystroke(notetype=:all,chn=3)
+  stopp=Section.new
+  1.times do
+  gopp=Section.new
+  #popp=Section.new
+  gopp.create_notes(rand(12)+16,(rand(8)+1)*(rand(3)+1),:rand,notetype)
+  gopp.makechannel(chn)
+  stopp.addon(gopp)
+  p=gopp.threadout(evener(rand(8)+16,:m))
+  q=p.threadout(evener(32,:m))
+  #q.repl(q.a(2))
+  end
+  return stopp
+end
+
+def longystroke(notetype=:low,chn=1)
+  stopp=Section.new
+  1.times do
+  gopp=Section.new
+  #popp=Section.new
+  gopp.create_notes(rand(12)+16,(rand(8)+1)*(rand(3)+1),:rand,notetype)
+  gopp.makechannel(chn)
+  stopp.addon(gopp)
+  q=gopp.threadout(evener(64,:m))
+  #q.repl(q.a(2))
+  end
+  return stopp
+end
+
+
+def shitystroke(notetype=:mid,chn=1)
+  stopp=Section.new
+  4.times do
+  gopp=Section.new
+  #popp=Section.new
+  gopp.create_notes(7,1,:rand,notetype)
+  gopp.makechannel(chn)
+  q=gopp.threadout(evener(rand(4)+2,:m))
+  stopp.addon(q)
+  q.repl(q.a(rand(3)+1))
+  end
+  stopp.threadout(evener(32))
+  #stopp=stopp.a(4)
+  return stopp
+end
+
+def shityrstroke(notetype=:mid,chn=1)
+  stopp=Section.new
+  4.times do
+  gopp=Section.new
+  #popp=Section.new
+  gopp.create_notes(7,(rand(3)+1)*3,:rand,notetype)
+  gopp.makechannel(chn)
+  q=gopp.threadout(evener(rand(4)+2,:m))
+  stopp.addon(q)
+  q.repl(q.a(rand(3)+1))
+  end
+  stopp.threadout(evener(32))
+  #stopp=stopp.a(4)
+  return stopp
+end
+
+def bas(n=:mid,ch=3)
+  a=Section.new
+  2.times do
+    f=Section.new
+    f.create_notes(2,1,:even,n)
+     f.versionize 4
+       f.alter_versions_all(:alter_pitch,"Alter_Pitch_Paramobj",7)
+    f.makechannel(ch)
+    a.addon f
+  end
+  a.nayme
+ 
+
+  b=a.threadout(evener(8,:m))
+  return b
+end
+
+
+def shitvstroke(notetype=:mid,chn=1)
+  stopp=Section.new
+  4.times do
+  gopp=Section.new
+  #popp=Section.new
+  gopp.create_notes(7,2,:rand,notetype)
+  gopp.makechannel(chn)
+  p 'one'
+  gopp.versionize 4
+  p 'two'
+  gopp.alter_versions_all(:alter_pitch,"Alter_Pitch_Paramobj",7)
+  p 'three'
+  q=gopp.threadout(evener(32,:m))
+  p 'four'
+  stopp.addon(q)
+  p 'five'
+  #q.repl(q.a(rand(3)+1))
+  p 'six'
+  end
+  p 'seven'
+  #stopp.threadout(evener(64))
+  #stopp=stopp.a(4)
+  return stopp
+end
+
+
+def shitstroke(notetype=:mid,chn=1)
+  stopp=Section.new
+  4.times do
+  gopp=Section.new
+  #popp=Section.new
+  gopp.create_notes(7,2,:rand,notetype)
+  gopp.makechannel(chn)
+  q=gopp.threadout(evener(rand(16)+2,:m))
+  stopp.addon(q)
+  q.repl(q.a(rand(3)+1))
+  end
+  stopp.threadout(evener(16,:m))
+  stopp=stopp.a(4)
+  return stopp
+end  
+
+
+def jstroke(notetype=:mid,chn=1)
+  stopp=Section.new
+  2.times do
+  gopp=Section.new
+  #popp=Section.new
+  gopp.create_notes(7,2,:rand,notetype)
+  gopp.makechannel(chn)
+  q=gopp.threadout(evener(rand(16)+2,:m))
+  stopp.addon(q)
+  q.repl(q.a(rand(3)+1))
+  end
+  stopp.threadout(evener(16,:m))
+  stopp=stopp.a(2)
+  return stopp
+end   
+
+
+def jjstroke(notetype=:mid,chn=1)
+  stopp=Section.new
+  2.times do
+  gopp=Section.new
+  #popp=Section.new
+  gopp.create_notes(3,2,:rand,notetype)
+  gopp.makechannel(chn)
+  q=gopp.threadout(evener(rand(8)+2,:m))
+  stopp.addon(q)
+  q.repl(q.a(rand(3)+1))
+  end
+  stopp.threadout(evener(8,:m))
+  stopp=stopp.a(2)
+  return stopp
+end
+   
+def jkstroke(notetype=:mid,chn=1)
+  stopp=Section.new
+  2.times do
+  gopp=Section.new
+  #popp=Section.new
+  gopp.create_notes(3,1,:rand,notetype)
+  gopp.makechannel(chn)
+  q=gopp.threadout(evener(rand(8)+2,:m))
+  stopp.addon(q)
+  q.repl(q.a(rand(3)+1))
+  end
+  stopp.threadout(evener(8,:m))
+  stopp=stopp.a(2)
+  return stopp
+end
+
+
+def bothstroke(frst,scnd,chn1,chn2)
+topp=Section.new
+kopp=shortstroke(frst,chn1)
+lopp=longstroke(scnd,chn2)
+
+topp.addon(t(kopp,lopp))
+return topp
+end
+
+  
+def bjthstroke(frst,scnd,chn1,chn2)
+topp=Section.new
+kopp=shjrtstroke(frst,chn1)
+lopp=shjrtstroke(scnd,chn2)
+
+topp.addon(t(kopp,lopp))
+return topp
+end
+     
+def bjithstroke(frst,scnd,chn1,chn2)
+topp=Section.new
+topp=shjrtstroke(frst,chn1)
+return topp
+end
+
+def bothystroke(frst,scnd,chn1,chn2)
+topp=Section.new
+kopp=shortystroke(frst,chn1)
+lopp=longystroke(scnd,chn2)
+
+topp.addon(t(kopp,lopp))
+return topp
+end
+
+
+
+
+
+
+
+
+
+
+
+def stedy
+    timingary=[]
+  noteary=[]
+  fee=15
+  0.upto(fee) {timingary.push(1)}
+  x=GotimeObject.new(timingary)
+  topp=Section.new(x)
+  0.upto(fee-1) {noteary.push(0)}
+  noteary.push(42)
+  noteary.each {|d| topp.addon g_comeon41(d)}
+
+  return topp
+  end
+
+def evener(lengthh,sit=:f)
+   tmpar=[]
+  lengthh.times do |f|
+    tmpar.push 0
+  end
+  rtrn=Section.new
+  rtrn.create_specific_notes(tmpar,1)
+  rtrn.situation=:master if sit==:m
+  return rtrn
+end
+
+def t(*arr)
+  don=Section.new
+  aadd=Threadset.new
+  #p "hi #{arr.class}"
+  #       arr.each {|d| p d.class}
+  arr.each{|s|
+    aadd.addon(s)}
+  don.addon(aadd)
+return don
+  end
+
+
+def s(*arr)
+  don=Section.new
+  arr.each{|d| don.addon(d)}
+  return don
+end
+
+  
+  
+  def eu
+  
+r=[4,2,2,2,2,2,2,2,2,2,2,2,2,4]
+x=GotimeObject.new(r)
+topp=Section.new(x)
+topp.name='toppy'
+
+ary=[41,42,42,42,41,42,42,42,41,42,42,42,rand(6)+47,47]
+ary.each {|d|
+topp.addon g_comeon41(d)
+}
+topp.makechannel 1
+#~ topp=topp.array_out(8)
+return topp
+end
+
+
+
+
+def du
+  a=g_combin(['wu','g_comeonblu5'])
+  return a
+end
+
+
+
+def wu
+  #~ s=Section.new 
+  a=g_combin(['g_comeon55','g_comeon51'])
+  a=a.array_out(4)
+  t=g_combin(['g_comeon55','g_comeon50'])
+  t=t.array_out(4)
+  z=g_combin(['g_comeon55','g_comeon56'])
+  z=z.array_out(64)
+  s=Section.new
+  s.addon(a,t)
+  s=s.array_out(8)
+  s.addon(z)
+  #~ s=s.array_out 8
+   #~ s.addon(g_comeon60,d)
+   #~ s.makechannel 1
+return s
+end
+
+def g_combin(ary)
+  don=Section.new
+  aadd=Threadset.new
+  ary.each{|s|
+    aadd.addon(eval(s))}
+  don.addon(aadd)
+return don
+end
+
+def g_comeonblu5
+r=[4,6,8,10,12,14,16,18,20,22,24,26,28,32]
+x=GotimeObject.new(r)
+topp=Section.new(x)
+topp.name='toppy'
+
+ary=[41,42,42,42,41,42,42,42,41,42,42,42,49,47]
+ary.each {|d|
+topp.addon g_comeon41(d)
+}
+topp.makechannel 1
+#~ topp=topp.array_out(8)
+return topp
+end
+
+
+def g_comeon77
+  s=Section.new
+  s.create_notes(4,:none)
+  return s
+end
+
+def g_comeon55
+r=[8,16]
+x=GotimeObject.new(r)
+topp=Section.new(x)
+topp.name='toppy'
+ary=[41,41]
+ary.each {|d|
+topp.addon g_comeon41(d)
+}
+#~ topp=topp.array_out(8)
+return topp
+end
+
+def g_comeon51
+r=[4,8,14,16]
+x=GotimeObject.new(r)
+topp=Section.new(x)
+topp.name='toppy'
+ary=[42,45,43,44]
+ary.each {|d|
+topp.addon g_comeon41(d)
+}
+return topp
+end
+
+def g_comeon50
+r=[4,6,8,14,16]
+x=GotimeObject.new(r)
+topp=Section.new(x)
+topp.name='toppy'
+ary=[42,42,45,43,44]
+ary.each {|d|
+topp.addon g_comeon41(d)
+}
+return topp
+end
+
+
+def g_comeon56
+r=[4,6,8,10,12,14,16]
+x=GotimeObject.new(r)
+topp=Section.new(x)
+topp.name='toppy'
+ary=[42,42,45,45,45,44,44]
+ary.each {|d|
+topp.addon g_comeon41(d)
+}
+return topp
+end
+
+
+
+
+
+def g_comeon40(ary)
+topp=Section.new(ary[0])
+topp.create_specific_notes(ary[1])
+topp.makechannel 1
+return topp
+end
+
+
+def g_comeon70
+
+topp=Section.new
+x=45
+ary=[[1,[45]],[10,[38]],[14,[43]],[1,[44]]]
+ary.each {|d|
+topp.addon g_comeon40(d)
+}
+topp.makechannel 0
+topp=topp.array_out(8)
+return topp
+end
+
+def g_comeon60
+
+topp=Section.new
+
+ary=[[4,[41]],[2,[40]],[2,[40]]]
+ary.each {|d|
+topp.addon g_comeon40(d)
+}
+topp=topp.array_out(8)
+return topp
+end
+
+
+
+def g_comeon11
+  topp=Section.new
+  topp=g_comeon10
+
+end
+
+
+
+
+def g_aadd
+  aadd=Section.new
+2.times do
+  # two different a's, which make up aadd
+ a=Section.new(16) 
+a.create_specific_notes(x=[40])
+a.makechannel 1
+a=a.array_out(4)
+aadd.addon(a)
+end
+return aadd
+end
+
+
+def g_aadd2
+  aadd=Section.new
+2.times do
+  # two different a's, which make up aadd
+ a=Section.new(3) 
+a.create_specific_notes(x=[54])
+a.makechannel 1
+a=a.array_out(4)
+aadd.addon(a)
+end
+return aadd
+end
+
+
+
+def g_comeon10
+  topp=Section.new(5)
+  topp.addon(g_comeon5)
+return topp
+end
+
+def g_comeon9
+  topp=Section.new
+  ts=Threadset.new
+  topp.addon(ts)
+  a=[1,16]
+  ts.addon(g_comeon8,g_comeon4a(a))
+return topp
+end
+
+
+
+def g_comeon8
+  topp=Section.new
+  2.times {topp.addon(g_comeon7('g_comeon6'))}
+  return topp
+end
+
+
+def g_comeon7(x)
+  topp=Section.new
+  a=eval(x)  #how do i make the function the variable?
+  b=eval(x)
+  ary=[a,b,a.uf,b.uf]
+ ary.each {|d| topp.addon(d)}
+  return topp
+end
+
+def g_comeon6
+  topp=Section.new(2)
+  2.times do topp.addon(g_comeon5) end
+  c=topp.array_out(4)
+  return c
+end
+
+
+
+def g_comeon5
+
+topp=Section.new
+
+ary=[[1,1],[1,1],[1,1],[1,1]]
+ary.each {|d|
+topp.addon g_comeon4(d)
+}
+return topp
+end
+
+def g_comeon4(ary)
+
+
+topp=Section.new(ary[0])
+stopp=Section.new
+
+topp.create_notes(ary[1],:drum1)
+
+stopp=topp
+
+end
+
+def g_comeon4a(ary)
+
+
+topp=Section.new(ary[0])
+stopp=Section.new
+
+topp.create_notes(ary[1],:none)
+
+stopp=topp
+
+end
+
+def g_comeon2
+
+
+topp=Section.new(6)
+stopp=Section.new
+
+topp.create_notes(16,:drum1)
+
+stopp=topp
+
+end
+
+
+
+
+
+
+def g_comeon3
+  stopp=Section.new
+stopp.addon(stopthread)
+stopp=stopp.array_out(2)
+
+end
+
+def stopthread
+  stopthread=Threadset.new
+stopthread.addon(s_topp,aadd)
+return stopthread
+end
+  
+
+def s_topp
+  s_topp=Section.new
+  2.times do
+  t_tset=Threadset.new
+t_tset.addon(g_comeon,g_comeon2)
+#~ z=z.array_out(2)
+#~ stopp.addon(x,y)
+s_topp.addon(t_tset)
+end
+return s_topp
+end
+
+def aadd
+  aadd=Section.new
+2.times do
+  # two different a's, which make up aadd
+ a=Section.new(4) 
+a.create_notes(16,:low)
+a.makechannel 1
+a=a.array_out(4)
+aadd.addon(a)
+end
+return aadd
+end
+
+
+
+def g_comeon
+
+topp=Section.new(4)
+stopp=Section.new
+
+topp.create_notes(16,:drum1)
+stopp=topp
+end
+
+
+def g_comeon2
+
+
+topp=Section.new(6)
+stopp=Section.new
+
+topp.create_notes(16,:drum1)
+
+stopp=topp
+
+end
+
+
+def l_loaded
+
+stopp=Section.new
+
+dall=['rund-gqscvh']
+
+ dall.each do |f|
+   a=File.open("trax/eoms/#{f}.dat") do |g|
+     Marshal.load(g)
+   end
+stopp=a
+end
+loaded=stopp
+end
+
+def l_loaded2
+
+stopp=Section.new
+
+dall=['rund-gud']
+
+ dall.each do |f|
+   a=File.open("eooms/#{f}.dat") do |g|
+     Marshal.load(g)
+   end
+stopp=a
+end
+loaded=stopp
+end
+
+
+def l_load(obj,opt=1)
+  stopp=Section.new
+case opt
+when 1
+  folder='eoms'
+when 2
+  folder='xoms'
+end
+
+   a=File.open("trax/#{folder}/#{obj}.dat") do |g|
+     Marshal.load(g)
+   end
+stopp=a
+end
+
+def l_loaded3
+
+stopp=Section.new
+
+dall=['rund-nyce']
+
+ dall.each do |f|
+   a=File.open("eooms/#{f}.dat") do |g|
+     Marshal.load(g)
+   end
+stopp=a
+end
+loaded=stopp
+end
+
+def g_popp
+  popp=Section.new
+  popp.addon(l_loaded3,stopthread,l_loaded3)
+  return popp
+end
+
+def l_loaded4
+
+stopp=Section.new
+
+dall=['rund-fsp']
+
+ dall.each do |f|
+   a=File.open("eooms/#{f}.dat") do |g|
+     Marshal.load(g)
+   end
+stopp=a
+end
+loaded=stopp
+end
+
+def l_loaded5
+
+stopp=Section.new
+
+dall=['rund-natt']
+
+ dall.each do |f|
+   a=File.open("eooms/#{f}.dat") do |g|
+     Marshal.load(g)
+   end
+stopp=a
+end
+loaded=stopp
+end
+
+
+def dum
+  infun('sounn',16,0)
+end
+
+def dunn
+  infun('sounn',64,0)
+  end
+