From 8c98e4f9a099113c9954f1acc0a86b0990b342a9 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 18 Apr 2012 15:06:43 +0000 Subject: fundus-sueterlin (17apr12) git-svn-id: svn://tug.org/texlive/trunk@26030 c570f23f-e606-0410-a88d-b1316a301751 --- .../doc/latex/fundus-sueterlin/suetterl.pdf | Bin 0 -> 199499 bytes .../source/latex/fundus-sueterlin/suetterl.dtx | 211 +++++++++++++++++++++ .../source/latex/fundus-sueterlin/suetterl.ins | 63 ++++++ .../tex/latex/fundus-sueterlin/suetterl.sty | 61 ++++++ Master/tlpkg/bin/tlpkg-ctan-check | 2 +- Master/tlpkg/libexec/ctan2tds | 4 + Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc | 1 + Master/tlpkg/tlpsrc/fundus-sueterlin.tlpsrc | 0 8 files changed, 341 insertions(+), 1 deletion(-) create mode 100644 Master/texmf-dist/doc/latex/fundus-sueterlin/suetterl.pdf create mode 100644 Master/texmf-dist/source/latex/fundus-sueterlin/suetterl.dtx create mode 100644 Master/texmf-dist/source/latex/fundus-sueterlin/suetterl.ins create mode 100644 Master/texmf-dist/tex/latex/fundus-sueterlin/suetterl.sty create mode 100644 Master/tlpkg/tlpsrc/fundus-sueterlin.tlpsrc diff --git a/Master/texmf-dist/doc/latex/fundus-sueterlin/suetterl.pdf b/Master/texmf-dist/doc/latex/fundus-sueterlin/suetterl.pdf new file mode 100644 index 00000000000..126f6bf8133 Binary files /dev/null and b/Master/texmf-dist/doc/latex/fundus-sueterlin/suetterl.pdf differ diff --git a/Master/texmf-dist/source/latex/fundus-sueterlin/suetterl.dtx b/Master/texmf-dist/source/latex/fundus-sueterlin/suetterl.dtx new file mode 100644 index 00000000000..c75bddcd6cc --- /dev/null +++ b/Master/texmf-dist/source/latex/fundus-sueterlin/suetterl.dtx @@ -0,0 +1,211 @@ +\def\filename{suetterl.dtx} +\def\fileversion{1.3} +\def\filedate{2012/04/10} +\let\docversion=\fileversion +\let\docdate=\filedate +% \iffalse meta-comment +% +% Copyright 1996-2012 by Gerd Neugebauer +% +% This file may be distributed and/or modified under the conditions +% of the LaTeX Project Public License, either version 1.3c 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.3c or later is part of all distributions of LaTeX +% version 2005/12/01 or later. +% +% This file has the LPPL maintenance status "maintained". +% +% \fi +% \iffalse +%%% File: suetterl.dtx +%% Copyright (C) 1996-2012 Gerd Neugebauer +%% all rights reserved. +%\NeedsTeXFormat{LaTeX2e} +%\ProvidesPackage{suetterl}[1996/07/18 v1.2 LaTeX package suetterl] +%<*driver> +\documentclass{ltxdoc} +\usepackage{german} +\selectlanguage{\english} +\usepackage{suetterl} +\GetFileInfo{suetterl.sty} +\RecordChanges +\PageIndex +\begin{document} +\title{The \texttt{suetterl} package\thanks + {This file has version number \fileversion, dated \filedate.}\\ + for use with \LaTeX2e} +\author{Gerd Neugebauer\\Im Lerchelsb\"ohl 5\\64521 Gro\ss-Gerau\\Germany\\ + \texttt{gene@gerd-neugebauer.de}} +\date{\docdate} +\maketitle +\DocInput{suetterl.dtx} +\end{document} +% +% \fi +% +% \CheckSum{18} +%% \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 \~} +% +% \changes{v1.0}{1996/03/03}{First release} +% \changes{v1.1}{1996/05/19}{Macro textsuetterlin added.} +% \changes{v1.2}{1996/07/18}{Some commands made robust.} +% \changes{v1.9}{2012/04/10}{License clarified and address updated.} +% +% +% \section{Introduction} +% +% The font suetterl provides a suetterlin kind of font. This fonts +% are the handwritten variants of the gothic fonts. The sutterl and +% the schwell font have been written by B.~Ludewig. They can be +% found on the CTAN in the directory +% \texttt{tex-archive/fonts/gothic/sueterl}. +% This package provides means to use these fonts. +% +% This package has been created for an article in "`Die \TeX nische +% Kom\"odie"' \cite{dtk96.1:neugebauer:krakelig}. This article +% contains some more details on the package and its use. +% +% +% \section{Usage} +% +% This file can be used as a package by placing its name +% in the argument of |\usepackage|. Afterwards the font family suetterl +% is defined. This could also have been done by providing a +% font definition file. +% +% The font definitions in this file scale down the original fonts +% to let \LaTeX{} choose the right baselineskip. +% +% \DescribeMacro{\suetterlin} +% The command |\suetterlin| changes the current font family to +% suetterl and the encoding to T1. Usually this should be used in a +% \TeX{} group only since the macros |\s| is redefined as well. +% +% The following example on the left produces the result on the +% right.\smallskip +% +% \noindent +% \begin{minipage}{.55\textwidth}\small\tt\raggedright +% \verb|{\suetterlin| Lorem ipsum dolor sit amet, consectetur +% adipisicing elit, sed do eiusmod tempor incididunt ut labore et +% dolore magna aliqua. \verb|\textit{|Ut enim ad minim veniam, +% qui\verb|\s{}| nostrud exercitation ullamco laboris nisi ut +% aliquip ex ea commodo consequat.\verb|}| Duis aute irure dolor in +% reprehenderit in voluptate velit esse cillum dolore eu fugiat +% nulla pariatur. Excepteur sint occaecat cupidatat non proident, +% sunt in culpa qui officia deserunt mollit anim id est +% laborum. \verb|}| \end{minipage}\hfill +% \begin{minipage}{.40\textwidth} +% \suetterlin Lorem ipsum dolor sit amet, consectetur adipisicing +% elit, sed do eiusmod tempor incididunt ut labore et dolore magna +% aliqua. \textit{Ut enim ad minim veniam, qui\s{} nostrud exercitation +% ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis +% aute irure dolor in reprehenderit in voluptate velit esse cillum +% dolore eu fugiat nulla pariatur.} Excepteur sint occaecat +% cupidatat non proident, sunt in culpa qui officia deserunt mollit +% anim id est laborum. \end{minipage} +% \medskip +% +% \DescribeMacro{\textsuetterlin} +% The command |\textsuetterlin| typesets its argument in the +% suetterl font. +% +% The following example on the left produces the result on the +% right.\smallskip +% +% \noindent +% \begin{minipage}{.55\textwidth}\small\tt\raggedright +% \verb|\textsuetterlin{| Lorem ipsum dolor sit\verb|}| amet, +% consectetur adipisicing elit, sed do eiusmod tempor incididunt ut +% labore et dolore magna aliqua.\end{minipage}\hfill +% \begin{minipage}{.40\textwidth} +% \textsuetterlin{Lorem ipsum dolor sit} amet, consectetur adipisicing +% elit, sed do eiusmod tempor incididunt ut labore et dolore magna +% aliqua. \end{minipage} +% \medskip +% +% \begin{minipage}{.55\textwidth}\small\tt +% \verb|\textcsuetterlin{Mainzer Stra\ss e}|\end{minipage}\hfill +% \begin{minipage}{.40\textwidth} +% \textsuetterlin{Mainzer Stra\ss e} \end{minipage} +% \medskip +% +% +% \begin{thebibliography}{1} +% +% \bibitem{dtk96.1:neugebauer:krakelig} +% Gerd Neugebauer. +% \newblock Von {\glqq}krakelig{\grqq} bis {\glqq}wie gemalt{\grqq}. +% \newblock {\em {D}ie {\TeX}nische {K}om{\"o}die}, 1/96:25--42, June 1996. +% +% \end{thebibliography} +% +% \StopEventually{} +% +% +% \section{Implementation} +% +% +% First we declare a new font family for the suetterl font. +% \begin{macrocode} +\DeclareFontFamily{T1}{suetterl}{} +% \end{macrocode} +% +% This font is only available in the normal shape. Here we can get the +% desired font by (silently) scaling the only present suett15. The +% appropriate factor seems to be magstep 2 = 1.44. +% +% \begin{macrocode} +\DeclareFontShape{T1}{suetterl}{m}{n}{<->s*[0.8]suet14}{} +\DeclareFontShape{T1}{suetterl}{m}{it}{<->s*[0.7]schwell}{} +% \end{macrocode} +% +% Now we define font changing command. +% +% \begin{macro}{\sutterlin} +% The macro |\suetterlin| selects the suetterl family. The macro |\s| +% is used for the short s. +% \begin{macrocode} +\DeclareRobustCommand\suetterlin{% + \renewcommand\s{\symbol{28}}% + \fontfamily{suetterl}% + \fontencoding{T1}% + \selectfont} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\s} +% Usually |\s| produces a normal s. +% \begin{macrocode} +\newcommand\s{s} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\textsutterlin} +% The macro |\textsuetterlin| typesets is argument in the sutterl font. +% \begin{macrocode} +\newcommand\textsuetterlin[1]{\begingroup\suetterlin #1\endgroup} +% \end{macrocode} +% \end{macro} +% +% \PrintChanges +% \PrintIndex +% +% \Finale +% +\endinput diff --git a/Master/texmf-dist/source/latex/fundus-sueterlin/suetterl.ins b/Master/texmf-dist/source/latex/fundus-sueterlin/suetterl.ins new file mode 100644 index 00000000000..4612fcca4b4 --- /dev/null +++ b/Master/texmf-dist/source/latex/fundus-sueterlin/suetterl.ins @@ -0,0 +1,63 @@ +%% +%% This file will generate fast loadable files and documentation +%% driver files from the doc files in this package when run through +%% LaTeX or TeX. +%% +%% Copyright 1996-2012 by Gerd Neugebauer +%% +%% This file may be distributed and/or modified under the conditions +%% of the LaTeX Project Public License, either version 1.3c 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.3c or later is part of all distributions of LaTeX +%% version 2005/12/01 or later. +%% +%% This file has the LPPL maintenance status "maintained". +%% +%% +%% --------------- start of docstrip commands ------------------ +%% +\def\batchfile{suetterl.ins} +\input docstrip.tex +\preamble + + +This is a generated file. + +Copyright 1996-2012 by Gerd Neugebauer + + + This file may be distributed and/or modified under the conditions + of the LaTeX Project Public License, either version 1.3c 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.3c or later is part of all distributions of LaTeX + version 2005/12/01 or later. + +This file has the LPPL maintenance status "maintained". + +\endpreamble +\def\filedate{2012/04/10} +\def\batchfile{suetterl.dtx} +\input docstrip.tex + +\keepsilent + +\Msg{*** Generating .sty file ***} + +\generateFile{suetterl.sty}{t}{\from{suetterl.dtx}{package}} + +\Msg{***********************************************************} +\Msg{*} +\Msg{* To finish the installation you have to move the following} +\Msg{* files into a directory searched by TeX:} +\Msg{*} +\Msg{* \space\space suetterl.sty} +\Msg{*} +\Msg{* To produce the documentation run the files ending with} +\Msg{* `.dtx' through LaTeX2e.} +\Msg{*} +\Msg{* Happy TeXing} +\Msg{***********************************************************} + +\endinput diff --git a/Master/texmf-dist/tex/latex/fundus-sueterlin/suetterl.sty b/Master/texmf-dist/tex/latex/fundus-sueterlin/suetterl.sty new file mode 100644 index 00000000000..fef9a904d37 --- /dev/null +++ b/Master/texmf-dist/tex/latex/fundus-sueterlin/suetterl.sty @@ -0,0 +1,61 @@ +%% +%% This is file `suetterl.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% suetterl.dtx (with options: `package') +%% +%% +%% This is a generated file. +%% +%% Copyright 1996-2012 by Gerd Neugebauer +%% +%% +%% This file may be distributed and/or modified under the conditions +%% of the LaTeX Project Public License, either version 1.3c 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.3c or later is part of all distributions of LaTeX +%% version 2005/12/01 or later. +%% +%% This file has the LPPL maintenance status "maintained". +%% +\def\filename{suetterl.dtx} +\def\fileversion{1.3} +\def\filedate{2012/04/10} +\let\docversion=\fileversion +\let\docdate=\filedate +%%% File: suetterl.dtx +%% Copyright (C) 1996-2012 Gerd Neugebauer +%% all rights reserved. +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{suetterl}[1996/07/18 v1.2 LaTeX package suetterl] +%% \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 \~} +\DeclareFontFamily{T1}{suetterl}{} +\DeclareFontShape{T1}{suetterl}{m}{n}{<->s*[0.8]suet14}{} +\DeclareFontShape{T1}{suetterl}{m}{it}{<->s*[0.7]schwell}{} +\DeclareRobustCommand\suetterlin{% + \renewcommand\s{\symbol{28}}% + \fontfamily{suetterl}% + \fontencoding{T1}% + \selectfont} +\newcommand\s{s} +\newcommand\textsuetterlin[1]{\begingroup\suetterlin #1\endgroup} +\endinput +%% +%% End of file `suetterl.sty'. diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check index 9302dcaee5c..73e49791908 100755 --- a/Master/tlpkg/bin/tlpkg-ctan-check +++ b/Master/tlpkg/bin/tlpkg-ctan-check @@ -177,7 +177,7 @@ my @TLP_working = qw( fp fpl fragmaster fragments frame framed frankenstein frcursive frenchle friulan frletter frontespizio ftcap ftnxtra - fullblck fullwidth functan fundus-calligra fundus-cyr fwlw + fullblck fullwidth functan fundus-calligra fundus-cyr fundus-sueterlin fwlw g-brief gaceta galois gamebook garrigues gastex gatech-thesis gates gauss gb4e gcard gchords gcite geschichtsfrkl genealogy gene-logic genmisc genmpage gentium gentle geometry geometry-de diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds index 209c97d341a..37403e8f0f4 100755 --- a/Master/tlpkg/libexec/ctan2tds +++ b/Master/tlpkg/libexec/ctan2tds @@ -372,6 +372,10 @@ chomp ($Build = `cd $Master/../Build/source && pwd`); 'fribrief', "die 'skipping, nonfree license'", 'fullpict', "die 'skipping, noinfo license'", 'fundus', "die 'skipping, use fundus-* names'", + 'fundus-cmoutlines', "die 'skipping, noinfo license of fonts'", + 'fundus-la', "die 'skipping, noinfo license of fonts'", + 'fundus-pvscript', "die 'skipping, noinfo license of fonts'", + 'fundus-startrek', "die 'skipping, noinfo license of fonts'", 'futhark', "die 'skipping, nonfree license'", 'futurans', "die 'skipping, requires nonfree font'", 'galley', "die 'skipping, will be included in xpackages later'", diff --git a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc index 649083b82b5..920d0fcff46 100644 --- a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc +++ b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc @@ -292,6 +292,7 @@ depend fullblck depend fullwidth depend fundus-calligra depend fundus-cyr +depend fundus-sueterlin depend fwlw depend g-brief depend gauss diff --git a/Master/tlpkg/tlpsrc/fundus-sueterlin.tlpsrc b/Master/tlpkg/tlpsrc/fundus-sueterlin.tlpsrc new file mode 100644 index 00000000000..e69de29bb2d -- cgit v1.2.3