From 0fbc4eb675fc0b7886a724a7cb28faa69ada129a Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 25 Dec 2013 22:52:11 +0000 Subject: gtrcrd (25dec13) git-svn-id: svn://tug.org/texlive/trunk@32484 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/gtrcrd/gtrcrd.sty | 75 +++++++++++++++++++++++++-- 1 file changed, 72 insertions(+), 3 deletions(-) (limited to 'Master/texmf-dist/tex/latex/gtrcrd') diff --git a/Master/texmf-dist/tex/latex/gtrcrd/gtrcrd.sty b/Master/texmf-dist/tex/latex/gtrcrd/gtrcrd.sty index c7d331af2fc..e95c2ebdbd3 100644 --- a/Master/texmf-dist/tex/latex/gtrcrd/gtrcrd.sty +++ b/Master/texmf-dist/tex/latex/gtrcrd/gtrcrd.sty @@ -1,9 +1,9 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% %% %% Package name: gtrcrd %% -%% Author: Riccardo Bresciani - gtrcrd@tex.nopkoguo.net %% +%% Author: Riccardo Bresciani - gtrcrd@tex.nopkoguo.it %% %% %% -%% Copyright 2012 Riccardo Bresciani %% +%% Copyright 2012-2013 Riccardo Bresciani %% %% %% %% Description: This package is suitable to add chords to lyrics. %% %% The main advantages of using this package is that chords are %% @@ -27,7 +27,7 @@ %% %% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\ProvidesPackage{gtrcrd} [2012/01/15 v1.0 Guitar chords] +\ProvidesPackage{gtrcrd} [2013/12/24 v1.1 Guitar chords] \newlength{\wordwidth} \newlength{\crdwidth} @@ -45,6 +45,17 @@ \hspace{\wordwidth}% } +\newcommand{\chordsbelow}{% +\renewcommand{\CHORD}[3][]{% +\settowidth{\wordwidth}{##3}% +\settowidth{\crdwidth}{{\crdfont ##2##1}}% +##3% +\hspace{-\wordwidth}\raisebox{-2.2ex}{\parbox[t][\crdheight][t]{\crdwidth}{\crdfont ##2##1}}% +\addtolength{\wordwidth}{-\crdwidth}% +\hspace{\wordwidth}% +}% +} + \newcommand{\crdA}[2][]{\CHORD[#1]{A}{#2}} \newcommand{\crdB}[2][]{\CHORD[#1]{B}{#2}} @@ -94,6 +105,56 @@ \newcommand{\crdFsm}[2][]{\CHORD[#1]{F$\sharp$m}{#2}} \newcommand{\crdGsm}[2][]{\CHORD[#1]{G$\sharp$m}{#2}} +\newcommand{\neolatin}{% +\renewcommand{\crdA}[2][]{\CHORD[##1]{La}{##2}}% +\renewcommand{\crdB}[2][]{\CHORD[##1]{Si}{##2}}% +\renewcommand{\crdC}[2][]{\CHORD[##1]{Do}{##2}}% +\renewcommand{\crdD}[2][]{\CHORD[##1]{Re}{##2}}% +\renewcommand{\crdE}[2][]{\CHORD[##1]{Mi}{##2}}% +\renewcommand{\crdF}[2][]{\CHORD[##1]{Fa}{##2}}% +\renewcommand{\crdG}[2][]{\CHORD[##1]{Sol}{##2}}% +% +\renewcommand{\crdAm}[2][]{\CHORD[##1]{Lam}{##2}}% +\renewcommand{\crdBm}[2][]{\CHORD[##1]{Sim}{##2}}% +\renewcommand{\crdCm}[2][]{\CHORD[##1]{Dom}{##2}}% +\renewcommand{\crdDm}[2][]{\CHORD[##1]{Rem}{##2}}% +\renewcommand{\crdEm}[2][]{\CHORD[##1]{Mim}{##2}}% +\renewcommand{\crdFm}[2][]{\CHORD[##1]{Fam}{##2}}% +\renewcommand{\crdGm}[2][]{\CHORD[##1]{Solm}{##2}}% +% +\renewcommand{\crdAb}[2][]{\CHORD[##1]{La$\flat$}{##2}}% +\renewcommand{\crdBb}[2][]{\CHORD[##1]{Si$\flat$}{##2}}% +\renewcommand{\crdCb}[2][]{\CHORD[##1]{Do$\flat$}{##2}}% +\renewcommand{\crdDb}[2][]{\CHORD[##1]{Re$\flat$}{##2}}% +\renewcommand{\crdEb}[2][]{\CHORD[##1]{Mi$\flat$}{##2}}% +\renewcommand{\crdFb}[2][]{\CHORD[##1]{Fa$\flat$}{##2}}% +\renewcommand{\crdGb}[2][]{\CHORD[##1]{Sol$\flat$}{##2}}% +% +\renewcommand{\crdAbm}[2][]{\CHORD[##1]{La$\flat$m}{##2}}% +\renewcommand{\crdBbm}[2][]{\CHORD[##1]{Si$\flat$m}{##2}}% +\renewcommand{\crdCbm}[2][]{\CHORD[##1]{Do$\flat$m}{##2}}% +\renewcommand{\crdDbm}[2][]{\CHORD[##1]{Re$\flat$m}{##2}}% +\renewcommand{\crdEbm}[2][]{\CHORD[##1]{Mi$\flat$m}{##2}}% +\renewcommand{\crdFbm}[2][]{\CHORD[##1]{Fa$\flat$m}{##2}}% +\renewcommand{\crdGbm}[2][]{\CHORD[##1]{Sol$\flat$m}{##2}}% +% +\renewcommand{\crdAs}[2][]{\CHORD[##1]{La$\sharp$}{##2}}% +\renewcommand{\crdBs}[2][]{\CHORD[##1]{Si$\sharp$}{##2}}% +\renewcommand{\crdCs}[2][]{\CHORD[##1]{Do$\sharp$}{##2}}% +\renewcommand{\crdDs}[2][]{\CHORD[##1]{Re$\sharp$}{##2}}% +\renewcommand{\crdEs}[2][]{\CHORD[##1]{Mi$\sharp$}{##2}}% +\renewcommand{\crdFs}[2][]{\CHORD[##1]{Fa$\sharp$}{##2}}% +\renewcommand{\crdGs}[2][]{\CHORD[##1]{Sol$\sharp$}{##2}}% +% +\renewcommand{\crdAsm}[2][]{\CHORD[##1]{La$\sharp$m}{##2}}% +\renewcommand{\crdBsm}[2][]{\CHORD[##1]{Si$\sharp$m}{##2}}% +\renewcommand{\crdCsm}[2][]{\CHORD[##1]{Do$\sharp$m}{##2}}% +\renewcommand{\crdDsm}[2][]{\CHORD[##1]{Re$\sharp$m}{##2}}% +\renewcommand{\crdEsm}[2][]{\CHORD[##1]{Mi$\sharp$m}{##2}}% +\renewcommand{\crdFsm}[2][]{\CHORD[##1]{Fa$\sharp$m}{##2}}% +\renewcommand{\crdGsm}[2][]{\CHORD[##1]{Sol$\sharp$m}{##2}}% +} + \newcommand{\notranspose}{ \let\A\crdA \let\B\crdB @@ -808,5 +869,13 @@ \normalize } +\DeclareOption{chordsbelow}{ +\chordsbelow +} + +\DeclareOption{neolatin}{ +\neolatin +} + \ExecuteOptions{notranspose} \ProcessOptions \ No newline at end of file -- cgit v1.2.3