Blob Blame History Raw
% Abcm2ps style for renaissance music 
% (c) 2004-2008 by Eric Forgeot 
% with help from Hudson Lacerda and JF Moine (abcm2ps)
% 
% released under a CC-BY-SA license.


% voir syms.c
% su = stem up / sd = stem down


%%%%%%  setdefl 1
notespacingfactor 1.0


beginps

/x 0 def
/y 0 def

/tclef  {	% treble cle - cle de sol usage: 
gsave translate 1 dup scale
-7 2 translate newpath
	4.03027 16.5654 moveto
	 3.98828 15.5674 5.55469 14.7344 5.97949 15.0059 curveto
	 6.00977 15.0059 lineto
	 6.20996 15.165 6.34863 15.4033 6.37012 15.7256 curveto
	 6.42969 16.6553 lineto
	 6.38965 17.2627 6.60352 17.001 7.20996 16.9102 curveto
	 7.50195 16.8662 8.41406 16.0293 7.68945 15.3057 curveto
	 7.37012 15.0059 7.00977 14.8154 6.60938 14.7354 curveto
	 6.58008 14.7354 lineto
	 6.16016 14.6758 5.55957 14.7158 4.78027 14.8555 curveto
	 4.75 14.8555 lineto
	 3.9502 14.9951 3.41016 15.3857 3.12988 16.0254 curveto
	 2.57031 17.2256 3.13965 18.1357 4.83984 18.7559 curveto
	 5.67969 19.0957 6.57031 19.2051 7.50977 19.0859 curveto
	 7.57031 19.0859 lineto
	 8.50977 18.9453 9.16016 18.7256 9.51953 18.4258 curveto
	 9.5498 18.4258 lineto
	 10.2021 17.918 10.6621 17.2021 10.7803 17.0459 curveto
	 11.2617 16.4033 11.4199 15.5156 11.3203 14.4355 curveto
	 11.3203 14.4053 lineto
	 11.1035 12.0723 9.66211 9.59766 8.7998 9.33594 curveto
	 7.75 9.96582 lineto
	 6.5498 10.7754 lineto
	 4.92969 9.24512 lineto
	 3.94727 9.86621 3.51172 10.5371 2.64941 11.0752 curveto
	 2.62012 11.0752 lineto
	 1.73145 9.93359 1.87402 6.74805 2.16992 5.0459 curveto
	 2.16992 5.01562 lineto
	 2.33008 4.11523 2.68945 3.14551 3.25 2.10547 curveto
	 3.79004 1.0459 4.87012 0.515625 6.49023 0.515625 curveto
	 8.07031 0.515625 9.0498 0.975586 9.42969 1.89551 curveto
	 9.42969 1.92578 lineto
	 10.2432 3.93652 10.2598 5.55957 9.30957 6.96582 curveto
	 9.30957 6.99512 lineto
	 8.29297 8.44238 6.7041 8.43359 5.76953 6.60547 curveto
	 5.33008 5.74512 5.21973 4.98535 5.43945 4.3252 curveto
	 5.43945 4.26562 lineto
	 5.75195 3.47168 6.14453 3.86035 6.37012 4.08594 curveto
	 6.37598 4.09766 6.98047 5.08496 7.2998 5.0459 curveto
	 7.45996 5.0459 7.50977 4.68555 7.4502 3.96582 curveto
	 7.4502 3.90527 lineto
	 7.37012 3.125 7.08008 2.72559 6.58008 2.70508 curveto
	 5.51855 2.70508 5.25391 3.22266 5.10938 4.98535 curveto
	 5.10938 5.0459 lineto
	 5.04004 5.91699 5.22363 6.92969 5.88965 7.5957 curveto
	 6.49023 8.25586 7.12012 8.58594 7.78027 8.58594 curveto
	 8.66797 8.58594 9.73145 7.83105 10 7.625 curveto
	 11.9414 6.13672 11.1162 2.71582 10.3301 1.38574 curveto
	 9.80957 0.525391 8.57031 0.105469 6.60938 0.125 curveto
	 6.49023 0.125 lineto
	 4.4502 0.165039 2.91992 0.605469 1.89941 1.44531 curveto
	 -0.795898 3.66602 0.0615234 7.49609 0.609375 9.03516 curveto
	 0.609375 9.06543 lineto
	 1.14941 10.4854 1.70996 11.4355 2.29004 11.915 curveto
	 2.34961 11.915 lineto
	 3.66992 10.8057 lineto
	 4.12988 10.4258 4.46973 10.1953 4.68945 10.1152 curveto
	 6.07031 11.7354 lineto
	 6.09961 11.7656 lineto
	 6.28027 11.4854 6.68945 11.1553 7.33008 10.7754 curveto
	 8.7998 9.875 lineto
	 9.61719 10.5195 10.1582 11.3545 10.3896 14.2852 curveto
	 10.3896 14.3154 lineto
	 10.4199 15.5869 10.2129 16.3711 10.0898 16.8652 curveto
	 10.0898 16.9551 lineto
	 9.87012 17.7754 9.35938 18.3154 8.55957 18.5752 curveto
	 8.5 18.5752 lineto
	 7.75977 18.7959 7.0498 18.8154 6.37012 18.6357 curveto
	 6.30957 18.6357 lineto
	 4.94531 18.2744 4.11133 17.4873 4.03027 16.5957 curveto
	 4.03027 16.5654 lineto
	closepath
fill grestore
	} bdef


