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.
65 lines
1.8 KiB
65 lines
1.8 KiB
%%
|
|
%% This is file `lwarp-octave.sty',
|
|
%% generated with the docstrip utility.
|
|
%%
|
|
%% The original source files were:
|
|
%%
|
|
%% lwarp.dtx (with options: `octave')
|
|
%% This is a generated file.
|
|
%% Copyright 2016-2020 Brian Dunn
|
|
%%
|
|
%% This work may be distributed and/or modified under the
|
|
%% conditions of the LaTeX Project Public License, either version 1.3
|
|
%% 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.
|
|
\LWR@ProvidesPackagePass{octave}[2017/10/31]
|
|
\RenewDocumentCommand{\@PrintTicks}{ m }{%
|
|
\kern-1pt% lwarp
|
|
\@TickNum = #1%
|
|
\loop
|
|
\@Tick{}%
|
|
\advance\@TickNum by -1
|
|
\ifnum\@TickNum > 0
|
|
\repeat
|
|
}
|
|
\RenewDocumentCommand{\@Tick}{}{\HTMLunicode{2032}}
|
|
\RenewDocumentCommand{\pitch}{ m o m }{%
|
|
\if@OctaveNumber%
|
|
{%
|
|
\pitchfont{%
|
|
\LWR@textcurrentfont{% lwarp
|
|
\MakeUppercase{#1}%
|
|
\IfValueTF{#2}{#2}{}\textsubscript{#3}%
|
|
}%
|
|
}%
|
|
}%
|
|
\else%
|
|
{%
|
|
\pitchfont{%
|
|
\LWR@textcurrentfont{% lwarp
|
|
\@GetOctaveTick{#1}[#2]{#3}%
|
|
}%
|
|
}%
|
|
}%
|
|
\fi%
|
|
}
|
|
\StartDefiningTabulars
|
|
\renewcommand{\octavetable}{%
|
|
\begin{tabular}{ll}
|
|
\octaveprimes \pitch{C}{0} & \octavenumbers \pitch{C}{0} \\
|
|
\octaveprimes \pitch{C}{1} & \octavenumbers \pitch{C}{1} \\
|
|
\octaveprimes \pitch{C}{2} & \octavenumbers \pitch{C}{2} \\
|
|
\octaveprimes \pitch{C}{3} & \octavenumbers \pitch{C}{3} \\
|
|
\octaveprimes \pitch{C}{4} & \octavenumbers \pitch{C}{4} \\
|
|
\octaveprimes \pitch{C}{5} & \octavenumbers \pitch{C}{5} \\
|
|
\octaveprimes \pitch{C}{6} & \octavenumbers \pitch{C}{6} \\
|
|
\octaveprimes \pitch{C}{7} & \octavenumbers \pitch{C}{7} \\
|
|
\end{tabular}
|
|
}
|
|
\StopDefiningTabulars
|
|
\endinput
|
|
%%
|
|
%% End of file `lwarp-octave.sty'.
|
|
|