mirror of https://github.com/patacrep/patacrep.git
Luthaf
11 years ago
14 changed files with 821 additions and 656 deletions
@ -0,0 +1,399 @@ |
|||
% Songbook Package -- version 0.1 for LaTeX2e |
|||
% |
|||
% This package provides macro for automatic songbook |
|||
% generation. See http://github.com/patacrep/songbook-core/ |
|||
|
|||
\NeedsTeXFormat{LaTeX2e}[1994/06/01] |
|||
\ProvidesPackage{SongbookUtils}[2014/04/13 Songbook Package, version 0.1] |
|||
|
|||
\RequirePackage{graphicx,xcolor} % |
|||
\RequirePackage{epstopdf} % |
|||
\RequirePackage{fancybox} |
|||
\RequirePackage{xstring} |
|||
\RequirePackage{framed} |
|||
\RequirePackage{currfile} |
|||
\RequirePackage{ifthen} |
|||
\RequirePackage{tikz} |
|||
|
|||
% tabs: display the guitar tabs |
|||
\newif{\iftabs} |
|||
\DeclareOption{tabs}{\tabstrue} |
|||
|
|||
% lilypond: display Lilypond music sheets |
|||
\newif{\iflilypond} |
|||
\DeclareOption{lilypond}{\lilypondtrue} |
|||
|
|||
\newif{\iflilypondauto} |
|||
\DeclareOption{lilypond}{\lilypondautotrue\lilypondtrue} |
|||
|
|||
% diagram: display chord diagrams at the beginning |
|||
\newif{\ifdiagram} |
|||
\DeclareOption{diagram}{\diagramtrue} |
|||
|
|||
% importantdiagramonly: only display important chords |
|||
\newif{\ifimportantdiagramonly} |
|||
\DeclareOption{importantdiagramonly}{\importantdiagramonlytrue\diagramtrue} |
|||
|
|||
% pictures: display song covers and songbook titlepage picture |
|||
\newif{\ifpictures} |
|||
\DeclareOption{pictures}{\picturestrue} |
|||
|
|||
% repeatchords: display chords in every verse if the song allows it |
|||
\newif{\ifrepeatchords} |
|||
\DeclareOption{repeatchords}{\repeatchordstrue} |
|||
|
|||
% onesongperpage: force single page for each song |
|||
\newif{\ifonesongperpage} |
|||
\DeclareOption{onesongperpage}{\onesongperpagetrue} |
|||
|
|||
%%% Instruments |
|||
% ukulele: display ukulele tabs |
|||
\newif{\ifukulele} |
|||
\DeclareOption{ukulele}{\ukuleletrue} |
|||
|
|||
% guitar: display guitar tabs |
|||
\newif{\ifguitar} |
|||
\DeclareOption{guitar}{\guitartrue} |
|||
|
|||
% Remaining options are passed to the songs package |
|||
\DeclareOption*{\PassOptionsToPackage{\CurrentOption}{songs}} |
|||
|
|||
\ProcessOptions\relax |
|||
|
|||
\RequirePackage{songs} % |
|||
|
|||
\iflyric |
|||
\tabsfalse % |
|||
\lilypondfalse% |
|||
\diagramfalse% |
|||
\picturesfalse% |
|||
\renewcommand{\colbotglue}{0pt plus .5\textheight minus 0pt}% |
|||
\fi |
|||
|
|||
% Patch for Debian TeXLive 2012 |
|||
% A bug may produce corrupted PDF |
|||
\pdfobjcompresslevel=0 |
|||
|
|||
|
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
% Multilanguage management |
|||
|
|||
\def\lang#1{\def\mainlanguage{#1}} |
|||
|
|||
\AtBeginDocument{ |
|||
% Default names (english) |
|||
\def\songlistname{Songs list} |
|||
\def\originalsongname{Original song:} |
|||
\def\introname{intro} |
|||
\def\outroname{outro} |
|||
\def\bridgename{bridge} |
|||
\def\chorusname{chorus} |
|||
\def\versename{verse} |
|||
\def\soloname{solo} |
|||
\def\patternname{pattern} |
|||
\def\rythmname{rythm} |
|||
\def\transpositionname{transposition:} |
|||
\def\songindexname{Songs Index} |
|||
\def\authorindexname{Authors Index} |
|||
\def\chordlistname{Chords list} |
|||
|
|||
\IfStrEq{\mainlanguage}{french}{ |
|||
% French names |
|||
\def\songlistname{Liste des chansons} |
|||
\def\originalsongname{Chanson originale :} |
|||
\def\introname{intro} |
|||
\def\outroname{outro} |
|||
\def\bridgename{pont} |
|||
\def\chorusname{refrain} |
|||
\def\versename{couplet} |
|||
\def\soloname{solo} |
|||
\def\patternname{motif} |
|||
\def\rythmname{rythme} |
|||
\def\transpositionname{transposition :} |
|||
\def\songindexname{Index des chansons} |
|||
\def\authorindexname{Index des auteurs} |
|||
\def\chordlistname{Liste des accords} |
|||
}{} |
|||
} |
|||
|
|||
\def\andname{and} |
|||
\def\lastandname{\unskip, and} |
|||
|
|||
% End of multilanguage management |
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
|
|||
|
|||
|
|||
|
|||
|
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
% Add some informations to the songs |
|||
\newlength{\coverheight} |
|||
\setlength{\coverheight}{2cm} |
|||
\newlength{\coverspace} |
|||
\setlength{\coverspace}{0.1cm} |
|||
\newcommand{\songcover}{} |
|||
\newcommand{\songalbum}{} |
|||
\newsongkey{cov}{\let\songcover\@empty}{\def\songcover{\currfiledir#1}} |
|||
\newsongkey{vcov}{\let\songcover\@empty}{\def\songcover{#1}} |
|||
\newsongkey{album}{\let\songalbum\@empty}{\def\songalbum{#1}} |
|||
\newsongkey{url}{\let\songurl\@empty}{\def\songurl{#1}} |
|||
\newsongkey{original}{\let\songoriginal\@empty}{\def\songoriginal{#1}} |
|||
|
|||
% Insert cover pictures |
|||
\newcommand\cover{% |
|||
\ifpictures% |
|||
\ifx\songcover\@empty\else% |
|||
\mbox{% |
|||
\includegraphics[width=\coverheight]{\songcover}% |
|||
\hspace{\coverspace}% |
|||
}% |
|||
\fi% |
|||
\fi% |
|||
} |
|||
|
|||
% display album in song header |
|||
\renewcommand{\extendprelude}{ |
|||
{\bfseries\showauthors} |
|||
{\footnotesize\it\songalbum} |
|||
\IfStrEq{\songurl}{}{}{ |
|||
\href{\songurl}{\includegraphics[width=.3cm]{internet}} |
|||
} |
|||
} |
|||
|
|||
% display original song name in the postlude |
|||
\renewcommand{\extendpostlude}{ |
|||
{\footnotesize% |
|||
\IfStrEq{\songoriginal}{}{}{ |
|||
\originalsongname |
|||
\songoriginal |
|||
} |
|||
} |
|||
} |
|||
|
|||
\let\utab\gtab |
|||
\let\utab@Original\utab |
|||
\newcommand{\utab@Hidden}[2]{}% |
|||
|
|||
\let\gtab@Original\gtab |
|||
\newcommand{\gtab@Hidden}[2]{}% |
|||
|
|||
\ifdiagram% |
|||
\ifimportantdiagramonly% |
|||
\renewcommand{\gtab}{\@ifstar |
|||
\gtab@Original% |
|||
\gtab@Hidden% |
|||
} |
|||
\renewcommand{\utab}{\@ifstar |
|||
\utab@Original% |
|||
\utab@Hidden% |
|||
} |
|||
\else% |
|||
\renewcommand{\gtab}{\@ifstar |
|||
\gtab@Original% |
|||
\gtab@Original% |
|||
} |
|||
\renewcommand{\utab}{\@ifstar |
|||
\utab@Original% |
|||
\utab@Original% |
|||
} |
|||
\fi% |
|||
\else% |
|||
\renewcommand{\gtab}{\@ifstar |
|||
\gtab@Hidden% |
|||
\gtab@Hidden% |
|||
} |
|||
\renewcommand{\utab}{\@ifstar |
|||
\utab@Hidden% |
|||
\utab@Hidden% |
|||
} |
|||
\fi% |
|||
|
|||
\ifguitar% |
|||
\else |
|||
\renewcommand{\gtab}{\@ifstar |
|||
\gtab@Hidden% |
|||
\gtab@Hidden% |
|||
} |
|||
\fi% |
|||
|
|||
\ifukulele% |
|||
\else |
|||
\renewcommand{\utab}{\@ifstar |
|||
\utab@Hidden% |
|||
\utab@Hidden% |
|||
} |
|||
\fi% |
|||
|
|||
% End of the new informations |
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
|
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
% Lilypond |
|||
|
|||
% On-the-fly compilation of lilypond files |
|||
\iflilypondauto |
|||
\epstopdfDeclareGraphicsRule{.ly}{pdf}{.pdf}{lilypond --format=pdf --output=\Gin@base\ETE@suffix\space #1} |
|||
\AppendGraphicsExtensions{.ly} |
|||
\fi |
|||
|
|||
% Conditional inclusion of lilypond sheet music. |
|||
\newcommand{\lilypond}[1]{% |
|||
\iflilypond% |
|||
\includegraphics{\currfiledir#1}% |
|||
\fi% |
|||
} |
|||
\newcommand{\vlilypond}[1]{% |
|||
\iflilypond% |
|||
\includegraphics{#1}% |
|||
\fi% |
|||
} |
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
|
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
% Useful commands |
|||
\newcommand{\image}[2][]{% |
|||
\ifpictures% |
|||
\begin{flushright}% |
|||
\includegraphics[#1]{#2}% |
|||
\end{flushright}% |
|||
\fi% |
|||
} |
|||
|
|||
\newcommand*{\Intro}{% |
|||
\introname% |
|||
}% |
|||
\newcommand*{\Outro}{% |
|||
\outroname% |
|||
}% |
|||
\newcommand*{\Bridge}{% |
|||
\bridgename% |
|||
}% |
|||
\newcommand*{\Chorus}{% |
|||
\chorusname% |
|||
}% |
|||
\newcommand*{\Verse}{% |
|||
\versename% |
|||
}% |
|||
\newcommand*{\Solo}{% |
|||
\soloname% |
|||
}% |
|||
\newcommand*{\Pattern}{% |
|||
\patternname% |
|||
}% |
|||
\newcommand*{\Rythm}{% |
|||
\rythmname% |
|||
}% |
|||
\newcommand*{\Adlib}{% |
|||
\emph{ad~lib.}% |
|||
}% |
|||
|
|||
% Use a new framed command for bridges |
|||
\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} |
|||
} |
|||
\newenvironment{bridge} |
|||
{% |
|||
\begin{framed} |
|||
\vspace{-.4cm} |
|||
\begin{verse*} |
|||
} |
|||
{% |
|||
\end{verse*} |
|||
\vspace{-.2cm} |
|||
\end{framed} |
|||
} |
|||
|
|||
%% \SB@chordsoff with a greater for the line spacing |
|||
\newcommand{\CB@chordshidden}{% |
|||
\def\SB@bracket##1]{\ignorespaces}% |
|||
\let\SB@rechord\relax% |
|||
\let\SB@ch\SB@ch@off% |
|||
\ifSB@measurespec% |
|||
\ifmeasures\SB@measureson\else\SB@measuresoff\fi% |
|||
\else% |
|||
\SB@measuresoff% |
|||
\fi% |
|||
\ifSB@preamble\let\colbotglue{\z@\@plus.5\textheight}\fi% |
|||
\SB@setbaselineskip% |
|||
} |
|||
|
|||
\newenvironment{repeatedchords}{% |
|||
\ifrepeatchords% |
|||
\else% |
|||
\CB@chordshidden% |
|||
\fi |
|||
}{}% |
|||
|
|||
\def\removefirstch@r#1{} |
|||
\newcommand{\transposition}[1]{% |
|||
\ifrepeatchords% |
|||
\transpose{#1} |
|||
\else% |
|||
\musicnote{% |
|||
\transpositionname~ |
|||
\ifthenelse{#1>0}{#1$\Uparrow$}{\removefirstch@r#1$\Downarrow$}% |
|||
}% |
|||
\fi% |
|||
}% |
|||
|
|||
% Definition of environment "tab" |
|||
\iftabs |
|||
\RequirePackage{tabs} |
|||
\else |
|||
\RequirePackage{verbatim} |
|||
\newenvironment{tab}{\comment}{\endcomment} |
|||
\fi |
|||
|
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
|
|||
|
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
% One song per page? |
|||
|
|||
\ifonesongperpage% |
|||
\renewcommand\songcolumns[1]{% |
|||
\SB@cnt#1\relax% |
|||
\ifSB@preamble\else{\SB@clearpage}\fi% |
|||
\SB@numcols\SB@cnt% |
|||
\ifnum\SB@numcols>\z@% |
|||
\SB@colwidth-\columnsep% |
|||
\multiply\SB@colwidth\SB@numcols% |
|||
\advance\SB@colwidth\columnsep% |
|||
\advance\SB@colwidth\textwidth% |
|||
\divide\SB@colwidth\SB@numcols% |
|||
\else% |
|||
\ifrepchorus\SB@warnrc\fi% |
|||
\fi% |
|||
} |
|||
\fi |
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
|
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
% Enhance \textnote and \musicnote, to display them according to the current language. |
|||
|
|||
\let\@textnoteold\textnote |
|||
\renewcommand{\textnote}[2][]{% |
|||
\vspace{.1cm} |
|||
\IfStrEq{}{#1}{\@textnoteold{#2}}{ |
|||
\iflanguage{#1}{\@textnoteold{#2}}{} |
|||
} |
|||
} |
|||
|
|||
\let\@musicnoteold\musicnote |
|||
\renewcommand{\musicnote}[2][]{% |
|||
\vspace{.1cm} |
|||
\IfStrEq{}{#1}{\@musicnoteold{#2}}{ |
|||
\iflanguage{#1}{\@musicnoteold{#2}}{} |
|||
} |
|||
} |
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
|
|||
\endinput |
|||
@ -1,596 +0,0 @@ |
|||
% CREPBOOK DOCUMENT CLASS -- version 0.2.2 |
|||
% for LaTeX2e |
|||
% |
|||
\NeedsTeXFormat{LaTeX2e}[1995/12/01] |
|||
\ProvidesClass{crepbook}[2012/02/19 v0.5.0 LaTeX document class for Crep |
|||
Books] |
|||
|
|||
\makeatletter\def\input@path{{tex/}} |
|||
|
|||
\newif{\iftabs} |
|||
\newif{\iflilypond} |
|||
\newif{\ifnodiagram} |
|||
\newif{\ifimportantdiagramonly} |
|||
\newif{\ifpictures} |
|||
\newif{\ifnorepeatchords} |
|||
\newif{\ifukulele} |
|||
\newif{\ifguitar} |
|||
\newif{\ifonesongperpage} |
|||
|
|||
\tabsfalse |
|||
\lilypondfalse |
|||
\nodiagramtrue |
|||
\picturesfalse |
|||
\importantdiagramonlyfalse |
|||
\norepeatchordstrue |
|||
\ukulelefalse |
|||
\guitarfalse |
|||
\onesongperpagefalse |
|||
|
|||
% Options |
|||
\DeclareOption{tabs}{\tabstrue} |
|||
\DeclareOption{notabs}{\tabsfalse} |
|||
\DeclareOption{lilypond}{\lilypondtrue} |
|||
\DeclareOption{nolilypond}{\lilypondfalse} |
|||
\DeclareOption{nodiagram}{\nodiagramtrue} |
|||
\DeclareOption{diagram}{\nodiagramfalse} |
|||
\DeclareOption{importantdiagramonly}{\importantdiagramonlytrue\nodiagramfalse} |
|||
\DeclareOption{pictures}{\picturestrue} |
|||
\DeclareOption{nopictures}{\picturesfalse} |
|||
\DeclareOption{norepeatchords}{\norepeatchordstrue} |
|||
\DeclareOption{repeatchords}{\norepeatchordsfalse} |
|||
\DeclareOption{ukulele}{\ukuleletrue} |
|||
\DeclareOption{noukulele}{\ukulelefalse} |
|||
\DeclareOption{guitar}{\guitartrue} |
|||
\DeclareOption{noguitar}{\guitarfalse} |
|||
\DeclareOption{onesongperpage}{\onesongperpagetrue} |
|||
|
|||
\DeclareOption{10pt}{\PassOptionsToClass{\CurrentOption}{article}} |
|||
\DeclareOption{11pt}{\PassOptionsToClass{\CurrentOption}{article}} |
|||
\DeclareOption{12pt}{\PassOptionsToClass{\CurrentOption}{article}} |
|||
|
|||
% Default options : pass to the songs package |
|||
\DeclareOption*{\PassOptionsToPackage{\CurrentOption}{songs}} |
|||
\ProcessOptions |
|||
|
|||
% Base class |
|||
\LoadClass{article} |
|||
|
|||
% Main packages |
|||
\RequirePackage{graphicx,xcolor} |
|||
\RequirePackage{epstopdf} |
|||
\RequirePackage{songs} |
|||
\RequirePackage{fancybox} |
|||
\definecolor{tango-green-3}{HTML}{4e9a06} |
|||
\definecolor{tango-blue-3}{HTML}{204a87} |
|||
\RequirePackage[bookmarks, |
|||
bookmarksopen, |
|||
hyperfigures=true, |
|||
colorlinks=true, |
|||
linkcolor=tango-green-3, |
|||
urlcolor=tango-blue-3]{hyperref} |
|||
\RequirePackage{tikz} |
|||
\RequirePackage{xstring} |
|||
\RequirePackage{ifthen} |
|||
\RequirePackage{framed} |
|||
\RequirePackage{currfile} |
|||
|
|||
\iflyric% |
|||
\tabsfalse% |
|||
\lilypondfalse% |
|||
\nodiagramtrue% |
|||
\picturesfalse% |
|||
\renewcommand{\colbotglue}{0pt plus .5\textheight minus 0pt}% |
|||
\fi |
|||
|
|||
% Start |
|||
|
|||
% Patch for Debian TeXLive 2012 |
|||
% A bug may produce corrupted PDF |
|||
\pdfobjcompresslevel=0 |
|||
|
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
% Multilanguage management |
|||
|
|||
\AtBeginDocument{ |
|||
% Default names (english) |
|||
\newcommand{\songlistname}{Songs list} |
|||
\newcommand{\labelversionname}{version:} |
|||
\newcommand{\labeldatename}{date:} |
|||
\newcommand{\labelauthorname}{authors:} |
|||
\newcommand{\labelwebname}{web:} |
|||
\newcommand{\labelmailname}{mail:} |
|||
\newcommand{\originalsongname}{Original song:} |
|||
\newcommand{\introname}{intro} |
|||
\newcommand{\outroname}{outro} |
|||
\newcommand{\bridgename}{bridge} |
|||
\newcommand{\chorusname}{chorus} |
|||
\newcommand{\versename}{verse} |
|||
\newcommand{\soloname}{solo} |
|||
\newcommand{\patternname}{pattern} |
|||
\newcommand{\rythmname}{rythm} |
|||
\newcommand{\transpositionname}{transposition:} |
|||
\newcommand{\songindexname}{Songs Index} |
|||
\newcommand{\authorindexname}{Authors Index} |
|||
\newcommand{\chordlistname}{Chords list} |
|||
|
|||
\IfStrEq{\mainlanguage}{french}{ |
|||
% French names |
|||
\renewcommand{\songlistname}{Liste des chansons}{} |
|||
\renewcommand{\labelversionname}{version :} |
|||
\renewcommand{\labeldatename}{date :} |
|||
\renewcommand{\labelauthorname}{auteurs :} |
|||
\renewcommand{\labelwebname}{web :} |
|||
\renewcommand{\labelmailname}{mail :} |
|||
\renewcommand{\originalsongname}{Chanson originale :} |
|||
\renewcommand{\introname}{intro} |
|||
\renewcommand{\outroname}{outro} |
|||
\renewcommand{\bridgename}{pont} |
|||
\renewcommand{\chorusname}{refrain} |
|||
\renewcommand{\versename}{couplet} |
|||
\renewcommand{\soloname}{solo} |
|||
\renewcommand{\patternname}{motif} |
|||
\renewcommand{\rythmname}{rythme} |
|||
\renewcommand{\transpositionname}{transposition :} |
|||
\renewcommand{\songindexname}{Index des chansons} |
|||
\renewcommand{\authorindexname}{Index des auteurs} |
|||
\renewcommand{\chordlistname}{Liste des accords} |
|||
}{} |
|||
} |
|||
|
|||
% End of multilanguage management |
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
|
|||
\def\andname{and} |
|||
\def\lastandname{\unskip, and} |
|||
|
|||
\newcounter{@inst} |
|||
\newcounter{@auth} |
|||
\newcounter{auco} |
|||
|
|||
\def\clearheadinfo{ |
|||
\gdef\@author{No Author Given}% |
|||
\gdef\@title{No Title Given}% |
|||
\gdef\@subtitle{} |
|||
\gdef\@version{} |
|||
\gdef\@web{} |
|||
\gdef\@mail{} |
|||
\gdef\@email{} |
|||
\gdef\@picture{} |
|||
\gdef\@picturecopyright{} |
|||
} |
|||
|
|||
\def\subtitle#1{\gdef\@subtitle{#1}} |
|||
\def\version#1{\gdef\@version{#1}} |
|||
\def\web#1{\gdef\@web{#1}} |
|||
\def\mail#1{\gdef\@mail{#1}} |
|||
\def\email#1{\gdef\@email{#1}} |
|||
\def\picture#1{\gdef\@picture{#1}} |
|||
\def\picturecopyright#1{\gdef\@picturecopyright{#1}} |
|||
\def\footer#1{\gdef\@footer{#1}} |
|||
\def\lang#1{\gdef\mainlanguage{#1}} |
|||
\clearheadinfo |
|||
|
|||
\renewcommand\maketitle{ |
|||
\@maketitle |
|||
|
|||
\thispagestyle{empty} |
|||
|
|||
\clearheadinfo} |
|||
% |
|||
\def\@maketitle{\newpage |
|||
\markboth{}{}% |
|||
\def\lastand{\ifnum\value{@inst}=2\relax |
|||
\unskip{} \andname\ |
|||
\else |
|||
\unskip \lastandname\ |
|||
\fi}% |
|||
\def\and{\stepcounter{@auth}\relax |
|||
\ifnum\value{@auth}=\value{@inst}% |
|||
\lastand |
|||
\else |
|||
\unskip, |
|||
\fi}% |
|||
\begin{center}% |
|||
{\rule{\textwidth}{1mm}} |
|||
|
|||
{\Huge \bfseries\boldmath\@title \par} |
|||
|
|||
\if!\@subtitle!\else {\begin{flushright}\large \bfseries\boldmath |
|||
\@subtitle \par \end{flushright}} |
|||
\fi |
|||
|
|||
{\rule{\textwidth}{1mm}} |
|||
|
|||
\end{center}% |
|||
|
|||
\vspace{1.5cm} |
|||
|
|||
\begin{flushleft} |
|||
\begin{tabular}{l l} |
|||
\if!\@version!\else{\textbf{\labelversionname}} & \@version \\ \fi |
|||
\if!\@date!\else{\textbf{\labeldatename}} & \@date \\ \fi |
|||
\if!\@author!\else{\textbf{\labelauthorname}} & \@author \\ \fi |
|||
\if!\@web!\else{\textbf{\labelwebname}} & \url{\@web} \\ \fi |
|||
\if!\@mail!\else{\textbf{\labelmailname}} & \url{\@mail} \\ \fi |
|||
\end{tabular} |
|||
\end{flushleft} |
|||
|
|||
\vspace{1.5cm} |
|||
|
|||
\begin{center} |
|||
\includegraphics[keepaspectratio=true, width=14cm, height=14cm]{\@picture} |
|||
\begin{flushright} |
|||
{\flushright \small \@picturecopyright} |
|||
\end{flushright} |
|||
\end{center} |
|||
|
|||
\@footer |
|||
|
|||
\thispagestyle{empty} |
|||
} |
|||
|
|||
\newlength{\coverheight} |
|||
\setlength{\coverheight}{2cm} |
|||
\newlength{\coverspace} |
|||
\setlength{\coverspace}{0.1cm} |
|||
\newcommand{\songcover}{} |
|||
\newcommand{\songalbum}{} |
|||
\newsongkey{cov}{\let\songcover\@empty}{\def\songcover{\currfiledir#1}} |
|||
\newsongkey{vcov}{\let\songcover\@empty}{\def\songcover{#1}} |
|||
\newsongkey{album}{\let\songalbum\@empty}{\def\songalbum{#1}} |
|||
\newsongkey{url}{\let\songurl\@empty}{\def\songurl{#1}} |
|||
\newsongkey{original}{\let\songoriginal\@empty}{\def\songoriginal{#1}} |
|||
\newcommand\cover{% |
|||
\ifpictures% |
|||
\ifx\songcover\@empty\else% |
|||
\mbox{% |
|||
\includegraphics[width=\coverheight]{\songcover}% |
|||
\hspace{\coverspace}% |
|||
}% |
|||
\fi% |
|||
\fi% |
|||
} |
|||
|
|||
% display album in song header |
|||
\renewcommand{\extendprelude}{ |
|||
{\bfseries\showauthors} |
|||
{\footnotesize\it\songalbum} |
|||
\IfStrEq{\songurl}{}{}{ |
|||
\href{\songurl}{\includegraphics[width=.3cm]{internet}} |
|||
} |
|||
} |
|||
\renewcommand{\extendpostlude}{ |
|||
{\footnotesize% |
|||
\IfStrEq{\songoriginal}{}{}{ |
|||
\originalsongname |
|||
\songoriginal |
|||
} |
|||
} |
|||
} |
|||
|
|||
\newlength{\capoheight} |
|||
\setlength{\capoheight}{1.5cm} |
|||
\renewcommand\capo[1]{% |
|||
\ifchorded% |
|||
\iftranscapos% |
|||
\transpose{#1}% |
|||
\else% |
|||
\ifpictures |
|||
\mbox{% |
|||
\includegraphics[height=\capoheight]{capodastre}% |
|||
\put(-22,8){\Large #1} |
|||
}% |
|||
\else |
|||
\musicnote{capo: #1}% |
|||
\fi |
|||
\hspace{\coverspace}% |
|||
\fi% |
|||
\fi% |
|||
}% |
|||
|
|||
\let\utab\gtab |
|||
\let\utab@Original\utab |
|||
\newcommand{\utab@Hidden}[2]{}% |
|||
|
|||
\let\gtab@Original\gtab |
|||
\newcommand{\gtab@Hidden}[2]{}% |
|||
|
|||
\ifnodiagram% |
|||
\renewcommand{\gtab}{\@ifstar |
|||
\gtab@Hidden% |
|||
\gtab@Hidden% |
|||
} |
|||
\renewcommand{\utab}{\@ifstar |
|||
\utab@Hidden% |
|||
\utab@Hidden% |
|||
} |
|||
\else% |
|||
\ifimportantdiagramonly% |
|||
\renewcommand{\gtab}{\@ifstar |
|||
\gtab@Original% |
|||
\gtab@Hidden% |
|||
} |
|||
\renewcommand{\utab}{\@ifstar |
|||
\utab@Original% |
|||
\utab@Hidden% |
|||
} |
|||
\else% |
|||
\renewcommand{\gtab}{\@ifstar |
|||
\gtab@Original% |
|||
\gtab@Original% |
|||
} |
|||
\renewcommand{\utab}{\@ifstar |
|||
\utab@Original% |
|||
\utab@Original% |
|||
} |
|||
\fi% |
|||
\fi% |
|||
|
|||
\ifguitar% |
|||
\else |
|||
\renewcommand{\gtab}{\@ifstar |
|||
\gtab@Hidden% |
|||
\gtab@Hidden% |
|||
} |
|||
\fi% |
|||
|
|||
\ifukulele% |
|||
\else |
|||
\renewcommand{\utab}{\@ifstar |
|||
\utab@Hidden% |
|||
\utab@Hidden% |
|||
} |
|||
\fi% |
|||
|
|||
% On-the-fly compilation of lilypond files |
|||
\epstopdfDeclareGraphicsRule{.ly}{pdf}{.pdf}{lilypond --format=pdf --output=\Gin@base\ETE@suffix\space #1} |
|||
\AppendGraphicsExtensions{.ly} |
|||
|
|||
\newcommand{\lilypond}[1]{% |
|||
\iflilypond% |
|||
\includegraphics{\currfiledir#1}% |
|||
\fi% |
|||
} |
|||
\newcommand{\vlilypond}[1]{% |
|||
\iflilypond% |
|||
\includegraphics{#1}% |
|||
\fi% |
|||
} |
|||
|
|||
\newcommand{\image}[2][]{% |
|||
\ifpictures% |
|||
\begin{flushright}% |
|||
\includegraphics[#1]{#2}% |
|||
\end{flushright}% |
|||
\fi% |
|||
} |
|||
|
|||
% Configuration of the songs package |
|||
\titleprefixword{} |
|||
\renewcommand{\stitlefont}{\LARGE\bf} |
|||
\renewcommand{\printchord}[1]{\small{\it#1}} |
|||
\renewcommand{\chorusfont}{\it} |
|||
\renewcommand{\showauthors}{% |
|||
\hbox{\normalsize\songauthors}% |
|||
} |
|||
\renewcommand{\idxtitlefont}{\sffamily\bfseries} |
|||
\renewcommand{\idxauthfont}{\sffamily\bfseries} |
|||
\renewcommand{\idxheadfont}{\sffamily\it\LARGE} |
|||
\renewcommand{\idxrefsfont}{\bfseries} |
|||
|
|||
% Paragraph indentation space |
|||
\setlength{\parindent}{0.3cm} |
|||
|
|||
% |
|||
% songs class options |
|||
% |
|||
% Horizontal space reserved to verse number |
|||
\setlength{\versenumwidth}{1em} |
|||
% Modifier to the space between consecutive lines of lyrics |
|||
\baselineadj=-6pt plus 0pt minus 2pt |
|||
% Space between verses and chorus |
|||
\versesep=6pt plus 2pt minus 2pt |
|||
% lyrics font |
|||
\renewcommand{\lyricfont}{\normalfont\normalsize} |
|||
|
|||
|
|||
% color used to shade song numbers. |
|||
\definecolor{SongbookShade}{HTML}{d1e4ae} |
|||
|
|||
% |
|||
\iftabs% |
|||
%% Code from tabs.sty |
|||
% 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% |
|||
%% End of tabs.sty file |
|||
|
|||
\newcommand*{\Intro}{% |
|||
\introname% |
|||
}% |
|||
\newcommand*{\Outro}{% |
|||
\outroname% |
|||
}% |
|||
\newcommand*{\Bridge}{% |
|||
\bridgename% |
|||
}% |
|||
\newcommand*{\Chorus}{% |
|||
\chorusname% |
|||
}% |
|||
\newcommand*{\Verse}{% |
|||
\versename% |
|||
}% |
|||
\newcommand*{\Solo}{% |
|||
\soloname% |
|||
}% |
|||
\newcommand*{\Pattern}{% |
|||
\patternname% |
|||
}% |
|||
\newcommand*{\Rythm}{% |
|||
\rythmname% |
|||
}% |
|||
\newcommand*{\Adlib}{% |
|||
\emph{ad~lib.}% |
|||
}% |
|||
|
|||
\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} |
|||
} |
|||
|
|||
\newenvironment{bridge}{% |
|||
\begin{framed} |
|||
\vspace{-.4cm} |
|||
\begin{verse*} |
|||
}{ |
|||
\end{verse*} |
|||
\vspace{-.2cm} |
|||
\end{framed} |
|||
} |
|||
|
|||
%% \SB@chordsoff with a greater for the line spacing |
|||
\newcommand{\CB@chordshidden}{% |
|||
\def\SB@bracket##1]{\ignorespaces}% |
|||
\let\SB@rechord\relax% |
|||
\let\SB@ch\SB@ch@off% |
|||
\ifSB@measurespec% |
|||
\ifmeasures\SB@measureson\else\SB@measuresoff\fi% |
|||
\else% |
|||
\SB@measuresoff% |
|||
\fi% |
|||
\ifSB@preamble\let\colbotglue{\z@\@plus.5\textheight}\fi% |
|||
\SB@setbaselineskip% |
|||
} |
|||
|
|||
\newenvironment{repeatedchords}{% |
|||
\ifnorepeatchords% |
|||
\CB@chordshidden% |
|||
\fi |
|||
}{}% |
|||
|
|||
\ifonesongperpage% |
|||
\renewcommand\songcolumns[1]{% |
|||
\SB@cnt#1\relax% |
|||
\ifSB@preamble\else{\SB@clearpage}\fi% |
|||
\SB@numcols\SB@cnt% |
|||
\ifnum\SB@numcols>\z@% |
|||
\SB@colwidth-\columnsep% |
|||
\multiply\SB@colwidth\SB@numcols% |
|||
\advance\SB@colwidth\columnsep% |
|||
\advance\SB@colwidth\textwidth% |
|||
\divide\SB@colwidth\SB@numcols% |
|||
\else% |
|||
\ifrepchorus\SB@warnrc\fi% |
|||
\fi% |
|||
} |
|||
\fi |
|||
|
|||
\def\removefirstch@r#1{} |
|||
\newcommand{\transposition}[1]{% |
|||
\ifnorepeatchords% |
|||
\musicnote{% |
|||
\transpositionname~ |
|||
\ifthenelse{#1>0}{#1$\Uparrow$}{\removefirstch@r#1$\Downarrow$}% |
|||
}% |
|||
\else% |
|||
\transpose{#1} |
|||
\fi% |
|||
}% |
|||
|
|||
\makeatother |
|||
@ -0,0 +1,205 @@ |
|||
% Crepbook Package -- version 0.1 for LaTeX2e |
|||
% |
|||
% This package is intended to be used with the songbook Python program (and its |
|||
% interfaces). |
|||
% It defines some layout for automatic songbook generation. |
|||
% See http://github.com/patacrep/songbook-core/ |
|||
|
|||
\NeedsTeXFormat{LaTeX2e}[1994/06/01] |
|||
\ProvidesPackage{crepbook}[2014/04/13 Crepbook Package, version 0.1] |
|||
|
|||
% fancy-capo: When a capo is necessary, use a picture instead of text. |
|||
\newif{\iffancycapo} |
|||
\DeclareOption{fancy-capo}{\fancycapotrue} |
|||
|
|||
% nocustomtitle: Disable title page fancy definition (back to LaTeX default) |
|||
\newif{\ifcustomtitle} |
|||
\customtitletrue |
|||
\DeclareOption{nocustomtitle}{\customtitlefalse} |
|||
|
|||
% nocustomfonts: Disable fancy fonts definition (back to LaTeX default) |
|||
\newif{\ifcustomfonts} |
|||
\customfontstrue |
|||
\DeclareOption{nocustomfonts}{\customfontsfalse} |
|||
|
|||
% Remaining options are passed to the SongbookUtils package |
|||
\DeclareOption*{\PassOptionsToPackage{\CurrentOption}{SongbookUtils}} |
|||
|
|||
\ProcessOptions\relax |
|||
|
|||
\RequirePackage{SongbookUtils} |
|||
|
|||
\ifpictures |
|||
\fancycapotrue |
|||
\fi |
|||
|
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
% Layout tweaks |
|||
|
|||
% Configuration of the songs package |
|||
% Horizontal space reserved to verse number |
|||
\setlength{\versenumwidth}{1em} |
|||
% Modifier to the space between consecutive lines of lyrics |
|||
\baselineadj=-6pt plus 0pt minus 2pt |
|||
% Space between verses and chorus |
|||
\versesep=6pt plus 2pt minus 2pt |
|||
|
|||
|
|||
|
|||
% Paragraph indentation space |
|||
\setlength{\parindent}{0.3cm} |
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
|
|||
|
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
% Multilanguage management |
|||
|
|||
\AtBeginDocument{ |
|||
% Default names (english) |
|||
\def\labelversionname{Version:} |
|||
\def\labeldatename{Date:} |
|||
\def\labelauthorname{Authors:} |
|||
\def\labelwebname{Web:} |
|||
\def\labelmailname{Email:} |
|||
|
|||
\IfStrEq{\mainlanguage}{french}{ |
|||
% French names |
|||
\def\labelversionname{Version~:} |
|||
\def\labeldatename{Date~:} |
|||
\def\labelauthorname{Auteurs~:} |
|||
\def\labelwebname{Web~:} |
|||
\def\labelmailname{Mail~:} |
|||
}{} |
|||
} |
|||
|
|||
% End of multilanguage management |
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
|
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
% Title page |
|||
\long\def\subtitle#1{\long\def\@subtitle{#1}} |
|||
\def\version#1{\def\@version{#1}} |
|||
\def\web#1{\def\@web{#1}} |
|||
\def\mail#1{\def\@mail{#1}} |
|||
\def\email#1{\def\@email{#1}} |
|||
\def\picture#1{\def\@picture{#1}} |
|||
\def\picturecopyright#1{\def\@picturecopyright{#1}} |
|||
\def\footer#1{\def\@footer{#1}} |
|||
|
|||
\def\clearheadinfo{ |
|||
\author{}% |
|||
\title{No title}% |
|||
\subtitle{}% |
|||
\version{}% |
|||
\web{}% |
|||
\mail{}% |
|||
\email{}% |
|||
\picture{}% |
|||
\picturecopyright{}% |
|||
} |
|||
|
|||
\clearheadinfo |
|||
|
|||
\ifcustomtitle |
|||
\def\maketitle{ |
|||
\@maketitle |
|||
\clearheadinfo |
|||
} |
|||
\fi |
|||
|
|||
|
|||
\newcounter{@inst} |
|||
\newcounter{@auth} |
|||
\newcounter{auco} |
|||
|
|||
\ifcustomtitle |
|||
\def\@titlefont{\Huge\bfseries\boldmath} |
|||
\def\@subtitlefont{\large\bfseries\boldmath} |
|||
|
|||
|
|||
\def\@getelement#1{\csname @#1\endcsname} |
|||
\def\@labelelement#1{\csname label#1name\endcsname} |
|||
\def\@insertelement#1{\if!\@getelement{#1}! |
|||
\else % |
|||
\@labelelement{#1}& % |
|||
\@getelement{#1} \cr % |
|||
\fi % |
|||
} |
|||
|
|||
\def\@maketitle{ |
|||
\def\and{\unskip,\cr&} |
|||
\begin{titlepage} |
|||
\thispagestyle{empty} |
|||
\begin{center} |
|||
{\rule{\textwidth}{1mm}} |
|||
{\@titlefont\@title\par} |
|||
\if!\@subtitle!\else |
|||
{\hfil\@subtitlefont\@subtitle\par} |
|||
\fi |
|||
{\rule{\textwidth}{1mm}} |
|||
\end{center} |
|||
\vfil |
|||
\ialign{ |
|||
\bf{##} \hfil & ## \hfil \cr % Lines definition |
|||
\@insertelement{version} % |
|||
\@insertelement{date} % |
|||
\@insertelement{author} % |
|||
\@insertelement{web} % |
|||
\@insertelement{mail} % |
|||
} |
|||
\vfil |
|||
\begin{center} |
|||
\includegraphics[keepaspectratio=true, width=12cm, height=12cm]{\@picture} |
|||
\vskip1em |
|||
{\hfil\hbox{\small \@picturecopyright}} |
|||
\end{center} |
|||
\begin{flushright} |
|||
\vfil |
|||
{\hfil\rule{.4\textwidth}{.75pt}\par} |
|||
\@footer |
|||
\end{flushright} |
|||
\end{titlepage} |
|||
} |
|||
\fi |
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
|
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
% Fancy capo |
|||
\iffancycapo % |
|||
\newlength{\capoheight} |
|||
\setlength{\capoheight}{1.5cm} |
|||
\renewcommand\capo[1]{% |
|||
\iftranscapos% |
|||
\transpose{#1}% |
|||
\fi% |
|||
\mbox{% |
|||
\includegraphics[height=\capoheight]{capodastre}% |
|||
\put(-22,8){\Large #1} |
|||
}% |
|||
} |
|||
\fi |
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
|
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
% Fonts definitions |
|||
\ifcustomfonts |
|||
\def\chordfont#1{\gdef\@chordfont{#1}} |
|||
\def\@chordfont{\small\it} |
|||
|
|||
\renewcommand{\idxtitlefont}{\sffamily\bfseries} |
|||
\renewcommand{\idxauthfont}{\sffamily\bfseries} |
|||
\renewcommand{\idxheadfont}{\sffamily\it\LARGE} |
|||
\renewcommand{\idxrefsfont}{\bfseries} |
|||
\renewcommand{\stitlefont}{\LARGE\bf} |
|||
\renewcommand{\printchord}[1]{\@chordfont #1} |
|||
\renewcommand{\chorusfont}{\it} |
|||
\renewcommand{\lyricfont}{\normalfont\normalsize} |
|||
\renewcommand{\showauthors}{% |
|||
\hbox{\normalsize\songauthors}% |
|||
} |
|||
\fi |
|||
|
|||
\titleprefixword{} |
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|||
|
|||
\endinput |
|||
@ -0,0 +1,82 @@ |
|||
% 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} |
|||
} |
|||
\fi% |
|||
|
|||
\endinput |
|||
Loading…
Reference in new issue