summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/lwarp/lwarp-octave.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-11-19 21:54:31 +0000
committerKarl Berry <karl@freefriends.org>2018-11-19 21:54:31 +0000
commit1850a94e252ed29b333b59a110dbb5a537787d57 (patch)
treee9a0a8d95079252240316228273855ab8bcd3708 /Master/texmf-dist/tex/latex/lwarp/lwarp-octave.sty
parentf5e9d83dcdcb9517a654c1ed8287545279f528c8 (diff)
lwarp (19nov18)
git-svn-id: svn://tug.org/texlive/trunk@49196 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/lwarp/lwarp-octave.sty')
-rw-r--r--Master/texmf-dist/tex/latex/lwarp/lwarp-octave.sty65
1 files changed, 65 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/lwarp/lwarp-octave.sty b/Master/texmf-dist/tex/latex/lwarp/lwarp-octave.sty
new file mode 100644
index 00000000000..01354854536
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/lwarp/lwarp-octave.sty
@@ -0,0 +1,65 @@
+%%
+%% 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-2018 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'.