% Hudson Lacerda http://br.geocities.com/hfmlacerda/

%%beginps
/printnumbers true def
/fld{ 8 0 RM currentpoint pop -84 y0 tabn }!
/tabh{pop 4 add gsave 1 .7 .7 setrgbcolor 3 -1 roll 100 rectfill grestore}!
/tabh{pop pop pop pop}!
/tab0{gsave 51 add T -3 0 moveto .6 SLW
	0 -36 RL 6 0 RL 0 36 RL closepath
	-3 -18 M 6 0 RL
	-3 -36 M -1 -1 RL 0 -5 RL 8 0 RL 0 5 RL -1 1 RL
	-2 -42 M -2 -4 RL 8 0 RL -2 4  RL
	stroke
	.4  SLW
	newpath -6 -3 1.75 0 360 arc stroke
	newpath 0 -3 1.75 0 360 arc stroke
	newpath 0 -9 1.75 0 360 arc stroke
	newpath 0 -15 1.75 0 360 arc stroke
	newpath 0 -21 1.75 0 360 arc stroke
	newpath 0 -27 1.75 0 360 arc stroke
	newpath 0 -33 1.75 0 360 arc stroke
	newpath 0 -39 1.75 0 360 arc stroke
	printnumbers { /Helvetica 4.5  selectfont
	  4.5 -4.5 M (1)show
	  4.5 -10.5 M (2)show
	  4.5 -16.5 M (3)show
	  4.5 -22.5 M (4)show
	  4.5 -28.5 M (5)show
	  4.5 -34.5 M (6)show
	  5.25 -40.5 M (7)show
	} if
	stroke
	grestore}!
/tabn{gsave
	T 1.5 dup scale
	0 0 tab0
	0 48 T 0 0 M
	{ .4 SLW
		dup (x) 0 get eq{0 0 newpath 1.75 0 360 arc fill pop}
		{dup (1) 0 get eq{0 0 newpath 1.75 0 360 arc fill pop}
		{dup (2) 0 get eq{0 0 newpath 1.75 0 360 arc fill pop}
		{dup (3) 0 get eq{0 0 newpath 1.75 0 360 arc fill pop}
		{dup (4) 0 get eq{0 0 newpath 1.75 0 360 arc fill pop}
		{dup (5) 0 get eq{0 0 newpath 1.75 0 360 arc fill pop}
		{dup (6) 0 get eq{0 0 newpath 1.75 0 360 arc fill pop}
		{dup (7) 0 get eq{0 0 newpath 1.75 0 360 arc fill pop}
		{dup (P) 0 get eq {-6 0 newpath 1.75 0 360 arc
				   gsave fill grestore .4 SLW stroke pop
				   0 6 T}
		{dup (p) 0 get eq {-6 0 newpath 1.75 90 270 arc fill
				   -6 0 newpath 1.75 0 360 arc .4 SLW stroke
				    0 6 T pop}
		{dup (T) 0 get eq {6 0 newpath 1.75 0 360 arc
				   gsave fill grestore .4 SLW stroke pop
				   0 6 T}
		{dup (t) 0 get eq {6 0 newpath 1.75 90 270 arc fill
				   6 0 newpath 1.75 0 360 arc .4 SLW stroke
				   0 6 T pop}
		{dup (f) 0 get eq {6 0 newpath 1.75 0 360 arc .4 SLW stroke
				   0 6 T pop}
		{dup (') 0 get eq {0 0 M 0 0 1.75 90 180 arc fill pop}
		{dup (/) 0 get eq {0 0 newpath 1.75 90 270 arc fill pop}
		{dup (;) 0 get eq {0 0 M 0 0 1.75 90 360 arc fill pop}
		{dup (.) 0 get eq {pop 0 6 T} %%%%%%%%
		{dup (K) 0 get eq {-3.5 -2 M 7 0 RL 2 SLW stroke pop}
		{pop}
		ifelse}ifelse}ifelse}ifelse}ifelse}ifelse}
		ifelse}ifelse}ifelse}ifelse}ifelse
		}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse
		0 -6 T
	}forall
	grestore}!
/tabn2{pop gsave T 1.25 dup scale 0 0 tabn grestore}!
/tabbar{pop pop pop pop}!
%%endps




%---------------------------------------------------




X:0
%%scale 1
%%continueall
T:Tablatura de flauta doce
M:none
K:C
%%tablature 115 tabh tabn2 tabbar
L:1/1
F ^/F ^F _/G =G |
w: P123.4567 P123.456; Pxxx.xxx/ Pxxx.xxx' Pxxx.xxx
^/G ^G _/A =A |
w: Pxxx.xx; Pxxx.xx/ Pxxx.xxox Pxxx.xx
_3/B _B _/B =B | _/c y=c |
w: Pxxx.x/xx Pxxx.xoxx Pxxx.x Pxxx.oxxx Pxxx.ox Pxxx

X:10
%%indent 36
T:Más vale trocar
C:Juan del Encina (1469-1530)
M:3/4
L:1/4
K:F treble+8
%
V:1 name="Flauta\ndoce"
%%tablature 110 tabh tabn2 tabbar
%%staffsep 80
% %musiconly
%
D|EEF|G2G|AAB|cA2|
w: P123456 P12345 P12345 P1234o67 P123 P123 P12 P12 P1o34 Po2 P12
(d>c B/A/)|GFG|(A>G F/E/)|DE2|
w: o2 Po2 P1o34 P12 P123 P1234o67 P123 P12 P123 P1234o67 P12345 P123456 P12345
D3-|D2A|AAA|BGd|ddc|
A2A|AAA|BGd|ddc|A2D|
EEF|G2G|AAB|cA2|(d>c B/A/)|
GFG|(A>G F/E/)|DE2|D3|]
%%text http://averroes.cec.junta-andalucia.es/recursos_informaticos/concurso01/premio_2/index.html


% %newpage
% %vskip 40
% %postscript 0 -30 M 36 F0 count 3 string cvs show