/bclef  {	% bass cle - cle de fa usage: 
gsave translate 1 dup scale
-1 0 translate 
	newpath
	0.0996094 10.7012 moveto
	 0.609375 -0.818359 lineto
	 -0.560547 -1.14844 lineto
	 -0.411133 10.8516 lineto
	 -2.24121 12.9814 lineto
	 -3.00098 13.8809 -3.40039 14.4111 -3.44043 14.5713 curveto
	 -3.44043 14.5713 lineto
	 -3.44043 14.5713 lineto
	 -3.16113 14.6709 -2.74121 15.0615 -2.18066 15.7412 curveto
	 -0.710938 17.5713 lineto
	 -2.39062 19.5811 lineto
	 -3.03125 20.3408 -3.36133 20.791 -3.38086 20.9316 curveto
	 -3.38086 20.9316 lineto
	 -3.04102 21.0312 -2.53125 21.5215 -1.85059 22.4014 curveto
	 -0.260742 24.4717 lineto
	 -0.650391 29.8115 lineto
	 0.249023 29.9609 lineto
	 0.128906 24.5908 lineto
	 0.369141 24.1914 0.899414 23.5908 1.71875 22.791 curveto
	 1.74902 22.7617 lineto
	 2.58887 21.9209 3.10938 21.3115 3.30957 20.9316 curveto
	 2.62598 20.5625 1.60645 19.1104 0.579102 17.8115 curveto
	 2.16895 16.1016 lineto
	 2.8291 15.4209 3.24902 14.9209 3.42871 14.6016 curveto
	 3.12891 14.4209 2.66895 13.9512 2.04883 13.1914 curveto
	 0.0996094 10.7012 lineto
	closepath
	0.0693359 18.6514 moveto
	 0.519531 18.2314 lineto
	 1.3291 19.251 lineto
	 2.22949 20.4209 lineto
	 1.80957 20.9316 lineto
	 0.849609 22.041 lineto
	 -0.111328 23.1514 lineto
	 -0.430664 23.4717 -0.600586 23.6113 -0.621094 23.5713 curveto
	 -0.720703 23.5117 -1.01074 23.1816 -1.49121 22.5811 curveto
	 -1.52051 22.5215 lineto
	 -1.55078 22.4609 lineto
	 -2.33105 21.3809 lineto
	 -1.46094 20.3008 lineto
	 0.0693359 18.6514 lineto
	 0.0693359 18.6816 lineto
	 0.0693359 18.6514 lineto
	 0.0693359 18.6514 lineto
	 0.0693359 18.6514 lineto
	closepath
	2.31934 14.0615 moveto
	 1.86914 14.6016 lineto
	 0.90918 15.7412 lineto
	 -0.111328 16.8809 lineto
	 -0.390625 17.1816 -0.560547 17.3213 -0.621094 17.3008 curveto
	 -0.621094 17.3008 lineto
	 -1.55078 16.1611 lineto
	 -2.36133 15.0508 lineto
	 -2.36133 15.0508 lineto
	 -2.00098 14.5713 lineto
	 -1.10059 13.5215 lineto
	 0.548828 11.8115 lineto
	 1.41895 12.8613 lineto
	 2.31934 14.0615 lineto
	closepath
fill grestore
	} bdef


