%%beginps
/head-func{
%/megastaff{  % l n x y   CHANGED TO: l x y n
	gsave pop
%	[ 2  3 ]0 setdash
	dlw (60 sub)pop xymove /len exch def /cont 0 def
	25 {cont 6 mod 0 eq {.2 1}
	    {cont 2 mod 0 eq {.6 0.7}
		{.7 .1} ifelse} ifelse
	SLW setgray
	len 0 RL len neg 6 RM
	/cont cont 1 add def
	currentpoint stroke M}repeat
	grestore
	gsave
	% x 11 add y 36 add T
	% 1.1 3 scale 0 0 cclef 
	x 13 add y 18  add T
	1.1 3 scale 0 0 tclef 
	grestore
%    }!
}!

/note-func{pop pop pop pop}!
/note-func{pop M 20 F3 (here)show pop}!
/bar-func{pop pop pop pop}!
%%endps 

%%scale 1

%%postscript /dlw{.2 SLW }!

%%stemheight 28

X:1
K:C
%%staves [1 2 3 4]
V:1 staffscale=0.5
A B c d B,,,, |
%%sysstaffsep 180pt
V:2 clef=none stafflines=0  %down %up
%%tablature 0 72 head-func note-func bar-func
^B _d =Be''''' E,,,,,, |
%B B Be''''' E |
%B B Be' E,,,,,, |
w: |
%%sysstaffsep 180pt
V:3 bass
B B B B b |
V:4 perc stafflines=3 staffscale=1.4
_B ^B ^B _B B,,,, |




--------------------------------------------------

tablature [<unit-1>] <unit-2> <head-func> <note-func> <bar-func>
	Define uma tablatura para a voz atual.
	<unit-1> dá a altura da tablatura acima da pauta.
	<unit-2> dá a altura da tablatura abaixo da pauta.
	<head-func> é a função Postscript chamada no início da
	tablatura. Quando chamada, a pilha contém:
		- a largura da linha de música,
		- as coordenadas x e y,
		- o número da linha w: [0 .. n-1].
	<note-func> é a função Postscript chamada para cada nota.
	Quando chamada, a pilha contém:
		- a string tal como definida pela linha 'w:'.
		- as coordenadas x e y.
		- o número da linha w: (0 .. n-1).
	<note-bar> é a função PostScript chamada a cada barra de compasso.
	Quando chamada, a pilha contém:
		- a barra de compasso como string ABC.
		- as coordenadas x e y.
		- o número da linha w: (0 .. n-1).
	Para exemplos, ver 'accordion.abc',
	http://moinejf.free.fr/abc/banjo.abc
	http://moinejf.free.fr/abc/bataille.abc e
	http://moinejf.free.fr/abc/tabyf1.abc .