new package staves, no source for doc, requested 22 Mar 2008 22:52:27 by Torsten Wiebke

git-svn-id: svn://tug.org/texlive/trunk@7103 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 291 insertions, 0 deletions

diff --git a/Master/texmf-dist/source/latex/staves/staves.dtx b/Master/texmf-dist/source/latex/staves/staves.dtx
new file mode 100644
index 00000000000..d099e154cc2
--- /dev/null
+++ b/Master/texmf-dist/source/latex/staves/staves.dtx
@@ -0,0 +1,239 @@
+%% \CharacterTable
+%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%%   Digits        \0\1\2\3\4\5\6\7\8\9
+%%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%%   Dollar        \$     Percent       \%     Ampersand     \&
+%%   Acute accent  \'     Left paren    \(     Right paren   \)
+%%   Asterisk      \*     Plus          \+     Comma         \,
+%%   Minus         \-     Point         \.     Solidus       \/
+%%   Colon         \:     Semicolon     \;     Less than     \<
+%%   Equals        \=     Greater than  \>     Question mark \?
+%%   Commercial at \@     Left bracket  \[     Backslash     \\
+%%   Right bracket \]     Circumflex    \^     Underscore    \_
+%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%%   Right brace   \}     Tilde         \~}
+%\iffalse
+%
+% (c) copyright 2006 Apostolos Syropoulos 
+% This program can be redistributed and/or modified under the terms
+% of the LaTeX Project Public License Distributed from CTAN
+% archives in directory macros/latex/base/lppl.txt; either
+% version 1.3b of the License, or any later version.
+%
+% Please report errors or suggestions for improvement to
+%
+%    Apostolos Syropoulos  (asyropoulos@yahoo.com)
+%
+%\fi
+% \CheckSum{292}
+% \iffalse This is a Metacomment
+%
+%<linearA, >\ProvidesFile{staves.sty}
+%
+%<linearA, >  [2006/11/06 v1.0 Package `staves.sty']
+%
+%    \begin{macrocode}
+%<*driver>
+\documentclass{ltxdoc}
+\usepackage{url}
+\GetFileInfo{staves.drv}
+\begin{document}
+   \DocInput{staves.dtx}
+\end{document}
+%</driver>
+%    \end{macrocode}
+% \fi
+%\StopEventually{}
+%\title{The \textsf{staves} package}
+%\author{Apostolos Syropoulos\\
+%        Xanthi, Greece\\
+%        \texttt{asyropoulos@yahoo.com}}
+% \date{2006/11/06}
+%\maketitle
+% \begin{abstract}
+% The \textsf{staves} package has been designed to provide an interface to the \textsf{icelandic}
+% font, designed by the author of this package. The font contains all ``magical'' staves presented
+% on the Web site of the Icelandic Museum of Sorcery and Witchcraft. In addition, the package 
+% provides a simple command to typeset Icelandic runes.
+%\end{abstract}
+%
+% \vspace*{20pt}
+% \fbox{\begin{minipage}{320pt}
+%\textbf{Disclaimer} {\em Sorcery} as a cultural phenomenon is studied by ethnologists. Becuase of
+% this, the author believes that his work should be of interest to enthnologists, in particular,
+% and people with an interest in (digital) typography, in general. However, the author does not 
+% believe that the glyphs of the font do actually have any ``magical'' power. Also, if someone will
+% use them to perform any kind of ``magical'' ceremony, the author cannot be hold responsible for 
+% any such action and its consequences.
+% \end{minipage}}
+%\vspace*{20pt}
+%\section{Introduction}
+%
+% The \textsf{staves} package provides a simple interface to the 
+% \textsf{icelandic} font designed by this author. The font contain all
+% the ``magical'' staves that are described at the Web site of the 
+% Icelandic Museum of Sorcery and Witchcraft (see 
+% \url{http://www.galdrasyning.is/index.php?option=com_content&task=category&sectionid=5&id=18&Itemid=60} 
+% for more details). In addition, the font contains all the Icelandic runes
+% as they are presented at the same Web pages (see \url{http://www.galdrasyning.is/index.php?option=com_content&task=view&id=229&Itemid=131} for more details).
+% 
+% The various staves can be accessed by simple commands that have the following form
+% \begin{center}
+% \texttt{\char`\\icelandicStave\textit{CCC}}
+% \end{center}
+% where \texttt{\textit{CCC}} is an uppercase roman numeral. It would be possible to
+% give ``real'' names to these glyph access commands, but since these staves do not
+% have a name to the best of my language, I opted to use this naming scheme.
+%
+%\begin{figure}
+%\begin{center}
+%\begin{tabular}{lc}\hline
+% Unicode name                                   & Access character\\ \hline
+% \textsc{runic letter ansuz a}                  & a \\
+% \textsc{runic letter berkanan beorc rjarkan b} & b \\
+% \textsc{runic letter iwaz eoh}                 & c \\
+% \textsc{runic letter d}                        & d \\
+% \textsc{runic letter e}                        & e \\
+% \textsc{runic letter fehu feoh fe f}           & f \\
+% \textsc{runic letter gebo gyfu g}              & g \\
+% \textsc{runic letter haglaz h}                 & h \\
+% \textsc{runic letter isaz is iss i}            & i \\
+% \textsc{runic letter thurisaz thurs thorn}     & j \\
+% \textsc{runic letter kauna}                    & k \\
+% \textsc{runic letter laukaz lagu logr l}       & l \\
+% \textsc{runic letter mannaz man m}             & m \\
+% \textsc{runic letter naudiz nyd naud n}        & n \\
+% \textsc{runic letter othalan ethel o}          & o \\
+% \textsc{runic letter pertho peorth p}          & p \\
+% \textsc{runic letter ingwaz}                   & q \\
+% \textsc{runic letter raido rad reid r}         & r \\
+% \textsc{runic letter sigel long-branch-sol s}  & s \\
+% \textsc{runic letter tiwaz tir tyr t}          & t \\
+% \textsc{runic letter uruz ur u}                & u \\
+% \hline
+% \end{tabular}
+% \end{center}
+% \caption{Runic letters supported by the \textsf{staves} package.}\label{unicode}
+%\end{figure}
+%
+% The package defines the command |\runictext|, which typesets its argument using the 
+% \textsf{icelandic} font. In Table~\ref{unicode} the reader can see which runic letters
+% are supported and to which letters they are associated to.
+%
+% \section{The Source Code}
+% 
+% Since we want to have everything in a single file, we will start by announcing the 
+% \textsf{icelandic} font to \LaTeX.  
+%    \begin{macrocode}
+%<*staves>
+\DeclareFontSubstitution{U}{icelandic}{m}{n}
+\DeclareFontFamily{U}{icelandic}{\hyphenchar\font=-1}
+%    \end{macrocode}
+% Now, we make sure that all font switching commands will default to the 
+% \textsf{icelandic} font:
+%    \begin{macrocode} 
+\DeclareFontShape{U}{icelandic}{m}{n}{%
+   <-> icelandic }{}
+\DeclareFontShape{U}{icelandic}{m}{sl}{
+   <-> ssub * icelandic/m/n}{}
+\DeclareFontShape{U}{icelandic}{m}{it}{
+   <-> ssub * icelandic/m/n}{}
+\DeclareFontShape{U}{icelandic}{m}{sc}{
+   <-> ssub * icelandic/m/n}{}
+\DeclareFontShape{U}{icelandic}{bx}{n}{
+   <-> ssub * icelandic/m/n}{}
+\DeclareFontShape{U}{icelandic}{bx}{sl}{
+   <-> ssub * icelandic/m/n}{}
+\DeclareFontShape{U}{icelandic}{bx}{it}{
+   <-> ssub * icelandic/m/n}{}
+\DeclareFontShape{U}{icelandic}{bx}{sc}{
+   <-> ssub * icelandic/m/n}{}
+%    \end{macrocode}
+% Also, we need to define a command that will select the \textsf{icelandic} font:
+%    \begin{macrocode}
+\def\icelandicFamily{\fontencoding{U}\fontfamily{icelandic}\selectfont}
+%    \end{macrocode}
+% Next, we define the command that will allow users to typeset icelandic runes:
+%    \begin{macrocode}
+\newcommand{\runictext}[1]{{\icelandicFamily #1}}
+%    \end{macrocode}
+% And now we are ready to define the various glyph access commands for the various
+% ``magical'' staves.
+%    \begin{macrocode}
+\def\staveI{{\icelandicFamily\char'0}}
+\def\staveII{{\icelandicFamily\char'1}}
+\def\staveIII{{\icelandicFamily\char'2}}
+\def\staveIV{{\icelandicFamily\char'3}}
+\def\staveV{{\icelandicFamily\char'4}}
+\def\staveVI{{\icelandicFamily\char'5}}
+\def\staveVII{{\icelandicFamily\char'6}}
+\def\staveVIII{{\icelandicFamily\char'7}}
+\def\staveIX{{\icelandicFamily\char'10}}
+\def\staveX{{\icelandicFamily\char'11}}
+\def\staveXI{{\icelandicFamily\char'12}}
+\def\staveXII{{\icelandicFamily\char'13}}
+\def\staveXIII{{\icelandicFamily\char'14}}
+\def\staveXIV{{\icelandicFamily\char'15}}
+\def\staveXV{{\icelandicFamily\char'16}}
+\def\staveXVI{{\icelandicFamily\char'17}}
+\def\staveXVII{{\icelandicFamily\char'20}}
+\def\staveXVIII{{\icelandicFamily\char'21}}
+\def\staveXIX{{\icelandicFamily\char'22}}
+\def\staveXX{{\icelandicFamily\char'23}}
+\def\staveXXI{{\icelandicFamily\char'24}}
+\def\staveXXII{{\icelandicFamily\char'25}}
+\def\staveXXIII{{\icelandicFamily\char'26}}
+\def\staveXXIV{{\icelandicFamily\char'27}}
+\def\staveXXV{{\icelandicFamily\char'30}}
+\def\staveXXVI{{\icelandicFamily\char'31}}
+\def\staveXXVII{{\icelandicFamily\char'32}}
+\def\staveXXVIII{{\icelandicFamily\char'33}}
+\def\staveXXIX{{\icelandicFamily\char'34}}
+\def\staveXXX{{\icelandicFamily\char'35}}
+\def\staveXXXI{{\icelandicFamily\char'36}}
+\def\staveXXXII{{\icelandicFamily\char'37}}
+\def\staveXXXIII{{\icelandicFamily\char'40}}
+\def\staveXXXIV{{\icelandicFamily\char'41}}
+\def\staveXXXV{{\icelandicFamily\char'42}}
+\def\staveXXXVI{{\icelandicFamily\char'43}}
+\def\staveXXXVII{{\icelandicFamily\char'44}}
+\def\staveXXXVIII{{\icelandicFamily\char'45}}
+\def\staveXXXIX{{\icelandicFamily\char'46}}
+\def\staveXL{{\icelandicFamily\char'47}}
+\def\staveXLI{{\icelandicFamily\char'50}}
+\def\staveXLII{{\icelandicFamily\char'51}}
+\def\staveXLIII{{\icelandicFamily\char'52}}
+\def\staveXLIV{{\icelandicFamily\char'53}}
+\def\staveXLV{{\icelandicFamily\char'54}}
+\def\staveXLVI{{\icelandicFamily\char'55}}
+\def\staveXLVII{{\icelandicFamily\char'56}}
+\def\staveXLVIII{{\icelandicFamily\char'57}}
+\def\staveXLIX{{\icelandicFamily\char'60}}
+\def\staveL{{\icelandicFamily\char'61}}
+\def\staveLI{{\icelandicFamily\char'62}}
+\def\staveLII{{\icelandicFamily\char'63}}
+\def\staveLIII{{\icelandicFamily\char'64}}
+\def\staveLIV{{\icelandicFamily\char'65}}
+\def\staveLV{{\icelandicFamily\char'66}}
+\def\staveLVI{{\icelandicFamily\char'67}}
+\def\staveLVII{{\icelandicFamily\char'70}}
+\def\staveLVIII{{\icelandicFamily\char'71}}
+\def\staveLIX{{\icelandicFamily\char'72}}
+\def\staveLX{{\icelandicFamily\char'73}}
+\def\staveLXI{{\icelandicFamily\char'74}}
+\def\staveLXII{{\icelandicFamily\char'75}}
+\def\staveLXIII{{\icelandicFamily\char'76}}
+\def\staveLXIV{{\icelandicFamily\char'77}}
+\def\staveLXV{{\icelandicFamily\char'100}}
+\def\staveLXVI{{\icelandicFamily\char'101}}
+\def\staveLXVII{{\icelandicFamily\char'102}}
+\def\staveLXVIII{{\icelandicFamily\char'103}}
+%</staves>
+%    \end{macrocode}
+%
+% \Finale
+%\section*{Acknowledgements}
+% I would like to thank the people of the Icelandic Museum of Sorcery and Witchcraft for their
+% encouragement in this project. Also, I would like to thank my Icelandic friends for giving
+% me and my son the chance to visit their beautiful country!
diff --git a/Master/texmf-dist/source/latex/staves/staves.ins b/Master/texmf-dist/source/latex/staves/staves.ins
new file mode 100644
index 00000000000..8ee8acc9fdf
--- /dev/null
+++ b/Master/texmf-dist/source/latex/staves/staves.ins
@@ -0,0 +1,52 @@
+%% Copyright 2006 Apostolos Syropoulos 
+%%
+%% This file is part of the `linearA' package.
+%% You are not allowed to modify its contents.
+%%
+\def\filedate{2006/11/07}
+\def\batchfile{staves.ins}
+\input docstrip.tex
+
+{\ifx\generate\undefined
+\Msg{**********************************************}
+\Msg{*}
+\Msg{* This installation requires docstrip}
+\Msg{* version 2.3c or later.}
+\Msg{*}
+\Msg{* An older version of docstrip has been input}
+\Msg{*}
+\Msg{**********************************************}
+\errhelp{Move or rename old docstrip.tex.}
+\errmessage{Old docstrip in input path}
+\batchmode
+\csname @@end\endcsname
+\fi}
+
+\preamble
+
+ (c) copyright 2006 Apostolos Syropoulos 
+ This program can be redistributed and/or modified under the terms
+ of the LaTeX Project Public License Distributed from CTAN
+ archives in directory macros/latex/base/lppl.txt; either
+ version 1.3b of the License, or any later version.
+
+ Please report errors or suggestions for improvement to
+                               
+    Apostolos Syropoulos        
+    asyropoulos@yahoo.com       
+
+\endpreamble
+
+
+\keepsilent
+ 
+\generate{\generateFile{staves.sty}{f}{\from{staves.dtx}{staves}}}
+\postamble
+\endpostamble
+\Msg{**********************************************************}
+\Msg{* To finish installation you have to copy}
+\Msg{* the generated .sty file in the appropriate}
+\Msg{* directory and then to rehash your TeX system}
+\Msg{*                  Happy Icelandic TeXing!}
+\Msg{**********************************************************}
+\endinput