From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- fonts/beuron/tex/beuron.sty | 155 +++++++++++++++++++++++++++++++++++++++++++ fonts/beuron/tex/t1beuron.fd | 6 ++ 2 files changed, 161 insertions(+) create mode 100644 fonts/beuron/tex/beuron.sty create mode 100644 fonts/beuron/tex/t1beuron.fd (limited to 'fonts/beuron/tex') diff --git a/fonts/beuron/tex/beuron.sty b/fonts/beuron/tex/beuron.sty new file mode 100644 index 0000000000..c40412382c --- /dev/null +++ b/fonts/beuron/tex/beuron.sty @@ -0,0 +1,155 @@ +% beuron.sty +% Paket für die Schrift der Beuroner Kunstschule +% Beuronese art script package +% Version 1.3 +% Autor: K. Wehr +% 17. Januar 2018 +% U.I.O.G.D. + +% 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. + + +\RequirePackage{expl3} +\ProvidesExplPackage {beuron} {2018/01/17} {1.3} {Beuronese art script package} + +\RequirePackage{xparse} + +\bool_lazy_or:nnT {\sys_if_engine_xetex_p:} {\sys_if_engine_luatex_p:} + { + \RequirePackage{fontspec} + + \fontspec_set_family:Nnn \l_beuron_schriftfamilie_tl + { + FontFace = {c}{n}{BeuronCondensed-Regular.otf}, + FontFace = {x}{n}{BeuronExtended-Regular.otf} + } + { + Beuron-Regular.otf + } + } + +\cs_generate_variant:Nn \tl_replace_all:Nnn {Nxn} + +\box_new:N \l_beuron_mittepunkt_box +\skip_new:N \l_beuron_mittepunktabstand_skip + +\tl_const:Nn \c_beuron_dehnbarer_doppelpunkt_tl + { + \penalty10000 + \skip_horizontal:N \l_beuron_mittepunktabstand_skip + \c_colon_str + \skip_horizontal:N \l_beuron_mittepunktabstand_skip + } + +% #1: Sollen Leerzeichen erhalten bleiben? +% #2: Text +\cs_new_protected:Npn \beuron_replace:nn #1#2 + { + \skip_set:Nn \l_beuron_mittepunktabstand_skip {0em plus0.14em minus0.1em} + + \tl_set:Nn \l_tmpa_tl {#2} + \tl_replace_all:Nnn \l_tmpa_tl {Ä} {AE} + \tl_replace_all:Nnn \l_tmpa_tl {ä} {AE} + \tl_replace_all:Nnn \l_tmpa_tl {Ö} {OE} + \tl_replace_all:Nnn \l_tmpa_tl {ö} {OE} + \tl_replace_all:Nnn \l_tmpa_tl {Ü} {UE} + \tl_replace_all:Nnn \l_tmpa_tl {ü} {UE} + \tl_replace_all:Nnn \l_tmpa_tl {ß} {SS} + \tl_replace_all:Nxn \l_tmpa_tl {\c_colon_str \c_space_tl} {\c_beuron_dehnbarer_doppelpunkt_tl} + \tl_replace_all:Nxn \l_tmpa_tl {\c_colon_str} {\c_beuron_dehnbarer_doppelpunkt_tl} + + \bool_if:NF #1 + { + \hbox_set:Nn \l_beuron_mittepunkt_box {/} + + \tl_replace_all:Nnn \l_tmpa_tl {~} + { + \skip_horizontal:N \l_beuron_mittepunktabstand_skip + \cleaders + \box_use:N \l_beuron_mittepunkt_box + \skip_horizontal:n {\box_wd:N \l_beuron_mittepunkt_box} + \skip_horizontal:N \l_beuron_mittepunktabstand_skip + } + } + + \l_tmpa_tl + } + +\cs_generate_variant:Nn \beuron_replace:nn {no} + +\NewDocumentCommand \textbeuron {s m} + { + \group_begin: + \bool_lazy_or:nnTF {\sys_if_engine_xetex_p:} {\sys_if_engine_luatex_p:} + { + \fontfamily{\l_beuron_schriftfamilie_tl} + \fontseries{m} + \fontshape{n} + \selectfont + } + { + \usefont{T1}{beuron}{m}{n} + } + \beuron_replace:no {#1}{#2} + \group_end: + } + +\NewDocumentCommand \textbeuronc {s m} + { + \group_begin: + \bool_lazy_or:nnTF {\sys_if_engine_xetex_p:} {\sys_if_engine_luatex_p:} + { + \fontfamily{\l_beuron_schriftfamilie_tl} + \fontseries{c} + \fontshape{n} + \selectfont + } + { + \usefont{T1}{beuron}{c}{n} + } + \beuron_replace:no {#1}{#2} + \group_end: + } + +\NewDocumentCommand \textbeuronx {s m} + { + \group_begin: + \bool_lazy_or:nnTF {\sys_if_engine_xetex_p:} {\sys_if_engine_luatex_p:} + { + \fontfamily{\l_beuron_schriftfamilie_tl} + \fontseries{x} + \fontshape{n} + \selectfont + } + { + \usefont{T1}{beuron}{x}{n} + } + \beuron_replace:no {#1}{#2} + \group_end: + } + +\NewDocumentCommand \beuronOmega { } + { + \group_begin: + \bool_lazy_or:nnTF {\sys_if_engine_xetex_p:} {\sys_if_engine_luatex_p:} + { + \fontfamily{\l_beuron_schriftfamilie_tl} + \fontshape{n} + \selectfont + \symbol{937} + } + { + \fontencoding{T1} + \fontfamily{beuron} + \fontshape{n} + \selectfont + \symbol{141} + } + \group_end: + } diff --git a/fonts/beuron/tex/t1beuron.fd b/fonts/beuron/tex/t1beuron.fd new file mode 100644 index 0000000000..716ca40572 --- /dev/null +++ b/fonts/beuron/tex/t1beuron.fd @@ -0,0 +1,6 @@ +\ProvidesFile{t1beuron.fd}[2015/12/28 Beuronese script font definition] + +\DeclareFontFamily{T1}{beuron}{} +\DeclareFontShape{T1}{beuron}{m}{n}{<->beuron}{} +\DeclareFontShape{T1}{beuron}{c}{n}{<->beuronc}{} +\DeclareFontShape{T1}{beuron}{x}{n}{<->beuronx}{} -- cgit v1.2.3