%Time-stamp: <1998-08-03 1921 ketil>
%
% Musixtex-macros for guitar music
%
% The space between the bar and next note
\def\stdafterruleskip{2\Internote}
% Terminates a page
\def\TermPage{\line{} \vfill \penalty-'10000000000}
%
% Lineskips
\def\ssk{\smallskip}
\def\Ssk{\smallskip\smallskip}
\def\SSk{\smallskip\smallskip\smallskip}
\def\SSK{\smallskip\smallskip\smallskip\smallskip}
%
\def\bsk{\bigskip}
\def\Bsk{\bigskip\bigskip}
\def\BSk{\bigskip\bigskip\bigskip}
\def\BSK{\bigskip\bigskip\bigskip\bigskip}
%
% Bar numbering system. Remove the following three lines if you prefer
% boxed bar numbers above the clef
\def\writebarno{\llap{\tenbf\the\barno\barnoadd}}%
\def\raisebarno{2\internote}%
\def\shiftbarno{1.3\Interligne}%
%
\newdimen\theoffset
\newdimen\oddoffset\oddoffset=0.in
\newdimen\evenoffset\evenoffset=0.in
%\def\normalwidth{\hsize=7.0in \oddoffset=-0.11in \evenoffset=-0.36in}
%
\def\sectionedpagenumbers
{  \footline={\hss\tenrm\number\count1.\number\pageno\hss}
}
%
% Output routine
\output=
{ 
   \ifodd\pageno\let\theoffset=\oddoffset
   \else\let\theoffset=\evenoffset
   \fi
   \footline=
   \ifodd\pageno%
   {
     \rlap{\sevenrm\copyright~1996-1998, Ketil.Mehl@usa.net}%
      \hfill\folio\hfill
      \llap{\sevenrm Non-commercial copying welcome.}
   }
   \else
   {
     \rlap{\sevenrm\copyright~1996-1998, Ketil.Mehl@usa.net}%
     \hfill\folio\hfill
     \llap{\sevenrm Non-commercial copying welcome.}
   }
   \fi
   \shipout\vbox
   {  \moveright\theoffset
      \vbox{\pagebody\makefootline}
   }
   \advancepageno
   \ifnum\outputpenalty>-20000 
   \else\dosupereject
   \fi
}
%
% Guitar notation; one octave down
\font\eightfig=cmr8         
\def\everystaff{\znotes\zcharnote{-6}{\eightfig\kern -2.0\Interligne 8}\enotes}\relax
%
% Low stem notes
\def\lownotes{\notes\stemlength{3.5}}
%
% Dropped third to F# (``lute tuning'')
\def\TabThirdFiss{\leftline{\circleit{3}\space\space\space =F\#}}
%
% Dropped third to F# (``lute tuning'' on the left side and the  autor on the same
% line when trying to squeeze as much as possible on one oage
\def\TabAuthFiss#1{\leftline{\circleit{3}\space\space\space =F\#\hfill #1}}%
%
% Dropped 6th string
\def\TabSixthD{\leftline{\circleit{6}\space\space\space =D}}
%
% Third string to F# (``lute tuning'') and 6th string to D
\def\TabTwoDropped{\leftline{\circleit{3}\space\space\space =F\#\space\space\space\space\space\space\circleit{6}\space\space\space =D}}
%
% Titles
\def\TabTitle#1{\centerline{\enorme{#1}}}
%
\def\TabAuthor#1{\line{\hfill #1}}%
%
\def\TabSubTitle#1{\centerline{#1}}
%
%rolls
\def\uroll#1{\zcharnote{#1}{\raise -3.0\internote\hbox to 2.5\internote%
 {\hss$\smile$\hss}}}
\def\lroll#1{\zcharnote{#1}{\raise  1.0\internote\hbox to 2.5\internote%
 {\hss$\frown$\hss}}}
%
% grace notes
\def\grace{\multnoteskip\tinyvalue\tinynotesize}
\def\egrace{\normalnotesize}
% 
\def\utiny#1{\grace\cu{#1}\egrace}
\def\ltiny#1{\grace\cl{#1}\egrace}
% Pull off/hammer on
\def\pull#1#2{\grace\slur#1#2d1\grcu{#1}\egrace}
%
% Fingering macros
% digit: left and right finger  #1: vertical placement (note), #2: character
\def\digit #1#2{\smalltype\zcharnote #1{#2}}          %Straight above the chord
\def\hldigit #1#2{\smalltype\lcharnote #1{#2}}        %Slightly left of the chord
\def\ldigit #1#2{\hloff{\smalltype\lcharnote #1{#2}}} %Left of the chord
\def\hrdigit #1#2{\roff{\smalltype\lcharnote #1{#2}}} %Slightly right of chord
\def\rdigit #1#2{\hroff{\roff{\smalltype\lcharnote #1{#2}}}} %Right of chord
% 
%Circled string number to the left of the chord
\def\string #1#2{\hloff{\loff{\smalltype{\lcharnote #1 {\circleit{#2}}}}}}
%
%Left hand fret posistion.  
\def\handpos #1 #2{\hloff{\smalltype\zcharnote #1 {#2}}}
\def\lhandpos #1 #2{\loff{\smalltype\zcharnote #1 {#2}}}
%
% Parameters on all pauses, like on notes on liftpauses
\def\liftqp#1{\zcharnote {#1}\qp}
\def\liftds#1{\zcharnote {#1}\ds}
\def\liftqs#1{\zcharnote {#1}\qs}
\def\lifths#1{\zcharnote {#1}\hs}
\def\liftqqs#1{\zcharnote {#1}\qqs}
