diff options
Diffstat (limited to 'Master/texmf-dist/doc/generic')
-rw-r--r-- | Master/texmf-dist/doc/generic/musixtex/addons/musixcrd/musixcrd.tex | 272 | ||||
-rw-r--r-- | Master/texmf-dist/doc/generic/musixtex/musixcrd/README.musixcrd (renamed from Master/texmf-dist/doc/generic/musixtex/addons/musixcrd/readme) | 0 | ||||
-rw-r--r-- | Master/texmf-dist/doc/generic/musixtex/musixcrd/doc.pdf (renamed from Master/texmf-dist/doc/generic/musixtex/addons/musixcrd/doc.pdf) | 0 |
3 files changed, 0 insertions, 272 deletions
diff --git a/Master/texmf-dist/doc/generic/musixtex/addons/musixcrd/musixcrd.tex b/Master/texmf-dist/doc/generic/musixtex/addons/musixcrd/musixcrd.tex deleted file mode 100644 index 2701d104ee6..00000000000 --- a/Master/texmf-dist/doc/generic/musixtex/addons/musixcrd/musixcrd.tex +++ /dev/null @@ -1,272 +0,0 @@ -%% -%% This is file `musixcrd.tex', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% musixcrd.dtx -%% -%% IMPORTANT NOTICE: -%% -%% For the copyright see the source file. -%% -%% Any modified versions of this file must be renamed -%% with new filenames distinct from musixcrd.tex. -%% -%% For distribution of the original source see the terms -%% for copying and modification in the file musixcrd.dtx. -%% -%% This generated file may be distributed as long as the -%% original source files, as listed above, are part of the -%% same distribution. (The sources need not necessarily be -%% in the same archive or directory.) -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% musixcrd - typsetting chord symbols with %% -%% musixtex %% -%% main source file contains code, doc, and examples %% -%% $Id: musixcrd.dtx,v 1.7 2004/11/02 13:13:41 hennig Exp $ %% -%% copyright 2004 , Robert Hennig %% -%% this code is licensed in terms of the %% -%% GNU Public License %% -%% %% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\ifx\makeatletter\undefined\def\makeatletter{\catcode`\@=11\relax}\fi -\ifx\makeatother\undefined\def\makeatother{\catcode`\@=12\relax}\fi - -\makeatletter% ^^A allows to use @ as ordinary letter -\def\crddefaultheight{10} -\def\crdtranspose{0} -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\def\crd@append#1\to#2{% - \toks0=\expandafter{#1}\toks2=\expandafter{#2}% - \edef#2{\the\toks2 \the\toks0}} -\def\crd@prepend#1\by#2{% - \toks0=\expandafter{#1}\toks2=\expandafter{#2}% - \edef#1{\the\toks2 \the\toks0}} -\def\crd@movetoken#1\to#2{% - \ifx#1\empty\else\expandafter\crd@moveoff#1\crd@moveoff#1#2\fi}% -\def\crd@moveoff#1#2\crd@moveoff#3#4{\def#3{#2}\crd@prepend#4\by#1} -\newif\ifcrd@parsematched% true if parse matched -\newcount\crd@parsedepth% internal register - -\def\crd@parse#1\for#2{% parse tokens #1 for occurence of items of table #2 - \crd@parsedepth=1 % default if not defined - \expandafter\ifx\csname#2depth\endcsname\relax\else% - \crd@parsedepth=\csname#2depth\endcsname% - \fi% - \def\stack{}%\def\crd@parseresult{} - \crd@parsematchedfalse% initialisation - \crd@parser#1\for#2% call the recursive part -} -\def\crd@parser#1\for#2{% recursive part of parser - \ifx#1\empty\else% is list filled ? - \ifnum\crd@parsedepth>0 % and do we have to read more chars into stack - \advance\crd@parsedepth by-1 % - \crd@movetoken#1\to\stack% - \crd@parser#1\for#2% recursive call - \ifcrd@parsematched\else% if still not matched - \expandafter\ifx\csname#2\stack\endcsname\relax% does item match - \crd@movetoken\stack\to#1% no match, put char back to source - \else% match - \csname#2\stack\endcsname% - \crd@parsematchedtrue% signal success - \fi% - \fi% - \fi% - \fi% -} -\newcount\crd@vshift% -\newcount\crd@hshift% -\def\crd@number{crd@number}% -\def\crd@numberdepth{2}% -\expandafter\def\csname\crd@number0\endcsname{\crd@numberval=0 }% -\expandafter\def\csname\crd@number1\endcsname{\crd@numberval=1 }% -\expandafter\def\csname\crd@number2\endcsname{\crd@numberval=2 }% -\expandafter\def\csname\crd@number3\endcsname{\crd@numberval=3 }% -\expandafter\def\csname\crd@number4\endcsname{\crd@numberval=4 }% -\expandafter\def\csname\crd@number5\endcsname{\crd@numberval=5 }% -\expandafter\def\csname\crd@number6\endcsname{\crd@numberval=6 }% -\expandafter\def\csname\crd@number7\endcsname{\crd@numberval=7 }% -\expandafter\def\csname\crd@number8\endcsname{\crd@numberval=8 }% -\expandafter\def\csname\crd@number9\endcsname{\crd@numberval=9 }% -\expandafter\def\csname\crd@number1-\endcsname{\crd@numberval=-1 }% -\expandafter\def\csname\crd@number2-\endcsname{\crd@numberval=-2 }% -\expandafter\def\csname\crd@number3-\endcsname{\crd@numberval=-3 }% -\expandafter\def\csname\crd@number4-\endcsname{\crd@numberval=-4 }% -\expandafter\def\csname\crd@number5-\endcsname{\crd@numberval=-5 }% -\expandafter\def\csname\crd@number6-\endcsname{\crd@numberval=-6 }% -\expandafter\def\csname\crd@number7-\endcsname{\crd@numberval=-7 }% -\expandafter\def\csname\crd@number8-\endcsname{\crd@numberval=-8 }% -\expandafter\def\csname\crd@number9-\endcsname{\crd@numberval=-9 }% -\newcount\crd@quint% register used to represent notes in the circle of -\def\crd@quintval{crd@quintval}% -\def\crd@quintvalA{\crd@quint=3 }% A -\def\crd@quintvalB{\crd@quint=5 }% B -\def\crd@quintvalC{\crd@quint=0 }% C -\def\crd@quintvalD{\crd@quint=2 }% D -\def\crd@quintvalE{\crd@quint=4 }% E -\def\crd@quintvalF{\crd@quint=-1 }% F -\def\crd@quintvalG{\crd@quint=1 }% G -\def\crd@quintmod{crd@quintmod} -\def\crd@quintmoddepth{2} -\def\crd@quintmods{\advance\crd@quint by7 }% sharp -\def\crd@quintmodf{\advance\crd@quint by-7 }% flat -\def\crd@quintmodsd{\advance\crd@quint by14 }% double sharp -\def\crd@quintmodfd{\advance\crd@quint by-14 }% double flat -\def\crd@note{crd@note} -\expandafter\def\csname\crd@note3\endcsname{A} -\expandafter\def\csname\crd@note5\endcsname{B} -\expandafter\def\csname\crd@note0\endcsname{C} -\expandafter\def\csname\crd@note2\endcsname{D} -\expandafter\def\csname\crd@note4\endcsname{E} -\expandafter\def\csname\crd@note-1\endcsname{F} -\expandafter\def\csname\crd@note1\endcsname{G} -\def\crd@notelow{-1} % lowest quint without accidental -\def\crd@notehigh{5} % highest quint without accidental -\def\crd@sharp{\sharp} -\def\crd@flat{\flat} -\def\crd@doublesharp{\sharp\sharp} -\def\crd@doubleflat{\flat\flat} -\def\crd@parsenote#1#2{% parse input results: #1 - \def#1{}\def#2{}% - \crd@parse\crd@input\for\crd@quintval% - \ifcrd@parsematched% we got an valid note - \crd@parse\crd@input\for\crd@quintmod% - \advance\crd@quint by\crdtranspose \relax% transposition, space is needed! - \crd@enharmonic% - \ifnum\crd@quint>\crd@notehigh % sharps ? - \advance\crd@quint by-7 % - \ifnum\crd@quint>\crd@notehigh % double sharp ? - \advance\crd@quint by-7 % - \ifnum\crd@quint>\crd@notehigh % too much sharps ! - \relax ERROR:too much sharps% - \else\edef#2{\crd@doublesharp}\fi% - \else\edef#2{\crd@sharp}\fi% - \fi% - \ifnum\crd@quint<\crd@notelow % flats ? - \advance\crd@quint by7 % - \ifnum\crd@quint<\crd@notelow % double flat ? - \advance\crd@quint by7 % - \ifnum\crd@quint<\crd@notelow % too much flats ! - \relax ERROR:too much flats% - \else\edef#2{\crd@doubleflat}\fi% - \else\edef#2{\crd@flat}\fi% - \fi% - \expandafter\ifx\csname\crd@note\number\crd@quint\endcsname\relax% - ERROR:notename for (\number\crd@quint) is not defined. - \fi% - \edef#1{\csname\crd@note\number\crd@quint\endcsname}% set note - \fi% -} -\def\crd@enharmonic{}% -\def\crd@qualinit{% - \def\crd@lo{}% lower extensions - \def\crd@up{}% upper extensioins - \def\crd@alt{}% alterations -} -\def\crd@qual{crd@qual}% -\def\crd@qualdepth{2} -\def\crd@qualm{\crd@append{\crd@smalltype m}\to\crd@lo}% minor -\def\crd@qualM{\crd@append{\crd@capitaltype M}\to\crd@lo}% major7 -\expandafter\def\csname\crd@qual5+\endcsname% aug. 5 -{\crd@append{+}\to\crd@lo} -\expandafter\def\csname\crd@qual6\endcsname% 6 -{\crd@append{\crd@numbertype6}\to\crd@up} -\expandafter\def\csname\crd@qual7\endcsname% dominant 7 -{\crd@append{\crd@numbertype7}\to\crd@up} -\def\crd@quald{\crd@append{\crd@dim}\to\crd@up}% diminished -\def\crd@qualh{\crd@append{\crd@hdim}\to\crd@up}% half diminished -\expandafter\def\csname\crd@qual9-\endcsname% -9 -{\crd@append{\crd@numbertype\crd@numberflat9}\to\crd@alt} -\expandafter\def\csname\crd@qual9+\endcsname% +9 -{\crd@append{\crd@numbertype\crd@numbersharp9}\to\crd@alt} -\def\crd@skipcrdnote{crd@skipcrdnote} -\expandafter\def\csname\crd@skipcrdnote/\endcsname{} -\def\crd@parsecrd{% - \crd@vshift=0 % - \let\crd@numberval=\crd@vshift% - \crd@parse\crd@input\for\crd@number% - \crd@hshift=0 % - \let\crd@numberval=\crd@hshift% - \crd@parse\crd@input\for\crd@number% - \def\crd@crdnote{}% chord note - \def\crd@crdacc{}% chord note accidental - \def\crd@bassnote{}% bass note - \def\crd@bassacc{}% bass note accidental - \crd@qualinit% initialize qualifiers - \let\crd@flat=\crd@noteflat% - \let\crd@doubleflat=\crd@notedoubleflat% - \let\crd@sharp=\crd@notesharp% - \let\crd@doublesharp=\crd@notedoublesharp% - \crd@parsenote\crd@crdnote\crd@crdacc% read chord note - \loop\crd@parse\crd@input\for\crd@qual% read qualifiers - \ifcrd@parsematched\repeat% - \crd@parse\crd@input\for\crd@skipcrdnote% skip eventually - \let\crd@flat=\crd@bassflat% - \let\crd@doubleflat=\crd@bassdoubleflat% - \let\crd@sharp=\crd@basssharp% - \let\crd@doublesharp=\crd@bassdoublesharp% - \crd@parsenote\crd@bassnote\crd@bassacc% read bass note - \crd@formatcrd\hfil% call rendering -} -\def\crd@crddelim{crd@crddelim}% -\expandafter\def\csname\crd@crddelim,\endcsname{}% -\def\crd@parsecrds{% - \crd@parsecrd% - \crd@parse\crd@input\for\crd@crddelim% - \ifcrd@parsematched\crd@parsecrds\fi% -} -\def\c#1 {\def\crd@input{#1}\crd@output\crd@parsecrds} -\def\crd@fontstylea{% - \font\crd@eightrm=cmr8 - \font\crd@eightit=cmmi8 - \font\crd@seventeenrm=cmr17 - \font\crd@fourteenrm=cmr14 - \font\crd@twelverm=cmr12 - \font\crd@ninerm=cmr9 - \font\crd@smallninerm=cmr9 scaled 900 - \font\crd@bigninerm=cmr9 scaled 1100 - \let\crd@notetype=\crd@seventeenrm - \def\crd@noteflat{\raise0.6ex\hbox{\kern-0.085em\musictwenty2}} - \def\crd@notedoubleflat{\raise0.6ex\hbox{\kern-0.085em\musictwenty3}} - \def\crd@notesharp{\raise0.8ex\hbox{\musictwenty4}} - \def\crd@notedoublesharp{\raise0.8ex\hbox{\musictwenty5}} - \let\crd@basstype=\crd@fourteenrm - \def\crd@bassflat{\raise.5ex\hbox{\musicsixteen2}} - \def\crd@bassdoubleflat{\raise0.6ex\hbox{\kern-0.085em\musicsixteen3}} - \def\crd@basssharp{\raise1ex\hbox{\musicsixteen4}} - \def\crd@bassdoublesharp{\raise0.8ex\hbox{\musicsixteen5}} - \let\crd@numbertype=\crd@ninerm - \def\crd@numberflat{\raise.5ex\hbox{\musiceleven2}} - \def\crd@numbersharp{\raise1ex\hbox{\musiceleven4}} - \def\crd@numberminus{\crd@ninerm-} - \def\crd@numberplus{\crd@ninerm+} - \let\crd@capitaltype=\crd@smallninerm % capitals - \let\crd@smalltype=\crd@bigninerm % small - \def\crd@hdim{\crd@eightit$\circ$\kern-4.4pt\raise.9pt\hbox{\crd@eightrm/}} - \def\crd@dim{\crd@eightit$\circ$} -} -\def\crd@formatcrda{% - \hbox{\kern\crd@hshift\elemskip\raise\crd@vshift\internote\hbox{% - {\crd@notetype\crd@crdnote\crd@crdacc}% - \vbox{% - \hbox{% - \crd@up% - \ifx\crd@alt\empty\else\crd@numbertype(\crd@alt\crd@numbertype)\fi% - }% - \nointerlineskip\vskip1pt% - \hbox{\vphantom{\crd@capitaltype M}\crd@lo}}% - \ifx\crd@bassnote\empty\else% - {\crd@basstype/% - \lower0.5ex\hbox{\kern-0.17em \crd@bassnote\crd@bassacc}}% - \fi%\ - }} -} -\let\crd@formatcrd=\crd@formatcrda -\crd@fontstylea -\def\crd@musixOutput#1{\hbox{\zchar{\crddefaultheight}{\hbox to\elemskip{#1\hss}}}} -\let\crd@output=\crd@musixOutput -\makeatother -\endinput -%% -%% End of file `musixcrd.tex'. diff --git a/Master/texmf-dist/doc/generic/musixtex/addons/musixcrd/readme b/Master/texmf-dist/doc/generic/musixtex/musixcrd/README.musixcrd index d1baf7ea576..d1baf7ea576 100644 --- a/Master/texmf-dist/doc/generic/musixtex/addons/musixcrd/readme +++ b/Master/texmf-dist/doc/generic/musixtex/musixcrd/README.musixcrd diff --git a/Master/texmf-dist/doc/generic/musixtex/addons/musixcrd/doc.pdf b/Master/texmf-dist/doc/generic/musixtex/musixcrd/doc.pdf index 51b187f4872..51b187f4872 100644 --- a/Master/texmf-dist/doc/generic/musixtex/addons/musixcrd/doc.pdf +++ b/Master/texmf-dist/doc/generic/musixtex/musixcrd/doc.pdf |