/ft0{	% bemol
pop pop 
gsave newpath
x y 2.5 sub
translate -10 0 translate
	-3.67871 4.53906 moveto
	 -4.09863 4.55957 -4.41895 4.33887 -4.63867 3.87891 curveto
	 -4.8584 3.41895 -4.95898 2.99902 -4.93848 2.61914 curveto
	 -4.93848 2.25977 -4.8584 1.80957 -4.69824 1.26953 curveto
	 -4.55859 0.708984 -4.21875 0.429688 -3.67871 0.429688 curveto
	 -3.15918 0.469727 -2.83887 0.649414 -2.71875 0.969727 curveto
	 -2.5791 1.30957 -2.49902 1.73926 -2.47852 2.25977 curveto
	 -2.45898 2.83887 -2.52832 3.35938 -2.68848 3.81934 curveto
	 -2.68848 3.84961 lineto
	 -2.86914 4.30957 -3.19824 4.53906 -3.67871 4.53906 curveto
	closepath
	-5.77832 14.5596 moveto
	 -4.75879 14.4092 lineto
	 -4.81836 12.8496 lineto
	 -4.93848 9.48926 lineto
	 -4.99902 6.12891 lineto
	 -4.99902 5.14941 -4.95898 4.68945 -4.87891 4.74902 curveto
	 -4.77832 4.92969 -4.3291 5.04883 -3.52832 5.10938 curveto
	 -2.72852 5.14941 -2.15918 4.86914 -1.81836 4.26953 curveto
	 -1.51855 3.70898 -1.41895 3.09961 -1.51855 2.43945 curveto
	 -1.51855 2.40918 lineto
	 -1.63867 1.74902 -1.79883 1.26953 -1.99902 0.969727 curveto
	 -1.99902 0.939453 lineto
	 -2.21875 0.639648 -2.6084 0.40918 -3.16895 0.249023 curveto
	 -3.70898 0.0888672 -4.15918 0.0888672 -4.51855 0.249023 curveto
	 -4.89844 0.429688 -5.18848 0.729492 -5.38867 1.14941 curveto
	 -5.6084 1.54883 -5.73828 1.91895 -5.77832 2.25977 curveto
	 -5.80859 4.47949 lineto
	 -5.83887 8.67969 lineto
	 -5.80859 12.7295 lineto
	 -5.77832 14.5596 lineto
	closepath
fill grestore
}!

