summaryrefslogtreecommitdiff
path: root/fonts/beuron/tex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/beuron/tex
Initial commit
Diffstat (limited to 'fonts/beuron/tex')
-rw-r--r--fonts/beuron/tex/beuron.sty155
-rw-r--r--fonts/beuron/tex/t1beuron.fd6
2 files changed, 161 insertions, 0 deletions
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}{}