mirror of https://github.com/patacrep/patacrep.git
Engine for LaTeX songbooks
http://www.patacrep.com
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
116 lines
2.4 KiB
116 lines
2.4 KiB
% Tabs Package -- version 0.1 for LaTeX2e
|
|
%
|
|
% This package provide macros for tablatures creations
|
|
|
|
\NeedsTeXFormat{LaTeX2e}[1994/06/01]
|
|
\ProvidesPackage{tabs}[2014/04/13 Tabs Package, version 0.1]
|
|
|
|
\RequirePackage{tikz}
|
|
|
|
% Counters
|
|
\newcounter{tab-string}
|
|
\newcounter{tab-tempo}
|
|
\newcounter{tab-line}
|
|
% Length
|
|
\newlength{\tablen}
|
|
% Variables
|
|
\def\chordtuning{E,A,D,G,B,e}
|
|
\def\xunit{0.35}
|
|
\def\yunit{0.2}
|
|
% The tab environmant
|
|
% \begin{tab}
|
|
\newenvironment{tab}
|
|
{
|
|
\normalsize
|
|
\setcounter{tab-line}{0}
|
|
\setcounter{tab-tempo}{0}
|
|
|
|
\setlength{\tablen}{\xunit cm}
|
|
|
|
% A single note
|
|
% \single <string> <fret>
|
|
\newcommand{\single}[2]{
|
|
% draw tuning if we are at the beginining of a new tab line
|
|
\ifnum\value{tab-tempo}=0
|
|
\setcounter{tab-string}{6}
|
|
\foreach \tuning in \chordtuning
|
|
{
|
|
\node at (-1,\value{tab-line}+\value{tab-string}) {\tuning};
|
|
\addtocounter{tab-string}{-1}
|
|
}
|
|
\fi
|
|
|
|
% draw the 6 strings
|
|
\foreach \string in {1,...,6}
|
|
{
|
|
\draw[xshift=-0.5cm] (\value{tab-tempo},\value{tab-line}+\string) -- +(1,0);
|
|
}
|
|
\draw node[single] at (\value{tab-tempo},\value{tab-line}+##1) {##2};
|
|
\addtocounter{tab-tempo}{1}
|
|
\addtolength{\tablen}{\xunit cm}
|
|
\ifnum\hsize<\tablen
|
|
\addtocounter{tab-line}{8}
|
|
\setlength{\tablen}{\xunit cm}
|
|
\setcounter{tab-tempo}{0}
|
|
\end{tikzpicture}
|
|
\begin{tikzpicture}[
|
|
single/.style={},
|
|
cm={\xunit,0,0,-\yunit,(0,0)}
|
|
]
|
|
\fi
|
|
}
|
|
% A mesure bar
|
|
% \bar
|
|
\renewcommand{\bar}{
|
|
\draw[xshift=-0.5cm] (\value{tab-tempo},\value{tab-line}+1) --+(0,5);
|
|
}
|
|
|
|
\hspace{-\parindent}
|
|
\begin{tikzpicture}[
|
|
single/.style={},
|
|
cm={\xunit,0,0,-\yunit,(0,0)}
|
|
]
|
|
|
|
% draw the first bar
|
|
\draw[xshift=-0.5cm] (0,1) --+(0,5);
|
|
}
|
|
{
|
|
\end{tikzpicture}
|
|
}
|
|
\else%
|
|
\newenvironment{tab}{%
|
|
\newcommand{\single}[2]{}%
|
|
\renewcommand{\bar}{}%
|
|
}{}%
|
|
\fi%
|
|
|
|
|
|
|
|
\let\musicnoteORIG\musicnote
|
|
\renewcommand{\musicnote}[2][]{%
|
|
\vspace{.1cm}
|
|
\IfStrEq{}{#1}{\musicnoteORIG{#2}}{
|
|
\iflanguage{#1}{\musicnoteORIG{#2}}{}
|
|
}
|
|
}
|
|
|
|
\let\textnoteORIG\textnote
|
|
\renewcommand{\textnote}[2][]{%
|
|
\vspace{.1cm}
|
|
\IfStrEq{}{#1}{\textnoteORIG{#2}}{
|
|
\iflanguage{#1}{\textnoteORIG{#2}}{}
|
|
}
|
|
}
|
|
|
|
\renewcommand{\FrameCommand}[1]{
|
|
\begin{tikzpicture}
|
|
\node[rectangle] (rect) {
|
|
\begin{minipage}{.8\textwidth}
|
|
#1
|
|
\end{minipage}
|
|
};
|
|
\draw[very thick, dashed] (rect.north west) -- (rect.south west);
|
|
\end{tikzpicture}
|
|
}
|
|
|
|
\endinput
|
|
|