tabulaturo-G1.eps

%!PS-Adobe-2.0 EPSF-2.0
%%Creator: LilyPond 2.18.2
%%BoundingBox: -9 -83 65 -4
%%Orientation: Portrait
%%DocumentSuppliedResources: font CenturySchL-Bold
%%DocumentSuppliedResources: font Emmentaler-20
%%EndComments
%%BeginProlog
/lilypond-datadir where {pop} {userdict /lilypond-datadir (/usr/share/lilypond/2.18.2) put } ifelse
%%BeginFont: CenturySchL-Bold
lilypond-datadir (/fonts/otf/CenturySchL-Bold.otf) concatstrings (r) file .loadfont
%%EndFont

%%BeginFont: Emmentaler-20
lilypond-datadir (/fonts/otf/emmentaler-20.otf) concatstrings (r) file .loadfont
%%EndFont

/magfontemmentaler-20mXVo { /Emmentaler-20 7.0292 output-scale div selectfont } bind def
/lily-output-units 2.83464566929134 def %% millimeter
/staff-line-thickness 0.1 def
/line-width 107.723779527559 def
/paper-size (a4) def
/staff-height 4.0 def
/output-scale 1.75729901757299 def
/page-height 169.00937007874 def
/page-width 119.50157480315 def
%%BeginResource: procset (music-drawing-routines.ps) 1 0
%!PS-Adobe-2.0
%
% Functions for direct and embedded PostScript

% Careful with double % as comment prefix.
% Any %%X comment is interpreted as DSC comments.

% TODO: use dicts or prefixes to prevent namespace pollution.

/pdfmark where
{pop} {userdict /pdfmark /cleartomark load put} ifelse