/sh0{	% diese
%pop 
gsave newpath
pop pop x y
translate -7 0 translate
	3.47949 -10.75 moveto
	 2.55957 -12.0498 2.13965 -12.7998 2.21973 -13 curveto
	 2.2793 -13.2402 2.18945 -13.2451 1.9502 -13.0156 curveto
	 1.58984 -12.6699 lineto
	 2.04004 -12.04 lineto
	 3.24023 -10.3604 lineto
	 3.12012 -10.2002 2.9502 -9.9502 2.72949 -9.61035 curveto
	 2.14941 -10.4102 1.63965 -11.1553 1.2002 -11.8457 curveto
	 0.759766 -12.5352 0.55957 -12.9404 0.599609 -13.0605 curveto
	 0.660156 -13.2998 0.569336 -13.3057 0.330078 -13.0752 curveto
	 -0.0302734 -12.7305 lineto
	 0.75 -11.6504 lineto
	 2.45996 -9.28027 lineto
	 0.734375 -6.89551 lineto
	 -0.0302734 -5.86035 lineto
	 0.240234 -5.53027 lineto
	 0.419922 -5.31055 0.509766 -5.31055 0.509766 -5.53027 curveto
	 0.509766 -5.61035 0.729492 -5.98535 1.16992 -6.65527 curveto
	 1.60938 -7.3252 2.12988 -8.07031 2.72949 -8.89062 curveto
	 2.80957 -8.75 2.89453 -8.62012 2.98438 -8.5 curveto
	 3.0752 -8.37988 3.16016 -8.25977 3.24023 -8.14062 curveto
	 2.04004 -6.53516 lineto
	 1.58984 -5.91992 lineto
	 1.85938 -5.58984 lineto
	 2.04004 -5.37012 2.12988 -5.37012 2.12988 -5.58984 curveto
	 2.12988 -5.65039 2.25977 -5.87988 2.51953 -6.28027 curveto
	 3.47949 -7.75 lineto
	 4.45508 -6.29492 lineto
	 4.72461 -5.88477 4.85938 -5.65039 4.85938 -5.58984 curveto
	 4.85938 -5.37012 4.95508 -5.37012 5.14453 -5.58984 curveto
	 5.42969 -5.91992 lineto
	 4.93457 -6.5498 lineto
	 4.60449 -6.9707 4.21973 -7.49023 3.7793 -8.11035 curveto
	 3.89941 -8.29004 3.98438 -8.41504 4.03516 -8.48535 curveto
	 4.08496 -8.55566 4.16992 -8.69043 4.29004 -8.89062 curveto
	 5.80469 -6.65527 lineto
	 6.25488 -5.98535 6.47949 -5.61035 6.47949 -5.53027 curveto
	 6.47949 -5.31055 6.5752 -5.31055 6.76465 -5.53027 curveto
	 7.0498 -5.86035 lineto
	 6.2998 -6.85059 lineto
	 4.55957 -9.25 lineto
	 5.24023 -10.1299 5.83008 -10.9307 6.33008 -11.6504 curveto
	 6.83008 -12.3701 7.06934 -12.7305 7.0498 -12.7305 curveto
	 6.66016 -13.0752 lineto
	 6.39941 -13.3057 6.30957 -13.2998 6.38965 -13.0605 curveto
	 6.42969 -12.9404 6.24023 -12.5557 5.81934 -11.9053 curveto
	 4.29004 -9.64062 lineto
	 3.75 -10.3604 lineto
	 4.9502 -12.0254 lineto
	 5.42969 -12.6699 lineto
	 5.04004 -13.0156 lineto
	 4.7793 -13.2451 4.68945 -13.2402 4.76953 -13 curveto
	 4.80957 -12.8203 4.37988 -12.0703 3.47949 -10.75 curveto
	closepath
	3.47949 -10 moveto
	 3.58008 -9.82031 3.66504 -9.69043 3.73438 -9.61035 curveto
	 3.80469 -9.53027 3.89941 -9.41016 4.01953 -9.25 curveto
	 3.89941 -9.08984 3.80957 -8.96484 3.75 -8.875 curveto
	 3.50977 -8.5 lineto
	 3.41016 -8.66016 3.24023 -8.91992 3 -9.28027 curveto
	 3.09961 -9.41992 3.1748 -9.53516 3.22461 -9.625 curveto
	 3.27441 -9.71484 3.35938 -9.83984 3.47949 -10 curveto
	closepath
	3.47949 -10.75 moveto
	 2.55957 -12.0498 2.13965 -12.7998 2.21973 -13 curveto
	 2.2793 -13.2402 2.18945 -13.2451 1.9502 -13.0156 curveto
	 1.58984 -12.6699 lineto
	 2.04004 -12.04 lineto
	 3.24023 -10.3604 lineto
	 3.12012 -10.2002 2.9502 -9.9502 2.72949 -9.61035 curveto
	 2.14941 -10.4102 1.63965 -11.1553 1.2002 -11.8457 curveto
	 0.759766 -12.5352 0.55957 -12.9404 0.599609 -13.0605 curveto
	 0.660156 -13.2998 0.569336 -13.3057 0.330078 -13.0752 curveto
	 -0.0302734 -12.7305 lineto
	 0.75 -11.6504 lineto
	 2.45996 -9.28027 lineto
	 0.734375 -6.89551 lineto
	 -0.0302734 -5.86035 lineto
	 0.240234 -5.53027 lineto
	 0.419922 -5.31055 0.509766 -5.31055 0.509766 -5.53027 curveto
	 0.509766 -5.61035 0.729492 -5.98535 1.16992 -6.65527 curveto
	 1.60938 -7.3252 2.12988 -8.07031 2.72949 -8.89062 curveto
	 2.80957 -8.75 2.89453 -8.62012 2.98438 -8.5 curveto
	 3.0752 -8.37988 3.16016 -8.25977 3.24023 -8.14062 curveto
	 2.04004 -6.53516 lineto
	 1.58984 -5.91992 lineto
	 1.85938 -5.58984 lineto
	 2.04004 -5.37012 2.12988 -5.37012 2.12988 -5.58984 curveto
	 2.12988 -5.65039 2.25977 -5.87988 2.51953 -6.28027 curveto
	 3.47949 -7.75 lineto
	 4.45508 -6.29492 lineto
	 4.72461 -5.88477 4.85938 -5.65039 4.85938 -5.58984 curveto
	 4.85938 -5.37012 4.95508 -5.37012 5.14453 -5.58984 curveto
	 5.42969 -5.91992 lineto
	 4.93457 -6.5498 lineto
	 4.60449 -6.9707 4.21973 -7.49023 3.7793 -8.11035 curveto
	 3.89941 -8.29004 3.98438 -8.41504 4.03516 -8.48535 curveto
	 4.08496 -8.55566 4.16992 -8.69043 4.29004 -8.89062 curveto
	 5.80469 -6.65527 lineto
	 6.25488 -5.98535 6.47949 -5.61035 6.47949 -5.53027 curveto
	 6.47949 -5.31055 6.5752 -5.31055 6.76465 -5.53027 curveto
	 7.0498 -5.86035 lineto
	 6.2998 -6.85059 lineto
	 4.55957 -9.25 lineto
	 5.24023 -10.1299 5.83008 -10.9307 6.33008 -11.6504 curveto
	 6.83008 -12.3701 7.06934 -12.7305 7.0498 -12.7305 curveto
	 6.66016 -13.0752 lineto
	 6.39941 -13.3057 6.30957 -13.2998 6.38965 -13.0605 curveto
	 6.42969 -12.9404 6.24023 -12.5557 5.81934 -11.9053 curveto
	 4.29004 -9.64062 lineto
	 3.75 -10.3604 lineto
	 4.9502 -12.0254 lineto
	 5.42969 -12.6699 lineto
	 5.04004 -13.0156 lineto
	 4.7793 -13.2451 4.68945 -13.2402 4.76953 -13 curveto
	 4.80957 -12.8203 4.37988 -12.0703 3.47949 -10.75 curveto
	closepath
	3.47949 -10 moveto
	 3.58008 -9.82031 3.66504 -9.69043 3.73438 -9.61035 curveto
	 3.80469 -9.53027 3.89941 -9.41016 4.01953 -9.25 curveto
	 3.89941 -9.08984 3.80957 -8.96484 3.75 -8.875 curveto
	 3.50977 -8.5 lineto
	 3.41016 -8.66016 3.24023 -8.91992 3 -9.28027 curveto
	 3.09961 -9.41992 3.1748 -9.53516 3.22461 -9.625 curveto
	 3.27441 -9.71484 3.35938 -9.83984 3.47949 -10 curveto
	closepath
fill grestore
}!



