% adapted from abctab2ps % -- bataille % insert the fonts from abctab2ps %%format frFrancisque.ps %%beginps % ! stack error in frFrancisque.ps ! pop % width x y n tab6h - tablature header /tab6h{ /tabfont{/FrenchTabfont 14 selectfont}! /chofont{/Palatino-Roman 13 selectfont}! pop .75 SLW %test %2 copy M -10 0 RL 0 30 RL 10 0 RL stroke pop pop pop tabfont /barh 60 def }! % dx dy dslur - draw a down slur/tie /dslur{ % RL stroke 1 index 4 div dup 3 mul % dx dy x1 x2 2 index 2 index mul 4 index div 8 sub exch % dx dy x1 y1 x2 3 index 1 index mul 5 index div 8 sub % dx dy x1 y1 x2 y2 3 index 3 index 3 index 3 index 9 index 9 index RC 4 index neg add 2 sub 6 1 roll 4 index neg add 6 1 roll 2 index neg add 2 sub 4 1 roll 2 index neg add 4 1 roll exch neg exch neg RC fill }! % char tabbadd - add the char to the bourdon string /tabbadd{ tabbstr length dup 1 add string dup tabbstr exch copy pop /tabbstr exch def exch tabbstr 3 1 roll put }! % functions for tablature notes /str( )def /tabtiex 0 def /tabtiext 0 def /tabindex 0 def /tablong 0 def /tabring 0 def % x y h n tflag - flags /tflag{ 1 SLW 3 index 3 index 104 add M dup 0 lt{ 2.5 7 RM 0 -1 0 -7 -5 -7 RC -2 0 0 7 5 7 RC currentpoint stroke moveto} { 3 7 RM 0 -1 0 -7 -5 -7 RC -2 0 0 7 5 7 RC currentpoint fill moveto -.5 0 RM }ifelse dup -2 gt{ 0 13 RL currentpoint stroke moveto }if dup 0 gt{ 1.2 -.2 RL currentpoint -1.2 -1.2 RL fill moveto { 2.4 -.4 7 0 3.5 -5 RC -1.2 -1.2 RL currentpoint 3.5 5 -1.1 4.6 -3.5 5 RC 1.2 1.2 RL fill moveto }repeat }{pop}ifelse }! % character not handled /actno{(char not handled: )print = }! % action table /tabaction [256{/actno}repeat] def % x y h char actchr - print a character /actchr{ tabbourd 0 eq{ 3 index 3 index 3 index add M tabtiex 0 ne{ % tie waiting to be drawn currentpoint 1 index tabtiex exch sub 1 index tabtiey exch sub dslur /tabtiex 0 def M }if str 0 3 -1 roll put str showc 12 sub }{tabbadd}ifelse}! tabaction 97/actchr put % 'a' tabaction 98/actchr put % 'b' tabaction 99/actchr put % 'c' tabaction 100/actchr put % 'd' tabaction 101/actchr put % 'e' tabaction 102/actchr put % 'f' % '"' - enter in quoted string /act34{ pop /inquote 1 def chofont /quoted 0 string def 1 index 17 add}! tabaction 34/act34 put % '(' - slur start /act40{ pop /tabslurx 3 index def tabbourd 0 eq{2 copy add 2 sub} {1 index 18 add}ifelse /tabslury exch def}! tabaction 40/act40 put % ')' - slur end /act41{ pop tabbourd 0 eq{3 copy add 10 add} {2 index 2 index 18 add}ifelse 2 copy M exch tabslurx exch sub exch tabslury exch sub dslur}! tabaction 41/act41 put % ',' - go to the next line or count the bourdon number /act44{pop tabbourd 0 eq{12 sub} {/tabbourd tabbourd 1 add def}ifelse}! tabaction 44/act44 put % '-' - tie start /act45{ pop /tabtiext 3 index def 2 copy add 12 add /tabtiey exch def}! tabaction 45/act45 put % '.' - index finger /act46{pop /tabindex 1 def}! tabaction 46/act46 put % '/' - quaver /act47{pop 1 tflag}! tabaction 47/act47 put % '1' - black note /act49{pop 0 tflag}! tabaction 49/act49 put % '2' - white note /act50{pop -1 tflag}! tabaction 50/act50 put % ';' - ring finger /act59{pop /tabring 1 def}! tabaction 59/act59 put % 'L' - long note /act76{pop /tablong 1 def}! tabaction 76/act76 put % 'X' - mordent /act88{pop 2 index 2 index 2 index add M 7 -4.5 RM .7 SLW 5 7 RL -5 0 RM 5 -7 RL stroke}! tabaction 88/act88 put % 'y' - /act121{pop tabbourd 0 eq{12 sub}if }! tabaction 121/act121 put % '{' - bourdon start /act123{pop /tabbourd 1 def /tabbstr()def}! tabaction 123/act123 put % '}' - bourdon end /act125{pop 2 index tabbourd -3 mul add 2 index 18 add M .75 SLW tabbourd 1 sub {6 10 RL -2.5 -10 RM}repeat currentpoint stroke M -1 2 RM tabbstr show /tabbourd 0 def}! tabaction 125/act125 put % string x y n tab6n - tablature note /tab6n{ /tabtiex tabtiext def /tabtiext 0 def /inquote 0 def /tabbourd 0 def pop barh 33 add 4 -1 roll % stack: x y h string { inquote 0 eq{ % stack: x y h char tabaction 1 index get load exec} { % inside double quote % stack: x y h y' char dup 34 eq{ % double quote pop 3 index 1 index M quoted showc pop /inquote 0 def tabfont }{dup 59 eq{ % semicomma --> newline pop 3 index 1 index M quoted showc 13 sub /quoted 0 string def} { quoted length dup 1 add string % char n str dup quoted exch copy pop /quoted exch def exch quoted 3 1 roll put }ifelse}ifelse }ifelse }forall tabindex 0 ne{ % index finger add M 2 5 RM currentpoint 1.3 0 360 arc fill /tabindex 0 def} {tablong 0 ne{ % long note add M -4 4 RM 1.2 SLW 12 3 RL stroke /tablong 0 def} {tabring 0 ne{ % ring finger add M -2 5 RM currentpoint 2 copy 1.3 0 360 arc %fill M 4 0 RM currentpoint 2 copy 1.3 0 360 arc %fill M 4 0 RM currentpoint 1.3 0 360 arc fill /tabring 0 def} {pop pop pop}ifelse}ifelse}ifelse}! % string x y n tab6b - tablature bar /tab6b{ 0 eq{ % first line only .8 SLW 32 add 2 index length 1 sub -1 0{ 3 index exch get dup 124 eq{ % '|' pop 2 copy M 0 barh RL stroke exch 4 sub exch} {dup 58 eq{ % ':' pop 2 copy 6 add 5{ 2 copy 2 copy M 1.2 0 360 arc 12 add }repeat fill pop pop exch 4 sub exch} { pop % '[' or ']' 2 copy M 0 barh RL -3 0 RL 0 barh neg RL fill exch 6 sub exch }ifelse}ifelse }for }if pop pop pop}! %%endps U:i=!invisible! X:1 %%indent 1.5cm %%wordsfont Times-Italic 10 T:Ma bergere, non l\'egere C:Gabriel Bataille L:1/4 M:none % %leftmargin 1cm % %rightmargin 1cm %%staves [F | L] K:Dm %%scale 0.6 % V:F clef=treble name=Voice %bracket=2 V:L clef=frenchtab name=Lute stafflines=6 staffscale=2 % [V:F]F/ G/ A/ F/ A/ B/ c/ c/ d/ e/ f>_e d c/B/ A G/ F/ E>F F3:: w:Ma ber-ge-re, non l\'e-ge-re En a-mours, me fait re-\cce-vour du bien tous les jours. V:L K:none clef=none %%tablature 10 30 tab6h tab6n tab6b ic/ ic/ ic/ ic/ ic/ ic/ ic \ w: ,XbXdca/ ,,,,c ,,,,d ,,,,a ,bbcd ,,,a ,abc1 \ ic ic ic ic/ ic/ ic ic \ w: bdda a,b,d{(y} {,a)} ,XbXd,,(b/ ,,,,,a) {a}1 {,a} \ ic/ ic/ ic ic ic2 ic i:: w: ,d,,c/ ,,,,a ,,,,,d1 ;,dba ,bbcd{(y}2 {,a)}1 % [V:F]c/ B/ A/ F/ B/ A/ G/ A/ F/ G/ E> E F/ F/ G/ G/ A/ A/ =B/ c/ d/ e/ ^c d3:| w:Je la mei-ne, la pur mei-ne, par les champs, O\`u nous pre-nons en-sem-ble de doux pas - se temps. V:L ic/ ic/ ic/ ic/ ic/ ic/ ic/ ic/ ic/ ic/ \ w: ,,bc/ ,,,a ,Xb,,d ,,,,a ,,Xda ,,,,d ,,,,c ,,,,d ,,,,a .,,a \ ic/ ic/ ic/ ic/ ic/ ic/ ic/ ic/ ic/ \ w: ,,c,,a .,,d ,a .,,c ,,,,a .,,d ,,b,Xc .,,,d ,,,cXd \ ic/ ic/ ic/ ic/ ic/ ic \ w: ,,Xd ,,,a .,a ,b,,a .,d ,a,,,a1 \ ic2 ic i:| w: ,,dca{(y}2 {,,a)}1 % W:Par la plaine / Sans grand peine / Nous mettons W:A mesmes trouppeau nos petits moutons W:Puis \`a l'aise / Je luy baise / Son beau sein W:Et sa bouche vermeille, son joli t\'etin. W: W:Que si j'ose / Autre chose / Rechercher, W:Elle ne me veut laisser aprocher W:Mais subite / Prend la fuitte / Moy apres, W:Je s\ccay bien la poursuivre et la joindre de pres. W: W:Si je l\`eve / Sus sa greve / Les genoux W:Sa cotte si haut qu'on voye dessoubs: W:En furie / Elle crie / Et me mord; W:Et puis en bien peu d'heure nous sommes d'accord W: W:Je luy cueille / Et recueille / Tant de fleurs W:Qu'elle en peut avoir de toutes couleurs W:Elle bonne / Me fa\cconne / Des bouquets W:Qui causent au village beaucoup de caquets W: W:Pourtant passe / Quoy qu'on face / L'aymeray W:Et magr\'e le bruit je l'estimeray W:L'inconstance / N'a puissance / Sur ma foy W:Je veux estre fidelle comme elle est \`a moy. W: W:Nostre vie / Sans envie / Nous passons W:Charmans nos soucis de gayes chansons W:Fy des villes / O\`u les filles / Ne font cas W:Des amants qui pour elle conduise au trespas