% llx lly urx ury URI
/mark_URI
{
    /uri exch def
    /ury exch def
    /urx exch def
    /lly exch def
    /llx exch def
    [
	/Rect [ llx lly urx ury ]
	
	/Border [ 0 0 0 ]

        /Action
	    <<
		/Subtype /URI
		/URI uri
	    >>
        /Subtype /Link
    /ANN
    pdfmark
}
bind def

% llx lly urx ury page
/mark_page_link
{
    /page exch def
    /ury exch def
    /urx exch def
    /lly exch def
    /llx exch def
    [
        /Rect [ llx lly urx ury ]
        /Border [ 0 0 0 ]
        /Page page
        /Subtype /Link
    /ANN
    pdfmark
}
bind def

% from adobe tech note 5002.
/BeginEPSF { %def
    /b4_Inc_state save def % Save state for cleanup
    /dict_count countdictstack def % Count objects on dict stack
    /op_count count 1 sub def % Count objects on operand stack
    userdict begin % Push userdict on dict stack
    /showpage { } def % Redefine showpage, { } = null proc
    0 setgray 0 setlinecap % Prepare graphics state
    1 setlinewidth 0 setlinejoin
    10 setmiterlimit [ ] 0 setdash newpath
    false setoverprint
} bind def

/EndEPSF { %def
  count op_count sub {pop} repeat % Clean up stacks
  countdictstack dict_count sub {end} repeat
  b4_Inc_state restore
} bind def

/stroke_and_fill? {
    {
	gsave
	    false setstrokeadjust
	    stroke
	grestore
	fill
    }
    {
	stroke
    }
    ifelse
} bind def

/vector_add { % x1 y1 x2 y2 vector_add x1+x2 y1+y2
	exch
	4 1 roll
	add
	3 1 roll
	add
	exch
} bind def

/draw_round_box % width height x y blot
{
    0 max setlinewidth
    matrix currentmatrix 5 1 roll
    currentpoint translate newpath translate
    2 copy 0 min exch 0 min exch translate
    abs exch abs exch
    currentlinewidth 0 eq
    { % straight corners
	2 copy 2 mul gt
	{ % horizontal
	    0 1 index 2 div moveto
	    setlinewidth
	    0 rlineto
	    0 setlinecap
	    stroke
	}
	{
	    2 copy exch 2 mul gt
	    { % vertical
		1 index 2 div 0 moveto
		exch setlinewidth
		0 exch rlineto
		0 setlinecap
		stroke
	    }
	    {
		0 0 4 2 roll rectfill
	    }
	    ifelse
	}
	ifelse
    }
    { % rounded corners
	2 copy 0 eq exch 0 eq or
	{ % line shape
	    0 0 moveto
	    rlineto
	    1 setlinecap
	    stroke
	    0 setlinecap
	}
	{ % full shape
	    currentstrokeadjust {
		currentlinewidth 2 div
		0 0 2 index 180 270 arc
		2 index 0 2 index 270 360 arc
		3 copy 0 90 arc
		0 2 index 3 -1 roll 90 180 arc
		closepath
		2 copy 2 mul gt
		{ % horizontal
		    2 copy add currentlinewidth add 10 add % large enough
		    0 1 index neg moveto
		    2 index 1 index neg lineto
		    2 index 1 index lineto
		    0 exch lineto closepath
		    gsave clip newpath
		    0 1 index 2 div moveto
		    currentlinewidth add setlinewidth
		    0 rlineto
		    2 setlinecap
		    stroke
		    grestore
		}
		{
		    2 copy exch 2 mul gt
		    { % vertical
			2 copy add currentlinewidth add 10 add % large enough
			dup neg 0 moveto
			dup 0 lineto
			dup 2 index lineto
			neg 1 index lineto closepath
			gsave clip newpath
			1 index 2 div 0 moveto
			exch currentlinewidth add setlinewidth
			0 exch rlineto
			2 setlinecap
			stroke
			grestore
		    }
		    {
			pop pop
			fill
		    }
		    ifelse
		}
		ifelse
		newpath
	    }
	    {
		1 setlinejoin
		0 0 4 2 roll 4 copy rectstroke rectfill
	    }
	    ifelse
	}
	ifelse
    }
    ifelse
    setmatrix
} bind def

/draw_polygon % fill? x(n) y(n) x(n-1) y(n-1) ... x(0) y(0) n blot
{
	setlinewidth %set to blot

	0 setlinecap
	1 setlinejoin

	3 1 roll
	/polygon_x
	currentpoint
	/polygon_y exch def
	def
	rmoveto % x(0) y(0)
	{ polygon_x polygon_y vector_add lineto } repeat % n times
	closepath
	stroke_and_fill?
} bind def

/draw_circle % filled? radius thickness draw_circle
{
	setlinewidth	% f? r
	currentpoint	% f? r x0 y0
	3 2 roll	% f? x0 y0 r
	dup 0 rmoveto
	0 360 arc closepath
	stroke_and_fill?
} bind def

/draw_ellipse % filled? x-radius y-radius thickness draw_ellipse
{
  setlinewidth % f? x-r y-r
  /savematrix matrix currentmatrix def
  scale % f?
  currentpoint
  1 0 rmoveto
  1 0 360  arc closepath
  savematrix setmatrix
  stroke_and_fill?
} bind def

/draw_partial_ellipse % filled connect x-radius y-radius startangle endangle thickness draw_partial_ellipse
% Note that filled is not boolean to permit for different graylevels (ie for trill keys)
{
  gsave
  currentpoint translate
  /thickness exch def
  /endangle exch def
  /startangle exch def
  /y_radius exch def
  /x_radius exch def
  /endrad x_radius y_radius mul
    x_radius x_radius mul
    endangle cos endangle cos mul mul
    y_radius y_radius mul
    endangle sin endangle sin mul mul add sqrt div def
  /endangle endangle sin endrad mul y_radius div
    endangle cos endrad mul x_radius div atan def
  /startrad x_radius y_radius mul
    x_radius x_radius mul
      startangle cos startangle cos mul mul
    y_radius y_radius mul
      startangle sin startangle sin mul mul add sqrt div def
  /startangle startangle sin startrad mul y_radius div
    startangle cos startrad mul x_radius div atan def
  /connect exch def
  /filled exch def
  /savematrix matrix currentmatrix def
  thickness setlinewidth
  x_radius y_radius scale
  startangle cos startangle sin moveto
  0 0 1 startangle
    startangle endangle eq { endangle 360 add } { endangle } ifelse
    arc
  connect {
    startangle cos startangle sin moveto endangle cos endangle sin lineto }
    if
  savematrix setmatrix filled stroke_and_fill?
  grestore
} bind def

/draw_line % dx dy x1 y1 thickness draw_line
{
	setlinewidth % dx dy x1 y1
	1 setlinecap
	rmoveto % dx dy
	rlineto
	stroke
} bind def

/draw_dashed_line % dx dy thickness dashpattern offset draw_dashed_line
{
	1 setlinecap
	setdash % dx dy thickness
	setlinewidth %dx dy
	rlineto
	stroke
	[] 0 setdash % reset dash pattern
} bind def

/print_glyphs % w dx dy glyph print_glyphs
{
	{
		currentpoint %w dx dy glyph x0 y0
		5 2 roll %w x0 y0 dx dy glyph
		3 1 roll %w x0 y0 glyph dx dy
		rmoveto %w x0 y0 glyph
		glyphshow %w x0 y0
		moveto %w
		0 rmoveto
	}repeat
}bind def
%end music-drawing-routines.ps

%%EndResource
%%BeginResource: procset (lilyponddefs.ps) 1 0
%!PS-Adobe-2.0: lilyponddefs.ps
%
% Functions for direct PostScript output

% /setgray { 1 add } bind def

/set-ps-scale-to-lily-scale {
	lily-output-units output-scale mul dup scale
} bind def


/init-paper {
	gsave
	clippath pathbbox newpath
	/paper-height exch def
	/paper-width exch def pop pop pop
	% FIXME
	/top-margin 2 def
	paper-width line-width sub 2 div /left-margin exch def
	grestore
} bind def

/init-lilypond-parameters {
	staff-line-thickness setlinewidth
	staff-height init-paper
} bind def


% end lilyponddefs.ps

%%EndResource
%%EndProlog
%%BeginSetup
init-lilypond-parameters
%%EndSetup

/mark_page_link { pop pop pop pop pop } bind def
gsave set-ps-scale-to-lily-scale
0.0000 -6.7267 moveto 12.8730 0.0000 0.0500 0.0000 0.1000 draw_line
0.0000 -5.7267 moveto 12.8730 0.0000 0.0500 0.0000 0.1000 draw_line
0.0000 -4.7267 moveto 12.8730 0.0000 0.0500 0.0000 0.1000 draw_line
0.0000 -3.7267 moveto 12.8730 0.0000 0.0500 0.0000 0.1000 draw_line
0.0000 -2.7267 moveto 12.8730 0.0000 0.0500 0.0000 0.1000 draw_line
0.0000 -15.9767 moveto 12.8730 0.0000 0.0500 0.0000 0.1000 draw_line
0.0000 -14.4767 moveto 12.8730 0.0000 0.0500 0.0000 0.1000 draw_line
0.0000 -12.9767 moveto 12.8730 0.0000 0.0500 0.0000 0.1000 draw_line
0.0000 -11.4767 moveto 12.8730 0.0000 0.0500 0.0000 0.1000 draw_line
12.7830 -13.7267 moveto 0.1900 4.5000 0.0000 -2.2500 0.0000 draw_round_box
12.7830 -4.7267 moveto 0.1900 4.0000 0.0000 -2.0000 0.0000 draw_round_box
gsave 1.0000 1.0000 1.0000 setrgbcolor
9.8620 -15.9767 moveto 0.9902 1.2633 0.0990 -0.6317 0.0000 draw_round_box
grestore
9.9610 -16.6084 moveto /CenturySchL-Bold 3.06835938 output-scale div selectfont
0.9902 0.0000 0.0000 /one
1 print_glyphs
-0.0600 -9.3517 moveto 0.0600 13.2500 0.0500 -6.6250 0.1000 draw_round_box
9.8620 -5.7267 moveto magfontemmentaler-20mXVo /noteheads.s2 glyphshow 
0.8000 -5.7267 moveto magfontemmentaler-20mXVo /clefs.G glyphshow 
0.8000 -13.7267 moveto magfontemmentaler-20mXVo /clefs.tab glyphshow 
11.1132 -4.7267 moveto 0.0500 3.2322 -0.0250 -0.7722 0.0800 draw_round_box
7.9000 -5.7267 moveto magfontemmentaler-20mXVo /accidentals.sharp glyphshow 
stroke grestore
%%Trailer
%%EOF