/su {  %hampe haut
pop pop gsave newpath
x y translate -7 -0.1 translate
	3.36816 4.10156 moveto
	 3.6748 4.69238 lineto
	 3.91504 19.6025 lineto
	 3.91504 19.6318 lineto
	 3.91504 19.6621 lineto
	 3.94531 19.6621 lineto
	 3.94531 20.4424 lineto
	 3.94531 20.4424 lineto
	 3.94531 20.4424 lineto
	 3.94531 20.4424 lineto
	 3.91504 20.4424 lineto
	 3.10547 20.1719 lineto
	 2.8252 20.0928 2.625 19.9922 2.50488 19.8721 curveto
	 3.04492 4.60254 lineto
	 3.36816 4.10156 lineto
	closepath
fill grestore
}!

/sd {  %hampe down
pop pop gsave newpath
x y translate -7 -0.1 translate
	3.59375 -3.06836 moveto
	 3.28711 -3.65918 lineto
	 3.04688 -18.5693 lineto
	 3.04688 -18.5986 lineto
	 3.04688 -18.6289 lineto
	 3.0166 -18.6289 lineto
	 3.0166 -19.4092 lineto
	 3.0166 -19.4092 lineto
	 3.0166 -19.4092 lineto
	 3.0166 -19.4092 lineto
	 3.04688 -19.4092 lineto
	 3.85645 -19.1387 lineto
	 4.13672 -19.0596 4.33691 -18.959 4.45703 -18.8389 curveto
	 3.91699 -3.56934 lineto
	 3.59375 -3.06836 lineto
	closepath
fill grestore
}!




