// abc2svg - ABC to SVG translator
// @source: https://chiselapp.com/user/moinejf/repository/abc2svg
// Copyright (C) 2014-2020 Jean-Francois Moine - LGPL3+
//grid3.js-module to insert a manual chords
abc2svg.grid3={block_gen:function(of,s){if(s.subtype!="grid"){of(s)
return}
var abc=this,cfmt=abc.cfmt(),img=abc.get_img(),txt=s.text,font,font_cl,cls,w,ln,i,lines=[],cl=[],bars=[],cells=[],nr=0,nc=0,wc=0
function build_grid(){var i,k,l,line,bl,bar,w,hr,x0,x,y,yl,cl,cell,lc='',path='<path class="stroke" stroke-width="1" d="M',sf='" style="font-size:'+(font.size*.72).toFixed(1)+'px'
function build_ch(cl,x,y,n){return'<text class="'+cl+'" x="'+
x.toFixed(1)+'" y="'+y.toFixed(1)+'">'+
cell[n]+'</text>\n'}
function build_cell(cell,x,y,yl,hr){var line
if(cell.length>1){line=path+
(x-wc/2).toFixed(1)+' '+
yl.toFixed(1)+'l'+
wc.toFixed(1)+' -'+hr.toFixed(1)+'"/>\n'
if(cell[1]){line+=path+
(x-wc/2).toFixed(1)+' '+
(yl-hr).toFixed(1)+'l'+
(wc/2).toFixed(1)+' '+(hr/2).toFixed(1)+'"/>\n'+
build_ch(cls+sf,x-wc/3,y,0)+
build_ch(cls+sf,x,y-hr*.32,1)}else{line+=build_ch(cls+sf,x-wc*.2,y-hr/4,0)}
if(cell.length>=3){if(cell[3]){line+=path+
x.toFixed(1)+' '+
(yl-hr/2).toFixed(1)+'l'+
(wc/2).toFixed(1)+' '+(hr/2).toFixed(1)+'"/>\n'+
build_ch(cls+sf,x,y+hr*.3,2)+
build_ch(cls+sf,x+wc/3,y,3)}else{line+=build_ch(cls+sf,x+wc*.2,y+hr/4,2)}}}else{line=build_ch(cls,x,y,0)}
return line}
hr=font.size*2.1
if(wc<hr*1.4)
wc=hr*1.4
w=wc*nc
yl=3
y=3-font.size*.7
x0=(img.width/cfmt.scale-w)/2
while(1){cl=cells.shift()
if(!cl)
break
y+=hr
yl+=hr
x=x0+wc/2
while(1){cell=cl.shift()
if(!cell)
break
lc+=build_cell(cell,x,y,yl,hr)
x+=wc}}
line='<path class="stroke" d="\n'
y=3
for(i=0;i<=nr;i++){line+='M'+x0.toFixed(1)+' '+y.toFixed(1)+'h'+w.toFixed(1)+'\n'
y+=hr}
x=x0
for(i=0;i<=nc;i++){line+='M'+x.toFixed(1)+' 3v'+(hr*nr).toFixed(1)+'\n'
x+=wc}
line+='"/>\n'
line+=lc
y=3-font.size*.7
while(1){bl=bars.shift()
if(!bl)
break
x=x0
y+=hr
while(1){bar=bl.shift()
if(!bar)
break
if(bar[0]==':')
line+='<text class="'+cls+'" x="'+
(x-5).toFixed(1)+'" y="'+y.toFixed(1)+'" style="font-weight:bold;font-size:'+
(font.size*1.6).toFixed(1)+'px">:</text>\n'
if(bar.slice(-1)==':')
line+='<text class="'+cls+'" x="'+
(x+5).toFixed(1)+'" y="'+y.toFixed(1)+'" style="font-weight:bold;font-size:'+
(font.size*1.6).toFixed(1)+'px">:</text>\n'
x+=wc}}
abc.out_svg(line)
abc.vskip(hr*nr+6)}
if(!cfmt.gridfont)
abc.param_set_font("gridfont","serif 16")
font=abc.get_font('grid')
font_cl=abc.font_class(font)
cls=font_cl+" mid"
abc.add_style("\n.mid {text-anchor:middle}")
abc.set_font('grid')
txt=txt.split('\n')
while(1){ln=txt.shift()
if(!ln)
break
ln=ln.match(/[|:]+|[^|:\s]+/g)
bars[nr]=[]
cells[nr]=[]
i=-1
while(1){cl=ln.shift()
if(!cl)
break
if(cl.match(/[:|]+/)){bars[nr][++i]=cl
cells[nr][i]=[]}else{if(!cells[nr][i]){bars[nr][++i]='|'
cells[nr][i]=[]}
if(cl=='.'||cl=='-')
cl=''
cells[nr][i].push(cl)}}
if(cells[nr][i].length)
bars[nr][++i]='|'
else
cells[nr][i]=null
if(i>nc)
nc=i
i=0
while(1){cl=cells[nr][i++]
if(!cl)
break
if(cl.length==2){cl[2]=cl[1]
cl[1]=''}
w=abc.strwh(cl.join(''))[0]
if(w>wc)
wc=w}
nr++}
wc+=abc.strwh('  ')[0]
abc.blk_flush()
build_grid()
abc.blk_flush()},do_begin_end:function(of,type,opt,txt){var vt=this.get_voice_tb()
if(type!="grid"){of(type,opt,txt)
return}
txt=txt.replace(/#|=|b/g,function(x){switch(x){case'#':return"\u266f"
case'=':return"\u266e"}
return"\u266d"})
if(opt.indexOf("chord-define")>=0)
this.cfmt().csdef=txt
if(opt.indexOf("noprint")<0){if(this.parse.state>=2){s=this.new_block(type)
s.text=txt}else{abc2svg.grid3.block_gen.call(this,null,{subtype:type,text:txt})}}},output_music:function(of){var ln,i,dt,ss,ntim,p_vc,s3,C=abc2svg.C,abc=this,s=abc.get_tsfirst(),vt=abc.get_voice_tb(),t=abc.cfmt().csdef,cs=[]
function add_cs(ss,ch){var s={type:C.REST,fname:ss.fname,istart:ss.istart,iend:ss.iend,v:p_vc.v,p_v:p_vc,time:ntim,st:0,dur:0,dur_orig:0,invis:true,seqst:true,nhd:0,notes:[{pit:18,dur:0}]}
if(ch!='.'&&ch!='-'){abc.set_a_gch(s,[{type:'g',text:ch,otext:ch,istart:ss.istart,iend:ss.iend,font:abc.get_font("gchord")}])}
if(!p_vc.last_sym){p_vc.sym=s}else{s.prev=p_vc.last_sym
s.prev.next=s}
p_vc.last_sym=s
s.ts_next=ss
s.ts_prev=ss.ts_prev
s.ts_prev.ts_next=s
ss.ts_prev=s
if(s.time==ss.time)
delete ss.seqst
return s}
if(t){p_vc={id:"grid3",v:vt.length,time:0,pos:{gst:0},scale:1,st:0,second:true,sls:[]}
vt.push(p_vc)
t=t.split('\n')
while(1){ln=t.shift()
if(!ln)
break
ln=ln.trimLeft()
if(ln[0]=='|')
ln=ln.slice(ln[1]==':'?2:1)
if(ln[ln.length-1]!='|')
ln=ln+'|'
ln=ln.match(/[|:]+|[^|:\s]+/g)
while(1){cl=ln.shift()
if(!cl)
break
if(cl[0]=='|'||cl[0]==':'){while(s&&!s.dur)
s=s.ts_next
if(!s)
break
ss=s
while(s&&!s.bar_type)
s=s.ts_next
if(!cs.length)
cs=['.']
ntim=ss.time
dt=(s.time-ntim)/cs.length
s3=null
for(i=0;i<cs.length;i++){if((cs[i]!='.'&&cs[i]!='-')||!s3){while(ss.time<ntim)
ss=ss.ts_next
s3=add_cs(ss,cs[i])}
s3.dur+=dt
s3.dur_orig=s3.notes[0].dur=s3.dur
ntim+=dt}
while(s&&s.type!=C.BAR)
s=s.ts_next
ss={type:C.BAR,bar_type:"|",fname:s.fname,istart:s.istart,iend:s.iend,v:p_vc.v,p_v:p_vc,st:0,time:s.time,dur:0,nhd:0,notes:[{pit:18}],next:s,ts_next:s,prev:s.prev,ts_prev:s.ts_prev}
if(!s)
break
if(s.seqst){ss.seqst=true
delete s.seqst}
ss.prev.next=ss.ts_prev.ts_next=s.prev=s.ts_prev=ss
cs=[]}else{cs.push(cl)}}}}
of()},set_hooks:function(abc){abc.block_gen=abc2svg.grid3.block_gen.bind(abc,abc.block_gen)
abc.do_begin_end=abc2svg.grid3.do_begin_end.bind(abc,abc.do_begin_end)
abc.output_music=abc2svg.grid3.output_music.bind(abc,abc.output_music)}}
abc2svg.modules.hooks.push(abc2svg.grid3.set_hooks)
abc2svg.modules.begingrid.loaded=true