diff options
author | Karl Berry <karl@freefriends.org> | 2018-11-19 21:54:31 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-11-19 21:54:31 +0000 |
commit | 1850a94e252ed29b333b59a110dbb5a537787d57 (patch) | |
tree | e9a0a8d95079252240316228273855ab8bcd3708 /Master/texmf-dist/tex/latex/lwarp/lwarp-octave.sty | |
parent | f5e9d83dcdcb9517a654c1ed8287545279f528c8 (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.sty | 65 |
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'. |