/sfu {  %hampe croche
pop pop gsave newpath
x y translate -7 -0.1 translate
	3.33398 4.23438 moveto
	 3.6748 4.69238 lineto
	 3.91504 19.6025 lineto
	 3.91504 19.6318 lineto
	 3.91504 19.6621 lineto
	 3.94531 19.6621 lineto
	 3.94531 19.6621 lineto
	 3.94531 19.6621 lineto
	 4.125 19.7227 4.53516 19.582 5.1748 19.2422 curveto
	 6.16504 18.7324 lineto
	 4.24512 16.4521 lineto
	 4.30469 15.6719 lineto
	 4.34473 15.1924 4.39551 15.1924 4.45508 15.6719 curveto
	 4.45508 15.7021 lineto
	 4.53516 16.2021 4.95508 16.9219 5.71484 17.8623 curveto
	 6.49512 18.8223 6.88477 19.3926 6.88477 19.5723 curveto
	 6.88477 19.5723 lineto
	 6.86523 19.752 6.45508 19.9326 5.65527 20.1123 curveto
	 4.03516 20.4121 lineto
	 4.06543 20.4727 lineto
	 4.06543 20.4727 lineto
	 3.97559 20.4727 lineto
	 3.94531 20.4424 lineto
	 3.94531 20.4424 lineto
	 3.94531 20.4424 lineto
	 3.94531 20.4424 lineto
	 3.91504 20.4424 lineto
	 3.10547 20.1719 lineto
	 2.8252 20.0928 2.625 19.9922 2.50488 19.8721 curveto
	 3.04492 4.60254 lineto
	 3.33398 4.23438 lineto
	closepath
fill grestore
}!


/sfd {  %hampe croche down
pop pop gsave newpath
x y translate -7 -0.1 translate
	3.62793 -3.20117 moveto
	 3.28711 -3.65918 lineto
	 3.04688 -18.5693 lineto
	 3.04688 -18.5986 lineto
	 3.04688 -18.6289 lineto
	 3.0166 -18.6289 lineto
	 3.0166 -18.6289 lineto
	 3.0166 -18.6289 lineto
	 2.83691 -18.6895 2.42676 -18.5488 1.78711 -18.209 curveto
	 0.796875 -17.6992 lineto
	 2.7168 -15.4189 lineto
	 2.65723 -14.6387 lineto
	 2.61719 -14.1592 2.56641 -14.1592 2.50684 -14.6387 curveto
	 2.50684 -14.6689 lineto
	 2.42676 -15.1689 2.00684 -15.8887 1.24707 -16.8291 curveto
	 0.466797 -17.7891 0.0771484 -18.3594 0.0771484 -18.5391 curveto
	 0.0771484 -18.5391 lineto
	 0.0966797 -18.7188 0.506836 -18.8994 1.30664 -19.0791 curveto
	 2.92676 -19.3789 lineto
	 2.89648 -19.4395 lineto
	 2.89648 -19.4395 lineto
	 2.98633 -19.4395 lineto
	 3.0166 -19.4092 lineto
	 3.0166 -19.4092 lineto
	 3.0166 -19.4092 lineto
	 3.0166 -19.4092 lineto
	 3.04688 -19.4092 lineto
	 3.85645 -19.1387 lineto
	 4.13672 -19.0596 4.33691 -18.959 4.45703 -18.8389 curveto
	 3.91699 -3.56934 lineto
	 3.62793 -3.20117 lineto
	closepath
fill grestore
}!




/hd  {	% tete noire usage: str x y quartbemol
xymove x y
gsave translate 1 dup scale
defl 4 and 0 eq{-7 0 translate}{}ifelse
0 0 translate newpath
	3.32031 5.0332 moveto
	 3.64551 4.69238 lineto
	 4.00488 4.15234 4.66504 3.44238 5.625 2.5625 curveto
	 6.54492 1.70215 7.10547 1.0625 7.30469 0.642578 curveto
	 7.30469 0.612305 lineto
	 6.8252 0.37207 6.28516 -0.227539 5.68555 -1.1875 curveto
	 3.64551 -4.24805 lineto
	 3.04492 -3.58789 lineto
	 1.66504 -2.14746 lineto
	 0.31543 -0.647461 lineto
	 -0.0849609 -0.208008 -0.294922 0.0722656 -0.314453 0.192383 curveto
	 -0.314453 0.192383 lineto
	 0.0449219 0.3125 0.584961 0.912109 1.30469 1.99219 curveto
	 3.04492 4.60254 lineto
	 3.32031 5.0332 lineto
	closepath
fill grestore
	}!
	


