diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/musicography/musicography.sty |
Initial commit
Diffstat (limited to 'macros/latex/contrib/musicography/musicography.sty')
-rw-r--r-- | macros/latex/contrib/musicography/musicography.sty | 238 |
1 files changed, 238 insertions, 0 deletions
diff --git a/macros/latex/contrib/musicography/musicography.sty b/macros/latex/contrib/musicography/musicography.sty new file mode 100644 index 0000000000..dad5ff27f4 --- /dev/null +++ b/macros/latex/contrib/musicography/musicography.sty @@ -0,0 +1,238 @@ +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{musicography}[2019/05/28 + Symbols for music writing with pdflatex] + +% Copyright 2019 Andrew A. Cashner, andrewacashner@gmail.com + +% 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. +% +% This work has the LPPL maintenance status `maintained'. +% The Current Maintainer of this work is Andrew A. Cashner. +% This work consists of the package file musicography.sty +% and the documentation file musicography.tex. + +% CHANGE LOG +% 2019-05-28 - Fix issue #1: +% + Correct notehead symbol for values < quarter note +% (was hollow, should be filled) +% + Add 32nd and 64th notes regular and dotted +% + \musSymbol now inside an \mbox to fix alignment problems +% - New features (some requested in issue #1) +% + Add medieval perfect meter +% + Add aliases for fusa (= corchea = eighth note) +% + Replace musStack implementation with stackengine: +% Now takes any number of space-separated arguments to stack +% numerals, allowing for full figured-bass notation +% 2018-05-21 Override semantic-markup's \fl, \sh, \na commands if it is loaded +% 2017-10-31 Corrected glyph for \musHalf and documented +% \musMeter and \musFigures +% 2017-08-29 First version on CTAN +% 2017-04-12 Created + +\newif\ifLargeFont +\LargeFontfalse +\DeclareOption{bigger}{\LargeFonttrue} +\ProcessOptions\relax + +\RequirePackage{xparse} + +\ifLargeFont + \newfont{\musFont}{musix13} + \newfont{\musFontBig}{musix16} + \newfont{\musFontLarge}{musix20} +\else + \newfont{\musFont}{musix11} + \newfont{\musFontBig}{musix13} + \newfont{\musFontLarge}{musix16} +\fi + +% Font for numbers in \musStack +% Could redefine to use lining figures, math mode, sans-serif, etc. +% Example for ebgaramond: \renewcommand{\musNumFont}[1]{\liningnums{#1}} +\NewDocumentCommand{\musNumFont}{}{} + +% Print a music symbol from the \musFont, specifying space before, after, and +% baseline adjustment +% #1 optional font command (default: \musFont) +% #2 kern before +% #3 raisebox value +% #4 kern after +% #5 symbol code (e.g., \symbol{4}) +\NewDocumentCommand{\musSymbol}{ O{\musFont} m m m m }{% + \mbox{#1\kern#2\raisebox{#3}{#5}\kern#4}% +} + +% Accidentals +% #1 symbol command for accidental +\NewDocumentCommand{\musAccidental}{ m }{% + \musSymbol[\musFontLarge]{0.1em}{0.5ex}{-0.1pt}{#1}% +} +\NewDocumentCommand{\musFlat} {}{\musAccidental{\symbol{90}}} +\NewDocumentCommand{\musDoubleFlat} {}{\musAccidental{\symbol{91}}} +\NewDocumentCommand{\musSharp} {}{\musAccidental{\symbol{92}}} +\NewDocumentCommand{\musDoubleSharp}{}{\musAccidental{\symbol{93}}} +\NewDocumentCommand{\musNatural} {}{\musAccidental{\symbol{94}}} + +% Shorthand accidental commands +% These commands are defined differently in the semantic-markup package, +% so LaTeX will use musicography commands instead +\@ifpackageloaded{semantic-markup}{% + \RenewDocumentCommand{\fl}{}{\musFlat} + \RenewDocumentCommand{\sh}{}{\musSharp} + \RenewDocumentCommand{\na}{}{\musNatural} +}{% + \NewDocumentCommand{\fl}{}{\musFlat} + \NewDocumentCommand{\sh}{}{\musSharp} + \NewDocumentCommand{\na}{}{\musNatural} +} +% Print a composite music symbol of a notehead plus stem +% #1 Symbol musSymbol command for notehead +\NewDocumentCommand{\musStemmedNote}{ m }{% + \musSymbol{0.05em}{0.5ex}{0.2em}{#1\musStem}% +} + +% Stemmed note plus flag +% #1 symbol command for base note +% #2 symbol command for flag +\NewDocumentCommand{\musFlaggedNote}{ m m }{% + \musSymbol{0.05em}{0.5ex}{0pt}{#1\musStem}% + \musSymbol{0pt}{0pt}{0.9em}{#2}% +} + +% Note plus dot +% #1 \musSymbol command for note to be dotted +\NewDocumentCommand{\musDottedNote}{ m }{#1\musDot} + +\NewDocumentCommand{\musStem}{}{% + \musSymbol{0.955em}{0.55ex}{0pt}{\symbol{16}}% +} +\NewDocumentCommand{\musSegno}{}{% + \musSymbol{0.55em}{-0.4ex}{1.5em}{\symbol{86}}% +} +\NewDocumentCommand{\musDot}{}{% + \musSymbol{-0.2em}{-0.5ex}{0.7em}{\symbol{24}}% +} + +\NewDocumentCommand{\musWhole}{}{% + \musSymbol{0.05em}{0.5ex}{1.35em}{\symbol{9}}% +} +\NewDocumentCommand{\musHalf}{}{% + \musStemmedNote{\symbol{8}}% +} +\NewDocumentCommand{\musQuarter}{}{% + \musStemmedNote{\symbol{7}}% +} +\NewDocumentCommand{\musEighth}{}{% + \musFlaggedNote{\symbol{7}}{\symbol{40}}% +} +\NewDocumentCommand{\musSixteenth}{}{% + \musFlaggedNote{\symbol{7}}{\symbol{41}}% +} +\NewDocumentCommand{\musThirtySecond}{}{% + \musFlaggedNote{\symbol{7}}{\symbol{42}}% +} +\NewDocumentCommand{\musSixtyFourth}{}{% + \musFlaggedNote{\symbol{7}}{\symbol{43}}% +} + +\NewDocumentCommand{\musWholeDotted}{}{% + \musDottedNote{\musWhole}% +} +\NewDocumentCommand{\musHalfDotted}{}{% + \musDottedNote{\musHalf}% +} +\NewDocumentCommand{\musQuarterDotted}{}{% + \musDottedNote{\musQuarter}% +} +\NewDocumentCommand{\musEighthDotted}{}{% + \musDottedNote{\musEighth}% +} +\NewDocumentCommand{\musSixteenthDotted}{}{% + \musDottedNote{\musSixteenth}% +} +\NewDocumentCommand{\musThirtySecondDotted}{}{% + \musDottedNote{\musThirtySecond}% +} +\NewDocumentCommand{\musSixtyFourthDotted}{}{% + \musDottedNote{\musSixtyFourth}% +} + + +% Command to stack numerals for metrical symbols or figured bass +% Takes any number of space-separated arguments and stacks them vertically +\RequirePackage{stackengine} +\NewDocumentCommand{\musStack}{ O{\musNumFont} m }{% + {#1\Shortstack[l]{#2}}% +} + +% Meter symbols +% #1 symbol code for meter sign +\NewDocumentCommand{\musSymbolMeter}{ m }{% + \raisebox{0.58ex}[8pt][2pt]{% + {\kern-1pt\musFontBig\raisebox{0.3ex}{#1}\kern0.3em}% + }% +} +% Meter that combines \meterC with numerals (e.g., C3 C3/2) +\NewDocumentCommand{\meterCplus}{ m }{\meterC{}\kern-0.7pt#1} + +% Numeric meter signatures (e.g., 3/4) +% #1 number on top +% #2 number on bottom +\NewDocumentCommand{\musMeter}{ m m }{% + \musStack{#1 #2}\kern0.05em +} +% Same command used for figured bass +\NewDocumentCommand{\musFigFont}{}{% + \scriptsize + \let\musFontLarge\musFontBig +} +\NewDocumentCommand{\musFig}{ m }{% + \musStack[\musFigFont]{#1}% +} +\NewDocumentCommand{\noFig}{ O{5} }{% + \hphantom{#1}% +} + +\NewDocumentCommand{\meterC}{}{% + \musSymbolMeter{\symbol{83}}% +} +\NewDocumentCommand{\meterCutC}{}{% + \musSymbolMeter{\symbol{82}}% +} +% Ternary meters used in 16th--18th c. music +\NewDocumentCommand{\meterCThree}{}{% + \meterCplus{\musNumFont{3}}% +} +\NewDocumentCommand{\meterCThreeTwo}{}{% + \meterCplus{\musStack{3}{2}}% +} +% Ternary meter used in 17th-century Spanish music +\NewDocumentCommand{\meterCZ}{}{% + \meterCplus{Z}% +} +% Perfect meter in medieval music +\NewDocumentCommand{\meterO}{}{% + $\bigcirc$ +} + + +% Aliases for older note names +\NewDocumentCommand{\musSemibreve} {}{\musWhole} +\NewDocumentCommand{\musMinim} {}{\musHalf} +\NewDocumentCommand{\musSemiminim} {}{\musQuarter} +\NewDocumentCommand{\musCorchea} {}{\musEighth} +\NewDocumentCommand{\musFusa} {}{\musEighth} +\NewDocumentCommand{\musSemibreveDotted} {}{\musWholeDotted} +\NewDocumentCommand{\musMinimDotted} {}{\musHalfDotted} +\NewDocumentCommand{\musSeminiminimDotted} {}{\musQuarterDotted} +\NewDocumentCommand{\musCorcheaDotted} {}{\musEighthDotted} +\NewDocumentCommand{\musFusaDotted} {}{\musEighthDotted} + +\endinput |