%% file: chordbars.sty
%% Copyright 2018-2024 M. Sebastien Kramm
%
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3c
% of this license or (at your option) any later version.
% The latest version of this license is in
%   http://www.latex-project.org/lppl.txt
% and version 1.3 or later is part of all distributions of LaTeX
% version 2005/12/01 or later.
%
% This work has the LPPL maintenance status `maintained'.
%
% The Current Maintainer of this work is M. Sebastien Kramm
%
% This work consists of the files chordbars.sty and chordbars_manual.tex

% Home page: https://github.com/skramm/chordbars


% LOG:
% - 20240302: bugfixes with ycoef (version 1.3.2)
% - 20230331: added "ycoeff" parameter (version 1.3.1)
% - 2020525
% - added \addMeasures command
% - added starred version of chordbar environment

% TODO define command to have 1 chord per beat

\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{chordbars}[2024-03-02 version 1.3.2]

\RequirePackage{tikz}
\RequirePackage{pgfmath}
\RequirePackage{tkz-euclide}

\usetikzlibrary{math,shapes}

\RequirePackage{calc}
\RequirePackage{ifthen}
\RequirePackage{wasysym} % for \fullmoon

\RequirePackage{relsize} % added on 2020-01-18

\def\vspacebefore{1ex}
\def\vspaceafter{1ex}

% This \dim command is used for diminished chords (until we find a nicer alternative)
\def\dim{\fullmoon}

\def\MajS{$\Delta$}
\def\addN{\relscale{0.8}\mdseries add9}
\def\susF{\relscale{0.8}\mdseries sus4}
%\def\add4{\relscale{0.8}\mdseries add4}

\newcommand{\songtitle}
{
%\tikzstyle{block} = [draw, rectangle, fill=blue!50,, text centered, minimum height=8mm,node distance=10em]
 \begin{center}%
       \begin{tikzpicture}[line width=1.5pt]
       \tikzstyle{block} = [rectangle, draw, text width=30em, text centered, minimum height=4em]
%       \tikzstyle{block} = [rectangle, draw, text centered, minimum height=4em]
%       \tikzstyle{block} = [rectangle, draw, minimum height=4em]
       \node [block,font=\fontsize{20}{28}\selectfont\bfseries] (init) { \@title\\ \@author };
       \end{tikzpicture}
 \end{center}%
 \par
 \vskip 1.5em
}

\newcounter{NumMesure}
\newcounter{NumPart}
\newcounter{CurrentBarInLine}
\newcounter{CurrentBar}
\newcounter{CurrentLine}

\xdef\tempoBPM{100}

\newcommand{\bpm}[1]
{
       \xdef\tempoBPM{#1}
       \rightline{Tempo=#1 BPM}
}

% "Beats Per Bar"
% default value
\xdef\bpb{4}

\newcommand{\bpbfour}
{
       \xdef\bpb{4}
}
\newcommand{\bpbthree}
{
       \xdef\bpb{3}
}

\newcommand{\resetchordbars}
{
       \setcounter{NumMesure}{0}
       \setcounter{NumPart}{0}
       \setcounter{CurrentBarInLine}{0}
}

\newcommand{\addMeasures}[1]
{
       \addtocounter{NumMesure}{#1}
       \setcounter{NumPart}{0}
       \setcounter{CurrentBarInLine}{0}
}

\newcommand{\printNbBars}
{
       \ifthenelse{\boolean{printBarNumber}}
       {
               Total number of bars: \arabic{NumMesure}, duration=\pgfmathparse{\theNumMesure/\tempoBPM*60*\bpb}\pgfmathresult {} s.
       }{}
}

% This boolean will be used to adjust horizontal position of the
% number of repetitions when a half bar is added (see \addHalfBar)
\newboolean{hasHalfBar}
%\setboolean{hasHalfBar}{false}

\newboolean{printBarNumber}

\newcommand{\countbarsYes}
{
       \setboolean{printBarNumber}{true}
}

\newcommand{\countbarsNo}
{
       \setboolean{printBarNumber}{false}
}

\def\barsize{1.6}%
\def\ycoeff{0.8}%
\def\delta{0.36}

\def\chordFontSize{\normalsize \bfseries}
\def\titleFontSize{\large \bfseries}

\xdef\NumberOfBarsPerLine{4}

% arg1: chord
% arg2: number of bars
% arg3: title
\newcommand{\chordline}[3]
{
       {\fontfamily{phv}\selectfont
       \noindent\ignorespaces %
       \vspace{\vspacebefore}
       \refstepcounter{NumMesure}%
       \refstepcounter{NumPart}%
       \begin{tikzpicture}[line width=1pt,x=1cm,y=-1cm]

% draw part title
       \ifthenelse
               {\boolean{printBarNumber}}
               {
                       \draw (0,-\barsize*.2) node [anchor=west, align=left,font=\titleFontSize]
                               {- Part \theNumPart: #3};
                       \draw (-.3,.5*\barsize) node
                               {\bf \theNumMesure};
               }
               {
                       \draw (0,-\barsize*.2) node [anchor=west, align=left,font=\titleFontSize] {#3};
               }

       \draw (0,0) -- (#2*\barsize,0);               % horizontal lines
       \draw (0,\barsize*\ycoeff) -- (#2*\barsize,\barsize*\ycoeff);

       \draw (0,0) -- (0,\barsize*\ycoeff);                  % first vertical line
       \draw (\barsize,0) -- (\barsize,\barsize*\ycoeff);    % second vertical line
       \draw (\barsize/2,\ycoeff*\barsize/2) node [font=\chordFontSize]{#1};      % chord name

       \foreach \k in {2,...,{#2}}
       {
               \draw (\k*\barsize,0) -- (\k*\barsize,\barsize*\ycoeff);

               \pgfmathsetmacro{\Axa}{(\k-1)*\barsize+\delta*\barsize}
               \pgfmathsetmacro{\Axb}{\k*\barsize-\delta*\barsize}
               \pgfmathsetmacro{\Aya}{(1-\delta)*\barsize*\ycoeff}
               \pgfmathsetmacro{\Ayb}{\delta*\barsize*\ycoeff}

               \coordinate (A) at (\Axa,\Ayb);
               \coordinate (B) at (\Axb,\Aya);

               \fill (A) circle[radius=2pt];
               \fill (B) circle[radius=2pt];
               \draw [thick] (\Axa,\Aya) -- (\Axb,\Ayb); % Draw "repeat" symbol
       }

       \end{tikzpicture}
       }
       \addtocounter{NumMesure}{#2}
       \addtocounter{NumMesure}{-1}
}

%==========================================================================
% main environment, has 2 mandatory arguments
% arg 1 (#2 inside): total number of 4 beat bars (4, 8, ...)
% arg 2 {#3 inside}: part name (can be empty)
% optional arg: nb of repetitions (default is 1)

% starred version: does not print the grid ! Only does the counters update, and prints these
\newenvironment{chordbar*}[3][1]
{
       \refstepcounter{NumPart}
       \refstepcounter{NumMesure}

       \@ifundefined{c@TmpA}{\newcounter{TmpA}}{}
       \setcounter{TmpA}{#1*#2+\value{NumMesure}-1}

       \@ifundefined{c@TmpB}{\newcounter{TmpB}}{}
       \setcounter{TmpB}{#1*#2}

       \fontfamily{phv}\selectfont
       \noindent\ignorespaces %
%       \vspace{\vspacebefore}

       \begin{tikzpicture}
       \ifthenelse
               {\boolean{printBarNumber}}
               {\pgfmathsetmacro{\xpos}{0.6}}
               {\pgfmathsetmacro{\xpos}{0}}

       \draw (0,0) node {}; % to align with other environments of the page

       % if we have repetitions, we print it and also the total number of bars
       \ifnum#1=1
                       {\draw (\xpos,-\barsize*.2) node [anchor=west, align=left,font=\titleFontSize]
                               {- Part \theNumPart: #3, #2 bars, [ \theNumMesure {} $\rightarrow$ \theTmpA {} ] }; }
       \else
                       {\draw (\xpos,-\barsize*.2) node [anchor=west, align=left,font=\titleFontSize]
                               {- Part \theNumPart: #3, #2 bars $\times$ #1 (\theTmpB), [ \theNumMesure {} $\rightarrow$ \theTmpA {} ] }; }
       \fi

       \end{tikzpicture}

       \setcounter{NumMesure}{\value{TmpA}}
}


\newenvironment{chordbar}[3][1]
{
   % "newline" command: just switches to next line
       \newcommand{\newchordline}
       {
               \setcounter{CurrentBarInLine}{0}
               \refstepcounter{CurrentLine}
       }

       \newcommand{\chordf}[1]%
       {
               \ifthenelse
                       {\theCurrentBarInLine=\NumberOfBarsPerLine}
                       {
                               \refstepcounter{CurrentLine}
                               \setcounter{CurrentBarInLine}{0}
                       }
                       {}
               \refstepcounter{CurrentBarInLine}%
               \pgfmathsetmacro{\x}{-\barsize/2+\theCurrentBarInLine*\barsize}
               \pgfmathsetmacro{\y}{\value{CurrentLine})*\barsize*\ycoeff+\barsize*\ycoeff/2}
               \draw (\x,\y) node [font=\chordFontSize]{##1};%
       }%

       \newcommand{\chordh}[2]%
       {
               \ifthenelse
                       {\theCurrentBarInLine=\NumberOfBarsPerLine}
                       {
                               \refstepcounter{CurrentLine}
                               \setcounter{CurrentBarInLine}{0}
                       }
                       {}
               \refstepcounter{CurrentBarInLine}%
%               \typeout{CurrentBarInLine=\theCurrentBarInLine}
               \draw ( %
                       {\barsize*(\theCurrentBarInLine-1)}, %
                       {(\theCurrentLine+1)*\barsize*\ycoeff} %
               ) %
               -- %
               ( %
                       {\theCurrentBarInLine*\barsize}, %
                       {\theCurrentLine*\barsize*\ycoeff} %
               );
               \draw (                                              % print first chord
                       {-3*\barsize/4+\theCurrentBarInLine*\barsize},
                       {\theCurrentLine*\barsize*\ycoeff+1*\barsize/4*\ycoeff}
               ) node [font=\chordFontSize]{##1};
               \draw (                                               % print second chord
                       {-\barsize/4+\theCurrentBarInLine*\barsize},
                       {\theCurrentLine*\barsize*\ycoeff+3*\barsize/4*\ycoeff}
               ) node [font=\chordFontSize]{##2};%
       }

       \newcommand{\repeatBar}%
       { %
               \ifthenelse
                       {\theCurrentBarInLine=\NumberOfBarsPerLine}
                       {
                               \refstepcounter{CurrentLine}
                               \setcounter{CurrentBarInLine}{0}
                       }
                       {}
               \refstepcounter{CurrentBarInLine}%

               \pgfmathsetmacro{\Axa}{(\theCurrentBarInLine-1)*\barsize+\delta*\barsize}
               \pgfmathsetmacro{\Axb}{\theCurrentBarInLine*\barsize-\delta*\barsize}
               \pgfmathsetmacro{\Aya}{(1-\delta)*\barsize*\ycoeff+\theCurrentLine*\barsize*\ycoeff}
               \pgfmathsetmacro{\Ayb}{\delta*\barsize*\ycoeff+\theCurrentLine*\barsize*\ycoeff}

               \coordinate (A) at (\Axa,\Ayb);
               \coordinate (B) at (\Axb,\Aya);

               \fill (A) circle[radius=2pt];
               \fill (B) circle[radius=2pt];
               \draw [thick] (\Axa,\Aya) -- (\Axb,\Ayb); %
       }%

       \newcommand{\repeatBarPair}%
       { %
               \pgfmathsetmacro{\Axa}{\theCurrentBarInLine*\barsize+\delta*\barsize}
               \pgfmathsetmacro{\Axb}{(\theCurrentBarInLine+2)*\barsize-\delta*\barsize}
               \pgfmathsetmacro{\Aya}{(1-\delta)*\barsize*\ycoeff+\theCurrentLine*\barsize*\ycoeff}
               \pgfmathsetmacro{\Ayb}{\delta*\barsize*\ycoeff+\theCurrentLine*\barsize*\ycoeff}

               \coordinate (A) at (\Axa,\Ayb);
               \coordinate (B) at (\Axb,\Aya);

               \fill (A) circle[radius=2pt];
               \fill (B) circle[radius=2pt];
               \draw [thick] (\Axa,\Aya) -- (\Axb,\Ayb); %
               %
               \refstepcounter{CurrentBarInLine}
               \refstepcounter{CurrentBarInLine}
               \ifnum\value{CurrentBarInLine}=#2
               {
                       \refstepcounter{CurrentLine}
                       \setcounter{CurrentBarInLine}{0}
               }
               \fi
       }%

       \newcommand{\addHalfBar}[1]%
       {
               \setboolean{hasHalfBar}{true}
%
% The part might have some repetitions (arg 1), so we need to increment
% NumMesure by the number of repetions
               \addtocounter{NumMesure}{#1}
%
               \refstepcounter{CurrentBarInLine}%

% diagonal line
%       \draw (\xa,\ya) -- (\xb,\yb);  A BUG HERE: investigate
               \draw
               (\theCurrentBarInLine*\barsize,{\theCurrentLine*\barsize*\ycoeff})
                       --
               ({(\theCurrentBarInLine-1)*\barsize},{(\theCurrentLine+1)*\barsize*\ycoeff});

% horizontal line
               \draw
               (\theCurrentBarInLine*\barsize,{\theCurrentLine*\barsize*\ycoeff})
                       --
               ({(\theCurrentBarInLine-1)*\barsize},{(\theCurrentLine)*\barsize*\ycoeff});

               \pgfmathsetmacro{\x}{-3*\barsize/4+\theCurrentBarInLine*\barsize}
               \pgfmathsetmacro{\y}{\value{CurrentLine})*\barsize*\ycoeff+\barsize/4}
               \draw (\x,\y) node [font=\chordFontSize]{##1};%

       }

% HERE beginning of environment code
%       \typeout{chordbar: START #3}

       \fontfamily{phv}\selectfont
       \setcounter{CurrentLine}{0}
       \setcounter{CurrentBarInLine}{0}
       \setcounter{CurrentBar}{0}
%       \setboolean{hasHalfBar}{true}
       \setboolean{hasHalfBar}{false}

       \refstepcounter{NumPart}%
       \refstepcounter{NumMesure}%
       \noindent\ignorespaces %
       \vspace{\vspacebefore}
%\resizebox{8cm}{!} {
%       \scalebox{2}{
       \begin{tikzpicture}[line width=1pt,x=1cm,y=-1cm] %,scale=2]

       \ifthenelse
               {\boolean{printBarNumber}}
               {\draw (-.3,.5*\barsize) node{\bf \theNumMesure};}
               {}

% compute the number of bars of the first line
       \xdef\NbBarsInitialLine{\NumberOfBarsPerLine}
       \ifthenelse
               {#2<\NumberOfBarsPerLine}
               {\xdef\NbBarsInitialLine{#2}}
               {}

% initial horizontal line
       \draw (0,0) -- (\NbBarsInitialLine*\barsize,0);

% draw part title
       \ifthenelse
               {\boolean{printBarNumber}}
               {\draw (0,-\barsize*.2) node [anchor=west, align=left,font=\titleFontSize]
                       {- Part \theNumPart: #3};}
               {\draw (0,-\barsize*.2) node [anchor=west, align=left,font=\titleFontSize]
                       {- #3};}

       \pgfmathtruncatemacro{\nblines}{(#2-1)/\NumberOfBarsPerLine+1}
%       \typeout{chordbarl: nblines=\nblines}
       \foreach \line in {1,...,\nblines}
       {

               \draw (0,{\barsize*\ycoeff*(\line-1)}) -- (0,\line*\barsize*\ycoeff); % first vertical line
               \xdef\nbbars{\NumberOfBarsPerLine}
               \ifnum\line=\nblines
               {
                       \pgfmathtruncatemacro{\nbbars}{#2-\NumberOfBarsPerLine*(\nblines-1)}
                       \xdef\nbbars{\nbbars}
               }
               \fi
%               \typeout{chordbarl: nbbars=\nbbars}
               \foreach \k in {1,...,{\nbbars}}
               {
                       \draw (\k*\barsize,{(\line-1)*\barsize*\ycoeff}) -- (\k*\barsize,{\line*\barsize*\ycoeff});
                       \draw (0,{\line*\barsize*\ycoeff}) -- (\k*\barsize,{\line*\barsize*\ycoeff});

                       \refstepcounter{CurrentBar}%
               }
       }
       \setcounter{NumMesure}{#1*#2+\value{NumMesure}-1}

% print the number of repetitions
       \ifnum#1=1 {} % do nothing
       \else
%--------------------
% THIS HERE IS WIP !
               \ifthenelse
                        {\boolean{hasHalfBar}}
                        {\def\xoffset{2.0}}
                        {\def\xoffset{1.5}}
%--------------------
               \ifthenelse
                       {\boolean{printBarNumber}}
                       {\draw (\NbBarsInitialLine*\barsize+\xoffset,0.5*\barsize) node {\Large \bf $\times$~#1};}
                       {}
       \fi
}%
{
%\typeout{chordbar: END}
       \end{tikzpicture}
%       } %
%       \par\noindent%
%       \ignorespacesafterend
       \vspace{\vspaceafter}
}

% REMOVE INDENTATION
\setlength\parindent{0pt}

% so the user can use # without escaping
% see https://tex.stackexchange.com/questions/467562
\AtBeginDocument{\catcode`#=12 }

% additional code: redefine sharp and flat in text mode
% from https://tex.stackexchange.com/a/422249/11083
\let\OLDsharp\sharp
\renewcommand{\sharp}{\ensuremath{\OLDsharp}}
\let\OLDflat\flat
\renewcommand{\flat}{\ensuremath{\OLDflat}}

\endinput

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.