/Hd  {	% tete blanche usage: str x y quartbemol TODO : c'est la ronde ici
xymove x y
gsave translate 1 dup scale
defl 4 and 0 eq{-7 0 translate}{}ifelse
0 0 translate newpath	
	1.3916 1.78516 moveto
	closepath
	7.41797 0.352539 moveto
	closepath
	3.7168 4.44043 moveto
	 4.03418 3.96484 4.61523 3.28711 5.67285 2.30859 curveto
	 6.60059 1.45117 7.15723 0.814453 7.34766 0.407227 curveto
	 6.86426 0.150391 6.32617 -0.416992 5.71582 -1.38965 curveto
	 3.74316 -4.39844 lineto
	 3.12891 -3.78418 lineto
	 1.8291 -2.33496 lineto
	 0.454102 -0.833984 lineto
	 0.0410156 -0.380859 -0.135742 -0.145508 -0.176758 -0.0361328 curveto
	 0.229492 0.123047 0.80957 0.793945 1.45801 1.74219 curveto
	 3.18359 4.36719 lineto
	 3.45312 4.79297 lineto
	 3.7168 4.44043 lineto
	closepath
	4.31836 -2.87402 moveto
	 4.40723 -2.7959 4.68066 -2.37891 5.19531 -1.56543 curveto
	 6.00391 -0.265625 lineto
	 5.49902 0.286133 lineto
	 4.375 1.51172 lineto
	 3.32129 2.71094 lineto
	 3.0166 3.05762 2.83301 3.13379 2.78613 3.14941 curveto
	 2.68164 3.07129 2.3916 2.66113 1.83301 1.86719 curveto
	 0.916992 0.564453 lineto
	 0.932617 0.526367 1.05957 0.382812 1.3584 0.0664062 curveto
	 2.45703 -1.08301 lineto
	 3.60645 -2.20703 lineto
	 4.31836 -2.87402 lineto
	closepath
fill grestore
	}!


/HDD {	% Grosse Ronde
xymove x y
gsave translate 1.2 dup scale
defl 4 and 0 eq{-7 0 translate}{}ifelse
0 0 translate newpath	
	0.180664 3.35059 moveto
	 0.540039 3.38086 lineto
	 0.570312 3.20117 lineto
	 0.870117 3.12109 1.79102 3.08301 2.89062 3.0625 curveto
	 5.33984 3.08105 lineto
	 5.35547 3.24902 lineto
	 5.53613 3.24902 lineto
	 5.73047 3.23047 lineto
	 5.60096 3.07581 5.58008 1.8625 5.58008 -0.189453 curveto
	 5.64062 -2.43945 lineto
	 5.7002 -3.72949 lineto
	 5.58008 -3.76953 5.41992 -3.75879 5.2207 -3.69922 curveto
	 5.23438 -3.3125 lineto
	 4.23438 -3.09375 1.90533 -3.1426 0.78125 -3.15625 curveto
	 0.540039 -3.15918 lineto
	 0.510742 -3.48926 lineto
	 0.209961 -3.56934 0.0107422 -3.5791 -0.0898438 -3.51953 curveto
	 0.0302734 -2.91895 0.100586 -1.80957 0.120117 -0.189453 curveto
	 0.180664 3.35059 lineto
	closepath
	0.453125 -1.9375 moveto
	 2.82812 -1.9375 lineto
	 5.28027 -1.89648 lineto
	 5.23438 1.73438 lineto
	 2.95312 1.78125 lineto
	 0.5 1.84375 lineto
	 0.44043 1.76367 0.489258 1.62793 0.46875 1.1875 curveto
	 0.419922 -1.44922 lineto
	 0.453125 -1.9375 lineto
	closepath
fill grestore
	}!




/HD  {	% tete blanche = ronde normale 
xymove x y
gsave translate 1 dup scale
defl 4 and 0 eq{-7 0 translate}{}ifelse
0 0 translate newpath	
	3.09375 4.62305 moveto
	 3.40723 5.08496 lineto
	 3.69434 4.71289 lineto
	 4.05371 4.17285 4.7041 3.46289 5.64355 2.58301 curveto
	 6.60352 1.70312 7.17383 1.05273 7.35352 0.632812 curveto
	 6.87402 0.392578 6.33398 -0.1875 5.73438 -1.10742 curveto
	 5.7041 -1.16699 lineto
	 3.69434 -4.22754 lineto
	 3.06348 -3.56738 lineto
	 1.74414 -2.12695 lineto
	 0.364258 -0.626953 lineto
	 -0.0361328 -0.1875 -0.246094 0.0927734 -0.265625 0.212891 curveto
	 -0.265625 0.212891 lineto
	 0.09375 0.333008 0.643555 0.932617 1.38379 2.0127 curveto
	 3.09375 4.62305 lineto
	closepath
	6.09375 -0.0273438 moveto
	 5.58398 0.542969 lineto
	 4.44434 1.77246 lineto
	 3.30371 2.97266 lineto
	 2.96387 3.29297 2.77441 3.44238 2.73438 3.42285 curveto
	 2.73438 3.42285 lineto
	 2.63379 3.36328 2.30371 2.93262 1.74414 2.13281 curveto
	 0.933594 0.8125 lineto
	 0.914062 0.792969 1.06348 0.613281 1.38379 0.272461 curveto
	 2.46387 -0.867188 lineto
	 3.63379 -2.00684 lineto
	 4.38379 -2.66699 lineto
	 4.44434 -2.64746 4.74414 -2.20703 5.28418 -1.34766 curveto
	 6.09375 -0.0273438 lineto
	closepath
fill grestore
	}!




