Re: alte deutsche Schreibschrift

"Dr. Günter Green (via tex-d-l Mailing List)" wrote:
> Wie muß ich es also richtig machen?

Ich habe mir vor langer Zeit so etwas für meine Briefklasse eingerichtet.

fraktur.lco:
---------------------------------------------------------------------
\ProvidesFile{%
	fraktur.lco}[2010/04/11 FAB Fraktur- und Suetterlinschrift]
\usepackage{yfonts}
\usepackage{la} % \la \textla{} \lla \textlla{} \llafill \llaline{}
\usepackage{augie} % \augie \textaugie{}
\usepackage[only]{FABsuett}
\renewcommand{\shapedefault}{it}
% Fonts
\setkomafont{pagehead}{\frakfamily}
\setkomafont{fromname}{\frakfamily\large}
\setkomafont{fromaddress}{\frakfamily\small}
\setkomafont{pagenumber}{\frakfamily}
\setkomafont{subject}{\normalfont\large}
\setkomafont{backaddress}{\frakfamily}
\setkomafont{title}{\swabfamily\LARGE}
\setkomafont{refname}{\frakfamily\scriptsize}
\setkomafont{refvalue}{\normalfont\upshape}
\setkomafont{specialmail}{\frakfamily}
\setkomafont{addressee}{\normalfont\upshape\large}
% \setkomafont{toname}{\normalfont \upshape \Large}
% \setkomafont{toaddress}{\normalfont \upshape \Large}

\providecommand{\sigwidth}{1.5in}
\newkomavar{Schreibschrift}
\setkomavar{Schreibschrift}{\normalfont\large}
\setkomavar{fromlogo}{\raisebox{.24in}{\textinit{FAB}}}
---------------------------------------------------------------------

FABsuett.sty:
---------------------------------------------------------------------
\ProvidesPackage{FABsuett}[2009/09/15 Suetterlin Font Definitions]
\DeclareOption{tt}{%
	\renewcommand{\ttdefault}{suet}%
	\renewcommand\.{.\kern.1em}%
	\renewcommand\~{-\kern.03em}%
	\renewcommand\s{\symbol{28}}}
\DeclareOption{only}{%
	\renewcommand{\familydefault}{suet}%
	\renewcommand\.{.\kern.1em}%
	\renewcommand\~{-\kern.03em}%
	\renewcommand\s{\symbol{28}}}
\DeclareOption{part}{%
	\DeclareRobustCommand{\suetfont}{%
	\usefont{T1}{suet}{m}{n}%
	\renewcommand\.{.\kern.1em}%
	\renewcommand\~{-\kern.03em}%
	\renewcommand\s{\symbol{28}}}
	\DeclareRobustCommand{\schwfont}{%
	\usefont{T1}{suet}{m}{it}%
	\renewcommand\.{.\kern.1em}%
	\renewcommand\~{-\kern.03em}%
	\renewcommand\s{\symbol{28}}}
	\DeclareTextFontCommand{\textsuet}{\suetfont}
	\DeclareTextFontCommand{\textschw}{\schwfont}}
\providecommand\s{s}
\ExecuteOptions{part}
\ProcessOptions
\endinput
---------------------------------------------------------------------


-- 
/¯\   No  |    Dipl.-Ing. F. Axel Berger    Tel: +49/ 221/ 7771 8067
\ /  HTML |    Roald-Amundsen-Straße 2a     Fax: +49/ 221/ 7771 8069
 X    in  |    D-50829 Köln-Ossendorf      http://berger-odenthal.de
/ \  Mail | -- No unannounced, large, binary attachments, please! --

-- 
FAQ: http://texfragen.de/
Durchsuchbares Archiv: https://www.listserv.dfn.de/sympa/arc/tex-d-l 
Unsubscribe/Verwaltung: https://www.listserv.dfn.de/sympa/info/tex-d-l