/HDD0  {	% GROSSE longue RONDE usage: str x y quartbemol
gsave translate 0.04 dup scale
	0 0 translate
	newpath
  	17 18 moveto
  	 35 31 lineto
  	 54 46 lineto
  	 71 61 lineto
  	 100 87 lineto
  	 120 113 lineto
  	 152 75 lineto
  	 183 47 lineto
  	 214 25 lineto
  	 246 6 lineto
  	 229 -6 lineto
  	 212 -18 lineto
  	 168 -53 lineto
  	 130 -90 lineto
  	 125 -94 lineto
  	 120 -101 lineto
  	 110 -84 lineto
  	 95 -66 lineto
  	 66 -38 lineto
  	 35 -14 lineto
  	 17 -2 lineto
  	 0 6 lineto
  	 17 18 lineto
  	closepath
  	145 -50 moveto
  	 189 -13 lineto
  	 101 63 lineto
  	 57 25 lineto
  	 145 -50 lineto
  	closepath
  fill grestore
	} bdef


/bar{ 
xymove x
gsave translate 1 dup scale
defl 4 and 0 eq{-7 0 translate}{}ifelse
0.5 0 translate newpath	
	5.03711 -2.38184 moveto
	 5.03711 6.82812 lineto
	 5.06738 12.1982 lineto
	 5.06738 25.4883 lineto
	 5.09766 26.748 lineto
	 5.12793 27.0479 lineto
	 5.12793 27.248 5.32715 27.1982 5.72754 26.8975 curveto
	 5.72754 -1.27246 lineto
	 5.75781 -2.53223 lineto
	 5.4873 -2.53223 lineto
	 5.03711 -2.38184 lineto
	closepath
fill grestore
}!




% taille par defaut des lignes
/dlw{0.7 SLW}!

/bnumb{	currentgray /GoudyMediaeval-Regular 12 selectfont
	3 index stringwidth pop 4 add
	dup .5 mul neg 4 index add 3 index 3 -1 roll 8
	1.0 setgray rectfill setgray M showc}!
	
/bnum{M/GoudyMediaeval-Regular 12 selectfont showc}!

%point pour les notes pointées
/dt{
pop gsave newpath
x y translate -7 -1.45 translate
	8.75293 2.79199 moveto
	 8.41602 3.29785 8.94043 3.95508 9.41309 4.03711 curveto
	 9.45996 4.04492 9.83398 4.0332 10.1709 3.82715 curveto
	 10.8457 3.41406 10.0928 2.11523 9.39062 2.34961 curveto
	 8.98535 2.48438 9.03613 2.36816 8.75293 2.79199 curveto
	closepath
fill grestore
}!
% TODO
/dt0{x y M RM currentpoint 1.2 0 360 arc fill}!

%time signature
/tsig{	M gsave/GoudyMediaeval-Regular 16 selectfont 1.2 1 scale
	0 1 RM currentpoint 3 -1 roll showc
	12 add M showc grestore}!
	
% barres sup ? grace note
/ghl{	.6 SLW x -3 add exch M
6 0 RL stroke}!
	
% barres sup ?grace note
/gsl{dlw M curveto stroke}!

% barres sup
/hl{
xymove x y
gsave translate 1 dup scale
defl 4 and 0 eq{-7 0 translate}{}ifelse
1 -1 translate newpath	
	-2.875 1.5 moveto
	 -0.512695 1.3877 5.89551 1.46094 8.29492 1.5 curveto
	 8.28027 0.525391 lineto
	 5.80859 0.566406 -0.557617 0.539062 -2.94922 0.540039 curveto
	 -2.875 1.5 lineto
	closepath
fill grestore }!

%beam : liaison des croches
/bm{	M 3 copy RL neg 0 exch RL
	neg exch neg exch RL 0 exch RL fill}!

endps